Checking the RSSI of an Accesspoint with an interval of 5minutes

Recently i needed to write a script to check the RSSI of an access point for every 5mins interval which is newly deployed at the base-station so i gave a try, the signal status is required for every 5mins with time stamp.

Note:If you are doing telnet into a device you need to know the prompt then we can control everything.

code:
use Net::Cisco;
open(OUTPUT,">output.txt");
sub tel
{
$t=Net::Telnet::Cisco->new(Host=>$ip,Timeout=>7,Errmode=>'return');
$t->login('9190','PP@KUM425');
@output0=$t->cmd(string=>'show clock',prompt=>'/# /');
print OUTPUT "@output0\n";
$t->cmd(string=>'telnet 10.0.0.5',prompt=>'/login: /');
$t->cmd(string=>"admin",prompt=>'/password: /');
$t->cmd(string=>"admin",prompt=>'/> /');
$t->cmd(string=>"login",prompt=>'/# /');
@output=$t->cmd(string=>"iwconfig ath0",prompt=>'/# /');
print OUTPUT $output[5];
$t->close;
}
$i=144;
while($i>0)
{
$ip='10.0.0.2';
tel($ip);
sleep 300;
$i--;
}

so for every 5mins it login into the base-station cisco router and checks it signal, and it runs for 12 hours thats what i assigned the counter as 144 which means 144*5=720 minutes=12 hours.For time stamp i used the cisco router time that what i used "show clock".

Output:

*19:31:43.968 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*19:36:46.360 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*19:41:48.496 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*19:46:54.116 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*19:51:56.648 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*19:56:58.792 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:02:00.764 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:07:03.108 IST Fri Oct 21 2011

          Link Quality=63/94  Signal level=-72 dBm  Noise level=-95 dBm
*20:12:05.256 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:17:07.220 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:22:09.372 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:27:11.524 IST Fri Oct 21 2011

          Link Quality=66/94  Signal level=-71 dBm  Noise level=-95 dBm
*20:32:13.464 IST Fri Oct 21 2011