generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basic and early ftp support

Browse Source
This commit is contained in:
Daniel Stenberg 2000-11-13 19:58:40 +00:00
parent e02affb5d0
commit 3cd77a19ca
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tests/httpserver.pl
View File

@ -40,6 +40,15 @@ sub REAPER {
logmsg "reaped $waitedpid" . ($? ? " with exit $?" : ''); logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
} }
$commandok{ USER => 'fresh'}; # USER is ok in fresh state
print "TEST: ".$commandok{"USER"}."\n";
$statechange{ 'USER' => 'passwd'}; # USER goes to passwd state
$displaytext{'USER' => '331 We are happy you arrived!'}; # output FTP line
$SIG{CHLD} = \&REAPER; $SIG{CHLD} = \&REAPER;
for ( $waitedpid = 0; for ( $waitedpid = 0;
@ -74,11 +83,14 @@ for ( $waitedpid = 0;
# < 150 ASCII data connection for /bin/ls (193.15.23.1,59196) (0 bytes). # < 150 ASCII data connection for /bin/ls (193.15.23.1,59196) (0 bytes).
# * Getting file with size: -1 # * Getting file with size: -1
# flush data:
$| = 1;
print "220-running the curl suite test server\r\n", print "220-running the curl suite test server\r\n",
"220-running the curl suite test server\r\n", "220-running the curl suite test server\r\n",
"220 running the curl suite test server\r\n"; "220 running the curl suite test server\r\n";
STDOUT->autoflush(1); $state="fresh";
while(1) { while(1) {
@ -93,8 +105,24 @@ for ( $waitedpid = 0;
"badly formed command received: ".$_; "badly formed command received: ".$_;
exit 0; exit 0;
} }
$FTPCMD=$1;
$full=$_;
print STDERR "GOT: $_\n"; print STDERR "GOT: ($1) $_\n";
$ok = $commandok{$FTPCMD};
if($ok !~ /$state/) {
print "314 $FTPCMD not OK ($ok) in state: $state!\r\n";
exit;
}
$state=$statechange{$FTPCMD};
if($command{$1} eq "") {
print "314 Wwwwweeeeird internal error\r\n";
exit
}
$text = $displaytext{$FTPCMD};
print "$text\r\n";
} }
exit; exit;
} }