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 8436796658..0888d19822 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;
}
--
GitLab