I was trying to do something like this for my Sipura VOIP box as well and was going to use HTML::TableExtract but this is simpler and just as effective.

#!/usr/bin/perl
use warnings;
use strict;

use LWP::Simple;

my %data;
my @keys = qw(DownFreq DownSNR DownPower UpFreq UpPower);
my $content = LWP::Simple::get(”http://192.168.100.1/signaldata.html”) or die “Couldn’t get it!”;
$content =~ s/\ |\n//g;
#print $content;

# regex in html source order
if ($content =~ /Frequency(.+?)Hz/) { $data{DownFreq} = $1; }
if ($content =~ /SignaltoNoiseRatio(.+?)dB/) { $data{DownSNR} = $1; }
if ($content =~ /PowerLevel(.+?)dBmV/) { $data{DownPower} = $1; }
if ($content =~ /Frequency(.+?)Hz/) { $data{UpFreq} = $1; }
if ($content =~ /PowerLevel(.+?)dBmV/) { $data{UpPower} = $1; }

for (@keys) {
print “$_:” . $data{$_} . ” “;
}
print “\n”;

b#!/usr/bin/perl
#use warnings;
#use strict;

use LWP::Simple;

my %data;
my @keys = qw(DownFreq DownSNR DownPower UpFreq UpPower);
my $content = LWP::Simple::get(”http://192.168.100.1/signaldata.html”) or die “Couldn’t get it!”;
$content =~ s/\ |\n//g;
#print $content;

# regex in html source order
if ($content =~ /<TD>Frequency<\/TD><TD>\s*(.+?) Hz/) { $data{DownFreq} = $1; }
if ($content =~ /<TD>Signal to Noise Ratio<\/TD><TD>\s*(.+?) dB/) { $data{DownSNR} = $1; }
if ($content =~ /<\/TR><TD>Power Level<\/TD><TD>\s*(.+?) dBmV\s*<TABLE/) { $data{DownPower} = $1; }
if ($content =~ /<\/TD><\/TR><TR><TD>Frequency<\/TD>\s*?<TD>\s*(.+?) Hz \s*?/) { $data{UpFreq} = $1; }
if ($content =~ /<TR><TD>Power Level<\/TD><TD>(.+?) dBmV\s*/) { $data{UpPower} = $1; }

for (@keys) {
print “$_:” . $data{$_} . ” “;
}
print “\n”;

#!/usr/bin/perl
#use warnings;
#use strict;

use LWP::Simple;

my %data;
my @keys = qw(DownFreq DownSNR DownPower UpFreq UpPower);
my $content = LWP::Simple::get(”http://192.168.100.1/signaldata.html”) or die “Couldn’t get it!”;
$content =~ s/\ |\n//g;
#print $content;

# regex in html source order
if ($content =~ /Frequency\s*(.+?) Hz/) { $data{DownFreq} = $1; }
if ($content =~ /Signal to Noise Ratio\s*(.+?) dB/) { $data{DownSNR} = $1; }
if ($content =~ /Power Level\s*(.+?) dBmV\s*Frequency\s*?\s*(.+?) Hz \s*?/) { $data{UpFreq} = $1; }
if ($content =~ /Power Level(.+?) dBmV\s*/) { $data{UpPower} = $1; }

for (@keys) {
print “$_:” . $data{$_} . ” “;
}
print “\n”;

Use of uninitialized value in concatenation (.) or string at Moto_SurfBoard_CM.pl line 32.
Use of uninitialized value in concatenation (.) or string at Moto_SurfBoard_CM.pl line 32.
Use of uninitialized value in concatenation (.) or string at Moto_SurfBoard_CM.pl line 32.
Use of uninitialized value in concatenation (.) or string at Moto_SurfBoard_CM.pl line 32.
Use of uninitialized value in concatenation (.) or string at Moto_SurfBoard_CM.pl line 32.
DownFreq: DownSNR: DownPower: UpFreq: UpPower:

the modem is a 4200

i’ve changed the source webpage to point to the correct url:

192.168.0.1/signaldata.html

the html source looks like this:

Frequency
330750000 Hz Locked

Signal to Noise Ratio
37 dB

Power Level
-1 dBmV

etc etc

sorry but i don’t know perl well enough to hack the code.

i think that the parsing of the data may be wrong causing the variable to not be written

please help

ta in advance

Thanks again..

1) The data template for the power level is missing the downstream SNR value. This needs to be added.
2) The graph template doesn’t automatically pickup the SNR, this needs to be assigned manually to the graph instance.

I also had to modify the Moto script for use with my SB5100:


$content =~ s/\ |\n//g;

# regex in html source order
if ($content =~ /Frequency\s+(\d+?)\s+Hz\s+Locked/i) { $data{DownFreq} = $1; }
if ($content =~ /Signal To Noise Ratio(\d+?) dB/i) { $data{DownSNR} = $1; }
if ($content =~ /Power Level(.+?) dB/i) { $data{DownPower} = $1; }
if ($content =~ /Frequency\s+(\d+?) Hz\s+Ranged/i) { $data{UpFreq} = $1; }
if ($content =~ /Power Level(\d+?) dBmV/i) { $data{UpPower} = $1; }


Hope this helps,
F

The freqeuncy graph works great
But when I run the power level graphs I’m getting the following error:

ERROR: can’t parse ‘#FFF200:SNR’

Any idea on how to look into this?

Thanks

Si