From a2df644de3c42f2c1b3d6a55ccd903fd724d1b3c Mon Sep 17 00:00:00 2001
From: Christopher Alfeld <calfeld@flux.utah.edu>
Date: Wed, 27 Dec 2000 00:06:18 +0000
Subject: [PATCH] Fixed the order of the arguments in /topology/lans
---
tbsetup/ns2ir/postparse | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/tbsetup/ns2ir/postparse b/tbsetup/ns2ir/postparse
index 3938a28b4c..aebc938b07 100755
--- a/tbsetup/ns2ir/postparse
+++ b/tbsetup/ns2ir/postparse
@@ -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");
--
GitLab