Commit 33cf97c7 authored by Robert Ricci's avatar Robert Ricci
Browse files

Added TBDebugTimeStamp calls

parent f58bb42d
......@@ -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;
Supports Markdown
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