1 | set ns [new Simulator] |
---|
2 | source tb_compat.tcl |
---|
3 | |
---|
4 | tb-set-delay-capacity 1 |
---|
5 | |
---|
6 | #create nodes |
---|
7 | |
---|
8 | set node1 [$ns node] |
---|
9 | tb-set-node-os $node1 Ubuntu-Xen-904 |
---|
10 | |
---|
11 | set node2 [$ns node] |
---|
12 | tb-set-node-os $node2 Ubuntu-Xen-904 |
---|
13 | |
---|
14 | set ctl [$ns node] |
---|
15 | tb-set-node-os $ctl Ubuntu904-unsup |
---|
16 | |
---|
17 | set cli [$ns node] |
---|
18 | tb-set-node-os $cli Ubuntu904-unsup |
---|
19 | |
---|
20 | set mylan [$ns make-lan "$ctl $node1 $node2 $cli" 1000Mb 0ms] |
---|
21 | $ns rtproto Static |
---|
22 | |
---|
23 | tb-set-sync-server $ctl |
---|
24 | tb-set-node-startcmd $ctl "bash /proj/Virtual/script/eucalyptus_setup/install_ctl.sh node1 node2 >& /tmp/ctl.log " |
---|
25 | tb-set-node-startcmd $node1 "bash /proj/Virtual/script/eucalyptus_setup/install_node.sh >& /tmp/node1.log" |
---|
26 | tb-set-node-startcmd $node2 "bash /proj/Virtual/script/eucalyptus_setup/install_node.sh >& /tmp/node2.log" |
---|
27 | tb-set-node-startcmd $cli "bash /proj/Virtual/script/eucalyptus_setup/install_cli.sh >& /tmp/cli.log" |
---|
28 | |
---|
29 | $ns run |
---|