From 4b8fd86f0412b3e526ca832da8ac2c9395e020a3 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 20 Nov 2000 13:47:25 +0000
Subject: [PATCH] CWD runs
---
tests/ftpserver.pl | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index b884800e51..b74a71f93e 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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/) {
--
GitLab