1 | # SERVICE: project_export:deter/a::project=TIED |
---|
2 | # SERVICE: project_export:deter/b::project=SAFER |
---|
3 | # SERVICE: seer_master:deter/a:deter/a,deter/b |
---|
4 | # SERVICE: local_seer_control:deter/a |
---|
5 | # SERVICE: local_seer_control:deter/b |
---|
6 | set ns [new Simulator] |
---|
7 | source tb_compat.tcl |
---|
8 | |
---|
9 | set a [$ns node] |
---|
10 | set b [$ns node] |
---|
11 | set c [$ns node] |
---|
12 | set d [$ns node] |
---|
13 | set e [$ns node] |
---|
14 | |
---|
15 | set deter_os "Ubuntu1004-STD" |
---|
16 | set seer_tar "/users/faber/seer-deploy/seer-u10-current.tgz" |
---|
17 | |
---|
18 | tb-set-node-os $a $deter_os |
---|
19 | tb-set-node-testbed $a "deter/a" |
---|
20 | tb-set-node-tarfiles $a "/usr/local/" $seer_tar |
---|
21 | tb-set-node-startcmd $a "sudo python /usr/local/seer/experiment-setup.py Basic" |
---|
22 | |
---|
23 | |
---|
24 | tb-set-node-os $b $deter_os |
---|
25 | tb-set-node-testbed $b "deter/a" |
---|
26 | tb-set-node-tarfiles $b "/usr/local" $seer_tar |
---|
27 | tb-set-node-startcmd $b "sudo python /usr/local/seer/experiment-setup.py Basic" |
---|
28 | |
---|
29 | |
---|
30 | tb-set-node-os $c $deter_os |
---|
31 | tb-set-node-testbed $c "deter/b" |
---|
32 | tb-set-node-tarfiles $c "/usr/local" $seer_tar |
---|
33 | tb-set-node-startcmd $c "sudo python /usr/local/seer/experiment-setup.py Basic" |
---|
34 | |
---|
35 | |
---|
36 | tb-set-node-os $d $deter_os |
---|
37 | tb-set-node-testbed $d "deter/b" |
---|
38 | tb-set-node-tarfiles $d "/usr/local" $seer_tar |
---|
39 | tb-set-node-startcmd $d "sudo python /usr/local/seer/experiment-setup.py Basic" |
---|
40 | |
---|
41 | |
---|
42 | tb-set-node-os $e $deter_os |
---|
43 | tb-set-node-testbed $e "deter/b" |
---|
44 | tb-set-node-tarfiles $e "/usr/local" $seer_tar |
---|
45 | tb-set-node-startcmd $e "sudo python /usr/local/seer/experiment-setup.py Basic" |
---|
46 | |
---|
47 | |
---|
48 | |
---|
49 | set link0 [ $ns duplex-link $a $b 100Mb 0ms DropTail] |
---|
50 | set link1 [ $ns duplex-link $c $b 100Mb 0ms DropTail] |
---|
51 | set lan0 [ $ns make-lan "$c $d $e" 100Mb 0ms ] |
---|
52 | |
---|
53 | $ns rtproto Static |
---|
54 | $ns run |
---|
55 | |
---|