Eyal Udassin > HTTP-ProxySelector > HTTP::ProxySelector

Download:
HTTP-ProxySelector-0.02.tar.gz

Dependencies

Annotate this POD (1)

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 0.02   Source  

NAME ^

HTTP::ProxySelector - Perl extension for automatically setting an anonymous proxy

SYNOPSIS ^

  use HTTP::ProxySelector;
  use LWP::UserAgent;

  # Instanciate
  my $selector = HTTP::ProxySelector->new();
  my $ua = LWP::UserAgent->new();

  # Assign an anonymous proxy to the UserAgent object.
  $selector->set_proxy($ua);
  
  # Just in case you need to know the chosen proxy
  print 'Selected proxy: ',$selector->get_proxy(),"\n";

DESCRIPTION ^

Automatically selects you an anonymous proxy for use of your UserAgent instance. Just hand it your favorite proxy list site, or use the defaults. The package will then use your existing useragent instance to access the site and set it's proxy settings according to a random entry in the list.

METHODS ^

new - Constructor $select = HTTP::ProxySelector->new();

new is the constructor for HTTP::ProxySelector objects

Arguments:

- Accepts an Key-Value list with the list attributes.

General

  Key: sites     - Reference to a list of sites containing the proxy lists.
                   Example : $select = HTTP::ProxySelector->new(sites =>
                                                             ['http://www.proxylist.com/list.htm']);
                                   Default - http://www.multiproxy.org/txt_anon/proxy.txt
                                             http://www.samair.ru/proxy/fresh-proxy-list.htm

Proxy testing

  Key: testflag  - Flag indicating whether the randomly selected proxy should be checked.
                   Example : $select = HTTP::ProxySelector->new(testflag => 0);
                                   Default - 1.

           num_tries - Number of proxies you wish to test before giving up.
                   Example : $select = HTTP::ProxySelector->new(num_tries => 10);
                                   Default - 5.

           testsite  - Destination site to test the proxy with.
                   Example : $select = HTTP::ProxySelector->new(testsite => 'http://yahoo.com');
                                   Default - http://www.google.com
set_proxy - Assign anonymous proxy
  $result = $select->set_proxy($useragent);

Assign anonymous proxy to the useragent proxy

Arguments:

 LWP::UserAgent object.

Return value:

0 on success, a string describing the error upon failure

get_proxy - Get selected proxy information
  $proxy = $select->get_proxy();

Extract the address of the currently selected proxy.

Arguments:

None.

Return value:

String, describing the address of the proxy.

EXPORT ^

None by default.

TODO ^

This is becoming a dangerous habbit, but testing should really be implemented sometime soon.

AUTHOR ^

Eyal Udassin, <eyal@cpan.org>

SEE ALSO ^

perl, LWP::UserAgent.

syntax highlighting: