1 | #!/usr/bin/perl
|
---|
2 | #
|
---|
3 | # Login to the nodes and setup Bluetooth
|
---|
4 | #
|
---|
5 |
|
---|
6 | # MAC of the master node
|
---|
7 | $mac='00:0A:3A:53:D4:82';
|
---|
8 | print "Master MAC address $mac \n";
|
---|
9 |
|
---|
10 | system("ssh root\@node1-10 pand --listen -role NAP --master --autozap");
|
---|
11 | print "ssh root\@node1-10 pand --listen -role NAP --master --autozap \n";
|
---|
12 | sleep 10;
|
---|
13 |
|
---|
14 | system("ssh root\@node4-10 pand --connect $mac --service NAP --autozap");
|
---|
15 | print "ssh root\@node4-10 pand --connect $mac --service NAP --autozap \n";
|
---|
16 | sleep 10;
|
---|
17 |
|
---|
18 | system("ssh root\@node4-10 ifconfig bnep0 192.169.1.2; exit");
|
---|
19 | print "ssh root\@node4-10 ifconfig bnep0 192.169.1.2; exit \n";
|
---|
20 |
|
---|
21 | system("ssh root\@node1-10 ifconfig bnep0 192.169.1.1; exit");
|
---|
22 | print "ssh root\@node1-10 ifconfig bnep0 192.169.1.1; exit \n";
|
---|