Commit 179bb4fe authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor tweaks to last revision.

parent 187b60db
......@@ -26,7 +26,7 @@ use lib "@prefix@/lib";
use libdb;
use libtestbed;
my $parser = "$TB/libexec/ns2ir/parse.tcl";
my $parser = "$TB/libexec/ns2ir/parse-ns";
my $mkexpdir = "$TB/libexec/mkexpdir";
my $startexp = "$TB/bin/startexp";
my $tbdata = "tbdata";
......
......@@ -38,6 +38,7 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
# Testbed Support libraries
#
use lib "@prefix@/lib";
use libdb;
use libtestbed;
#
......@@ -75,8 +76,24 @@ waitpid($pid, 0);
#
if (($? >> 8) == SIGKILL) {
my $msg = "Overran its CPU limit on 'parse.tcl @ARGV'";
my $user_name;
my $user_email;
my $dbuid;
my $to;
SENDMAIL($TBOPS, "Parser Exceeded CPU Limit", $msg);
#
# Get email info for user.
#
if (UNIX2DBUID($UID, \$dbuid) &&
UserDBInfo($dbuid, \$user_name, \$user_email)) {
$to = "$user_name <$user_email>";
}
else {
$to = $TBOPS;
}
SENDMAIL($to, "Parser Exceeded CPU Limit", $msg,
undef, "CC: $TBOPS", ($ARGV[$#ARGV]));
print STDERR "Parser Exceeded CPU Limit: 'parse.tcl @ARGV'\n";
exit(15);
}
......
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