Veckodagar på X-skalan RRDTool - uppdaterad
Postat: 16 feb 2009, 22:48
Jag genererar en graf för senaste veckans temp och vill ha veckodagarna i skalan
Jag har letat och letat överallt på nätet.
Jag förstår inte riktigt hur man ska göra (man är ju en newbie)
Jag får i min graf 10,11,12,13,14,15,16 men vill ha måndag, tisdag .....o.s.v.
Mitt script som genererar grafen
Någon som vet hur jag ska göra?
Jag har letat och letat överallt på nätet.
Jag förstår inte riktigt hur man ska göra (man är ju en newbie)
Jag får i min graf 10,11,12,13,14,15,16 men vill ha måndag, tisdag .....o.s.v.
Mitt script som genererar grafen
Kod: Markera allt
#!/usr/bin/perl
use RRDs;
use HTTP::Date;
my ($date, $time) = split(" ", HTTP::Date::time2iso());
my ($hour, $min) = split(":", $time);
my $cur_time = time();
my $start_time = $cur_time - 604800; # set end time to 1 week ago
RRDs::graph "/home/www/graph_temp7d.png",
"-X0",
"--start= $start_time",
"--end= $cur_time",
"--title= Temperaturen i Gbg/Lindome senaste veckan",
"--height= 200",
"--width= 500",
"--vertical-label= Temperatur \260C " ,
"--watermark= Westerberg.name",
"DEF:OutsideTemp=/home/gunnar/rrddata/outside_temp.rrd:outsidetemp:AVERAGE",
"COMMENT:\t\t\t\t\tNu Medel Max Min\\n",
"HRULE:0#0000FF",
"LINE1:OutsideTemp#FF0000:Ute\t\t\t\t",
"GPRINT:OutsideTemp:LAST:%6.1lf",
"GPRINT:OutsideTemp:AVERAGE:%6.1lf",
"GPRINT:OutsideTemp:MAX:%6.1lf",
"GPRINT:OutsideTemp:MIN:%6.1lf\\n",
"COMMENT:\t\t\tSenaste registrerad temperaturdata\\:$date $hour\\:$min \\n";
my $err=RRDs::error;
if ($err) {print "problem generating the graph: $err\n";}
print "Done!\n"