sockschain

[begiorgio]

Hi, I've tried to use use LWP:rotocol::http::SocksChain perl module
to concatenate proxys and socks. With socks it works but when I put a
proxy in the chain, I always get the error "500 connection not
allowable".

I'm using
Module Version: 1.4
and the latest perl version from activestate.

Can you please help? Do you know of any other way to concatenate a
proxy and a sock?
Thank you very much.

I've tried to use the following code with privoxy for the purpose of
testing; it doesn't work with any other http proxy anyway.

########
use LWP::UserAgent;
use LWP:rotocol::http::SocksChain;
LWP:rotocol::implementor( http =>
'LWP:rotocol::http::SocksChain');

@LWP:rotocol::http::SocksChain::EXTRA_SOCK_OPTS = (
Chain_Len => 1,
Debug => 1,
Random_Chain => 1,
Chain_File_Data => [
'127.0.0.1:8118:::0:1155 b/s privoxy',
#'127.0.0.1:9050:::5:1155 b/s tor',
],

Auto_Save => 0,
Restore_Type => 0 );

&socket();

sub socket{

my $ua = LWP::UserAgent->new();

my $res =
$ua->get('http://www.google.com');

if ($res->is_success) {
#print $res->content;
print $res->status_line;
} else {
print "failed";
print $res->status_line;
}

}