Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set ns [new Simulator]
- source tb_compat.tcl
- set nodeGroupFilter [$ns event-group]
- set node19289 [$ns node]
- append lanstr "$node19289 "
- set progStartFilter19289 [$node19289 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
- $nodeGroupFilter add $progStartFilter19289
- set node16953 [$ns node]
- append lanstr "$node16953 "
- set progStartFilter16953 [$node16953 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
- $nodeGroupFilter add $progStartFilter16953
- set node44779 [$ns node]
- append lanstr "$node44779 "
- set progStartFilter44779 [$node44779 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
- $nodeGroupFilter add $progStartFilter44779
- set node23474 [$ns node]
- append lanstr "$node23474 "
- set progStartFilter23474 [$node23474 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
- $nodeGroupFilter add $progStartFilter23474
- set node37680 [$ns node]
- append lanstr "$node37680 "
- set progStartFilter37680 [$node37680 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
- $nodeGroupFilter add $progStartFilter37680
- tb-set-hardware $node19289 pcvm
- tb-set-node-os $node19289 OPENVZ-STD
- tb-set-hardware $node16953 pcvm
- tb-set-node-os $node16953 OPENVZ-STD
- tb-set-hardware $node44779 pcvm
- tb-set-node-os $node44779 OPENVZ-STD
- tb-set-hardware $node23474 pcvm
- tb-set-node-os $node23474 OPENVZ-STD
- tb-set-hardware $node37680 pcvm
- tb-set-node-os $node37680 OPENVZ-STD
- set nodeMonitor [$ns node]
- append lanstr "$nodeMonitor "
- set lan0 [$ns make-lan "$lanstr" 1000Mb 0ms]
- $ns at 20 "$nodeGroupFilter start"
- $ns at 60 "$lan0 trace stop"
- $ns at 70 "$lan0 trace start"
- $ns at 420 "$lan0 trace snapshot"
- $ns run
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement