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
6bd011e6
Commit
6bd011e6
authored
May 31, 2003
by
Mac Newbold
Browse files
Fix a bug that was causing an autoswap warning to get sent instead of a
swap request idle message.
parent
1bea59a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
db/idlemail.in
View file @
6bd011e6
...
...
@@ -234,12 +234,19 @@ activemin+$warnmin<=autoswap_timeout+$window order by pid,eid
EOT
$q
=
DBQueryFatal
(
$sql
);
if
(
$d
)
{
print
$q
->
as_string
;
$q
->
dataseek
(
0
);
}
# enable for extra debugging
if
(
1
&&
$q
->
numrows
()
>
0
)
{
# SENDMAIL(To, Subject, Message, [From], [More Headers],...)
SENDMAIL
("
Mac <newbold
\@
flux.utah.edu>
","
idlemail warnings
",
$q
->
as_string
);
$q
->
dataseek
(
0
);
}
while
(
%r
=
$q
->
fetchhash
())
{
# These get an autowarn message
$pid
=
$r
{'
pid
'};
$eid
=
$r
{'
eid
'};
# all options ignored but autoswap and warnmin and ids
SendMessage
(
$pid
,
$pid
,
$eid
,
0
,
0
,
0
,
0
,
0
,
1
,
$warnmin
);
SendMessage
(
$pid
,
$pid
,
$eid
,
0
,
0
,
0
,
0
,
0
,
0
,
1
,
$warnmin
);
}
}
else
{
...
...
@@ -319,8 +326,17 @@ EOT
exit
(
0
);
sub
SendMessage
{
my
(
$pid
,
$gid
,
$eid
,
$swappable
,
$swapreqs
,
$c
,
$time
,
$lastact
,
my
(
$pid
,
$gid
,
$eid
,
$swappable
,
$swapreqs
,
$c
,
$time
,
$lastact
,
$stale
,
$autowarn
,
$warnmin
)
=
@_
;
# enable extra debugging...
if
(
0
)
{
SENDMAIL
("
Mac <newbold
\@
flux.utah.edu>
","
idlemail warnings
",
"
idlemail: send message(
"
.
join
("
,
",
@
_
)
.
"
\n
"
.
"
pid=
$pid
,gid=
$gid
,eid=
$eid
\n
swappable=
$swappable
,
"
.
"
swapreqs=
$swapreqs
,c=
$c
,time=
$time
,lastact=
$lastact
,
"
.
"
stale=
$stale
\n
autowarn=
$autowarn
,warnmin=
$warnmin
\n
"
.
"
Date:
"
.
`
date
`);
}
if
(
!
defined
(
$autowarn
))
{
$autowarn
=
0
;
}
$idlehrs
=
int
(
$time
);
$idlemin
=
int
((
$time
-
$idlehrs
)
*
60
);
...
...
@@ -338,6 +354,7 @@ sub SendMessage {
my
$expleader_email
;
my
$uid
=
ExpSwapper
(
$pid
,
$eid
);
my
$uid2
=
ExpLeader
(
$pid
,
$eid
);
if
(
$uid
eq
"")
{
$uid
=
$uid2
;
}
UserDBInfo
(
$uid
,
\
$expleader_name
,
\
$expleader_email
);
if
(
$uid
ne
$uid2
)
{
UserDBInfo
(
$uid2
,
\
$expcreator_name
,
\
$expcreator_email
);
...
...
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