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
411bf2bb
Commit
411bf2bb
authored
Mar 09, 2005
by
Timothy Stack
Browse files
Update for changes to the link->vname mapping format that gets passed
to digest-slothd
parent
335d2840
Changes
1
Hide whitespace changes
Inline
Side-by-side
sensors/slothd/webfeedback.in
View file @
411bf2bb
...
...
@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2004 University of Utah and the Flux Group.
# Copyright (c) 2004
, 2005
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -16,7 +16,7 @@ use Socket;
sub
usage
()
{
print
STDOUT
"
Usage: webfeedback [-hc] [-d duration] pid gid eid
\n
"
.
"
Usage: webfeedback [-hc
b
] [-d duration] pid gid eid
\n
"
.
"
Web wrapper for dealing with feedback information.
\n
"
.
"
\n
"
.
"
Required arguments:
\n
"
.
...
...
@@ -163,6 +163,7 @@ $expdir = "/proj/$pid/exp/$eid";
if
(
$mode
eq
"
clear
")
{
if
(
defined
(
$options
{"
c
"}))
{
unlink
("
$expdir
/tbdata/feedback_data.tcl
");
unlink
("
$expdir
/tbdata/feedback_estimate.tcl
");
}
if
(
defined
(
$options
{"
b
"}))
{
unlink
("
$expdir
/tbdata/bootstrap_data.tcl
");
...
...
@@ -255,6 +256,7 @@ if ($mode eq "record") {
my
%ipmap
;
my
%macmap
;
my
%memmap
;
my
%pipemap
;
# Get the virtual node names and IP addresses and
my
$virtnodes_result
=
...
...
@@ -327,6 +329,20 @@ if ($mode eq "record") {
$memmap
{
$member
}
->
{"
LAN
"}
=
$vname
;
}
$result
=
DBQueryFatal
("
select * from linkdelays
"
.
"
where pid='
$pid
' and eid='
$eid
'
"
.
"
order by vlan,vnode,node_id
");
if
(
$result
->
numrows
)
{
while
(
my
%row
=
$result
->
fetchhash
())
{
$pipemap
{
$row
{
pipe
}}
=
$row
{
vname
};
if
(
$row
{
type
}
eq
"
duplex
")
{
$pipemap
{
$row
{
rpipe
}}
=
$row
{
vname
};
}
}
}
# Start digest-slothd with all of the slothd logs, tee its output to the
# feedback file, and
open
(
DIGESTER
,
...
...
@@ -344,6 +360,13 @@ if ($mode eq "record") {
$memmap
{
$m
}
->
{"
LAN
"};
}
}
foreach
my
$p
(
sort
keys
(
%pipemap
))
{
printf
DIGESTER
"
pipe %s %s
\n
",
$p
,
$pipemap
{
$p
};
}
# All done, cleanup.
close
(
DIGESTER
)
or
...
...
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