Commit 9941c9b0 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Add tbreport output to swapexp mail message, as requested by Matt.

parent 1dc15e54
......@@ -94,6 +94,7 @@ if ($eid =~ /^([-\@\w.]+)$/) {
else {
die("Tainted argument $eid!\n");
}
my $repfile = "$eid.report";
#
# Verify user and get his DB uid.
......@@ -242,6 +243,13 @@ if (! $batch) {
}
}
#
# Remove old report file since its contents are going to be invalid.
#
if (-e $repfile) {
unlink("$repfile");
}
#
# Sanity check states in case someone changes something.
#
......@@ -266,6 +274,8 @@ else {
if ($estate ne EXPTSTATE_ACTIVE) {
fatal("Experiment is in the wrong state: $estate\n");
}
system("$tbdir/tbreport -v $pid $eid 2>&1 > $repfile");
}
#
......@@ -298,7 +308,7 @@ SENDMAIL("$user_name <$user_email>",
"$user_name <$user_email>",
"Cc: $expt_head_name <$expt_head_email>\n".
"Bcc: $TBLOGS",
($logname));
($repfile, $logname));
if (defined($logname)) {
unlink("$logname");
......
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