Skip Menu |

This queue is for tickets about the Net-FTPSSL CPAN distribution.

Report information
The Basics
Id: 77025
Status: open
Priority: 0/
Queue: Net-FTPSSL

People
Owner: Nobody in particular
Requestors: stefanos [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.21
Fixed in: (no value)



Subject: support for socks 5 proxy?
support for socks 5 proxy?
Hi Stefanos, Looks like you were busy, this is the 2nd ticket by you today. Can you send me a link that describes socks 5 proxy and I'll look into it. But a simple search of CPAN says that IO::Socket::Socks does this. I'll have to see if there is a way to force IO::Socket::SSL to use it, otherwise I might not be able to do it without a major rewrite of the module. I rely on quite a bit of functionality of IO::Socket:SSL that would be difficult to replace. Curtis On Sun May 06 13:51:29 2012, STEFANOS wrote: Show quoted text
> support for socks 5 proxy?
Socks5 rfc: http://tools.ietf.org/html/rfc1928 Socks5 proxy server example in perl: http://ssspl.sourceforge.net/ http://ssspl.svn.sourceforge.net/viewvc/ssspl/sss.pl or nylon socks5 proxy server for tests: http://monkey.org/~marius/pages/?page=nylon or ccproxy under windows http://www.youngzsoft.net/ccproxy/ Simple search of CPAN says: http://search.cpan.org/~oleg/IO-Socket-Socks-Wrapper-0.06/ But not work with Net::FTPSSL see my testscript and the debuglog from your modul. Example proxy => 'socks5://127.0.0.1:1080', pret => 1, timeout => 10 ... is better as option in Net::FTPSSL ?
Subject: myLog.txt
Net-FTPSSL Version: 0.21 Perl: 5.010001 [5.10.1], OS: MSWin32 Server (port): localhost (61616) Keys: (Debug), (Port), (Pret), (Timeout), (DebugLogFile) Values: (1), (61616), (1), (10), (myLog.txt) SKT <<< 220 OFFLiNE SKT >>> AUTH TLS SKT <<< 234 AUTH TLS successful
Subject: ftp2012.pl
#!/usr/bin/perl use IO::Socket::Socks::Wrapper ( { ProxyAddr => 'localhost', ProxyPort => 1080, SocksDebug => 1, SocksVersion => 5, Timeout => 300 } ); use Net::FTPSSL; use LWP::Simple; my $html = get('http://www.wieistmeineip.de/'); my($ip) = ($html =~ /<h1 class="ip">([^<]*)<\/h1>/); print $ip . "\n";#work good #IO::Socket::Socks::Wrapper->import(Net::FTPSSL:: => 0); # direct network access #IO::Socket::Socks::Wrapper->import(Net::FTPSSL:: => {ProxyAddr => 'XXX', ProxyPort => 1080}); #not correct work (but work without socks5 proxy and work with other client tools mit socks5 proxy) my $host = 'localhost'; my $port = '61616'; my $user = 'user1'; my $pass = 'pass1'; my $pfad = '/'; if(my $ftp = Net::FTPSSL->new($host, Timeout => 10, Pret => 1, Port => $port, Debug => 1, DebugLogFile => "myLog.txt")){ $ftp->login($user,$pass); $ftp->binary(); $ftp->cwd($pfad); my @ftpdataLIST = $ftp->list($pfad); print join("\n",@ftpdataLIST); # Code $ftp->quit; } exit;