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

to include the date and the experiment index.

tbsetup/libtestbed.pm.in

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

tbsetup/tbswap.in

@@ -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");
 
 #