Kod: Markera allt
#!/usr/bin/perl
use RRDs;
my $cur_time = time();
my $start_time = $cur_time - 86400; # set end time to 24 hours ago
RRDs::graph "/var/www/graph_temp.png",
"--start= $start_time",
"--end= $cur_time",
"--title= Temp ute",
"--height= 250",
"--width= 700",
"--vertical-label= C",
"DEF:OutsideTemp=/home/logger1-comp/rrddata/temperature-10.3AD85F010800.rrd:value:AVERAGE",
"DEF:AquaTemp=/home/logger1-comp/rrddata/temperature-10.462736010800.rrd:value:AVERAGE",
"DEF:Liten1Temp=/home/logger1-comp/rrddata/temperature-10.DCF135010800.rrd:value:AVERAGE",
"COMMENT:\t\t\t\tNu Medel Max Min\\n",
"HRULE:0#0000FF",
"LINE2:OutsideTemp#0000FF:Ute\t\t\t",
"GPRINT:OutsideTemp:LAST:%6.1lf",
"GPRINT:OutsideTemp:AVERAGE:%6.1lf",
"GPRINT:OutsideTemp:MAX:%6.1lf",
"GPRINT:OutsideTemp:MIN:%6.1lf\\n",
"LINE2:AquaTemp#00FF00:Akvariet\t\t",
"GPRINT:AquaTemp:LAST:%6.1lf",
"GPRINT:AquaTemp:AVERAGE:%6.1lf",
"GPRINT:AquaTemp:MAX:%6.1lf",
"GPRINT:AquaTemp:MIN:%6.1lf\\n",
"LINE2:Liten1Temp#FF0000:liten givare 1\t",
"GPRINT:Liten1Temp:LAST:%6.1lf",
"GPRINT:Liten1Temp:AVERAGE:%6.1lf",
"GPRINT:Liten1Temp:MAX:%6.1lf",
"GPRINT:Liten1Temp:MIN:%6.1lf\\n";
;
my $err=RRDs::error;
if ($err) {print "problem generating the graph: $err\n";}
print "Done!\n";