http://www.perlmonks.org?node_id=469010


in reply to Re^2: FTP & MD5
in thread FTP & MD5

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";

[download]

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

[download]

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...

Replies are listed 'Best First'.
Re^4: FTP & MD5
by Eyck (Priest) on Jun 23, 2005 at 07:11 UTC

    Does it work on the station you're compiling it on?

    Tell you the truth as far as Win32 is concerned I only tested NT 4.0 and Win2k, and as far as 2exe, only par, and it worked ok.

    First look seems to suggest that your Net::SSLeay is not working properly.

[reply]

In Section Seekers of Perl Wisdom