Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^3: FTP & MD5

by bofh_of_oz (Hermit)
on Jun 22, 2005 at 13:41 UTC ( #469010=note: print w/replies, xml ) Need Help??

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

Here's the output:

OPEN.Received: 220 X2 WS_FTP Server 5.0.4 (3934600 +204) SRV Response: 220 X2 WS_FTP Server 5.0.4 (39346002 +04) RECV: 220 X2 WS_FTP Server 5.0.4 (3934600204) OPEN..Received: 220 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...

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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://469010]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2018-06-20 23:50 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.