Advertisement
Guest User

Untitled

a guest
Feb 14th, 2013
37
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.75 KB | None | 0 0
  1. set ns [new Simulator]
  2. source tb_compat.tcl
  3.  
  4. set nodeGroupFilter [$ns event-group]
  5.  
  6. set node19289 [$ns node]
  7. append lanstr "$node19289 "
  8. set progStartFilter19289 [$node19289 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
  9.  
  10. $nodeGroupFilter add $progStartFilter19289
  11.  
  12. set node16953 [$ns node]
  13. append lanstr "$node16953 "
  14. set progStartFilter16953 [$node16953 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
  15.  
  16. $nodeGroupFilter add $progStartFilter16953
  17.  
  18. set node44779 [$ns node]
  19. append lanstr "$node44779 "
  20. set progStartFilter44779 [$node44779 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
  21.  
  22. $nodeGroupFilter add $progStartFilter44779
  23.  
  24. set node23474 [$ns node]
  25. append lanstr "$node23474 "
  26. set progStartFilter23474 [$node23474 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
  27.  
  28. $nodeGroupFilter add $progStartFilter23474
  29.  
  30. set node37680 [$ns node]
  31. append lanstr "$node37680 "
  32. set progStartFilter37680 [$node37680 program-agent -command "/proj/CONFINE/runme/virt/runme.vnodeStartFilter"]
  33.  
  34. $nodeGroupFilter add $progStartFilter37680
  35.  
  36. tb-set-hardware $node19289 pcvm
  37. tb-set-node-os $node19289 OPENVZ-STD
  38. tb-set-hardware $node16953 pcvm
  39. tb-set-node-os $node16953 OPENVZ-STD
  40. tb-set-hardware $node44779 pcvm
  41. tb-set-node-os $node44779 OPENVZ-STD
  42. tb-set-hardware $node23474 pcvm
  43. tb-set-node-os $node23474 OPENVZ-STD
  44. tb-set-hardware $node37680 pcvm
  45. tb-set-node-os $node37680 OPENVZ-STD
  46.  
  47. set nodeMonitor [$ns node]
  48. append lanstr "$nodeMonitor "
  49.  
  50. set lan0 [$ns make-lan "$lanstr" 1000Mb 0ms]
  51.  
  52. $ns at 20 "$nodeGroupFilter start"
  53. $ns at 60 "$lan0 trace stop"
  54. $ns at 70 "$lan0 trace start"
  55. $ns at 420 "$lan0 trace snapshot"
  56.  
  57. $ns run
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement