Here's the code:
my $tlsftp=Net::Lite::FTP->new(); $tlsftp->open($ftphost, 2030); $tlsftp->user("$ftpuser"); $tlsftp->pass("$ftppass"); $tlsftp->cwd("$dir"); my @files=$tlsftp->nlst("$fname"); print "@files\n";
Here's the output:
OPEN.Received: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600 +204) SRV Response: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (39346002 +04) RECV: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (3934600204) OPEN..Received: 220 ftpssl.dstoutput.ca X2 WS_FTP Server 5.0.4 (393460 +0204) Received: 234 SSL enabled and waiting for negotiation Prototype mismatch: sub Net::SSLeay::randomize (;$$) vs none at (eval +5) line 1. Sending: PBSZ 0 Prototype mismatch: sub Net::SSLeay::ssl_read_until ($;$$) vs none at +(eval 6) l ine 1. Damn! undefined response Sending: PROT P Damn! undefined response
I suspect my SSLeay, but lack knowledge to successfully troubleshoot/fix the problem...
More info on this: The script is compiled on WindowsXP, then I run perl2exe on it, then run the .EXE on Windows NT box. perl2exe is supposed to include all the necessary libraries tho...
--------------------------------
An idea is not responsible for the people who believe in it...
In reply to Re^3: FTP & MD5
by bofh_of_oz
in thread FTP & MD5
by Ronnie
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |