view release on metacpan or  search on metacpan

lib/ServiceNow/SOAP.pm  view on Meta::CPAN

a proxy server.  
The easiest solution is to configure the proxy with environment variables
as in this example.

    use ServiceNow::SOAP;
    $ENV{HTTP_PROXY} = "http://my.proxy.server";
    $ENV{HTTPS_PROXY} = $ENV{HTTP_PROXY};
    $ENV{PERL_LWP_ENV_PROXY} = 1;
    my $sn = ServiceNow($instance, $username, $password);

This works because ServiceNow::SOAP is built on top of SOAP::Lite
which is built on top of LWP.

 view release on metacpan or  search on metacpan

lib/Shipment/SOAP/WSDL.pm  view on Meta::CPAN

  
  =over 8
  
  =item * proxy
  
  HTTP(s) proxy to use. Proxies can also be set ussing the HTTP_PROXY and
  HTTPS_PROXY environment variables, which is generally a better choice for build
  scripts.
  
  =item * keepalive
  

lib/Shipment/SOAP/WSDL.pm  view on Meta::CPAN

          } keys %opt;
  
          # set environment proxies if given
          # makes sure existing environment proxies are regarded unless
          # overridden...
          local $ENV{HTTP_PROXY}  = $opt{proxy} if $opt{proxy};
          local $ENV{HTTPS_PROXY} = $opt{proxy} if $opt{proxy};
  
          my $lwp = LWP::UserAgent->new(
              $opt{keep_alive}
              ? ( keep_alive => 1 )

 view release on metacpan or  search on metacpan

t/05-capture_to_file.t  view on Meta::CPAN

    };
}

