I tried your module for transfer, and it gives me a couple of errors... Would you be able to look at those?
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...
|