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

View File

@ -5,15 +5,24 @@
use JSON::PP; use JSON::PP;
$DEBUG = $ENV{DEBUG}; $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; $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 $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}}) { foreach $station (@{$in->{data}}) {
if ($station->{url} =~ /CatchmentId=$CatchmentId$/) { if ($station->{url} =~ /CatchmentId=$CatchmentId$/) {
print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{river}\n" : " "; print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{river}\n" : " " unless $station->{watercourse} eq "Tide";
$catchment = $station->{watercourse} unless $station->{watercourse} eq "Tide";
} }
} }
print "\n" unless $DEBUG; print "\nenv.catchmentname $catchment\n\n" unless $DEBUG;
}

View File

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