Added TBDebugTimeStamp calls

tbsetup/tbswapout.in

@@ -57,6 +57,7 @@ if ($#ARGV < 1) {
 my ($pid,$eid) = @ARGV;
 
 print "Beginning swapout for $pid/$eid. " . TBTimeStamp() . "\n";
+TBDebugTimeStamp("tbswapout started");
 
 if (! ($state = ExpState($pid, $eid))) {
     print STDERR "*** No such experiment $pid/$eid\n";
@@ -95,28 +96,34 @@ if (! $TESTMODE) {
 	$errors = 1;
     }
 
+    TBDebugTimeStamp("snmpit started");
     print "Clearing VLANs.\n";
     if (system("snmpit -r $pid $eid")) {
 	print STDERR "*** Failed to reset VLANs.\n";
 	$errors = 1;
     }
+    TBDebugTimeStamp("snmpit finished");
 
     #
     # This is a hack. We need a more general os_teardown, but for now
     # we just kill off the vnode stuff. 
     #
     print "Tearing down virtual nodes.\n";
+    TBDebugTimeStamp("vnode_setup started");
     if (system("vnode_setup -d -k $pid $eid")) {
 	print STDERR "*** Failed tear down vnodes.\n";
 	$errors = 1;
     }
+    TBDebugTimeStamp("vnode_setup finished");
 }
     
 print "Freeing resources.\n";
+TBDebugTimeStamp("nfree started");
 if (system("nfree $pid $eid")) {
     print STDERR "*** Failed to free resources.\n";
     $errors=1;
 }
+TBDebugTimeStamp("nfree finished");
 
 if (! $TESTMODE) {
     #
@@ -124,19 +131,25 @@ if (! $TESTMODE) {
     # via email sent from the individual scripts.
     #
     print "Resetting mountpoints.\n";
+    TBDebugTimeStamp("exports started");
     if (system("exports_setup")) {
 	print STDERR "*** Failed to reset mountpoints.\n";
     }
+    TBDebugTimeStamp("exports finished");
     
     print "Resetting named maps.\n";
+    TBDebugTimeStamp("named started");
     if (system("named_setup")) {
 	print "*** WARNING: Failed to reset named map.\n";
     }
+    TBDebugTimeStamp("named finished");
 
     print "Resetting email lists.\n";
+    TBDebugTimeStamp("genelists started");
     if (system("genelists")) {
 	print "*** WARNING: Failed to reset email lists.\n";
     }
+    TBDebugTimeStamp("genelists finished");
 }
 
 print "Resetting DB.\n";
@@ -155,5 +168,6 @@ if ($errors == 0) {
 	or $errors++;
 }
 
+TBDebugTimeStamp("tbswapout finished");
 print "Swapout finished. " . TBTimeStamp() . "\n";
 exit $errors;