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