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

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

Browse Source
This commit is contained in:
Daniel Stenberg 2004-04-19 15:20:30 +00:00
parent 5506f8767c
commit 6f8b4395ec
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/ftpserver.pl
View File

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