Bug with split links fixed

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

diff --git a/exec.tcl b/exec.tcl
index a11291273c38cf00eb6e2180ef8013a4e05d9d2e..930d2ecca9bbceddd995810183cd5fc0dee7d681 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -434,6 +434,10 @@ proc deployCfg {} {
        }
 
        set lname $eid\_$lnode1-$lnode2
+        set bandwidth [expr [getLinkBandwidth $link] + 0]
+        set delay [expr [getLinkDelay $link] + 0]
+        set ber [expr [getLinkBER $link] + 0]
+        set dup [expr [getLinkDup $link] + 0]
 
        set ngpeer1 \
                [lindex [[typemodel $lnode1].nghook $eid $lnode1 $ifname1] 0]
@@ -451,7 +455,11 @@ proc deployCfg {} {
 #nexec ngctl msg $lname: setcfg "{ header_offset=14 }" HDLC ???
 
        # Link parameters
-       execSetLinkParams $eid $link
+        ;# Not working: execSetLinkParams $eid $link
+        nexec ngctl msg $lname: setcfg \
+            "{ bandwidth=$bandwidth delay=$delay \
+               upstream={ BER=$ber duplicate=$dup } \
+               downstream={ BER=$ber duplicate=$dup } }"
 
        # Queues
        foreach node [list $lnode1 $lnode2] {