Move proc linkByIfc from exec.tcl to linkcfg.tcl

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/exec.tcl b/exec.tcl
index 970c39bdf9fee63697fd0af85220bd2696bc43fc..5c2728cd917785c2b98f876507c94fa538a551c8 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -399,26 +399,6 @@ proc monitor_loop {} {
 }
 
 
-proc linkByIfc { node ifc } {
-    global link_list
-
-    set peer [peerByIfc $node $ifc]
-    foreach link $link_list {
-       set endpoints [linkPeers $link]
-       if { $endpoints == "$node $peer" } {
-           set dir downstream
-           break
-       }
-       if { $endpoints == "$peer $node" } {
-           set dir upstream
-           break
-       }
-    }
-
-    return [list $link $dir]
-}
-
-
 proc execSetIfcQDisc { eid node ifc qdisc } {
     set target [linkByIfc $node $ifc]
     set peers [linkPeers [lindex $target 0]]

diff --git a/linkcfg.tcl b/linkcfg.tcl
index 86c613f5653bbe6f23b2adb9db1efc835df5b366..312c6c748af88e67306c9ef303f7439b286fdeb9 100755 (executable)
--- a/linkcfg.tcl
+++ b/linkcfg.tcl
@@ -446,3 +446,24 @@ proc newLink { lnode1 lnode2 } {
 
     return $link
 }
+
+
+proc linkByIfc { node ifc } {
+    global link_list
+
+    set peer [peerByIfc $node $ifc]
+    foreach link $link_list {
+       set endpoints [linkPeers $link]
+       if { $endpoints == "$node $peer" } {
+           set dir downstream
+           break
+       }
+       if { $endpoints == "$peer $node" } {
+           set dir upstream
+           break
+       }
+    }
+
+    return [list $link $dir]
+}
+