| 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";
|
|---|
