Skip Menu |
 

This queue is for tickets about the Net-FTPServer CPAN distribution.

Report information
The Basics
Id: 29503
Status: resolved
Priority: 0/
Queue: Net-FTPServer

People
Owner: ryochin [...] cpan.org
Requestors: ravi.cheema [...] gmail.com
Cc:
AdminCc:

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



Subject: ls -l doesn't show a directory named "0" [zero]
Date: Wed, 19 Sep 2007 23:41:02 -0700
To: bug-Net-FTPServer [...] rt.cpan.org
From: "Ravi Cheema" <ravi.cheema [...] gmail.com>
Download (untitled) / with headers
text/plain 2.7k
ls -l doesn't show directory named "0" [zero] See example below ============== Possible BUG: ============== [cheema@localhost ~]# ftp localhost Trying 127.0.0.1... Connected to localhost 220 localhost FTP server (Net::FTPServer/1.122-1) ready. Name (localhost:cheema): 331 Username OK, please send password. Password: 230 Welcome cheema. Remote system type is UNIX. Using binary mode to transfer files. Show quoted text
ftp> cd test
250 Changed directory OK. Show quoted text
ftp> mkdir 0
250 Directory has been created. Show quoted text
ftp> mkdir 1
250 Directory has been created. Show quoted text
ftp> ls -l
500 Unrecognized command. 227 Entering Passive Mode (127,0,0,1,216,31) 150 Opening data connection for file listing. total 1 drwxr-xr-x 4 - - 512 Sep 20 13:17 . drwxr-xr-x 10 - - 512 Sep 20 13:15 .. drwxr-xr-x 2 - - 512 Sep 20 13:17 <<================ [BUG: This should be "0", its blank] drwxr-xr-x 2 - - 512 Sep 20 13:17 1 226 Listing complete. Data connection has been closed. Show quoted text
ftp> pwd
Remote directory: /test Show quoted text
ftp> cd 0
250 Changed directory OK. Show quoted text
ftp> pwd
Remote directory: /test/0 Show quoted text
ftp>
============================== Possible FIX or WORKAROUND ============================== NOt sure if there is another better way of doing this, but I've found a workaround by adding a carriage return in the "FTPServer.pm" file Change Line: 5905 in /usr/local/lib/perl5/site_perl/5.8.8/Net/FTPServer.pm $self->_list_file ($sock, $handle, $prefix . $filename, $statusref); to $self->_list_file ($sock, $handle, $prefix . $filename . "\r", $statusref); Here is the diff of the files original and modified "FTPServer.pm" [cheema@localhost ~]# diff -u FTPServer.pm.orig FTPServer.pm --- FTPServer.pm.orig Thu Sep 20 06:25:53 2007 +++ FTPServer.pm Thu Sep 20 06:25:21 2007 @@ -5902,7 +5902,7 @@ my $handle = $_->[1]; my $statusref = $_->[2]; - $self->_list_file ($sock, $handle, $prefix . $filename, $statusref); + $self->_list_file ($sock, $handle, $prefix . $filename . "\r", $statusref); } } ============== VERSIONS: ============== Here is the version of Perl and Net::FTPServer that I'm running. [cheema@localhost ~]# perl -v This is perl, v5.8.8 built for i386-freebsd-64int (with 1 registered patch, see perl -V for more detail) Copyright 1987-2006, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. [cheema@localhost ~]# /usr/local/sbin/ftpd.pl -V Net::FTPServer/1.122-1


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.