mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

CWD runs

Browse Source
This commit is contained in:
Daniel Stenberg 2000-11-20 13:47:25 +00:00
parent 16cf5ee1c9
commit 4b8fd86f04
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/ftpserver.pl
View File

@ -57,6 +57,7 @@ my %commandok = ( "USER" => "fresh",
"TYPE" => "loggedin|twosock",
"LIST" => "twosock",
"RETR" => "twosock",
"CWD" => "loggedin",
);
# initially, we're in 'fresh' state
@ -72,6 +73,8 @@ 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',
'CWD' => '250 CWD command successful.',
);
# callback functions for certain commands
@ -271,6 +274,10 @@ for ( $waitedpid = 0;
# this code is forked and run
spawn sub {
open(INPUT, ">log/server.input") ||
logmsg "failed to open log/server.input\n";
# < 220 pm1 FTP server (SunOS 5.7) ready.
# > USER anonymous
# < 331 Guest login ok, send ident as password.
@ -300,6 +307,7 @@ for ( $waitedpid = 0;
last unless defined ($_ = <STDIN>);
# Remove trailing CRLF.
s/[\n\r]+$//;
@ -313,6 +321,7 @@ for ( $waitedpid = 0;
my $full=$_;
logmsg "GOT: ($1) $_\n";
print INPUT "$$: $full\n";
my $ok = $commandok{$FTPCMD};
if($ok !~ /$state/) {