Commit aeed9520 authored by Leigh Stoller's avatar Leigh Stoller

As per Jay's request, change the message at the top of the activity log

to include the date and the experiment index.
parent e244219f
......@@ -14,7 +14,7 @@ use Exporter;
qw ( SENDMAIL OPENMAIL TBTimeStamp TBBackGround TBDateTimeFSSafe
TBMakeLogname TB_BOSSNODE TB_OPSEMAIL TBGenSecretKey TBDebugTimeStamp
TBDebugTimeStampsOn TBForkCmd TB_BOSSEVENTPORT TB_EVENTSERVER
TBScriptLock TBScriptUnlock
TBScriptLock TBScriptUnlock TBTimeStampWithDate
TBSCRIPTLOCK_OKAY TBSCRIPTLOCK_TIMEDOUT
TBSCRIPTLOCK_IGNORE TBSCRIPTLOCK_FAILED);
......@@ -161,6 +161,11 @@ sub TBTimeStamp()
return POSIX::strftime("%H:%M:%S", localtime($seconds)) . ":$microseconds";
}
sub TBTimeStampWithDate()
{
return POSIX::strftime("%m/%d/20%y %H:%M:%S", localtime());
}
#
# Another routine for creating a file name based on the current date and
# time. The format is slightly different so that it can be a proper filename.
......
......@@ -160,8 +160,11 @@ TBDebugTimeStampsOn();
#
# Print starting message.
#
my $exptidx;
TBExptIDX($pid, $eid, \$exptidx);
print "Beginning swap-$swapop for $pid/$eid. " . TBTimeStamp() . "\n";
print "Beginning swap-$swapop for $pid/$eid ($exptidx). " .
TBTimeStampWithDate() . "\n";
TBDebugTimeStamp("tbswap $swapop started");
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment