Commit 45ffd2dc authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Record cleanupslice in Logfile for post mortem debugging.

parent 2680d6a0
...@@ -134,6 +134,7 @@ use Node; ...@@ -134,6 +134,7 @@ use Node;
use libtestbed; use libtestbed;
use emutil; use emutil;
use libEmulab; use libEmulab;
use Logfile;
# #
# So we know who/what we are acting as. # So we know who/what we are acting as.
...@@ -416,7 +417,18 @@ sub ExpireSlices() ...@@ -416,7 +417,18 @@ sub ExpireSlices()
} }
cleanup: cleanup:
my $slice_uuid = $slice->uuid(); my $slice_uuid = $slice->uuid();
system("$CLEANUPSLICE -f -m $slice_uuid"); my $output = emutil::ExecQuiet("$CLEANUPSLICE -f -m $slice_uuid");
my $status = $?;
my $logfile = Logfile->CreateFromString($experiment->gid_idx(),
$output);
if (defined($logfile)) {
$logfile->SetMetadata([["slice_idx", $slice->idx()],
["slice_urn", $slice->urn()],
["slice_uuid", $slice->uuid()],
# For web interface listing
["Method", "Cleanup"],
], 1);
}
if ($?) { if ($?) {
print STDERR "Could not release $slice\n"; print STDERR "Could not release $slice\n";
SENDMAIL($TBOPS, "Could not release slice $slice", SENDMAIL($TBOPS, "Could not release slice $slice",
......
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