mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-27 05:50:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

Modified how we log data to server.input, as we can't keep the file open

Browse Source 
very much as it makes it troublesome on certain operating systems.
This commit is contained in:
Daniel Stenberg 2003-04-03 13:42:06 +00:00
parent 294569c502
commit 021d406f0c
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/ftpserver.pl
View File

@ -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;