Can anyone help? I am trying to use Net::Socks module but I am having
problems. I connect but then it just freezes (doesn't accept commands).
Below is the code. If something else could be used besides Net::Socks
please let me know (I nee to ftp from a socksified windows client to a
ftp server). Thanks in advance.
#!/usr/local/bin/perl
#use strict;
use Net::SOCKS;
print "Attempting to connect to 209.0.86.3 at port 21 using the
socks\n";
print "server at 192.168.100.12 port 1080\n";
my $sock = new Net::SOCKS(socks_addr => '192.168.100.12',
socks_port => 1080,
#user_id => 'the_user',
#user_password => 'the_password',
#force_nonanonymous => 1,
protocol_version => 5);
my $f= $sock->connect(peer_addr => '209.0.86.3', peer_port => 21);
print "connect status: ",
Net::SOCKS::status_message($sock->param('status_num')), "\n";
if ($sock->param('status_num') == SOCKS_OKAY) {
print $f;
print:
while (<$f>) { print }
"user xxxx\n";
"pass xxxx\n";
print "Okeydokey\n";
while (<$f>) { print }
print "Okeydokey\n";
$sock->close();
print "Conection closed";
}
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
