Bug #47826 for libnet: Error upload a file without permission

Mon Jul 13 04:33:40 2009 marcus.lehmann [...] unitedprint.com - Ticket created

I tried as a test to connect and upload a file to a ftp server, where the user has no permission to write files. Instead of returning a false value, i got an error, displaying the following message: "Can't use an undefined value as a symbol reference at C:/usr/lib/Net/FTP/dataconn.pm line 54". If i comment that function, the next error occours and says " Can't call method "response" on an undefined value at C:/usr/lib/Net/FTP/dataconn.pm line 74". I think i made nothing wrong. But i do not know whats that module for, so i cant say if i forgot any variable or something like that. So if you need more information, let me know. Thank u 4 ur help.

Mon Jul 13 04:35:21 2009 marcus.lehmann [...] unitedprint.com - Status changed from 'new' to 'open'

Mon Jul 13 04:36:35 2009 marcus.lehmann [...] unitedprint.com - Subject changed from (no value) to 'Error upload a file without permission'

Mon Jul 13 08:31:47 2009 gbarr [...] pobox.com - Correspondence added

Subject:	Re: [rt.cpan.org #47826]
Date:	Mon, 13 Jul 2009 07:31:18 -0500
To:	bug-libnet [...] rt.cpan.org
From:	Graham Barr <gbarr [...] pobox.com>

Please provide a small script that reproduces the issue, and a transcript of what is output when Debug=>1 is passwd to ->new

Mon Jul 13 08:55:40 2009 marcus.lehmann [...] unitedprint.com - Correspondence added

I try to add code example and log output as files, cause i can not see extra input fields for that.

Mon Jul 13 08:56:35 2009 marcus.lehmann [...] unitedprint.com - Correspondence added

code Example

Subject:

code.txt

# example of code i use. use Net::FTP; my $ftpAccess = Modul1::getAccess(); my $ftp = Net::FTP->new($ftpAccess->{adress}, Debug => 0) or return "Error connecting FTP Server: '$@'"; $ftp->login($ftpAccess->{login},$ftpAccess->{password}) or return "Cannot login ".$ftp->message(); # Creating the paths works fine # $destinationPath contains e.g. '/folder/anotherFolder/' $ftp->mkdir($destinationPath,1); # If i've a pdf to upload, i do this $ftp->binary(); # and finally the upload $ftp->put($sourcePath.$sourceFile,$destinationPath.$destinationFile); $ftp->quit();

Mon Jul 13 08:57:34 2009 marcus.lehmann [...] unitedprint.com - Correspondence added

log output. Please notice that some file and dir names are cencored.

Subject:

output.txt

Net::FTP>>> Net::FTP(2.77) Net::FTP>>> Exporter(5.62) Net::FTP>>> Net::Cmd(2.29) Net::FTP>>> IO::Socket::INET(1.31) Net::FTP>>> IO::Socket(1.30) Net::FTP>>> IO::Handle(1.27) Net::FTP=GLOB(0x6de6194)<<< 220-FileZilla Server version 0.9.31 beta Net::FTP=GLOB(0x6de6194)<<< 220-unitedPrint testFTP Net::FTP=GLOB(0x6de6194)<<< 220 visit www.unitedprint.de Net::FTP=GLOB(0x6de6194)>>> USER testconnect\r Net::FTP=GLOB(0x6de6194)<<< 331 Password required for testconnect Net::FTP=GLOB(0x6de6194)>>> PASS .... Net::FTP=GLOB(0x6de6194)<<< 230 Logged on Net::FTP=GLOB(0x6de6194)>>> CWD /foo/bar/992781/\r Net::FTP=GLOB(0x6de6194)<<< 250 CWD successful. "/foo/bar/992781" is current directory. Net::FTP=GLOB(0x6de6194)>>> CWD /foo/bar/992781/\r Net::FTP=GLOB(0x6de6194)<<< 250 CWD successful. "/foo/bar/992781" is current directory. Net::FTP=GLOB(0x6de6194)>>> PASV\r Net::FTP=GLOB(0x6de6194)<<< 227 Entering Passive Mode (192,168,49,132,11,218) Net::FTP=GLOB(0x6de6194)>>> NLST\r Net::FTP=GLOB(0x6de6194)<<< 150 Connection accepted Net::FTP=GLOB(0x6de6194)<<< 226 Transfer OK Net::FTP=GLOB(0x6de6194)>>> TYPE I\r Net::FTP=GLOB(0x6de6194)<<< 200 Type set to I Net::FTP=GLOB(0x6de6194)>>> ALLO 1\r Net::FTP=GLOB(0x6de6194)<<< 202 No storage allocation neccessary. Net::FTP=GLOB(0x6de6194)>>> PASV\r Net::FTP=GLOB(0x6de6194)<<< 227 Entering Passive Mode (192,168,49,132,11,220) Net::FTP=GLOB(0x6de6194)>>> STOR /foo/bar/file.pdf\r Can't use an undefined value as a symbol reference at C:/usr/lib/Net/FTP/dataconn.pm line 54.