Commit 622b31d2 authored by Leigh Stoller's avatar Leigh Stoller

Fix a minor error which was hopefully the reason for all the failures.

parent ead321b5
......@@ -308,7 +308,7 @@ doit(gzFile *infp)
user, node, ll_time, ll_time) < 0)
break;
if (strncmp(node, opshostname, strlen(node)) == 0 |
if (strncmp(node, opshostname, strlen(node)) == 0 ||
strncmp(node, "ops", strlen(node)) == 0) {
if (mydb_update("replace into userslastlogin "
"(uid, date, time) "
......
......@@ -30,6 +30,7 @@ use libtestbed;
my $genlastlog = "$TB/sbin/genlastlog";
my $logfile = "$TB/log/genlastlog";
my $debug = 0;
#
# Turn off line buffering on output (dots ...).
......@@ -79,12 +80,10 @@ while (1) {
print "Running at " . TBTimeStamp() . "\n";
if (system("$genlastlog")) {
my $exit_status = $? >> 8;
print "Exited with status $exit_status at " . TBTimeStamp() . "\n";
print "Exited with status $? at " . TBTimeStamp() . "\n";
SENDMAIL($TBOPS, "Genlastlog Failed!",
"Failed with exit value $exit_status.\n".
"Failed with exit value $?\n".
"Please look at the syslog entries for genlastlog!");
}
sleep(60 * 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