view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         LWP-Protocol-socks
version:      1.7
version_from: lib/LWP/Protocol/socks.pm
installdirs:  site
requires:
    IO::Socket::Socks:             0.2
    IO::Socket::SSL:               0.96
    LWP:                           6.02
    LWP::Protocol::https:          6.02

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17

Makefile.PL  view on Meta::CPAN

    push @spec_deps, 'LWP::Protocol::https', 6.02;
    $min_lwp_version = 6.02;
}


WriteMakefile(
    NAME              => 'LWP::Protocol::socks',
    VERSION_FROM      => 'lib/LWP/Protocol/socks.pm', # finds $VERSION
    'PREREQ_PM' => {
        'IO::Socket::Socks' => 0.2,
        'IO::Socket::SSL'   => 0.96,
        'LWP'               => $min_lwp_version,
        @spec_deps
    },
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/LWP/Protocol/socks.pm', # retrieve abstract from module
       AUTHOR         => 'Sheridan C Rawlins <sheridan.rawlins@yahoo.com>') : ()),
);

lib/LWP/Protocol/socks.pm  view on Meta::CPAN

    my($host, $port) = @_;
    my @extra_sock_opts = $self->SUPER::_extra_sock_opts(@_);
    (@extra_sock_opts, @{$self->{proxy_sock_opts}});
    #(@extra_sock_opts, @{$self->{proxy_sock_opts}});
}

##############################
package LWP::Protocol::https::socks::Socket;
require LWP::Protocol::https;
require IO::Socket::Socks;
use IO::Socket::SSL;
require Net::HTTPS;
our @ISA = qw(IO::Socket::SSL LWP::Protocol::https::Socket);

sub new {
    my $class = shift;
    my %args = @_;
    my $connectAddr = $args{ConnectAddr} = delete $args{PeerAddr};
    my $connectPort = $args{ConnectPort} = delete $args{PeerPort};
    my $socks = new IO::Socket::Socks(%args);
    $args{PeerAddr} = $connectAddr;
    $args{PeerPort} = $connectPort;
    delete $args{ProxyAddr};