Commit d474d40c authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

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/
load /usr/testbed/lib/
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
#TB set-ip-interface node2 node1
#TB set-hardware node2 shark-shelf
Supports Markdown
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