Commit 60f59bbc authored by Leigh Stoller's avatar Leigh Stoller

Initial shared node experiment for testing.

parent 6616cc9f
......@@ -4,21 +4,44 @@
source tb_compat.tcl
set ns [new Simulator]
set vhost1 [$ns node]
tb-set-node-os $vhost1 FEDORA15-OPENVZ-STD
tb-set-node-sharingmode $vhost1 "shared_local"
set n1 [$ns node]
tb-set-hardware $n1 pcvm
tb-set-node-failure-action $n1 "nonfatal"
tb-set-node-os $n1 OPENVZ-STD
tb-set-node-usesharednode $n1 1.0
set vhost2 [$ns node]
tb-set-node-os $vhost2 FEDORA15-OPENVZ-STD
tb-set-node-sharingmode $vhost2 "shared_local"
set n2 [$ns node]
tb-set-hardware $n2 pcvm
tb-set-node-failure-action $n2 "nonfatal"
tb-set-node-os $n2 OPENVZ-STD
tb-set-node-usesharednode $n2 1.0
set vhost3 [$ns node]
tb-set-node-os $vhost3 XEN41-64-STD
tb-set-node-sharingmode $vhost3 "shared_local"
set n3 [$ns node]
tb-set-hardware $n3 pcvm
tb-set-node-failure-action $n3 "nonfatal"
tb-set-node-os $n3 XEN-STD
tb-set-node-usesharednode $n3 1.0
tb-fix-node $vhost1 pc1
tb-fix-node $vhost2 pc2
tb-fix-node $vhost3 pc3
tb-fix-node $n1 pc1
tb-fix-node $n2 pc2
tb-fix-node $n3 pc3
set link0 [$ns duplex-link $n1 $n2 100Mb 0ms DropTail]
set link1 [$ns duplex-link $n3 $n2 100Mb 0ms DropTail]
tb-set-vlink-emulation vlan
# Create a program object and attach it to n1
set prog0 [new Program $ns]
$prog0 set node $n1
$prog0 set command "/bin/ls -lt >& /tmp/foo"
# Create a program object and attach it to n3
set prog1 [new Program $ns]
$prog1 set node $n3
$prog1 set command "/bin/ls -lt >& /tmp/foo"
$ns at 30 "$prog0 start"
$ns at 30 "$prog1 start"
$ns rtproto Static
$ns run
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