Administrace komentářů

Zdravim,

poprosil bych vas o pomoc. K routru mam pripojena 2 teplotni cidla a pokousim se merit teplotu kterou ukladam rrdtoolem a nasledne vykresluju grafy denni tydeni mesicni rocni. Pokousel jsem se studovat rrdtool ale porad se v nem moc neorientuji. Problem mam nyni v tom ze minimalni a maximalni hodnoty napric grafama nekoresponduji napr. rocni ma daleko mensi maximalni teplotu i vykresleni nez mesicni ci tydeni graf. Prosim vidite nekde chybu?

#!/opt/bin/perl
my $rrd = '/opt/var/databaze/teplota';

&ProcessSensor(0, "router");
&ProcessSensor(1, "venku");
# kreslime grafy

&CreateGraph("", "hour", "Posledni hodina","SECOND:60:MINUTE:10:MINUTE:5:0:%H:%M","");
&CreateGraph("", "day", "Denni","MINUTE:30:HOUR:1:HOUR:1:0:%Hh","");
&CreateGraph("", "week", "Tydenni","HOUR:6:DAY:1:DAY:1:0:%A","");
&CreateGraph("", "month", "Mesicni","DAY:1:WEEK:1:WEEK:1:0:%d.%m.%Y","");
&CreateGraph("", "year", "Rocni","MONTH:1:MONTH:1:MONTH:1:0:%B","");

sub ProcessSensor
{
# process sensor
# inputs: $_[0]: cislo cidla (ie, 0/1/2/)
#         $_[1]: popis cidla

       my $temp = `/opt/bin/digitemp_DS9097 -t $_[0] -q -c /opt/etc/teplomer/digitemp.conf -o%C`;

               RRDs::create "$rrd/temp$_[0].rrd",
                       "-s 300",
                       "DS:temp:GAUGE:600:U:U",
                       "RRA:AVERAGE:0.5:1:2016",
                       "RRA:MIN:0.5:1:2016",
                       "RRA:MAX:0.5:1:2016",
                       "RRA:AVERAGE:0.5:6:1344",
                       "RRA:MIN:0.5:6:1344",
                       "RRA:MAX:0.5:6:1344",
                       "RRA:AVERAGE:0.5:24:2190",
                       "RRA:MIN:0.5:24:2190",
                       "RRA:MAX:0.5:24:2190",
                       "RRA:AVERAGE:0.5:144:3650",
                       "RRA:MIN:0.5:144:3650",
                       "RRA:MAX:0.5:144:3650";
       }
#}
sub CreateGraph
{
# creates graph
# inputs: $_[0]: cislo cidla (ie, 0/1/2/etc)
#         $_[1]: interval (ie, day, week, month, year)
#         $_[2]: popis cidla

        RRDs::graph "$img/temp-$_[1].png",
                "-s -1$_[1]",
                "-t Graf: $_[2]",
                "-x","$_[3]",
#               "--lazy",
                "-h", "333", "-w", "747",
                "-a", "PNG",
                "-v stupne Celsia",
                "--slope-mode",
                "DEF:temp0=$rrd/temp0.rrd:temp:AVERAGE",
                "DEF:temp1=$rrd/temp1.rrd:temp:AVERAGE",
                "DEF:min0=$rrd/temp0.rrd:temp:MIN",
                "DEF:max0=$rrd/temp0.rrd:temp:MAX",
                "COMMENT:  cidlo\\:             maximalni              minimalni              prumerna                 aktualni\\l",
                "LINE2:temp0#0000FF:venku\\:            ",
                "GPRINT:temp0:MAX:%2.1lf°C               ",
                "GPRINT:temp0:MIN:%2.1lf°C              ",
                "GPRINT:temp0:AVERAGE:%2.1lf°C                ",
                "GPRINT:temp0:LAST:%2.1lf°C\\l",
                "LINE2:temp1#008A00:vnitrni\\:          ",
                "GPRINT:temp1:MAX:%2.1lf°C               ",
                "GPRINT:temp1:MIN:%2.1lf°C              ",
                "GPRINT:temp1:AVERAGE:%2.1lf°C                ",
                "GPRINT:temp1:LAST:%2.1lf°C \\l",
                "COMMENT: \\r",
};

                                                                                    

Dekuji za kazdou radu