mafoo.org.uk/rivers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

working

Browse Source
This commit is contained in:
foo 2014-02-01 13:20:18 +00:00
parent 1e2540761d
commit 2dbc4c5468
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
getstations.pl
View File

@ -5,15 +5,24 @@
use JSON::PP;
$DEBUG = $ENV{DEBUG};
$CatchmentId = shift @ARGV;
my @todo = @ARGV;
@ARGV = ();
print "Decoding...\n" if $DEBUG;
$script = $ENV{script} || "/path/to/river_levels_";
$urlbase = $ENV{urlbase} || "http://path.to/service";
print STDERR "Decoding...\n" if $DEBUG;
$in = decode_json(<>) or die;
print "# ln -s /path/to/river_levels_ /etc/munin/plugins/river_levels_$CatchmentId\n\n[river_levels_$CatchmentId]\nenv.urlbase http://path.to/service\nenv.catchmentname Name\nenv.stations " unless $DEBUG;
foreach $station (@{$in->{data}}) {
if ($station->{url} =~ /CatchmentId=$CatchmentId$/) {
print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{river}\n" : " ";
foreach $CatchmentId (@todo) {
$catchment = "Name";
print STDERR "ln -s $script /etc/munin/plugins/river_levels_$CatchmentId\n";
print "[river_levels_$CatchmentId]\nenv.urlbase $urlbase\nenv.stations " unless $DEBUG;
foreach $station (@{$in->{data}}) {
if ($station->{url} =~ /CatchmentId=$CatchmentId$/) {
print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{river}\n" : " " unless $station->{watercourse} eq "Tide";
$catchment = $station->{watercourse} unless $station->{watercourse} eq "Tide";
}
}
print "\nenv.catchmentname $catchment\n\n" unless $DEBUG;
}
print "\n" unless $DEBUG;

2
river_levels_
View File

@ -35,7 +35,7 @@
CACHE=/tmp/river_level_.dat
checkdata () {
if test `find "$CACHE" -mtime +1`
if [ ! -f $CACHE ] || test `find "$CACHE" -mtime +1`
then
curl -o $CACHE -Ss $urlbase || exit 1
fi