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
7936160a
Commit
7936160a
authored
May 17, 2002
by
Robert Ricci
Browse files
Now sticks stddev and packet loss rates into the database
parent
9bb4ae1b
Changes
1
Hide whitespace changes
Inline
Side-by-side
db/grabron.in
View file @
7936160a
...
...
@@ -76,7 +76,7 @@ sub upload_times($$$) {
my
$suceeded
=
0
;
my
$failed
=
0
;
foreach
my
$time
(
@times
)
{
my
(
$src
,
$dst
,
$latency
)
=
@$time
;
my
(
$src
,
$dst
,
$latency
,
$stddev
,
$lossrate
)
=
@$time
;
if
(
!
$ipmap
{
$src
})
{
warn
"
Got an IP (
$src
) that's not in the interfaces table
\n
";
$failed
++
;
...
...
@@ -107,7 +107,8 @@ sub upload_times($$$) {
DBQueryFatal
("
replace into widearea_recent set IP1='
$src
',
"
.
"
IP2='
$dst
', time=
$latency
, node_id1='
$node_id1
',
"
.
"
iface1='
$iface1
', node_id2='
$node_id2
', iface2='
$iface2
',
"
.
"
bandwidth=
$bandwidth
");
"
bandwidth=
$bandwidth
, time_stddev='
$stddev
',
"
.
"
lossrate='
$lossrate
'
");
}
...
...
@@ -189,16 +190,18 @@ sub get_times($) {
my
@return
;
foreach
my
$line
(
@data
)
{
chomp
$line
;
if
(
!
(
$line
=~
/(\d+\.\d+.\d+\.\d+)\s+(\d+\.\d+.\d+\.\d+)\s+(\d+.\d+)\s+(\d+)\s+(\d+)/
)
)
{
if
(
!
(
$line
=~
/(\d+\.\d+.\d+\.\d+)\s+(\d+\.\d+.\d+\.\d+)\s+(\d+
\.\d+)\s+(\d+\
.\d+)\s+(\d+)\s+(\d+)/
)
)
{
warn
"
Bad data line:
$line
\n
";
next
;
}
my
(
$src
,
$dst
,
$avg
,
$successful
,
$unsuccessful
)
=
(
$
1
,
$
2
,
$
3
,
$
4
,
$
5
);
my
(
$src
,
$dst
,
$avg
,
$stddev
,
$successful
,
$unsuccessful
)
=
(
$
1
,
$
2
,
$
3
,
$
4
,
$
5
,
$
6
);
if
(
$successful
>
0
)
{
push
@return
,
[
$src
,
$dst
,
$avg
];
my
$lossrate
=
(
$unsuccessful
*
1.0
)
/
(
$successful
+
$unsuccessful
);
push
@return
,
[
$src
,
$dst
,
$avg
,
$stddev
,
$lossrate
];
}
elsif
(
$unsuccessful
>
0
)
{
push
@return
,
[
$src
,
$dst
,
undef
];
push
@return
,
[
$src
,
$dst
,
undef
,
$stddev
,
1
];
}
}
...
...
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