NAME
LWP::Protocol::https::SocksChain - Speak HTTPs through Net::SC
SYNOPSIS
use
LWP::UserAgent;
LWP::Protocol::implementor(
https
=>
'LWP::Protocol::https::SocksChain'
);
@LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS
= (
Chain_Len
=> 1,
Debug
=> 0,
Random_Chain
=> 1,
Auto_Save
=> 1,
Restore_Type
=> 1 );
my
$ua
= LWP::UserAgent->new();
my
$req
= HTTP::Request->new(
my
$res
=
$ua
->request(
$req
) ||
die
$!;
if
(
$res
->is_success) {
...
}
else
{
...
}
or
use
LWP::UserAgent;
LWP::Protocol::implementor(
https
=>
'LWP::Protocol::https::SocksChain'
);
@LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS
= (
Chain_Len
=> 1,
Debug
=> 0,
Random_Chain
=> 1,
Chain_File_Data
=> [
'2x0.41.23.164:1080:::4:383 b/s Argentina'
,
'24.2x2.88.160:1080:::4:1155 b/s Argentina'
,
],
Auto_Save
=> 0,
Restore_Type
=> 0 );
my
$ua
= LWP::UserAgent->new();
my
$req
= HTTP::Request->new(
my
$res
=
$ua
->request(
$req
) ||
die
$!;
if
(
$res
->is_success) {
...
}
else
{
...
}
or
use
LWP::UserAgent;
LWP::Protocol::implementor(
https
=>
'LWP::Protocol::https::SocksChain'
);
$ENV
{HTTPS_CERT_FILE} =
"certs/notacacert.pem"
;
$ENV
{HTTPS_KEY_FILE} =
"certs/notacakeynopass.pem"
;
$ENV
{HTTPS_CA_FILE} =
"some_file"
;
$ENV
{HTTPS_CA_DIR} =
"some_dir"
;
@LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS
= (
Chain_Len
=> 1,
Debug
=> 0,
Random_Chain
=> 1,
Chain_File_Data
=> [
'2x0.41.23.164:1080:::4:383 b/s Argentina'
,
'24.2x2.88.160:1080:::4:1155 b/s Argentina'
,
],
Auto_Save
=> 0,
Restore_Type
=> 0 );
my
$ua
= LWP::UserAgent->new();
my
$req
= HTTP::Request->new(
my
$res
=
$ua
->request(
$req
) ||
die
$!;
if
(
$res
->is_success) {
...
}
else
{
...
}
or
use
LWP::UserAgent;
LWP::Protocol::implementor(
https
=>
'LWP::Protocol::https::SocksChain'
);
@LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS
= (
Chain_Len
=> 1,
Debug
=> 0,
Random_Chain
=> 1,
Chain_File_Data
=> [
'2x0.41.23.164:1080:::4:383 b/s Argentina'
,
'24.2x2.88.160:1080:::4:1155 b/s Argentina'
,
],
Auto_Save
=> 0,
Restore_Type
=> 0,
SSL_cert_file
=>
"certs/notacacert.pem"
,
SSL_key_file
=>
"certs/notacakeynopass.pem"
,
SSL_ca_file
=>
"some_file"
,
SSL_ca_dir
=>
"some_dir"
,
);
my
$ua
= LWP::UserAgent->new();
my
$req
= HTTP::Request->new(
my
$res
=
$ua
->request(
$req
) ||
die
$!;
if
(
$res
->is_success) {
...
}
else
{
...
}
DESCRIPTION
LWP::Protocol::https::SocksChain enables you to speak HTTPs through SocksChain ( Net::SC ). To use it you need to overwrite the implementor class of the LWP 'https' scheme.
The interface of LWP::Protocol::https::SocksChain is similar to LWP::Protocol::https. To enable the old HTTP/1.0 protocol driver instead of the new HTTP/1.1 driver use LWP::Protocol::https::SocksChain10.
SEE ALSO
LWP, LWP::Protocol, Net::SC
AUTHOR
COPYRIGHT AND LICENSE
Copyright (C) 2005 - 2008 by Igor V. Okunev
All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.