#!/usr/bin/perl # # The MIT License (MIT) # # Copyright (C) 2015, Cristian Stoica. # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal # in the Software without restriction, including without limitation the rights # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell # copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN # THE SOFTWARE. # # Name : radiation.cgi # Version : 0.4.1 # Date : 2015/07/18 # # Description : A Perl script that generates a simple web page to view the # graphs created from the data stored in the RRD database. # # Git repository available at https://github.com/cristianst85/rrd-uradmonitor-perl # use strict; use warnings; # Define page auto-refresh interval in seconds my $REFRESH=60; # Define uRADMonitor device id (e.g.: #10000000) my $DEVICE_ID = '11000032'; my $srv_name; my $description; my $name = ''; my $graph; my @graphs; # Define graphs to display. push (@graphs, "radiation"); push (@graphs, "temperature"); # Comment/remove the line below if the device has no pressure sensor. #push (@graphs, "pressure"); # Get the server name or put some other description here. $srv_name = $ENV{'SERVER_NAME'}; # Get url parameters my @params = split(/&/, $ENV{'QUERY_STRING'}); my $param_name = ''; my $param_value = ''; foreach my $i (@params) { ($param_name, $param_value) = split(/=/, $i); if ($param_name eq 'trend') { $name = $param_value; } } if ($name eq '') { $description = "summary :: last 24 hours"; } else { if ($name eq 'radiation') { $description = "gamma radiation"; } else { $description = $name; } } print "Content-type: text/html;\n\n"; print < $srv_name :: radiation monitoring :: $description uRADMonitor $DEVICE_ID :: $description
END ; if ($name eq '') { print "
"; print "Daily Graphs (60 seconds averages)"; print "
"; foreach $graph (@graphs) { print ""; print "
"; } # You can add here some extra info about this page here. } else { print < Daily Graph (1 minute averages)


Weekly Graph (5 minutes averages)


Monthly Graph (1 hour averages)


Yearly Graph (12 hours averages)
END ; } print <
END ;