Skip Menu |
 

This queue is for tickets about the libnet CPAN distribution.

Report information
The Basics
Id: 123689
Status: new
Priority: 0/
Queue: libnet

People
Owner: Nobody in particular
Requestors: brettacook [...] yahoo.com
Cc: jkeenan [...] cpan.org
AdminCc:

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



CC: jkeenan [...] cpan.org
Subject: Possible Net::Ftp bug
This ticket originated as https://rt.perl.org/Ticket/Display.html?id=132467. Since Net::FTP is maintained upstream on CPAN, I am transferring that bug report here. There were several image files attached to 132467 which I have not attempted to transfer. -- jkeenan Hello, I have been trying for the past day to script FTP access to my ftp system. I got it down to the point where I had two Wireshark traces side-by-side with the same commands sent and in the scripting case, it looks like the lower-level Perl libraries do something strange, resulting in an error message of: Net::FTP=GLOB(0x3ec6618)<<< 450 Transfer aborted. Link to file server lost I have attached screenshots of the Wireshark traces - one that worked and the scripted one that failed (can't provide the full Wireshark trace because it includes the username/password combination. However, the command sequence was: binary cd /public_html/GeneratedFiles/CdCovers put FilesToUpload/CdCovers/I_Love_You__Dude.jpg quit The file is 5803 bytes long. The perl script I was using did the following (note I changed the ftp server name, my username, and my password): my $FtpSession = Net::FTP->new("ftp.server.com", Timeout => 120, Passive => 0, Hash => \*STDERR, Debug => 1) or die "Cannot connect FTP session: $@"; $FtpSession->login(username,password) or die "Cannot login: $@"; $FtpSession->binary or die "Cannot set binary: $@"; my $DataConnection = $FtpSession->stor("I_Love_You__Dude.jpg") or die "Can't open data connection"; my $AmountWritten = $DataConnection->write($string, $Filesize); $DataConnection->close(); $FtpSession->close(); I tried using the $FtpSession->Put() method, but it had the same result. I went with the above method during debugging because it allowed me to get the exact same command sequence as the manual method of ftp. I have also attached (as a text file), my package versions along with the version of perl I'm using (ActiveState). If there is further information I can provide, please let me know. Thanks, Brett P.S. I also submitted to ActiveState, as I'm not sure what the correct procedure for reporting module bugs is.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.