| Subject: | [BUG] lwp ftp head |
| Date: | Mon, 15 Dec 2008 20:24:39 +0100 |
| To: | bug-libwww-perl [...] rt.cpan.org |
| From: | Benoit Peccatte <benoit.peccatte [...] enst-bretagne.fr> |
Hi,
I've got a problem with the following code :
---------------------------------------------------------------
#!/usr/bin/perl
use LWP::UserAgent;
use LWP::Simple;
use Data::Dumper;
my $lwp = LWP::UserAgent->new();
#my $url =
"ftp://193.166.3.2//pub/linux/mirrors/debian//project/trace/ftp-master.debian.org";
my $url =
"ftp://ftp.us.debian.org/debian//project/trace/ftp-master.debian.org";
my $req = HTTP::Request->new(HEAD => $url);
my $data = $lwp->request($req);
print Dumper($data);
---------------------------------------------------------------
Using the first url, it returns an error 500, using the second, it
returns a code 200.
Both files are retrievable via wget and both ftp server work correctly.
Here is a tcp stream dump of what happens :
---------------------------------------------------------------
...
250 OK. Current directory is /pub/Linux
CWD mirrors
250 OK. Current directory is /pub/Linux/mirrors
CWD debian
250 OK. Current directory is /.m/mirrors8/ftp.debian.org/debian
CWD project
250 OK. Current directory is /.m/mirrors8/ftp.debian.org/debian/project
CWD trace
250 OK. Current directory
is /.m/mirrors8/ftp.debian.org/debian/project/trace
MDTM ftp-master.debian.org
213 20081214090001
PORT 10,0,0,3,135,50
200 PORT command successful
RETR ftp-master.debian.org
150 Connecting to port 34610
226-File successfully transferred
226 0.001 seconds (measured here), 94.26 Kbytes per second
....ABOR
500 ?
500 Logout.
---------------------------------------------------------------
I think the ABOR is too slow and shouldn't be done.