From 021d406f0c6df448ce7ce27e0b1cf1daf934cd0f Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Thu, 3 Apr 2003 13:42:06 +0000 Subject: Modified how we log data to server.input, as we can't keep the file open very much as it makes it troublesome on certain operating systems. --- tests/ftpserver.pl | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index ff15fa0f5..6b0ca0199 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -23,7 +23,19 @@ open(FTPLOG, ">log/ftpd.log") || sub logmsg { print FTPLOG "$$: "; print FTPLOG @_; } -sub ftpmsg { print INPUT @_; } +sub ftpmsg { + # append to the server.input file + open(INPUT, ">>log/server.input") || + logmsg "failed to open log/server.input\n"; + + INPUT->autoflush(1); + print INPUT @_; + close(INPUT); + + # use this, open->print->close system only to make the file + # open as little as possible, to make the test suite run + # better on windows/cygwin +} my $verbose=0; # set to 1 for debugging my $retrweirdo=0; @@ -437,12 +449,7 @@ for ( $waitedpid = 0; open(STDIN, "<&Client") || die "can't dup client to stdin"; open(STDOUT, ">&Client") || die "can't dup client to stdout"; - open(INPUT, ">log/server.input") || - logmsg "failed to open log/server.input\n"; - FTPLOG->autoflush(1); - INPUT->autoflush(1); - &customize(); # read test control instructions print @welcome; -- cgit v1.2.3