From ad00e96cb1a0d5173a12f4d55ca7385d97198b2c Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Wed, 21 Dec 2005 11:32:01 +0000
Subject: [PATCH] Bug with split links fixed

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/exec.tcl b/exec.tcl
index a112912..930d2ec 100755
--- 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] {
-- 
2.39.5