Commit d474d40c authored by Christopher Alfeld's avatar Christopher Alfeld

test.ns - Added example of set-link-loss

tbend.tcl - Added code to remove delay entries.
parent 667aefce
......@@ -36,7 +36,7 @@ set nfree "$updir/db/nfree"
set libir "$scriptdir/ir/libir.tcl"
set resetvlans "$scriptdir/resetvlans"
load $updir/sql.so
load /usr/testbed/lib/sql.so
if {$argc != 3 && $argc != 2} {
puts stderr "Syntax: $argv0 <pid> <eid>"
......@@ -82,3 +82,8 @@ if {[catch "exec $resetvlans $machines >@ $logFp 2>@ $logFp" err]} {
outs stderr "Error reseting vlans ($err)"
exit 1
}
outs "Removing delay entries"
foreach machine $machines {
sql exec $DB "delete from delays where node_id = \"$machine\""
}
......@@ -7,6 +7,8 @@ set node2 [$ns node]
$ns duplex-link $node0 $node1 100Mb 150ms DropTail
$ns duplex-link $node1 $node2 100Mb .1ms DropTail
#TB set-link-loss node1 node2 0.5
#TB set-ip node0 192.168.14.52
#TB set-ip-interface node2 node1 192.168.5.1
#TB set-hardware node2 shark-shelf
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment