NAME

HTTP::ProxyCheck - Checks HTTP proxy servers.

SYNOPSIS

  use HTTP::ProxyCheck;

  # $OUTPUT_AUTOFLUSH
  $| = 1;

  my $proxy = "10.0.0.1:8080";
  my $url = "http://www.perl.org/index.shtml";

  print "Trying to connect to $proxy and retrieve $url\n";

  if (HTTP::ProxyCheck->check(proxy=>"$proxy", url => "$url")) {
          print "$proxy returns: " . HTTP::ProxyCheck->get_answer . "\n";
  }
  else {
          print "Error (" . HTTP::ProxyCheck->get_reason . ")\n";
  }

DESCRIPTION

HTTP::ProxyCheck is a class to check HTTP proxy servers. It connects to given HTTP proxy servers and tries to retrieve a provided URL through them.

The return message from the proxy servers can be accessed through the get_answer method.

Whenever a check fails, you can access the reason through the get_reason method.

METHODS

check(proxy => "$proxy", url => "$url" [, answer => "header" | "full"])

The check method is used to check a HTTP proxy server. The check method includes a test to check the syntax of the provided proxy server address and URL. You can specify wether you want to get only the header or the full page as return value from the method. This specification is optionally. The default answer is "header".

check_address($proxy)

The check_address method is used to check for a valid proxy server address. When you use check the proxy address is checked with this method automatically.

get_answer()

Through the get_answer method the return message from the proxy servers can be accessed

get_reason()

When a proxy check fails, the reason can be accessed through the get_reason method.

BUGS

Unknown

SUPPORT

Contact the author

AUTHOR

        Thomas Weibel
        cpan@beeblebrox.net
        http://beeblebrox.net/

COPYRIGHT

Copyright (c) 2003 Thomas Weibel. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.