Skip to content
GitLab
Menu
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
dc6c65cb
Commit
dc6c65cb
authored
Feb 14, 2008
by
David Johnson
Browse files
Missed a couple things in the conversion.
parent
bcabe386
Changes
2
Hide whitespace changes
Inline
Side-by-side
tbsetup/plab/libplabnodehist.pm.in
View file @
dc6c65cb
...
...
@@ -193,6 +193,7 @@ my $JITTER_DEDUCTION_FACTOR = 0.015;
# increasing order of unavailability (so that the most avail are first).
#
# Arguments:
# $0 = name of plc.
# $1 = a ref to a hash returned by getNodeHistSequences; if undef, this
# function will call getNodeHistSequences.
# $2 = boolean; if !0, will increase unavailability rank for a node if it is
...
...
@@ -201,9 +202,14 @@ my $JITTER_DEDUCTION_FACTOR = 0.015;
# of the data; each successively prior day'
s
unavailability
gets
a
#
decreasing
weight
.
Could
be
useful
;
easy
to
do
.
#
sub
rankNodesByUnavail
(;$$$)
{
sub
rankNodesByUnavail
($;$$$)
{
my
$
plcname
=
shift
;
my
($
sref
,$
dojitter
,$
doewma
)
=
@
_
;
if
(
!defined($plcname)) {
return
undef
;
}
if
(
!defined($sref)) {
$
sref
=
getNodeHistSequences
();
}
...
...
tbsetup/plab/plabmonitord.in
View file @
dc6c65cb
...
...
@@ -114,7 +114,7 @@ if (scalar(@ARGV) == 1) {
(
$plcname
,
$plctype
)
=
$qres
->
fetchrow_array
();
# tell other libplabmon users, sigh
setPLCName
(
$plcname
);
libplabmon::
setPLCName
(
$plcname
);
}
else
{
print
STDERR
"
Must supply plcname argument!
\n
";
...
...
@@ -218,7 +218,7 @@ $SIG{INT} = \&termsig;
#
my
$seqref
=
{};
if
(
$stateful
)
{
$seqref
=
getNodeHistSequences
();
$seqref
=
getNodeHistSequences
(
$plcname
);
}
#
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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