Commit f1367fcc authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor change to locked slices email message.

parent 1b16fd31
......@@ -591,7 +591,7 @@ sub ReportLockedSlices()
my $msg = "";
my $query_result =
GeniDB::DBQueryWarn("select idx,locked,hosed,now() > expires ".
GeniDB::DBQueryWarn("select idx,locked,expires,hosed,now() > expires ".
" from geni_slices ".
"where locked is not null and ".
" DATE_SUB(NOW(),INTERVAL 1 DAY) >= locked");
......@@ -602,7 +602,7 @@ sub ReportLockedSlices()
return
if (!$query_result->numrows);
while (my ($idx, $locked, $hosed, $expired) =
while (my ($idx, $locked, $expires,$hosed, $expired) =
$query_result->fetchrow_array()) {
my $slice = GeniSlice->Lookup($idx);
......@@ -649,9 +649,9 @@ sub ReportLockedSlices()
}
hosed:
$msg .= ($hosed ? "Hosed - " : "") . "$urn : $locked\n";
$msg .= ($hosed ? "Hosed - " : "") . "$urn : $locked, $expires\n";
print STDERR
($hosed ? "Hosed - " : "") . "$urn : locked since $locked\n";
($hosed ? "Hosed - " : "") . "$urn : locked since $locked, expires at $expires\n";
$slice->Flush();
}
return
......
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