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-stable
Commits
7a6ef3f5
Commit
7a6ef3f5
authored
Aug 02, 2007
by
Jonathon Duerig
Browse files
Updated download script. Correct tcp-dump-parsing script
parent
9aea27f2
Changes
2
Hide whitespace changes
Inline
Side-by-side
pelab/bw-bottleneck/download-logs.pl
View file @
7a6ef3f5
...
...
@@ -21,7 +21,7 @@ sub copyFiles
system
("
cp
$prefix
/node-
$dest1
/local/logs/dump-
$source
-
$dest1
-
$dest2
.dump
$prefix
/dump/
$source
/
$dest1
/
$dest2
/dest1.dump
");
system
("
cp
$prefix
/node-
$dest2
/local/logs/dump-
$source
-
$dest1
-
$dest2
.dump
$prefix
/dump/
$source
/
$dest1
/
$dest2
/dest2.dump
");
#
system("perl dump2filter.pl $prefix/dump/$source/$dest1/$dest2");
system
("
perl dump2filter.pl
$prefix
/dump/
$source
/
$dest1
/
$dest2
");
}
print
("
/usr/testbed/bin/loghole -e
$pid
/
$eid
sync -P
\n
");
...
...
@@ -43,4 +43,4 @@ for ($source = 1; $source <= $nodeCount; ++$source)
}
}
#
system("/usr/testbed/bin/loghole -e $pid/$eid archive")
or die("Error running loghole archive\n");
system
("
/usr/testbed/bin/loghole -e
$pid
/
$eid
archive
")
pelab/bw-bottleneck/dump2filter.pl
0 → 100644
View file @
7a6ef3f5
# dump2filter.pl
# TODO: This currently does not report losses. Hopefully that doesn't matter.
# Usage: dump2filter.pl <path>
#
# Opens <path>/source.dump <path>/dest1.dump <path>/dest2.dump
$basePath
=
$ARGV
[
0
];
$dumpPattern
=
'
^([0-9.]*) IP [0-9.]+ > ([0-9.]+): [A-Za-z. ]+([0-9]+)
';
sub
setupDest
{
my
$fileName
=
$basePath
.
'
/dest
'
.
$_
[
0
]
.
'
.dump
';
my
%hash
;
my
$file
;
open
(
$file
,
"
<
"
.
$fileName
);
my
@array
=
<
$file
>
;
for
(
$i
=
0
;
$i
<
@array
;
++
$i
)
{
$array
[
$i
]
=~
/$dumpPattern/
;
$hash
{
$
3
}
=
$
1
;
}
$array
[
0
]
=~
/$dumpPattern/
;
if
(
$_
[
0
]
==
1
)
{
$dest1Address
=
$
2
;
}
else
{
$dest2Address
=
$
2
;
}
return
%hash
;
}
open
(
SOURCE_IN
,
"
<
$basePath
/source.dump
");
@source
=
<
SOURCE_IN
>
;
close
(
SOURCE_IN
);
%dest1
=
setupDest
(
1
);
%dest2
=
setupDest
(
2
);
open
(
SOURCE_OUT
,
"
>
$basePath
/source.filter
");
open
(
DEST1_OUT
,
"
>
$basePath
/dest1.filter
");
open
(
DEST2_OUT
,
"
>
$basePath
/dest2.filter
");
# Sequence numbers to print out.
$sequence1
=
0
;
$sequence2
=
0
;
$merged
=
0
;
for
(
$i
=
0
;
$i
<
@source
;
++
$i
)
{
$sourceLine
=
$source
[
$i
];
$sourceLine
=~
/$dumpPattern/
;
$sourceTime
=
$
1
;
$flowAddress
=
$
2
;
$flowSequence
=
$
3
;
if
(
$flowAddress
==
$dest1Address
)
{
$destNum
=
1
;
$destSequence
=
$sequence1
;
++
$sequence1
;
$destTime
=
$dest1
{
$
3
};
}
else
{
$destNum
=
2
;
$destSequence
=
$sequence2
;
++
$sequence2
;
$destTime
=
$dest2
{
$
3
};
}
if
(
defined
(
$destTime
))
{
if
(
$flowAddress
==
$dest1Address
)
{
print
DEST1_OUT
'
Rcvr: (f
'
.
$destNum
.
'
:
'
.
$destSequence
.
'
:M
'
.
$merged
.
'
)@
'
.
$sourceTime
.
'
arr
'
.
$destTime
.
"
\n
";
}
else
{
print
DEST2_OUT
'
Rcvr: (f
'
.
$destNum
.
'
:
'
.
$destSequence
.
'
:M
'
.
$merged
.
'
)@
'
.
$sourceTime
.
'
arr
'
.
$destTime
.
"
\n
";
}
print
SOURCE_OUT
'
Src1: send (f
'
.
$destNum
.
'
:
'
.
$destSequence
.
'
:M
'
.
$merged
.
'
)@
'
.
$sourceTime
.
"
\n
";
++
$merged
;
}
}
Write
Preview
Markdown
is supported
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