| 1 | #!/usr/bin/perl
|
|---|
| 2 | #
|
|---|
| 3 | # Login to the nodes and setup 802.11 transmit power
|
|---|
| 4 | #
|
|---|
| 5 |
|
|---|
| 6 | # power in mW from 1 to 60
|
|---|
| 7 | $power = 1;
|
|---|
| 8 |
|
|---|
| 9 | #system("ssh root\@node1-10 \"modprobe ath_pci\" ");
|
|---|
| 10 | system("ssh root\@node1-10 \"echo $power >> /proc/sys/dev/ath0/txpowlimit\" ");
|
|---|
| 11 | system("ssh root\@node1-10 \"iwconfig ath0 rate 11M fixed\" ");
|
|---|
| 12 | #system("ssh root\@node14-10 \"modprobe ath_pci\" ");
|
|---|
| 13 | system("ssh root\@node14-10 \"echo $power >> /proc/sys/dev/ath0/txpowlimit\" ");
|
|---|
| 14 | system("ssh root\@node14-10 \"iwconfig ath0 rate 11M fixed\" ");
|
|---|
