commit 6f8b4395ec12484e4a461a999d1e52d669306a16
author Daniel Stenberg <daniel@haxx.se> Mon Apr 19 15:20:30 2004 +0000
committer Daniel Stenberg <daniel@haxx.se> Mon Apr 19 15:20:30 2004 +0000
tree 32b9a2ffd512bb6cc0e81ba1f034a6de474421f8
parent 5506f8767cddcdb81f5cd456c4a42dc90dcb1a50

changed the logging to work when the logfile is removed during testing

tests/ftpserver.pl

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 3beb603..13c4b82 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -38,15 +38,15 @@
 
 require "getpart.pm";
 
-open(FTPLOG, ">log/ftpd.log") ||
-    print STDERR "failed to open log file, runs without logging\n";
-
+# open and close each time to allow removal at any time
 sub logmsg {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
         localtime(time);
+    open(FTPLOG, ">>log/ftpd.log");
     printf FTPLOG ("%02d:%02d:%02d (%d) ",
                    $hour, $min, $sec, $$);
     print FTPLOG @_;
+    close(FTPLOG);
 }
 
 sub ftpmsg {
@@ -530,7 +530,6 @@
     open(STDIN,  "<&Client")   || die "can't dup client to stdin";
     open(STDOUT, ">&Client")   || die "can't dup client to stdout";
     
-    FTPLOG->autoflush(1);
     &customize(); # read test control instructions
 
     print @welcome;