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
68494081
Commit
68494081
authored
Jan 15, 2016
by
Jonathon Duerig
Committed by
Leigh B Stoller
Jan 21, 2016
Browse files
Add -G option to omit 10G or faster links from results.
parent
a3144e0b
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/ptopgen.in
View file @
68494081
...
...
@@ -79,12 +79,13 @@ sub usage()
"
-l specifies the location of the type limit file
\n
"
.
"
-1 Print an rspec containing only the node component-name
\n
"
.
"
-z Randomize node output order
\n
"
.
"
-G Omit 10G node-switch links
\n
"
.
"
-Z Force old ptopgen
\n
"
.
"
-f This is generating an advertisement rather than an internal file
\n
");
exit
(
-
1
);
}
my
$optlist
=
"
s:e:m:vp:rSan:c:uxg:h1:l:zZCbf
";
my
$optlist
=
"
s:e:m:vp:rSan:c:uxg:h1:l:zZCbf
G
";
my
$is_advertisement
=
0
;
my
$mfactor
;
my
$virtstuff
=
0
;
...
...
@@ -101,6 +102,7 @@ my $useblockstore = 0;
my
$component_name
=
undef
;
my
$randomize
=
0
;
my
$usecontrol
=
0
;
my
$printFastLinks
=
1
;
my
$OURDOMAIN
=
"
@OURDOMAIN
@
";
my
$MAINSITE
=
@TBMAINSITE@
;
...
...
@@ -327,6 +329,9 @@ if (defined($options{"z"})) {
if
(
defined
(
$options
{"
f
"}))
{
$is_advertisement
=
1
;
}
if
(
defined
(
$options
{"
G
"}))
{
$printFastLinks
=
0
;
}
if
(
$is_advertisement
&&
!
$allnodes
)
{
...
...
@@ -2045,9 +2050,11 @@ while (($node1,$card1,$port1,$node2,$card2,$port2) =
}
}
print_simple_link
(
$node1
,
$iface1
,
$node2
,
$iface2
,
$bw
,
0
,
0
,
\
@types
);
if
(
$bw
<
10000000
||
$printFastLinks
)
{
print_simple_link
(
$node1
,
$iface1
,
$node2
,
$iface2
,
$bw
,
0
,
0
,
\
@types
);
}
}
}
}
...
...
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