diag "Using device '$dev'";
SKIP: {
    if ($ENV{HTTP_PROXY}) {
        skip "Proxy settings detected - sniffing will not work", 3;
    };

    my $failed;

 view release on metacpan or  search on metacpan

share/2004.csv  view on Meta::CPAN

Digest-ManberHash-0.7,2004-03-11T06:51:21,PMAREK,latest,released,0.7,,Digest-ManberHash,"a Perl package to calculate Manber Hashes"
GPS-Lowrance-0.20,2004-03-11T07:53:47,RRWO,backpan,released,0.20,,GPS-Lowrance,"Connect to Lowrance and Eagle GPS devices"
Win32-Printer-0.7.1,2004-03-11T12:29:29,WASX,backpan,released,v0.7.1,,Win32-Printer,"Perl extension for Win32 printing"
Module-Install-0.33,2004-03-11T14:02:15,AUTRIJUS,backpan,released,0.33,,Module-Install,"Standalone, extensible Perl module installer"
Search-ContextGraph-0.11,2004-03-11T16:00:47,MCEGLOWS,backpan,released,0.11,,Search-ContextGraph,"spreading activation search engine"
LWP-UserAgent-ProxyAny-1.00,2004-03-11T16:10:48,QJZHOU,cpan,released,1.00,1,LWP-UserAgent-ProxyAny,"A LWP UserAgent supports both HTTP_PROXY and IE proxy"
Encode-CNMap-0.22,2004-03-11T16:38:37,QJZHOU,cpan,released,0.22,,Encode-CNMap,"enhanced Chinese encodings with Simplified-Traditional auto-mapping"
LWP-UserAgent-ProxyAny-1.01,2004-03-11T16:42:33,QJZHOU,latest,released,1.01,,LWP-UserAgent-ProxyAny,"A LWP UserAgent supports both HTTP_PROXY and IE proxy"
Lingua-EN-WordsToNumbers-0.1,2004-03-11T16:55:02,EMARTIN,backpan,released,0.1,1,Lingua-EN-WordsToNumbers,"convert numbers written in English to actual numbers"
activitymail-1.19,2004-03-11T17:27:34,DWHEELER,backpan,released,1.19,,activitymail,"CVS activity notification"
PHP-DateTime-0.02,2004-03-11T17:29:42,BLUEFEET,backpan,released,0.02,1,PHP-DateTime,"Clone of PHP's date and time functions."
MKDoc-Core-0.1,2004-03-11T17:48:45,JHIVER,backpan,released,0.1,1,MKDoc-Core,"Pipeline-ish plugin chain of responsibility"
tkjuke-2.1.1,2004-03-11T17:55:53,LUSOL,backpan,released,2.1.1,,tkjuke,"manipulate jukeboxes from a Perl/Tk program"

 view release on metacpan or  search on metacpan

share/2004.csv  view on Meta::CPAN

Digest-ManberHash-0.7,2004-03-11T06:51:21,PMAREK,latest,released,0.7,,Digest-ManberHash,"a Perl package to calculate Manber Hashes"
GPS-Lowrance-0.20,2004-03-11T07:53:47,RRWO,backpan,released,0.20,,GPS-Lowrance,"Connect to Lowrance and Eagle GPS devices"
Win32-Printer-0.7.1,2004-03-11T12:29:29,WASX,backpan,released,v0.7.1,,Win32-Printer,"Perl extension for Win32 printing"
Module-Install-0.33,2004-03-11T14:02:15,AUTRIJUS,backpan,released,0.33,,Module-Install,"Standalone, extensible Perl module installer"
Search-ContextGraph-0.11,2004-03-11T16:00:47,MCEGLOWS,backpan,released,0.11,,Search-ContextGraph,"spreading activation search engine"
LWP-UserAgent-ProxyAny-1.00,2004-03-11T16:10:48,QJZHOU,cpan,released,1.00,1,LWP-UserAgent-ProxyAny,"A LWP UserAgent supports both HTTP_PROXY and IE proxy"
Encode-CNMap-0.22,2004-03-11T16:38:37,QJZHOU,cpan,released,0.22,,Encode-CNMap,"enhanced Chinese encodings with Simplified-Traditional auto-mapping"
LWP-UserAgent-ProxyAny-1.01,2004-03-11T16:42:33,QJZHOU,latest,released,1.01,,LWP-UserAgent-ProxyAny,"A LWP UserAgent supports both HTTP_PROXY and IE proxy"
Lingua-EN-WordsToNumbers-0.1,2004-03-11T16:55:02,EMARTIN,backpan,released,0.1,1,Lingua-EN-WordsToNumbers,"convert numbers written in English to actual numbers"
activitymail-1.19,2004-03-11T17:27:34,DWHEELER,backpan,released,1.19,,activitymail,"CVS activity notification"
PHP-DateTime-0.02,2004-03-11T17:29:42,BLUEFEET,backpan,released,0.02,1,PHP-DateTime,"Clone of PHP's date and time functions."
MKDoc-Core-0.1,2004-03-11T17:48:45,JHIVER,backpan,released,0.1,1,MKDoc-Core,"Pipeline-ish plugin chain of responsibility"
tkjuke-2.1.1,2004-03-11T17:55:53,LUSOL,backpan,released,2.1.1,,tkjuke,"manipulate jukeboxes from a Perl/Tk program"

 view release on metacpan or  search on metacpan

lib/Template/Resolver.pm  view on Meta::CPAN

    # Simple value with a default (no error if not present)
    context_path = ${TEMPLATE{app.context_path:/myapp}}

    # Get an env var
    http_proxy = ${TEMPLATE_env{HTTP_PROXY}}

    # Translate a cygwin path with error if not present
    module_jar = ${TEMPLATE_os{app.module_addon1}}

    # Translate a cygwin path with default

 view release on metacpan or  search on metacpan

lib/Test/HTTP/LocalServer.pm  view on Meta::CPAN

All served HTML will have the first %s replaced by the current location.

The following entries will be removed from C<%ENV> when making a request:

    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy

=cut

sub get {
    my( $url ) = @_;
    local *ENV;
    delete @ENV{qw(
      HTTP_PROXY http_proxy CGI_HTTP_PROXY
      HTTPS_PROXY https_proxy HTTP_PROXY_ALL http_proxy_all
      ALL_PROXY
      all_proxy
    )};
    my $response = HTTP::Tiny->new->get($url);
    $response->{content}

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 - char, this messes up the regex for matching them. We'll quote-meta the
 - paths for the test.
 - (Abe Timmerman, Tue, 9 May 2023 14:03:05 +0200) Remove HTTPS?_PROXY
   while running the test
 - A test-failure showing a 403 from a squid-proxy makes me think we need
 - to temporarily remove the ENVironment variables HTTP_PROXY and
 - HTTPS_PROXY if set.
 - (Abe Timmerman, Tue, 9 May 2023 14:07:33 +0200) Use tempdir() for new
   target dirs
 - We shouldn't use the 't/' directory for targeting our destinations, a
 - tempdir() is nicer and most likely always writable.

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

[FIXED]
Normalized the use of single vs. double quotes in the default descriptions.

Fixed tests that fail under newer versions of LWP.

Fixed tests that fail if http_proxy or HTTP_PROXY are set.

Fixed tests that fail on Perl 5.14.


1.30    Wed Jun  9 12:23:48 CDT 2010

 view release on metacpan or  search on metacpan

lib/Tk/Wizard/Installer.pm  view on Meta::CPAN

    carp "Require target param" unless defined $args->{target};
    my ( $proxy_user, $proxy_pass );
    ( $self->{response}, $self->{bytes_transferred}, $self->{errstr} ) = ( undef, 0, undef );
    my $ua = LWP::UserAgent->new;
    $ua->timeout( $args->{timeout}     || 10 );
    $ua->agent( $ENV{HTTP_PROXY_AGENT} || ( "$0/$Tk::Wizard::Installer::VERSION " . $ua->agent ) );

    if ( defined $args->{proxy} ) {
        $proxy_user = $args->{HTTP_PROXY_USER};
        $proxy_pass = $args->{HTTP_PROXY_PASS};
        DEBUG "_read_uri: calling env_proxy: $args->{http_proxy}";
        $ua->env_proxy;
    }
    elsif ( defined $ENV{HTTP_PROXY} ) {
        $proxy_user = $ENV{HTTP_PROXY_USER};
        $proxy_pass = $ENV{HTTP_PROXY_PASS};
        DEBUG "_read_uri: calling env_proxy: $ENV{HTTP_proxy}";
        $ua->env_proxy;
    }
    my $req = HTTP::Request->new( GET => $args->{uri} );
    if ( defined $proxy_user and defined $proxy_pass ) {

 view release on metacpan or  search on metacpan

lib/Vimana/Installer.pm  view on Meta::CPAN

        print STDERR ".";
        print $cbargs $$dataref;
        return undef;
    };
    my $http = new HTTP::Lite;
    $http->proxy( $ENV{HTTP_PROXY} ) if $ENV{HTTP_PROXY};
    open my $dl, ">", $target or die $!;
    my $res = $http->request( $url, $savetofile, $dl );
    close $dl;
    print "\n";
}

 view release on metacpan or  search on metacpan

Crawler.pm  view on Meta::CPAN

sub crawl($) {
    my $pkg = shift;
    my $ua = LWP::UserAgent->new;
    $ua->agent  ("WWW::Bookmark::Crawler $VERSION");
    $ua->proxy  ($pkg->{HTTP_PROXY});
    $ua->timeout($pkg->{TIMEOUT});
    local $| = 1;
    open (DB, ">".$pkg->{DBNAME}) or croak("cannot write to index file");
    local $SIG{INT} = sub { close DB; exit };

 view release on metacpan or  search on metacpan

lib/WWW/Instapaper/Client.pm  view on Meta::CPAN

	# my ($self, %default);
	
	%default = (
		agent_string    => 'WWW-Instapaper-Client/'.PACKAGE_VERSION,
		api_url         => 'https://www.instapaper.com/api',
		http_proxy      => $ENV{HTTP_PROXY},
		http_proxyuser  => $ENV{HTTP_PROXY_USERNAME},
		http_proxypass  => $ENV{HTTP_PROXY_PASSWORD},
		username        => $ENV{instapaper_user},
		password        => $ENV{instapaper_pass},
	);
	
	# $self = bless \%default, $package;

lib/WWW/Instapaper/Client.pm  view on Meta::CPAN

	$self->{_ua} = LWP::UserAgent->new(
		agent => $self->{agent_string},
	);
	
	## remember, this is the LOCALIZED %ENV variable - won't change live environment.
	$ENV{HTTPS_PROXY}          = (defined $self->{http_proxy} ? $self->{http_proxy} : $ENV{HTTP_PROXY});
	$ENV{HTTPS_PROXY_USERNAME} = (defined $self->{http_proxyuser} ? $self->{http_proxyuser} : $ENV{HTTP_PROXY_USERNAME});
	$ENV{HTTPS_PROXY_PASSWORD} = (defined $self->{http_proxypass} ? $self->{http_proxypass} : $ENV{HTTP_PROXY_PASSWORD});
	$ENV{HTTP_PROXY}           = (defined $self->{http_proxy} ? $self->{http_proxy} : $ENV{HTTP_PROXY});
	$ENV{HTTP_PROXY_USERNAME}  = (defined $self->{http_proxyuser} ? $self->{http_proxyuser} : $ENV{HTTP_PROXY_USERNAME});
	$ENV{HTTP_PROXY_PASSWORD}  = (defined $self->{http_proxypass} ? $self->{http_proxypass} : $ENV{HTTP_PROXY_PASSWORD});
		
	# if (defined $self->{http_proxy)) {
		# my $proxy_url = $self->{http_proxy};
		# if (defined $self->{http_proxyuser}) {
			# my $authstr = $self->{http_proxyuser};

lib/WWW/Instapaper/Client.pm  view on Meta::CPAN

The base URL for the Instapaper API. Defaults to C<https://www.instapaper.com/api>. You shouldn't need
to change this unless you're connecting to a non-Instapaper service that uses the same API.

=item http_proxy, http_proxyuser, http_proxypass

The path to an HTTPS-capable proxy, and the username and password as appropriate. The standard HTTP_PROXY
set of environment variables will work here; these are widely documented.  You only need to specify these
if you have a proxy B<AND> you don't have the environment variables set.

=back

 view release on metacpan or  search on metacpan

t/helper.pm  view on Meta::CPAN

use Time::HiRes qw(sleep time);
use POSIX qw(:sys_wait_h);

use Log::Log4perl ':easy';

delete $ENV{HTTP_PROXY};
delete $ENV{HTTPS_PROXY};
$ENV{PERL_FUTURE_DEBUG} = 1
    if not exists $ENV{PERL_FUTURE_DEBUG};

# Global PID tracking for fail-safe cleanup

 view release on metacpan or  search on metacpan

t/55-basic-auth.t  view on Meta::CPAN

    plan skip_all => "HTTP::Daemon required to test basic authentication";
    exit
};

# We want to be safe from non-resolving local host names
delete @ENV{qw(HTTP_PROXY http_proxy CGI_HTTP_PROXY)};

my $mech = eval { WWW::Mechanize::Firefox->new( 
        autodie => 0,
        #log => [qw[debug]],
    )

 view release on metacpan or  search on metacpan

lib/WWW/Mechanize/PhantomJS.pm  view on Meta::CPAN

=item B<phantomjs_arg>

Additional command line arguments to C<phantomjs>.  (phantomjs -h)

  phantomjs_arg => ["--proxy=$ENV{HTTP_PROXY}"]

=item B<launch_ghostdriver>

Filename of the C<ghostdriver> Javascript code
to launch. The default is the file distributed with this module.

 view release on metacpan or  search on metacpan

t/cache.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use FindBin;

BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }

use Test::More tests => 8;
use_ok( 'WWW::Mechanize::Pluggable' );

my $agent = WWW::Mechanize::Pluggable->new(cache=>1);

t/cache.t  view on Meta::CPAN

SKIP: {
    eval { require HTTP::Daemon; };
    skip "HTTP::Daemon required to test the referrer header",10 if $@;

    # We want to be safe from non-resolving local host names
    delete $ENV{HTTP_PROXY};

    # Now start a fake webserver, fork, and connect to ourselves
    my $command = qq'"$^X" "$FindBin::Bin/cache-server"';
    if ($^O eq 'VMS') {
        $command = qq'mcr $^X t/cache-server';

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.45 2007-10-03
  * No library code changes, no need to upgrade
    * Removed HTML::Display from the distribution
    as that now lives its own life on CPAN
    * Fix failing tests if HTTP_PROXY was set. This fixes
    Debian bug #444634, http://bugs.debian.org/444634
    and CPAN RT #29455, thanks to Niko Tyni

0.44 2007-07-07

 view release on metacpan or  search on metacpan

t/local/LocalServer.pm  view on Meta::CPAN

# this has to happen here because LWP::Simple creates a $ua
# on load so any time after this is too late.
BEGIN {
    delete @ENV{
        qw(
            HTTP_PROXY http_proxy CGI_HTTP_PROXY
            HTTPS_PROXY https_proxy HTTP_PROXY_ALL http_proxy_all
        )
    };
}

use Carp        qw( carp croak );

t/local/LocalServer.pm  view on Meta::CPAN

All served HTML will have the first %s replaced by the current location.

The following entries will be removed from C<%ENV>:

    HTTP_PROXY
    http_proxy
    CGI_HTTP_PROXY
    HTTPS_PROXY
    https_proxy
    HTTP_PROXY_ALL
    http_proxy_all

=cut

sub spawn {

 view release on metacpan or  search on metacpan

bin/mvs  view on Meta::CPAN

=head2 MVS_BROWSER

The browser you prefer to use for previewing changes.

=head2 HTTP_PROXY

A proxy server to use (if any), expressed as a standard URL, something like
this:

  export HTTP_PROXY=http://[username:password@]proxy.myorg.org:8080

=head1 CAVEATS

This is an early version of this program.  Future versions may have major
differences which will effect your ability to use them interchangeably with

 view release on metacpan or  search on metacpan

lib/WWW/Mixi.pm  view on Meta::CPAN

	if ($@) {
		$error = "[error] $@\n";
	} elsif (not $result) {
		if (not $response->is_success) {
			$error = sprintf("[error] %d %s\n", $response->code, $response->message);
			$error .= "[info] Web¥¢¥¯¥»¥¹¤Ë¥×¥í¥­¥·¤¬É¬Íפʻþ¤Ï¡¢´Ä¶­ÊÑ¿ôHTTP_PROXY¤ò¥»¥Ã¥È¤·¤Æ¤«¤éºÆ»î¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£\n" unless($ENV{'HTTP_PROXY'});
		} elsif ($mixi->is_login_required($response)) {
			$error = "[error] " . $mixi->is_login_required($response) . "\n";
		} elsif (not $mixi->session) {
			$error = "[error] ¥»¥Ã¥·¥ç¥óID¤ò¼èÆÀ¤Ç¤­¤Þ¤»¤ó¤Ç¤·¤¿¡£\n";
		} elsif (not $mixi->stamp) {

lib/WWW/Mixi.pm  view on Meta::CPAN

	my $response = eval '$mixi->get("home")';
	if ($@) {
		$error = "[error] $@\n";
	} elsif (not $response->is_success) {
		$error = sprintf("[error] %d %s\n", $response->code, $response->message);
		$error .= "[info] Web¥¢¥¯¥»¥¹¤Ë¥×¥í¥­¥·¤¬É¬Íפʻþ¤Ï¡¢´Ä¶­ÊÑ¿ôHTTP_PROXY¤ò¥»¥Ã¥È¤·¤Æ¤«¤éºÆ»î¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£\n" unless($ENV{'HTTP_PROXY'});
	} elsif ($mixi->is_login_required($response)) {
		$error = "[error] " . $mixi->is_login_required($response) . "\n";
	}
	if ($error) {
		$mixi->log("¥È¥Ã¥×¥Ú¡¼¥¸¤Î¼èÆÀ¤Ë¼ºÇÔ¤·¤Þ¤·¤¿¡£\n", $error);

 view release on metacpan or  search on metacpan

lib/WWW/Patent/Page.pm  view on Meta::CPAN

=head1 CONFIGURATION AND ENVIRONMENT

WWW::Patent::Page requires no configuration files or environment variables.

WWW::Patent::Page makes use of LWP environmental variables such as HTTP_PROXY.

=head1 DEPENDENCIES

LWP::UserAgent
HTTP::Response

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

{
	my $host = 'billiongraves.com:443';

	if($ENV{'http_proxy'} && ($ENV{'http_proxy'} =~ /^.+\/\/(\w+:\d+)$/)) {
		$host = $1;
	} elsif($ENV{'HTTP_PROXY'} && ($ENV{'HTTP_PROXY'} =~ /^.+\/\/(\w+:\d+)$/)) {
		$host = $1;
	}
	my $s = IO::Socket::INET->new(
		# PeerAddr => 'www.ripe.net:43',
		# PeerAddr => 'whois.apnic.net:43',

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

{
	my $host = 'www.findagrave.com:80';

	if($ENV{'http_proxy'} && ($ENV{'http_proxy'} =~ /^.+\/\/(\w+:\d+)$/)) {
		$host = $1;
	} elsif($ENV{'HTTP_PROXY'} && ($ENV{'HTTP_PROXY'} =~ /^.+\/\/(\w+:\d+)$/)) {
		$host = $1;
	}
	my $s = IO::Socket::INET->new(
		# PeerAddr => 'www.ripe.net:43',
		# PeerAddr => 'whois.apnic.net:43',

 view release on metacpan or  search on metacpan

Programs/AutoSearch  view on Meta::CPAN

    $search->env_proxy($opts{'env_proxy'});
    }
  elsif (0)
    {
    # This is the OLD code:
    $search->http_proxy($ENV{'HTTP_PROXY'}) if ($ENV{'HTTP_PROXY'});
    $search->http_proxy($ENV{'http_proxy'}) if ($ENV{'http_proxy'});
    } # if
  # submit search w/options.
  $search->native_query(WWW::Search::escape_query($SummaryQuery), $query_options);
  $search->login($opts{'userid'}, $opts{'password'});

 view release on metacpan or  search on metacpan

t/sitemapper.t  view on Meta::CPAN

        $self->$orig( $robot, $hook_name, $from_url, $to_url );
    };
};

# We want to be safe from non-resolving local host names
delete $ENV{HTTP_PROXY};
my $d = HTTP::Daemon->new( LocalAddr => 'localhost' ) || die;
my $server_host = $d->url;
my $is_test;
my $STATUS_STORAGE_FILE = "t/status.storage";
my $TEST_TIME = time();

 view release on metacpan or  search on metacpan

t/2_api1.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
	$ENV{http_proxy} = $ENV{HTTP_PROXY} = 
	$ENV{https_proxy} = $ENV{HTTPS_PROXY} = 
	$ENV{all_proxy} = $ENV{ALL_PROXY} = undef;
}

use strict;

 view release on metacpan or  search on metacpan

lib/WebService/CloudPT.pm  view on Meta::CPAN

L<https://cloudpt.pt/documentation#listsharedfolders>


=head2 env_proxy

enable HTTP_PROXY, NO_PROXY

    $cloudpt->env_proxy;

=head1 AUTHOR

 view release on metacpan or  search on metacpan

lib/WebService/Dropbox.pm  view on Meta::CPAN

    warn $dropbox->res->header('X-Dropbox-Request-Id');
    warn $dropbox->res->as_string;

=head3 env_proxy

enable HTTP_PROXY, NO_PROXY

    my $dropbox = WebService::Dropbox->new();

    $dropbox->env_proxy;

 view release on metacpan or  search on metacpan

lib/WebService/Gyazo.pm  view on Meta::CPAN

use URI::Simple;

our $VERSION = 0.03;

use constant {
	HTTP_PROXY => 'http',
	SOCKS4_PROXY => 'socks4',
	SOCKS5_PROXY => 'socks',
	HTTPS_PROXY => 'https',
};

lib/WebService/Gyazo.pm  view on Meta::CPAN

		my ($protocol, $ip, $port) = ( $proxyUrl->protocol, $proxyUrl->host, ($proxyUrl->port || '80') );
		#print "\n\$protocol=$protocol\n\$ip=$ip\n\$port=$port\n";

		if ( defined($protocol) and defined($ip) and defined($port) ) {
			
			unless ( $protocol eq HTTP_PROXY or $protocol eq HTTPS_PROXY or $protocol eq SOCKS4_PROXY or $protocol eq SOCKS5_PROXY ) {
				$self->{error} = "Wrong protocol type [".$protocol."]";
				return 0;
			}

			# Проверяем правильность введённых значений