FORUM.M.NU

Kod: Markera allt

use POSIX qw(strftime);
my $foo = strftime "%a %e %b %Y %H:%M:%S", localtime;

RRDs::graph "/var/www/el.png",
                        "--start= $start_time",
                        "--end= $cur_time",
                        "--title= El (Graf genererad: $foo)",
                        "--height= 700",
                        "--width= 800",
                        "--vertical-label= Watt",
  "-l 0",
              "DEF:El=/home/onewire/rrddata/el.rrd:el:AVERAGE",
   "CDEF:W=El,3600,*",
   "AREA:W#AAAAee",
   "LINE1:W#000000",
   "CDEF:kW=El,1000,/",
   "VDEF:value_sum=kW,TOTAL",
   "GPRINT:value_sum:Förbrukad mängd\t\t%0.2lf kWh\\n",
   "GPRINT:W:MIN:Momentanförbrukning\t\tMin\\: %0.2lf %sW",
   "GPRINT:W:AVERAGE:Medel\\: %0.2lf %sW",
   "GPRINT:W:MAX:Max\\: %0.2lf %sW",
   "GPRINT:W:LAST:Just nu\\: %0.2lf %sW\\n";