From 70778f2cb682a586efb21927c49acd39dc7ed277 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 21 Nov 2000 13:36:55 +0000
Subject: [PATCH] NLST does a LIST (a normal unix ftp client 'ls' becomes NLST)
multiple transfers are supported
---
tests/ftpserver.pl | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 0888d19822..38eb06af76 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -64,10 +64,11 @@ sub REAPER {
my %commandok = (
"USER" => "fresh",
"PASS" => "passwd",
- "PASV" => "loggedin",
- "PORT" => "loggedin",
+ "PASV" => "loggedin|twosock",
+ "PORT" => "loggedin|twosock",
"TYPE" => "loggedin|twosock",
"LIST" => "twosock",
+ "NLST" => "twosock",
"RETR" => "twosock",
"STOR" => "twosock",
"CWD" => "loggedin",
@@ -88,6 +89,7 @@ my %displaytext = ('USER' => '331 We are happy you popped in!', # output FTP lin
'PORT' => '200 You said PORT - I say FINE',
'TYPE' => '200 I modify TYPE as you wanted',
'LIST' => '150 here comes a directory',
+ 'NLST' => '150 here comes a directory',
'CWD' => '250 CWD command successful.',
'QUIT' => '221 bye bye baby',
);
@@ -95,6 +97,7 @@ my %displaytext = ('USER' => '331 We are happy you popped in!', # output FTP lin
# callback functions for certain commands
my %commandfunc = ( 'PORT' => \&PORT_command,
'LIST' => \&LIST_command,
+ 'NLST' => \&LIST_command, # use LIST for now
'PASV' => \&PASV_command,
'RETR' => \&RETR_command,
'SIZE' => \&SIZE_command,
@@ -120,7 +123,6 @@ sub LIST_command {
logmsg "$$: pass data to child pid\n";
for(@ftpdir) {
print SOCK $_;
- print STDERR "PASS: $_";
}
close(SOCK);
logmsg "$$: done passing data to child pid\n";
@@ -186,7 +188,7 @@ sub STOR_command {
my $filename = "log/ftpout.$testno";
- print "200 Gimme gimme gimme!\r\n";
+ print "125 Gimme gimme gimme!\r\n";
open(FILE, ">$filename") ||
return 0; # failed to open output
--
GitLab