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