From bdb411c6cabcdb0d013054a256b2a89fcc23a875 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 21 Nov 2000 13:22:32 +0000
Subject: [PATCH] STOR works!

---
 tests/ftpserver.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 8436796..0888d19 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -184,18 +184,24 @@ sub STOR_command {
 
     logmsg "STOR test number $testno\n";
 
-    my $filename = "log/ftp.upload";
+    my $filename = "log/ftpout.$testno";
+
+    print "200 Gimme gimme gimme!\r\n";
 
     open(FILE, ">$filename") ||
         return 0; # failed to open output
 
     my $line;
+    my $ulsize=0;
     while (defined($line = <SOCK>)) {
+        $ulsize += length($line);
         print FILE $line;
     }
     close(FILE);
     close(SOCK);
 
+    logmsg "received $ulsize bytes upload\n";
+
     print "226 File transfer complete\r\n";
     return 0;
 }
-- 
2.7.4