generic-library/curl
1
0
Fork 0
Code Issues Pull Requests 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", "TYPE" => "loggedin|twosock",
"LIST" => "twosock", "LIST" => "twosock",
"RETR" => "twosock", "RETR" => "twosock",
"CWD" => "loggedin",
); );
# initially, we're in 'fresh' state # 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', 'PORT' => '200 You said PORT - I say FINE',
'TYPE' => '200 I modify TYPE as you wanted', 'TYPE' => '200 I modify TYPE as you wanted',
'LIST' => '150 here comes a directory', 'LIST' => '150 here comes a directory',
'CWD' => '250 CWD command successful.',
); );
# callback functions for certain commands # callback functions for certain commands
@ -271,6 +274,10 @@ for ( $waitedpid = 0;
# this code is forked and run # this code is forked and run
spawn sub { spawn sub {
open(INPUT, ">log/server.input") ||
logmsg "failed to open log/server.input\n";
# < 220 pm1 FTP server (SunOS 5.7) ready. # < 220 pm1 FTP server (SunOS 5.7) ready.
# > USER anonymous # > USER anonymous
# < 331 Guest login ok, send ident as password. # < 331 Guest login ok, send ident as password.
@ -300,6 +307,7 @@ for ( $waitedpid = 0;
last unless defined ($_ = <STDIN>); last unless defined ($_ = <STDIN>);
# Remove trailing CRLF. # Remove trailing CRLF.
s/[\n\r]+$//; s/[\n\r]+$//;
@ -313,6 +321,7 @@ for ( $waitedpid = 0;
my $full=$_; my $full=$_;
logmsg "GOT: ($1) $_\n"; logmsg "GOT: ($1) $_\n";
print INPUT "$$: $full\n";
my $ok = $commandok{$FTPCMD}; my $ok = $commandok{$FTPCMD};
if($ok !~ /$state/) { if($ok !~ /$state/) {