#!/usr/bin/perl
# retreives some key stats from a Moterola Surfboard for rrdtool graphing
#
use LWP::Simple;
my $webpage = "";
$webpage = get("http://192.168.100.1/signaldata.htm");
@webpage = split(/\n/,$webpage);
($downstream_sn) = $webpage[60] =~ /| (.*) dB.*/;
($downstream_power) = $webpage[69] =~ / | (.*) dB.*/;
($upstream_power) = $webpage[99] =~ /.* | (.*) dB.*/;
($upstream_symbols) = $webpage[96] =~ / | (.*)\s+Msym.*/;
$upstream_symbols = int($upstream_symbols * 1024);
print "$downstream_sn $downstream_power $upstream_power $upstream_symbols\n";
|