config/cfgroot/graphs.pl

   1 # Generate Graphs exported from Makegraphs to minimize system load an only generate the Graphs when displayed
   2 # Initialisation
   3
   4 package Graphs;
   5
   6 use strict;
   7 use RRDs;
   8
   9 require '/var/ipfire/general-functions.pl';
  10 require "${General::swroot}/lang.pl";
  11 require "${General::swroot}/header.pl";
  12
  13 $General::version = '2.0b';
  14 $General::swroot = '/var/ipfire';
  15
  16 my $ERROR;
  17 my $rrdlog = "/var/log/rrd";
  18 my $graphs = "/srv/web/ipfire/html/graphs";
  19 $ENV{PATH}="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";
  20
  21 my %color = ();
  22 my %mainsettings = ();
  23 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  24 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  25
  26 my %mbmon_settings = ();
  27 &General::readhash("${General::swroot}/mbmon/settings", \%mbmon_settings);
  28
  29 my %mbmon_values = ();
  30 my $key;
  31 my $value;
  32 my @args = ();
  33 my $count = 0;
  34
  35 use Encode 'from_to';
  36
  37 my %tr=();
  38 if ((${Lang::language} eq 'el') ||
  39     (${Lang::language} eq 'fa') ||
  40     (${Lang::language} eq 'ru') ||
  41     (${Lang::language} eq 'th') ||
  42     (${Lang::language} eq 'vi') ||
  43     (${Lang::language} eq 'zh') ||
  44     (${Lang::language} eq 'zt')) {
  45         eval `/bin/cat "${General::swroot}/langs/en.pl"`;
  46 } else {
  47         %tr=%Lang::tr;          # use translated version for other languages
  48 }
  49
  50
  51 sub updatecpugraph {
  52         my $period    = $_[0];
  53
  54         RRDs::graph ("$graphs/cpu-$period.png",
  55         "--start", "-1$period", "-aPNG", "-i", "-z",
  56         "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-u 100", "-r",
  57         "--color", "SHADEA".$color{"color19"},
  58         "--color", "SHADEB".$color{"color19"},
  59         "--color", "BACK".$color{"color21"},
  60         "-t $tr{'cpu usage per'} $tr{$period}",
  61         "DEF:iowait=$rrdlog/cpu.rrd:iowait:AVERAGE",
  62         "DEF:user=$rrdlog/cpu.rrd:user:AVERAGE",
  63         "DEF:system=$rrdlog/cpu.rrd:system:AVERAGE",
  64         "DEF:idle=$rrdlog/cpu.rrd:idle:AVERAGE",
  65         "AREA:iowait".$color{"color14"}.":$tr{'iowait'}",
  66         "STACK:user".$color{"color11"}.":$tr{'user cpu usage'}",
  67         "STACK:system".$color{"color13"}.":$tr{'system cpu usage'}",
  68         "STACK:idle".$color{"color12"}.":$tr{'idle cpu usage'}\\j",
  69         "COMMENT: \\j",
  70         "COMMENT:$tr{'maximal'}",
  71         "COMMENT:$tr{'average'}",
  72         "COMMENT:$tr{'current'}\\j",
  73         "GPRINT:user:MAX:$tr{'user cpu'}\\:%3.2lf%%",
  74         "GPRINT:user:AVERAGE:$tr{'user cpu'}\\:%3.2lf%%",
  75         "GPRINT:user:LAST:$tr{'user cpu'}\\:%3.2lf%%\\j",
  76         "GPRINT:system:MAX:$tr{'system cpu'}\\:%3.2lf%%",
  77         "GPRINT:system:AVERAGE:$tr{'system cpu'}\\:%3.2lf%%",
  78         "GPRINT:system:LAST:$tr{'system cpu'}\\:%3.2lf%%\\j",
  79         "GPRINT:idle:MAX:$tr{'idle cpu'}\\:%3.2lf%%",
  80         "GPRINT:idle:AVERAGE:$tr{'idle cpu'}\\:%3.2lf%%",
  81         "GPRINT:idle:LAST:$tr{'idle cpu'}\\:%3.2lf%%\\j",
  82         "GPRINT:iowait:MAX:$tr{'iowait'}\\:%3.2lf%%",
  83         "GPRINT:iowait:AVERAGE:$tr{'iowait'}\\:%3.2lf%%",
  84         "GPRINT:iowait:LAST:$tr{'iowait'}\\:%3.2lf%%\\j");
  85         $ERROR = RRDs::error;
  86         print "Error in RRD::graph for cpu: $ERROR\n" if $ERROR;
  87 }
  88
  89 sub updateloadgraph {
  90         my $period    = $_[0];
  91
  92         RRDs::graph ("$graphs/load-$period.png",
  93         "--start", "-1$period", "-aPNG",
  94         "-w 600", "-h 100", "-i", "-z", "-l 0", "-r", "--alt-y-grid",
  95         "-t Load Average",
  96         "--color", "SHADEA".$color{"color19"},
  97         "--color", "SHADEB".$color{"color19"},
  98         "--color", "BACK".$color{"color21"},
  99         "DEF:load1=$rrdlog/load.rrd:load1:AVERAGE",
 100         "DEF:load5=$rrdlog/load.rrd:load5:AVERAGE",
 101         "DEF:load15=$rrdlog/load.rrd:load15:AVERAGE",
 102         "AREA:load1".$color{"color13"}.":1 Minute, letzter:",
 103         "GPRINT:load1:LAST:%5.2lf",
 104         "AREA:load5".$color{"color18"}.":5 Minuten, letzter:",
 105         "GPRINT:load5:LAST:%5.2lf",
 106         "AREA:load15".$color{"color14"}.":15 Minuten, letzter:",
 107         "GPRINT:load15:LAST:%5.2lf\\j",
 108         "LINE1:load5".$color{"color13"},
 109         "LINE1:load1".$color{"color18"});
 110         $ERROR = RRDs::error;
 111         print "Error in RRD::graph for load: $ERROR\n" if $ERROR;
 112 }
 113
 114 sub updatememgraph {
 115         my $period    = $_[0];
 116
 117         RRDs::graph ("$graphs/memory-$period.png",
 118         "--start", "-1$period", "-aPNG", "-i", "-z",
 119         "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-u 100", "-r",
 120         "--color", "SHADEA".$color{"color19"},
 121         "--color", "SHADEB".$color{"color19"},
 122         "--color", "BACK".$color{"color21"},
 123         "-t $tr{'memory usage per'} $tr{$period}",
 124         "DEF:used=$rrdlog/mem.rrd:memused:AVERAGE",
 125         "DEF:free=$rrdlog/mem.rrd:memfree:AVERAGE",
 126         "DEF:shared=$rrdlog/mem.rrd:memshared:AVERAGE",
 127         "DEF:buffer=$rrdlog/mem.rrd:membuffers:AVERAGE",
 128         "DEF:cache=$rrdlog/mem.rrd:memcache:AVERAGE",
 129         "CDEF:total=used,free,+",
 130         "CDEF:used2=used,buffer,cache,shared,+,+,-",
 131         "CDEF:usedpct=100,used2,total,/,*",
 132         "CDEF:sharedpct=100,shared,total,/,*",
 133         "CDEF:bufferpct=100,buffer,total,/,*",
 134         "CDEF:cachepct=100,cache,total,/,*",
 135         "CDEF:freepct=100,free,total,/,*",
 136         "AREA:usedpct".$color{"color11"}.":$tr{'used memory'}",
 137         "STACK:sharedpct".$color{"color13"}.":$tr{'shared memory'}",
 138         "STACK:bufferpct".$color{"color23"}.":$tr{'buffered memory'}",
 139         "STACK:cachepct".$color{"color14"}.":$tr{'cached memory'}",
 140         "STACK:freepct".$color{"color12"}.":$tr{'free memory'}\\j",
 141         "COMMENT: \\j",
 142         "COMMENT:$tr{'maximal'}",
 143         "COMMENT:$tr{'average'}",
 144         "COMMENT:$tr{'current'}\\j",
 145         "GPRINT:usedpct:MAX:$tr{'used memory'}\\:%3.2lf%%",
 146         "GPRINT:usedpct:AVERAGE:$tr{'used memory'}\\:%3.2lf%%",
 147         "GPRINT:usedpct:LAST:$tr{'used memory'}\\:%3.2lf%%\\j",
 148         "GPRINT:sharedpct:MAX:$tr{'shared memory'}\\:%3.2lf%%",
 149         "GPRINT:sharedpct:AVERAGE:$tr{'shared memory'}\\:%3.2lf%%",
 150         "GPRINT:sharedpct:LAST:$tr{'shared memory'}\\:%3.2lf%%\\j",
 151         "GPRINT:bufferpct:MAX:$tr{'buffered memory'}\\:%3.2lf%%",
 152         "GPRINT:bufferpct:AVERAGE:$tr{'buffered memory'}\\:%3.2lf%%",
 153         "GPRINT:bufferpct:LAST:$tr{'buffered memory'}\\:%3.2lf%%\\j",
 154         "GPRINT:cachepct:MAX:$tr{'cached memory'}\\:%3.2lf%%",
 155         "GPRINT:cachepct:AVERAGE:$tr{'cached memory'}\\:%3.2lf%%",
 156         "GPRINT:cachepct:LAST:$tr{'cached memory'}\\:%3.2lf%%\\j",
 157         "GPRINT:freepct:MAX:$tr{'free memory'}\\:%3.2lf%%",
 158         "GPRINT:freepct:AVERAGE:$tr{'free memory'}\\:%3.2lf%%",
 159         "GPRINT:freepct:LAST:$tr{'free memory'}\\:%3.2lf%%\\j");
 160         $ERROR = RRDs::error;
 161         print "Error in RRD::graph for mem: $ERROR\n" if $ERROR;
 162
 163         RRDs::graph ("$graphs/swap-$period.png",
 164         "--start", "-1$period", "-aPNG", "-i", "-z",
 165         "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-u 100", "-r",
 166         "--color", "SHADEA".$color{"color19"},
 167         "--color", "SHADEB".$color{"color19"},
 168         "--color", "BACK".$color{"color21"},
 169         "-t $tr{'swap usage per'} $tr{$period}",
 170         "DEF:used=$rrdlog/mem.rrd:swapused:AVERAGE",
 171         "DEF:free=$rrdlog/mem.rrd:swapfree:AVERAGE",
 172         "CDEF:total=used,free,+",
 173         "CDEF:usedpct=100,used,total,/,*",
 174         "CDEF:freepct=100,free,total,/,*",
 175         "AREA:usedpct".$color{"color11"}.":$tr{'used swap'}",
 176         "STACK:freepct".$color{"color12"}.":$tr{'free swap'}\\j",
 177         "COMMENT: \\j",
 178         "COMMENT:$tr{'maximal'}",
 179         "COMMENT:$tr{'average'}",
 180         "COMMENT:$tr{'current'}\\j",
 181         "GPRINT:usedpct:MAX:$tr{'used swap'}\\:%3.2lf%%",
 182         "GPRINT:usedpct:AVERAGE:$tr{'used swap'}\\:%3.2lf%%",
 183         "GPRINT:usedpct:LAST:$tr{'used swap'}\\:%3.2lf%%\\j",
 184         "GPRINT:freepct:MAX:$tr{'free swap'}\\:%3.2lf%%",
 185         "GPRINT:freepct:AVERAGE:$tr{'free swap'}\\:%3.2lf%%",
 186         "GPRINT:freepct:LAST:$tr{'free swap'}\\:%3.2lf%%\\j");
 187         $ERROR = RRDs::error;
 188         print "Error in RRD::graph for swap: $ERROR\n" if $ERROR;
 189 }
 190
 191 sub updatediskgraph {
 192         my $period    = $_[0];
 193         my $disk    = $_[1];
 194
 195         RRDs::graph ("$graphs/disk-$disk-$period.png",
 196         "--start", "-1$period", "-aPNG", "-i", "-z",
 197         "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-r",
 198         "--color", "SHADEA".$color{"color19"},
 199         "--color", "SHADEB".$color{"color19"},
 200         "--color", "BACK".$color{"color21"},
 201         "-t $tr{'disk access per'} $tr{$period} $disk",
 202         "DEF:read=$rrdlog/disk-$disk.rrd:readsect:AVERAGE",
 203         "DEF:write=$rrdlog/disk-$disk.rrd:writesect:AVERAGE",
 204         "AREA:read".$color{"color11"}.":$tr{'sectors read from disk per second'}",
 205         "STACK:write".$color{"color12"}.":$tr{'sectors written to disk per second'}\\j",
 206         "COMMENT: \\j",
 207         "COMMENT:$tr{'maximal'}",
 208         "COMMENT:$tr{'average'}",
 209         "COMMENT:$tr{'current'}\\j",
 210         "GPRINT:read:MAX:$tr{'read sectors'}\\:%8.0lf",
 211         "GPRINT:read:AVERAGE:$tr{'read sectors'}\\:%8.0lf",
 212         "GPRINT:read:LAST:$tr{'read sectors'}\\:%8.0lf\\j",
 213         "GPRINT:write:MAX:$tr{'written sectors'}\\:%8.0lf",
 214         "GPRINT:write:AVERAGE:$tr{'written sectors'}\\:%8.0lf",
 215         "GPRINT:write:LAST:$tr{'written sectors'}\\:%8.0lf\\j");
 216         $ERROR = RRDs::error;
 217         print "Error in RRD::graph for disk: $ERROR\n" if $ERROR;
 218 }
 219
 220 sub updateifgraph {
 221   my $interface = $_[0];
 222   my $period    = $_[1];
 223
 224   RRDs::graph ("$graphs/$interface-$period.png",
 225   "--start", "-1$period", "-aPNG", "-i", "-z",
 226   "--alt-y-grid", "-w 600", "-h 100",
 227   "--color", "SHADEA".$color{"color19"},
 228   "--color", "SHADEB".$color{"color19"},
 229   "--color", "BACK".$color{"color21"},
 230   "-t $tr{'traffic on'} $interface ($tr{'graph per'} $tr{$period})",
 231   "-v$tr{'bytes per second'}",
 232   "DEF:incoming=$rrdlog/$interface.rrd:incoming:AVERAGE",
 233   "DEF:outgoing=$rrdlog/$interface.rrd:outgoing:AVERAGE",
 234   "AREA:incoming".$color{"color11"}.":$tr{'incoming traffic in bytes per second'}",
 235   "LINE1:outgoing".$color{"color12"}.":$tr{'outgoing traffic in bytes per second'}\\j",
 236   "COMMENT: \\j",
 237   "COMMENT:$tr{'maximal'}",
 238   "COMMENT:$tr{'average'}",
 239   "COMMENT:$tr{'current'}\\j",
 240   "GPRINT:incoming:MAX:$tr{'in'}\\:%8.3lf %sBps",
 241   "GPRINT:incoming:AVERAGE:$tr{'in'}\\:%8.3lf %sBps",
 242   "GPRINT:incoming:LAST:$tr{'in'}\\:%8.3lf %sBps\\j",
 243   "GPRINT:outgoing:MAX:$tr{'out'}\\:%8.3lf %sBps",
 244   "GPRINT:outgoing:AVERAGE:$tr{'out'}\\:%8.3lf %sBps",
 245   "GPRINT:outgoing:LAST:$tr{'out'}\\:%8.3lf %sBps\\j");
 246   $ERROR = RRDs::error;
 247   print "Error in RRD::graph for $interface: $ERROR\n" if $ERROR;
 248 }
 249
 250 sub updatefwhitsgraph {
 251   my $interval = $_[0];
 252
 253   RRDs::graph ("$graphs/firewallhits-$interval-area.png",
 254   "--start", "-1$interval", "-aPNG", "-i", "-z",
 255   "--alt-y-grid", "-w 600", "-h 200",
 256   "--color", "SHADEA".$color{"color19"},
 257   "--color", "SHADEB".$color{"color19"},
 258   "--color", "BACK".$color{"color21"},
 259   "-t firewall hits over the last $interval",
 260   "DEF:amount=$rrdlog/firewallhits.rrd:amount:AVERAGE",
 261   "AREA:amount".$color{"color24"}.":firewallhits",
 262   "GPRINT:amount:MAX:   $tr{'maximal'}\\: %2.2lf %S",
 263   "GPRINT:amount:AVERAGE: $tr{'average'}\\: %2.2lf %S",
 264   "GPRINT:amount:LAST: $tr{'current'}\\: %2.2lf %Shits/5 min\\n",
 265   "DEF:portamount=$rrdlog/firewallhits.rrd:portamount:AVERAGE",
 266   "AREA:portamount".$color{"color25"}.":portscans",
 267   "GPRINT:portamount:MAX:      $tr{'maximal'}\\: %2.2lf %S",
 268   "GPRINT:portamount:AVERAGE: $tr{'average'}\\: %2.2lf %S",
 269   "GPRINT:portamount:LAST: $tr{'current'}\\: %2.2lf %Shits/5 min");
 270   $ERROR = RRDs::error;
 271   print "Error in RRD::graph for Firewallhits: $ERROR\n" if $ERROR;
 272 }
 273
 274 sub updatelqgraph {
 275   my $period    = $_[0];
 276   RRDs::graph ("$graphs/lq-$period.png",
 277   "--start", "-1$period", "-aPNG", "-i", "-z",
 278   "--alt-y-grid", "-w 600", "-h 100", "-l 0", "-r",
 279   "-t $tr{'linkq'} ($tr{'graph per'} $tr{$period})",
 280   "--lazy",
 281   "--color", "SHADEA".$color{"color19"},
 282   "--color", "SHADEB".$color{"color19"},
 283   "--color", "BACK".$color{"color21"},
 284   "-v ms / pkts (% x10)",
 285   "DEF:roundtrip=$rrdlog/lq.rrd:roundtrip:AVERAGE",
 286   "DEF:loss=$rrdlog/lq.rrd:loss:AVERAGE",
 287   "CDEF:roundavg=roundtrip,PREV(roundtrip),+,2,/",
 288   "CDEF:loss10=loss,10,*",
 289   "CDEF:r0=roundtrip,30,MIN",
 290   "CDEF:r1=roundtrip,70,MIN",
 291   "CDEF:r2=roundtrip,150,MIN",
 292   "CDEF:r3=roundtrip,300,MIN",
 293   "AREA:roundtrip".$color{"color25"}.":>300 ms",
 294   "AREA:r3".$color{"color18"}.":150-300 ms",
 295   "AREA:r2".$color{"color14"}.":70-150 ms",
 296   "AREA:r1".$color{"color17"}.":30-70 ms",
 297   "AREA:r0".$color{"color12"}.":<30 ms",
 298   "AREA:loss10".$color{"color13"}.":Packet loss (x10)\\j",
 299   "COMMENT: \\j",
 300   "COMMENT:$tr{'maximal'}",
 301   "COMMENT:$tr{'average'}",
 302   "COMMENT:$tr{'current'}\\j",
 303   "LINE1:roundtrip#707070:",
 304   "GPRINT:roundtrip:MAX:Time\\:%3.2lf ms",
 305   "GPRINT:roundtrip:AVERAGE:Time\\:%3.2lf ms",
 306   "GPRINT:roundtrip:LAST:Time\\:%3.2lf ms\\j",
 307   "GPRINT:loss:MAX:Loss\\:%3.2lf%%",
 308   "GPRINT:loss:AVERAGE:Loss\\:%3.2lf%%",
 309   "GPRINT:loss:LAST:Loss\\:%3.2lf%%\\j"
 310   );
 311   $ERROR = RRDs::error;
 312   print "Error in RRD::graph for Link Quality: $ERROR\n" if $ERROR;
 313 }
 314
 315 sub updatehddgraph {
 316   my $disk = $_[0];
 317   my $period = $_[1];
 318
 319   RRDs::graph ("$graphs/hddtemp-$disk-$period.png",
 320   "--start", "-1$period", "-aPNG", "-i", "-z",
 321   "--alt-y-grid", "-w 600", "-h 100",
 322   "--color", "SHADEA".$color{"color19"},
 323   "--color", "SHADEB".$color{"color19"},
 324   "--color", "BACK".$color{"color21"},
 325   "-t $tr{'harddisk temperature'} ($tr{'graph per'} $tr{$period})",
 326   "DEF:temperature=$rrdlog/hddtemp-$disk.rrd:temperature:AVERAGE",
 327   "LINE2:temperature".$color{"color11"}.":$tr{'hdd temperature in'} ?C",
 328   "GPRINT:temperature:MAX:$tr{'maximal'}\\:%3.0lf ?C",
 329   "GPRINT:temperature:AVERAGE:$tr{'average'}\\:%3.0lf ?C",
 330   "GPRINT:temperature:LAST:$tr{'current'}\\:%3.0lf ?C",
 331   );
 332   $ERROR = RRDs::error;
 333   print "Error in RRD::graph for hdd-$disk: $ERROR\n" if $ERROR;
 334 }
 335
 336 sub updatetempgraph
 337 {
 338   my $type   = "temp";
 339   my $period = $_[0];
 340
 341   @args = ("$graphs/mbmon-$type-$period.png", "--start", "-1$period", "-aPNG", "-i", "-z",
 342     "--alt-y-grid", "-w 600", "-h 100", "--alt-autoscale",
 343     "--color", "SHADEA".$color{"color19"},
 344     "--color", "SHADEB".$color{"color19"},
 345     "--color", "BACK".$color{"color21"},
 346     "-t $tr{'mbmon temp'} ($tr{'graph per'} $tr{$period})" );
 347
 348   $count = 10;
 349   foreach $key ( sort(keys %mbmon_values) )
 350   {
 351     if ( (index($key, $type) != -1) && ($mbmon_settings{'LINE-'.$key} eq 'on') )
 352     {
 353       if ( !defined($mbmon_settings{'LABEL-'.$key}) || ($mbmon_settings{'LABEL-'.$key} eq '') )
 354       {
 355         $mbmon_settings{'LABEL-'.$key} = $key;
 356       }
 357
 358       push(@args, "DEF:$key=$rrdlog/mbmon.rrd:$key:AVERAGE");
 359       push(@args, "LINE2:$key$color{$count}:$mbmon_settings{'LABEL-'.$key} $tr{'mbmon temp in'} ?C");
 360       push(@args, "GPRINT:$key:MAX:$tr{'maximal'}\\:%5.1lf ?C");
 361       push(@args, "GPRINT:$key:AVERAGE:$tr{'average'}\\:%5.1lf ?C");
 362       push(@args, "GPRINT:$key:LAST:$tr{'current'}\\:%5.1lf ?C\\j");
 363
 364       $count++;
 365     }
 366   }
 367
 368   if ( $count > 1 )
 369   {
 370     RRDs::graph ( @args );
 371     $ERROR = RRDs::error;
 372     print("Error in RRD::graph for temp: $ERROR\n")if $ERROR;
 373   }
 374 }
 375
 376 sub updatefangraph
 377 {
 378   my $type   = "fan";
 379   my $period = $_[0];
 380
 381   @args = ("$graphs/mbmon-$type-$period.png", "--start", "-1$period", "-aPNG", "-i", "-z",
 382     "--alt-y-grid", "-w 600", "-h 100", "--alt-autoscale",
 383     "--color", "SHADEA".$color{"color19"},
 384     "--color", "SHADEB".$color{"color19"},
 385     "--color", "BACK".$color{"color21"},
 386     "-t $tr{'mbmon temp'} ($tr{'graph per'} $tr{$period})" );
 387
 388   $count = 10;
 389   foreach $key ( sort(keys %mbmon_values) )
 390   {
 391     if ( (index($key, $type) != -1) && ($mbmon_settings{'LINE-'.$key} eq 'on') )
 392     {
 393       if ( !defined($mbmon_settings{'LABEL-'.$key}) || ($mbmon_settings{'LABEL-'.$key} eq '') )
 394       {
 395         $mbmon_settings{'LABEL-'.$key} = $key;
 396       }
 397
 398       push(@args, "DEF:$key=$rrdlog/mbmon.rrd:$key:AVERAGE");
 399       push(@args, "LINE2:$key$color{$count}:$mbmon_settings{'LABEL-'.$key} $tr{'mbmon fan in'} rpm");
 400       push(@args, "GPRINT:$key:MAX:$tr{'maximal'}\\:%5.0lf rpm");
 401       push(@args, "GPRINT:$key:AVERAGE:$tr{'average'}\\:%5.0lf rpm");
 402       push(@args, "GPRINT:$key:LAST:$tr{'current'}\\:%5.0lf rpm\\j");
 403
 404       $count++;
 405     }
 406   }
 407
 408   if ( $count > 1 )
 409   {
 410     RRDs::graph ( @args );
 411     $ERROR = RRDs::error;
 412     print("Error in RRD::graph for temp: $ERROR\n")if $ERROR;
 413   }
 414 }
 415
 416 sub updatevoltgraph
 417 {
 418   my $type   = "volt";
 419   my $period = $_[0];
 420
 421   @args = ("$graphs/mbmon-$type-$period.png", "--start", "-1$period", "-aPNG", "-i", "-z",
 422     "--alt-y-grid", "-w 600", "-h 100", "--alt-autoscale",
 423     "--color", "SHADEA".$color{"color19"},
 424     "--color", "SHADEB".$color{"color19"},
 425     "--color", "BACK".$color{"color21"},
 426     "-t $tr{'mbmon temp'} ($tr{'graph per'} $tr{$period})" );
 427
 428   $count = 10;
 429   foreach $key ( sort(keys %mbmon_values) )
 430   {
 431     my $v = substr($key,0,1);
 432     if ( ($v eq 'v') && ($mbmon_settings{'LINE-'.$key} eq 'on') )
 433     {
 434       if ( !defined($mbmon_settings{'LABEL-'.$key}) || ($mbmon_settings{'LABEL-'.$key} eq '') )
 435       {
 436         $mbmon_settings{'LABEL-'.$key} = $key;
 437       }
 438
 439       push(@args, "DEF:$key=$rrdlog/mbmon.rrd:$key:AVERAGE");
 440       push(@args, "LINE2:$key$color{$count}:$mbmon_settings{'LABEL-'.$key} V");
 441       push(@args, "GPRINT:$key:MAX:$tr{'maximal'}\\:%5.2lf V");
 442       push(@args, "GPRINT:$key:AVERAGE:$tr{'average'}\\:%5.2lf V");
 443       push(@args, "GPRINT:$key:LAST:$tr{'current'}\\:%5.2lf V\\j");
 444
 445       $count++;
 446     }
 447   }
 448
 449   if ( $count > 1 )
 450   {
 451     RRDs::graph ( @args );
 452     $ERROR = RRDs::error;
 453     print("Error in RRD::graph for temp: $ERROR\n")if $ERROR;
 454   }
 455 }