Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
f1367fcc
Commit
f1367fcc
authored
Apr 22, 2014
by
Leigh B Stoller
Browse files
Minor change to locked slices email message.
parent
1b16fd31
Changes
1
Hide whitespace changes
Inline
Side-by-side
protogeni/scripts/expire_daemon.in
View file @
f1367fcc
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment