diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2000-11-21 13:36:55 +0000 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2000-11-21 13:36:55 +0000 |
| commit | 70778f2cb682a586efb21927c49acd39dc7ed277 (patch) | |
| tree | ae18b60d1f6bc7ce40cd6c965f7efdd6788c3a46 | |
| parent | bdb411c6cabcdb0d013054a256b2a89fcc23a875 (diff) | |
NLST does a LIST (a normal unix ftp client 'ls' becomes NLST)
multiple transfers are supported
| -rw-r--r-- | tests/ftpserver.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 0888d1982..38eb06af7 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 |