WeatherBug script & templates

lard · Posted: Wed Mar 22, 2006 12:19 pm Post subject:

o.k. - all fine apart from not being prompted for the code when creating the graphs...can I just change this in the data imput method or is there a better way perhaps?

Thanks,

Lard

ottomatic · Joined: 20 Mar 2006 Posts: 9

You can go to "Data Sources" then look for weatherbug. You should have 5 (if you selected all 5 graphs). Click on one of the weatherbug's and then put the code in the last blank what says "Weather Code."

lard · Posted: Wed Mar 22, 2006 2:18 pm Post subject:

lard · Posted: Fri Mar 24, 2006 7:42 am Post subject:

Strange but when I run this code I always only get two variables returned - does not seem to matter what code I enter as the METAR:

[root@localhost /]# usr/bin/perl /var/www/html/scripts/weatherbug.pl EGSC
DewPoint:1.2 HeatIndex:1.2

[root@localhost /]# usr/bin/perl /var/www/html/scripts/weatherbug.pl ABCD
DewPoint:1.2 HeatIndex:1.2

The script is:

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

use LWP::Simple;

my $httpaddr = "http://www.aws.com/aws_2001/asp/obsforecast.asp?id=?" . $ARGV[0];

my %data;
my %trash;
my $content = LWP::Simple::get($httpaddr) or die "Couldn't get it!";

# regex in html source order
if ($content =~ /(Temperature<\/b>)/g) { $trash{a} = $1; }
if ($content =~ /(-?\d+\.\d+)<\/b>/g) { $data{Temp} = $1; }

if ($content =~ /(Humidity<\/b>)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)<\/b>/g) { $data{Humidity} = $1; }

if ($content =~ /(Wind<\/b>)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)<\/b>/g) { $data{Wind} = $1; }

if ($content =~ /(Daily Rain<\/b>)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)<\/b>/g) { $data{Rain} = $1; }

if ($content =~ /(Pressure<\/b>)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)<\/b>/g) { $data{Pressure} = $1; }

if ($content =~ /(HEAT INDEX|WIND CHILL)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)/g) { $data{HeatIndex} = $1; }

if ($content =~ /(DEW POINT:)/g) { $trash{a} = $1; }
if ($content =~ /(\d+\.\d+)/g) { $data{DewPoint} = $1; }

for (keys %data) {
printf "%s:%s ", $_, $data{$_};
}
print "\n";

I notice that the variables that are returning are in CAPS - could this be the issue?

Thanks,

Lard

lard · Posted: Fri Mar 24, 2006 7:47 am Post subject:

qwertz · Cacti User Joined: 16 Feb 2006 Posts: 98

what a beautiful script !!!

The "problem" is that i'm living in Switzerland /Europe ...

Is there a place where i could catch weather info for European countries ?

Thank you very much

Qwertz

lard · Posted: Fri Mar 24, 2006 9:54 am Post subject:

lard · Posted: Fri Mar 24, 2006 9:57 am Post subject:

qwertz · Cacti User Joined: 16 Feb 2006 Posts: 98

THANK YOU

kegrif · Joined: 29 Mar 2006 Posts: 1

I still get this error when trying to import the XML file

Error: XML: Hash version does not exist.

I am running on Debian with Cacti Version 0.8.6c

Thanks.

gandalf · Posted: Thu Mar 30, 2006 11:04 am Post subject:

This seems to be a downlevel cacti. Importing must be performed with at least the same level as exporting. And 0.8.6c is quite outdated
Reinhard

tkdan235 · Joined: 27 Apr 2006 Posts: 17 Location: Sacramento, Ca

Jeff_Smith · Joined: 04 May 2006 Posts: 14

Below the stats there is a link to Full Observation. click that link and pull the ID from that URL.

tkdan235 · Joined: 27 Apr 2006 Posts: 17 Location: Sacramento, Ca

That is bring up the id, which for me is = KSAC

When I entered this code, it went through, but there is no data in my graphs. I am running 0.8.6g, and the rest of my graphs are working fine. I also tried entering = KSAC&obs=full just in case, but with no avail.

Any suggestions?