opendir(DIR, $dir) ||
return 0; # can't open dir
while($file = readdir(DIR)) {
- if(($file !~ /^\./) && ($file ne $CURLLOG)) {
+ if(($file !~ /^\./)) {
unlink("$dir/$file");
$count++;
}
logmsg "$CMDLINE\n";
}
+ open(CMDLOG, ">", "$LOGDIR/$CURLLOG");
print CMDLOG "$CMDLINE\n";
+ close(CMDLOG);
unlink("core");
$TESTCASES = join(" ", @rand);
}
-#######################################################################
-# Start the command line log
-#
-open(CMDLOG, ">", "$LOGDIR/$CURLLOG") ||
- logmsg "can't log command lines to $CURLLOG\n";
-
-#######################################################################
-
# Display the contents of the given file. Line endings are canonicalized
# and excessively long files are elided
sub displaylogcontent {
$AZURE_RUN_ID = azure_update_test_run($AZURE_RUN_ID);
}
-#######################################################################
-# Close command log
-#
-close(CMDLOG);
-
# Tests done, stop the servers
stopservers($verbose);