Kod: Markera allt
#!/usr/bin/perl
use RRDs;
use POSIX qw(strftime);
my $displaydate= strftime('%Y%m%d', localtime);
my $cur_time = time();
my $start_time = $cur_time - 86400; # set end time to 24 hours ago
# print $displaydate;
#$namn = $displaydate . "pump.png";
#print $namn;
######## 2 graphs Heating pump
RRDs::graph "/var/www/graph/" . $displaydate . "_pump.png",
"--start= $start_time",
"--end= $cur_time",
"--title= Framledning & Retur",
"--height= 300",
"--width= 400",
# "--upper-limit=35",
# "--lower-limit=25",
"--rigid",
"--vertical-label= °C",
"DEF:Temp_2=/home/jl/rrddata/temp_1.rrd:1:AVERAGE",
"DEF:Temp_1=/home/jl/rrddata/temp_2.rrd:1:AVERAGE",
"COMMENT:\t\t\t\tNu Medel Max Min\\n",
"HRULE:0#0000FF",
"LINE2:Temp_1#FF0000:Framledning\t\t",
"GPRINT:Temp_1:LAST:%6.1lf",
"GPRINT:Temp_1:AVERAGE:%6.1lf",
"GPRINT:Temp_1:MAX:%6.1lf",
"GPRINT:Temp_1:MIN:%6.1lf\\n",
"LINE2:Temp_2#0000FF:Retur\t\t\t",
"GPRINT:Temp_2:LAST:%6.1lf",
"GPRINT:Temp_2:AVERAGE:%6.1lf",
"GPRINT:Temp_2:MAX:%6.1lf",
"GPRINT:Temp_2:MIN:%6.1lf\\n";
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= 300",
"--width= 500",
"--vertical-label= C",
"DEF:OutsideTemp=/home/micke/rrddata/outside_temp.rrd:outsidetemp$
"COMMENT:\t\t\t\tNu Medel Max Min\\n",
"HRULE:0#0000FF",
"LINE2:OutsideTemp#0000FF:Ute\t\t\t",
"GPRINT:OutsideTemp:LAST:%6.11f",
"GPRINT:OutsideTemp:AVERAGE:%6.11f",
"GPRINT:OutsideTemp:MAX:%6.11f",
"GPRINT:OutsideTemp:MIN:%6.11f\\n";
my $err=RRDs::error;
if ($err) {print "problem generating the graph: $err\n";}
print "Done!\n"
