From 6f8b4395ec12484e4a461a999d1e52d669306a16 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 19 Apr 2004 15:20:30 +0000
Subject: [PATCH] changed the logging to work when the logfile is removed
 during testing

---
 tests/ftpserver.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 3beb6030a..13c4b8218 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -38,15 +38,15 @@ use strict;
 
 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 @@ for ( $waitedpid = 0;
     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;