#!/usr/bin/perl
#
# Login to the nodes and setup 802.11 transmit power
#

# power in mW from 1 to 60
$power = 1;

#system("ssh root\@node1-10 \"modprobe ath_pci\" ");
system("ssh root\@node1-10 \"echo $power >> /proc/sys/dev/ath0/txpowlimit\" ");
system("ssh root\@node1-10 \"iwconfig ath0 rate 11M fixed\" ");
#system("ssh root\@node14-10 \"modprobe ath_pci\" ");
system("ssh root\@node14-10 \"echo $power >> /proc/sys/dev/ath0/txpowlimit\" ");
system("ssh root\@node14-10 \"iwconfig ath0 rate 11M fixed\" ");