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