LWP-UserAgent-ProxyAny

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes                 Change log
Makefile.PL             Generate Makefile
MANIFEST                This list of files
META.yml                Module meta-data
ProxyAny.pm             Extended LWP::UserAgent to support both HTTP_PROXY and IE proxy setting
README                  Readme
proj.kpf                Komodo project file
t/00base.t              Test program

ProxyAny.pm  view on Meta::CPAN

    # Set user-defined proxy
    $proxy_name =~ s/^http:\/\///i;
    $this->proxy( ['http','https','ftp','gopher'], "http://$proxy_name" );
}

1;
__END__

=head1 NAME

LWP::UserAgent::ProxyAny - A LWP UserAgent supports both HTTP_PROXY and IE proxy

=head1 SYNOPSIS

  use LWP::UserAgent::ProxyAny;

  my $ua = LWP::UserAgent::ProxyAny->new;
  $ua->env_proxy;   # visit url with HTTP_PROXY or Win32 IE proxy settings

  my $response = $ua->get('http://sourceforge.net/projects/bookbot');
  if ($response->is_success) {
      print $response->content;  # or whatever
  }
  else {
      die $response->status_line;
  }

  # Or set proxy by specified name

  $ua->set_proxy_by_name("No");              # No Proxy
  $ua->set_proxy_by_name("Default");         # $ua->env_proxy
  $ua->set_proxy_by_name("127.0.0.1:8080");  # set proxy as http://127.0.0.1:8080

=head1 ABSTRACT

Extended LWP::UserAgent, which supports both HTTP_PROXY and IE proxy setting.

=head1 DESCRIPTION

This class is an extended LWP UserAgent, which can support both traditional
HTTP_PROXY settings and proxy settings of Microsoft Windows Internet Explorer.

=item $ua->env_proxy

Read proxy settings from HTTP_PROXY or CGI_HTTP_PROXY or win32 IE proxy settings.

=item $ua->set_proxy_by_name($name)

Set proxy settings from $name.

  $name = "No";            # No Proxy
  $name = "Default";       # $ua->env_proxy
  $name = "Others...";     # set proxy as http://Others...

=item my $ie_proxy_server = $this->get_ie_proxy( $ie_proxy_no )

README  view on Meta::CPAN

LWP::UserAgent::ProxyAny version 1.01
========================

Extended LWP::UserAgent, which supports both HTTP_PROXY and IE proxy setting.

INSTALLATION

To install this module type the following:

    perl Makefile.PL
    make
    make test
    make install

README  view on Meta::CPAN

This script requires these other modules and libraries:
    LWP

Optional modules:
    Win32::TieRegistry

SYNOPSIS
    use LWP::UserAgent::ProxyAny;

    my $ua = LWP::UserAgent::ProxyAny->new;
    $ua->env_proxy;       # visit url with HTTP_PROXY or Win32 IE proxy settings

    my $response = $ua->get('http://sourceforge.net/projects/bookbot');
    if ($response->is_success) {
	    print $response->content;  # or whatever
    }
    else {
	    die $response->status_line;
    }

    # Or set proxy by specified name

    $ua->set_proxy_by_name("No");              # No Proxy
    $ua->set_proxy_by_name("Default");         # $ua->env_proxy
    $ua->set_proxy_by_name("127.0.0.1:8080");  # set proxy as http://127.0.0.1:8080

DESCRIPTION
    This class is an extended LWP UserAgent, which can support both
    traditional HTTP_PROXY settings and proxy settings of Microsoft Windows
    Internet Explorer.

    $ua->env_proxy
    Read proxy settings from HTTP_PROXY or CGI_HTTP_PROXY or win32 IE proxy
    settings.

    $ua->set_proxy_by_name($name)
    Set proxy settings from $name.
    $name = "No";         # No Proxy
    $name = "Default";    # $ua->env_proxy
    $name = "Others...";  # set proxy as http://Others...

    my $ie_proxy_server = $this->get_ie_proxy( $ie_proxy_no )
    Return current IE proxy settings and set $ie_proxy_no as proxy override