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/) {