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
a2df644d
Commit
a2df644d
authored
Dec 27, 2000
by
Christopher Alfeld
Browse files
Fixed the order of the arguments in /topology/lans
parent
e59a2f31
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/ns2ir/postparse
View file @
a2df644d
...
...
@@ -203,10 +203,16 @@ if ($@) {
foreach
(
@links
)
{
@info
=
split
;
if
(
defined
(
$lanloss
{
$info
[
0
]}))
{
push
(
@newlans
,"
$_
$lanloss
{
$info
[0]}
");
$loss
=
$lanloss
{
$info
[
0
]}
}
else
{
push
(
@newlans
,"
$_
0.0
"
)
;
$loss
=
"
0.0
";
}
# This is kind of ugly because it has a sub list.
# Works very nicely in TCL though.
@t
=
split
("
\"
");
@t2
=
split
("
[
\t
]+
",
$t
[
2
]);
$s
=
"
$t
[0]
\"
$t
[1]
\"
$t2
[1]
$t2
[2]
$lanloss
{
$info
[0]}
"
.
join
("
",
@t2
[
3
..
$#t2
]);
push
(
@newlans
,
$s
);
}
&ir_set
("
/topology/lans
",
join
("
\n
",
@newlans
)
.
"
\n
");
...
...
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