1 | #!/usr/bin/perl
|
---|
2 | #
|
---|
3 | # Login to the nodes and setup Bluetooth
|
---|
4 | #
|
---|
5 |
|
---|
6 |
|
---|
7 | # slave nodes
|
---|
8 | @slaves = ("node1-2");
|
---|
9 |
|
---|
10 | #foreach $currentnode (@slaves)
|
---|
11 | #{
|
---|
12 | # system("")
|
---|
13 | #}
|
---|
14 |
|
---|
15 | system("ssh root\@node10-11 pand --listen --role GN --master --autozap");
|
---|
16 | print "ssh root\@node10-11 pand --listen --role GN --master --autozap \n";
|
---|
17 | sleep 10;
|
---|
18 | system("ssh root\@node7-10 pand --connect 00:0A:3A:53:CE:B5 --role PANU --autozap");
|
---|
19 | print "ssh root\@node7-10 pand --connect 00:0A:3A:53:CE:B5 --role PANU --autozap \n";
|
---|
20 | sleep 10;
|
---|
21 |
|
---|
22 | system("ssh root\@node14-15 pand --listen --role GN --master --autozap");
|
---|
23 | print "ssh root\@node14-15 pand --listen --role GN --master --autozap \n";
|
---|
24 | sleep 10;
|
---|
25 | system("ssh root\@node18-18 pand --connect 00:0A:3A:53:D0:F2 --role PANU --autozap");
|
---|
26 | print "ssh root\@node18-18 pand --connect 00:0A:3A:53:D0:F2 --role PANU --autozap \n";
|
---|
27 | sleep 10;
|
---|
28 |
|
---|
29 | system("ssh root\@node13-8 pand --listen --role GN --master --autozap");
|
---|
30 | print "ssh root\@node13-8 pand --listen --role GN --master --autozap \n";
|
---|
31 | sleep 10;
|
---|
32 | system("ssh root\@node14-10 pand --connect 00:0A:3A:53:D0:F8 --role PANU --autozap");
|
---|
33 | print "ssh root\@node14-10 pand --connect 00:0A:3A:53:D0:F8 --role PANU --autozap \n";
|
---|
34 | sleep 10;
|
---|
35 |
|
---|
36 | system("ssh root\@node13-10 pand --listen --role GN --master --autozap");
|
---|
37 | print "ssh root\@node13-10 pand --listen --role GN --master --autozap \n";
|
---|
38 | sleep 10;
|
---|
39 | system("ssh root\@node15-9 pand --connect 00:0A:3A:53:D4:82--role PANU --autozap");
|
---|
40 | print "ssh root\@node15-9 pand --connect 00:0A:3A:53:D4:82 --role PANU --autozap \n";
|
---|
41 | sleep 10;
|
---|
42 |
|
---|
43 | system("ssh root\@node1-10 pand --listen --role GN --master --autozap");
|
---|
44 | print "ssh root\@node1-10pand --listen --role GN --master --autozap \n";
|
---|
45 | sleep 10;
|
---|
46 | system("ssh root\@node4-10 pand --connect 00:0A:3A:53:D5:D8 --role PANU --autozap");
|
---|
47 | print "ssh root\@node4-10 pand --connect 00:0A:3A:53:D5:D8 --role PANU --autozap \n";
|
---|
48 | sleep 10;
|
---|
49 |
|
---|
50 | system("ssh root\@node10-11 ifconfig bnep0 192.170.10.11 netmask 255.255.0.0; exit");
|
---|
51 | print "ssh root\@node10-11 ifconfig bnep0 192.170.10.11 netmask 255.255.0.0; exit \n";
|
---|
52 | system("ssh root\@node7-10 ifconfig bnep0 192.170.7.10 netmask 255.255.0.0; exit");
|
---|
53 | print "ssh root\@node7-10 ifconfig bnep0 192.170.7.10 netmask 255.255.0.0; exit \n";
|
---|
54 |
|
---|
55 | system("ssh root\@node14-15 ifconfig bnep0 192.171.14.15 netmask 255.255.0.0; exit");
|
---|
56 | print "ssh root\@node14-15 ifconfig bnep0 192.171.14.15 netmask 255.255.0.0; exit \n";
|
---|
57 | system("ssh root\@node18-18 ifconfig bnep0 192.171.18.18 netmask 255.255.0.0; exit");
|
---|
58 | print "ssh root\@node18-18 ifconfig bnep0 192.171.18.18 netmask 255.255.0.0; exit \n";
|
---|
59 |
|
---|
60 | system("ssh root\@node13-8 ifconfig bnep0 192.172.13.8 netmask 255.255.0.0; exit");
|
---|
61 | print "ssh root\@node13-8 ifconfig bnep0 192.172.13.8 netmask 255.255.0.0; exit \n";
|
---|
62 | system("ssh root\@node14-10 ifconfig bnep0 192.172.14.10 netmask 255.255.0.0; exit");
|
---|
63 | print "ssh root\@node14-10 ifconfig bnep0 192.172.14.10 netmask 255.255.0.0; exit \n";
|
---|
64 |
|
---|
65 | system("ssh root\@node13-10 ifconfig bnep0 192.173.13.10 netmask 255.255.0.0; exit");
|
---|
66 | print "ssh root\@node13-10 ifconfig bnep0 192.173.13.10 netmask 255.255.0.0; exit \n";
|
---|
67 | system("ssh root\@node15-9 ifconfig bnep0 192.173.15.9 netmask 255.255.0.0; exit");
|
---|
68 | print "ssh root\@node15-9 ifconfig bnep0 192.173.15.9 netmask 255.255.0.0; exit \n";
|
---|
69 |
|
---|
70 | system("ssh root\@node1-10 ifconfig bnep0 192.174.1.10 netmask 255.255.0.0; exit");
|
---|
71 | print "ssh root\@node1-10 ifconfig bnep0 192.174.1.10 netmask 255.255.0.0; exit \n";
|
---|
72 | system("ssh root\@node4-10 ifconfig bnep0 192.174.4.10 netmask 255.255.0.0; exit");
|
---|
73 | print "ssh root\@node4-10 ifconfig bnep0 192.174.4.10 netmask 255.255.0.0; exit \n";
|
---|