Skip Menu |
 

This queue is for tickets about the libnet CPAN distribution.

Report information
The Basics
Id: 47826
Status: open
Priority: 0/
Queue: libnet

People
Owner: Nobody in particular
Requestors: marcus.lehmann [...] unitedprint.com
Cc:
AdminCc:

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



Download (untitled) / with headers
text/plain 651b
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.
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>
Download (untitled) / with headers
text/plain 128b
Please provide a small script that reproduces the issue, and a transcript of what is output when Debug=>1 is passwd to ->new
I try to add code example and log output as files, cause i can not see extra input fields for that.
code Example
Subject: code.txt
Download code.txt
text/plain 589b
# 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();
log output. Please notice that some file and dir names are cencored.
Subject: output.txt
Download output.txt
text/plain 1.5k
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.


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.