working
This commit is contained in:
parent
1e2540761d
commit
2dbc4c5468
@ -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;
|
||||||
|
}
|
||||||
|
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user