config/cfgroot/graphs.pl

   1 #!/usr/bin/perl
   2 # Generate Graphs exported from Makegraphs to minimize system load an only generate the Graphs when displayed
   3 ###############################################################################
   4 #                                                                             #
   5 # IPFire.org - A linux based firewall                                         #
   6 # Copyright (C) 2005-2010  IPFire Team                                        #
   7 #                                                                             #
   8 # This program is free software: you can redistribute it and/or modify        #
   9 # it under the terms of the GNU General Public License as published by        #
  10 # the Free Software Foundation, either version 3 of the License, or           #
  11 # (at your option) any later version.                                         #
  12 #                                                                             #
  13 # This program is distributed in the hope that it will be useful,             #
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  16 # GNU General Public License for more details.                                #
  17 #                                                                             #
  18 # You should have received a copy of the GNU General Public License           #
  19 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  20 #                                                                             #
  21 ###############################################################################
  22
  23 package Graphs;
  24
  25 use strict;
  26 use RRDs;
  27
  28 require '/var/ipfire/general-functions.pl';
  29 require "${General::swroot}/lang.pl";
  30 require "${General::swroot}/header.pl";
  31
  32 my $ERROR;
  33
  34 # Read the global settings files to get the current theme and after this load
  35 # colors for this theme
  36
  37 my %color = ();
  38 my %mainsettings = ();
  39 my %sensorsettings = ();
  40 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  41 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  42
  43 if ( $mainsettings{'RRDLOG'} eq "" ){
  44         $mainsettings{'RRDLOG'}="/var/log/rrd";
  45         &General::writehash("${General::swroot}/main/settings", \%mainsettings);
  46 }
  47
  48 # If the collection deamon is working and collecting lm_sensors data there will be
  49 # some data source named after a common scheme, with the sensorssettingsfile
  50 # the user is able to deactivate some of this parameters, in case not to show
  51 # false collected values may be disable. The user has the ability to enter
  52 # custom graph names in order to change temp0 to cpu or motherboard
  53
  54 my $count = 0;
  55 my @sensorsgraphs = ();
  56 my @sensorsdir = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/sensors-*/ 2>/dev/null`;
  57 foreach (@sensorsdir){
  58         chomp($_);chop($_);
  59         foreach (`ls $_/*`){
  60                 chomp($_);
  61                 push(@sensorsgraphs,$_);
  62                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
  63                 my $label = $2.$3;$label=~ s/-//g;
  64                 $sensorsettings{'LABEL-'.$label}="$label";
  65                 $sensorsettings{'LINE-'.$label}="checked";
  66         }
  67 }
  68
  69 &General::readhash("${General::swroot}/sensors/settings", \%sensorsettings);
  70
  71 # Generate a nice box for selection of time range in graphs
  72 # this will generate a nice iframe for the cgi every klick for
  73 # the graph will be handled inside the iframe
  74 # 0 is the cgi refering to
  75 # 1 is the graph name
  76 # 2 is the time range for the graph
  77 # 3 if given is the height of the iframe default if nothing is given
  78
  79 sub makegraphbox {
  80         my $height = 285;
  81         my $width = 700;
  82
  83         if ( $_[3] ne "" ){ $height = $_[3]; }
  84
  85         print "<center>";
  86         print "<a href='".$_[0]."?".$_[1]."?hour' target='".$_[1]."box'><b>".$Lang::tr{'hour'}."</b></a>";
  87         print " - ";
  88         print "<a href='".$_[0]."?".$_[1]."?day' target='".$_[1]."box'><b>".$Lang::tr{'day'}."</b></a>";
  89         print " - ";
  90         print "<a href='".$_[0]."?".$_[1]."?week' target='".$_[1]."box'><b>".$Lang::tr{'week'}."</b></a>";
  91         print " - ";
  92         print "<a href='".$_[0]."?".$_[1]."?month' target='".$_[1]."box'><b>".$Lang::tr{'month'}."</b></a>";
  93         print " - ";
  94         print "<a href='".$_[0]."?".$_[1]."?year' target='".$_[1]."box'><b>".$Lang::tr{'year'}."</b></a>";
  95         print "<br></center>";
  96         print "<iframe src='".$_[0]."?".$_[1]."?".$_[2]."' width='".$width."' height='".$height."' scrolling='no' frameborder='no' marginheight='0' name='".$_[1]."box'></iframe>";
  97 }
  98
  99 # Generate the CPU Graph for the current period of time for values given by
 100 # collectd we are now able to handle any kind of cpucount
 101
 102 sub updatecpugraph {
 103         my $cpucount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/cpu-*/ 2>/dev/null | wc -l`;
 104         my $period    = $_[0];
 105         my @command = (
 106                 "-",
 107                 "--start",
 108                 "-1".$period,
 109                 "-aPNG",
 110                 "-i",
 111                 "-z",
 112                 "-W www.ipfire.org",
 113                 "--alt-y-grid",
 114                 "-w 600",
 115                 "-h 125",
 116                 "-l 0",
 117                 "-u 100",
 118                 "-r",
 119                 "-t ".$Lang::tr{'cpu usage per'}." ".$Lang::tr{$period."-graph"},
 120                 "-v ".$Lang::tr{'percentage'},
 121                 "--color=SHADEA".$color{"color19"},
 122                 "--color=SHADEB".$color{"color19"},
 123                 "--color=BACK".$color{"color21"},
 124                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
 125                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 126                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 127                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 128                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
 129         );
 130
 131         my $nice = "CDEF:nice=";
 132         my $interrupt = "CDEF:interrupt=";
 133         my $steal = "CDEF:steal=";
 134         my $user = "CDEF:user=";
 135         my $system = "CDEF:system=";
 136         my $idle = "CDEF:idle=";
 137         my $iowait = "CDEF:iowait=";
 138         my $irq = "CDEF:irq=";
 139         my $addstring = "";
 140
 141         for(my $i = 0; $i < $cpucount; $i++) {
 142                 push(@command,"DEF:iowait".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-wait.rrd:value:AVERAGE"
 143                                 ,"DEF:nice".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-nice.rrd:value:AVERAGE"
 144                                 ,"DEF:interrupt".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-interrupt.rrd:value:AVERAGE"
 145                                 ,"DEF:steal".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-steal.rrd:value:AVERAGE"
 146                                 ,"DEF:user".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-user.rrd:value:AVERAGE"
 147                                 ,"DEF:system".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-system.rrd:value:AVERAGE"
 148                                 ,"DEF:idle".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-idle.rrd:value:AVERAGE"
 149                                 ,"DEF:irq".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-softirq.rrd:value:AVERAGE");
 150
 151                 $nice .= "nice".$i.",";
 152                 $interrupt .= "interrupt".$i.",";
 153                 $steal .= "steal".$i.",";
 154                 $user .= "user".$i.",";
 155                 $system .= "system".$i.",";
 156                 $idle .= "idle".$i.",";
 157                 $iowait .= "iowait".$i.",";
 158                 $irq .= "irq".$i.",";
 159         }
 160
 161         for(my $i = 2; $i < $cpucount; $i++) {
 162                 $addstring .= "+,";
 163         }
 164
 165         if ( $cpucount > 1){
 166                 $addstring .= "+";
 167                 push(@command,$nice.$addstring
 168                         ,$interrupt.$addstring
 169                         ,$steal.$addstring
 170                         ,$user.$addstring
 171                         ,$system.$addstring
 172                         ,$idle.$addstring
 173                         ,$iowait.$addstring
 174                         ,$irq.$addstring);
 175         }else{
 176                 chop($nice),chop($interrupt),chop($steal),chop($user),chop($system),chop($idle),chop($iowait),chop($irq);
 177                 push(@command,$nice,$interrupt,$steal,$user,$system,$idle,$iowait,$irq);
 178         }
 179
 180         push(@command,"CDEF:total=user,system,idle,iowait,irq,nice,interrupt,steal,+,+,+,+,+,+,+"
 181                         ,"CDEF:userpct=100,user,total,/,*"
 182                         ,"CDEF:nicepct=100,nice,total,/,*"
 183                         ,"CDEF:interruptpct=100,interrupt,total,/,*"
 184                         ,"CDEF:stealpct=100,steal,total,/,*"
 185                         ,"CDEF:systempct=100,system,total,/,*"
 186                         ,"CDEF:idlepct=100,idle,total,/,*"
 187                         ,"CDEF:iowaitpct=100,iowait,total,/,*"
 188                         ,"CDEF:irqpct=100,irq,total,/,*"
 189                         ,"AREA:iowaitpct".$color{"color14"}.":".sprintf("%-25s",$Lang::tr{'cpu iowait usage'})
 190                         ,"GPRINT:iowaitpct:MAX:%3.2lf%%"
 191                         ,"GPRINT:iowaitpct:AVERAGE:%3.2lf%%"
 192                         ,"GPRINT:iowaitpct:MIN:%3.2lf%%"
 193                         ,"GPRINT:iowaitpct:LAST:%3.2lf%%\\j"
 194                         ,"STACK:irqpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'cpu irq usage'})
 195                         ,"GPRINT:irqpct:MAX:%3.2lf%%"
 196                         ,"GPRINT:irqpct:AVERAGE:%3.2lf%%"
 197                         ,"GPRINT:irqpct:MIN:%3.2lf%%"
 198                         ,"GPRINT:irqpct:LAST:%3.2lf%%\\j"
 199                         ,"STACK:nicepct".$color{"color16"}."A0:".sprintf("%-25s",$Lang::tr{'cpu nice usage'})
 200                         ,"GPRINT:nicepct:MAX:%3.2lf%%"
 201                         ,"GPRINT:nicepct:AVERAGE:%3.2lf%%"
 202                         ,"GPRINT:nicepct:MIN:%3.2lf%%"
 203                         ,"GPRINT:nicepct:LAST:%3.2lf%%\\j"
 204                         ,"STACK:interruptpct".$color{"color15"}."A0:".sprintf("%-25s",$Lang::tr{'cpu interrupt usage'})
 205                         ,"GPRINT:interruptpct:MAX:%3.2lf%%"
 206                         ,"GPRINT:interruptpct:AVERAGE:%3.2lf%%"
 207                         ,"GPRINT:interruptpct:MIN:%3.2lf%%"
 208                         ,"GPRINT:interruptpct:LAST:%3.2lf%%\\j"
 209                         ,"STACK:stealpct".$color{"color18"}."A0:".sprintf("%-25s",$Lang::tr{'cpu steal usage'})
 210                         ,"GPRINT:stealpct:MAX:%3.2lf%%"
 211                         ,"GPRINT:stealpct:AVERAGE:%3.2lf%%"
 212                         ,"GPRINT:stealpct:MIN:%3.2lf%%"
 213                         ,"GPRINT:stealpct:LAST:%3.2lf%%\\j"
 214                         ,"STACK:userpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'cpu user usage'})
 215                         ,"GPRINT:userpct:MAX:%3.2lf%%"
 216                         ,"GPRINT:userpct:AVERAGE:%3.2lf%%"
 217                         ,"GPRINT:userpct:MIN:%3.2lf%%"
 218                         ,"GPRINT:userpct:LAST:%3.2lf%%\\j"
 219                         ,"STACK:systempct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cpu system usage'})
 220                         ,"GPRINT:systempct:MAX:%3.2lf%%"
 221                         ,"GPRINT:systempct:AVERAGE:%3.2lf%%"
 222                         ,"GPRINT:systempct:MIN:%3.2lf%%"
 223                         ,"GPRINT:systempct:LAST:%3.2lf%%\\j"
 224                         ,"STACK:idlepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'cpu idle usage'})
 225                         ,"GPRINT:idlepct:MAX:%3.2lf%%"
 226                         ,"GPRINT:idlepct:AVERAGE:%3.2lf%%"
 227                         ,"GPRINT:idlepct:MIN:%3.2lf%%"
 228                         ,"GPRINT:idlepct:LAST:%3.2lf%%\\j");
 229
 230         RRDs::graph (@command);
 231         $ERROR = RRDs::error;
 232         print "Error in RRD::graph for cpu: ".$ERROR."\n" if $ERROR;
 233 }
 234
 235 # Generate the Load Graph for the current period of time for values given by collecd
 236
 237 sub updateloadgraph {
 238         my $period    = $_[0];
 239         RRDs::graph(
 240                 "-",
 241                 "--start",
 242                 "-1".$period,
 243                 "-aPNG",
 244                 "-i",
 245                 "-z",
 246                 "-W www.ipfire.org",
 247                 "--alt-y-grid",
 248                 "-w 600",
 249                 "-h 125",
 250                 "-l 0",
 251                 "-r",
 252                 "-t Load Average ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 253                 "-v ".$Lang::tr{'processes'},
 254                 "--color=SHADEA".$color{"color19"},
 255                 "--color=SHADEB".$color{"color19"},
 256                 "--color=BACK".$color{"color21"},
 257                 "DEF:load1=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:shortterm:AVERAGE",
 258                 "DEF:load5=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:midterm:AVERAGE",
 259                 "DEF:load15=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:longterm:AVERAGE",
 260                 "AREA:load1".$color{"color13"}."A0:1 ".$Lang::tr{'minute'}.":",
 261                 "GPRINT:load1:LAST:%5.2lf",
 262                 "AREA:load5".$color{"color18"}."A0:5 ".$Lang::tr{'minutes'}.":",
 263                 "GPRINT:load5:LAST:%5.2lf",
 264                 "AREA:load15".$color{"color14"}."A0:15 ".$Lang::tr{'minutes'}.":",
 265                 "GPRINT:load15:LAST:%5.2lf\\j",
 266                 "LINE1:load5".$color{"color13"},
 267                 "LINE1:load1".$color{"color18"},
 268                 );
 269                 $ERROR = RRDs::error;
 270                 print "Error in RRD::graph for load: ".$ERROR."\n" if $ERROR;
 271 }
 272
 273 # Generate the Memory Graph for the current period of time for values given by collecd
 274
 275 sub updatememorygraph {
 276         my $period    = $_[0];
 277         RRDs::graph(
 278                 "-",
 279                 "--start",
 280                 "-1".$period,
 281                 "-aPNG",
 282                 "-i",
 283                 "-z",
 284                 "-W www.ipfire.org",
 285                 "--alt-y-grid",
 286                 "-w 600",
 287                 "-h 125",
 288                 "-l 0",
 289                 "-u 100",
 290                 "-r",
 291                 "-t ".$Lang::tr{'memory usage per'}." ".$Lang::tr{$period."-graph"},
 292                 "-v ".$Lang::tr{'percentage'},
 293                 "--color=SHADEA".$color{"color19"},
 294                 "--color=SHADEB".$color{"color19"},
 295                 "--color=BACK".$color{"color21"},
 296                 "DEF:used=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-used.rrd:value:AVERAGE",
 297                 "DEF:free=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-free.rrd:value:AVERAGE",
 298                 "DEF:buffer=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-buffered.rrd:value:AVERAGE",
 299                 "DEF:cache=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-cached.rrd:value:AVERAGE",
 300                 "CDEF:total=used,free,cache,buffer,+,+,+",
 301                 "CDEF:usedpct=used,total,/,100,*",
 302                 "CDEF:bufferpct=buffer,total,/,100,*",
 303                 "CDEF:cachepct=cache,total,/,100,*",
 304                 "CDEF:freepct=free,total,/,100,*",
 305                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
 306                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 307                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 308                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 309                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 310                 "AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used memory'}),
 311                 "GPRINT:usedpct:MAX:%3.2lf%%",
 312                 "GPRINT:usedpct:AVERAGE:%3.2lf%%",
 313                 "GPRINT:usedpct:MIN:%3.2lf%%",
 314                 "GPRINT:usedpct:LAST:%3.2lf%%\\j",
 315                 "STACK:bufferpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'buffered memory'}),
 316                 "GPRINT:bufferpct:MAX:%3.2lf%%",
 317                 "GPRINT:bufferpct:AVERAGE:%3.2lf%%",
 318                 "GPRINT:bufferpct:MIN:%3.2lf%%",
 319                 "GPRINT:bufferpct:LAST:%3.2lf%%\\j",
 320                 "STACK:cachepct".$color{"color14"}."A0:".sprintf("%-25s",$Lang::tr{'cached memory'}),
 321                 "GPRINT:cachepct:MAX:%3.2lf%%",
 322                 "GPRINT:cachepct:AVERAGE:%3.2lf%%",
 323                 "GPRINT:cachepct:MIN:%3.2lf%%",
 324                 "GPRINT:cachepct:LAST:%3.2lf%%\\j",
 325                 "STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free memory'}),
 326                 "GPRINT:freepct:MAX:%3.2lf%%",
 327                 "GPRINT:freepct:AVERAGE:%3.2lf%%",
 328                 "GPRINT:freepct:MIN:%3.2lf%%",
 329                 "GPRINT:freepct:LAST:%3.2lf%%\\j",
 330                 );
 331                 $ERROR = RRDs::error;
 332                 print "Error in RRD::graph for memory: ".$ERROR."\n" if $ERROR;
 333 }
 334
 335 # Generate the Swap Graph for the current period of time for values given by collecd
 336
 337 sub updateswapgraph {
 338         my $period    = $_[0];
 339         RRDs::graph(
 340                 "-",
 341                 "--start",
 342                 "-1".$period,
 343                 "-aPNG",
 344                 "-i",
 345                 "-z",
 346                 "-W www.ipfire.org",
 347                 "--alt-y-grid",
 348                 "-w 600",
 349                 "-h 125",
 350                 "-l 0",
 351                 "-u 100",
 352                 "-r",
 353                 "-t ".$Lang::tr{'swap usage per'}." ".$Lang::tr{$period."-graph"},
 354                 "-v ".$Lang::tr{'percentage'},
 355                 "--color=SHADEA".$color{"color19"},
 356                 "--color=SHADEB".$color{"color19"},
 357                 "--color=BACK".$color{"color21"},
 358                 "DEF:free=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-free.rrd:value:AVERAGE",
 359                 "DEF:used=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-used.rrd:value:AVERAGE",
 360                 "DEF:cached=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-cached.rrd:value:AVERAGE",
 361                 "CDEF:total=used,free,cached,+,+",
 362                 "CDEF:usedpct=100,used,total,/,*",
 363                 "CDEF:freepct=100,free,total,/,*",
 364                 "CDEF:cachedpct=100,cached,total,/,*",
 365                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
 366                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 367                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 368                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 369                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 370                 "AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used swap'}),
 371                 "GPRINT:usedpct:MAX:%3.2lf%%",
 372                 "GPRINT:usedpct:AVERAGE:%3.2lf%%",
 373                 "GPRINT:usedpct:MIN:%3.2lf%%",
 374                 "GPRINT:usedpct:LAST:%3.2lf%%\\j",
 375                 "STACK:cachedpct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cached swap'}),
 376                 "GPRINT:cachedpct:MAX:%3.2lf%%",
 377                 "GPRINT:cachedpct:AVERAGE:%3.2lf%%",
 378                 "GPRINT:cachedpct:MIN:%3.2lf%%",
 379                 "GPRINT:cachedpct:LAST:%3.2lf%%\\j",
 380                 "STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free swap'}),
 381                 "GPRINT:freepct:MAX:%3.2lf%%",
 382                 "GPRINT:freepct:AVERAGE:%3.2lf%%",
 383                 "GPRINT:freepct:MIN:%3.2lf%%",
 384                 "GPRINT:freepct:LAST:%3.2lf%%\\j",
 385                 );
 386                 $ERROR = RRDs::error;
 387                 print "Error in RRD::graph for memory: ".$ERROR."\n" if $ERROR;
 388 }
 389
 390 # Generate the Process Cpu Graph for the current period of time for values given by collecd
 391
 392 sub updateprocessescpugraph {
 393         my @processesgraph = getprocesses();
 394         my $period    = $_[0];
 395         my $count="0";
 396
 397         my @command = (
 398                 "-",
 399                 "--start",
 400                 "-1".$period,
 401                 "-aPNG",
 402                 "-i",
 403                 "-z",
 404                 "-W www.ipfire.org",
 405                 "--alt-y-grid",
 406                 "-w 600",
 407                 "-h 125",
 408                 "-l 0",
 409                 "-r",
 410                 "-t ".$Lang::tr{'processes'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 411                 "--color=SHADEA".$color{"color19"},
 412                 "--color=SHADEB".$color{"color19"},
 413                 "--color=BACK".$color{"color21"}
 414         );
 415
 416                 foreach(@processesgraph){
 417                         chomp($_);my @name=split(/\-/,$_);chop($name[1]);
 418                         push(@command,"DEF:".$name[1]."user=".$_."ps_cputime.rrd:user:AVERAGE");
 419                         push(@command,"DEF:".$name[1]."system=".$_."ps_cputime.rrd:syst:AVERAGE");
 420                         push(@command,"CDEF:".$name[1]."=".$name[1]."user,".$name[1]."system,+");
 421                 }
 422
 423                 push(@command,"COMMENT:".$Lang::tr{'caption'}."\\j");
 424
 425                 my $colorIndex = 0;
 426                 foreach(@processesgraph){
 427                         my $colorIndex = 10 + $count % 15;
 428                         my $color="$color{\"color$colorIndex\"}";
 429                         chomp($_);my @name=split(/\-/,$_);chop($name[1]);
 430                         if ($count eq "0"){
 431                                 push(@command,"AREA:".$name[1].$color."A0:".$name[1]);
 432                         }else{
 433                                 push(@command,"STACK:".$name[1].$color."A0:".$name[1]);
 434                         }
 435                         $count++;
 436                 }
 437
 438                 RRDs::graph (@command);
 439                 $ERROR = RRDs::error;
 440                 print "Error in RRD::graph for processes: ".$ERROR."\n" if $ERROR;
 441 }
 442
 443 # Generate the Process Memory Graph for the current period of time for values given by collecd
 444
 445 sub updateprocessesmemorygraph {
 446         my @processesgraph = getprocesses();
 447         my $period    = $_[0];
 448         my $count="0";
 449
 450         my @command = (
 451                 "-",
 452                 "--start",
 453                 "-1".$period,
 454                 "-aPNG",
 455                 "-i",
 456                 "-z",
 457                 "-W www.ipfire.org",
 458                 "--alt-y-grid",
 459                 "-w 600",
 460                 "-h 125",
 461                 "-l 0",
 462                 "-r",
 463                 "-t ".$Lang::tr{'processes'}." ".$Lang::tr{'memory'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 464                 "-v ".$Lang::tr{'bytes'},
 465                 "--color=SHADEA".$color{"color19"},
 466                 "--color=SHADEB".$color{"color19"},
 467                 "--color=BACK".$color{"color21"}
 468         );
 469
 470                 foreach(@processesgraph){
 471                         chomp($_);my @name=split(/\-/,$_);chop($name[1]);
 472                         push(@command,"DEF:".$name[1]."=".$_."ps_rss.rrd:value:AVERAGE");
 473                 }
 474
 475                 push(@command,"COMMENT:".$Lang::tr{'caption'}."\\j");
 476
 477                 my $colorIndex = 0;
 478                 foreach(@processesgraph){
 479                         chomp($_);my @name=split(/\-/,$_);chop($name[1]);
 480                         my $colorIndex = 10 + $count % 15;
 481                         my $color="$color{\"color$colorIndex\"}";
 482                         if ($count eq "0"){
 483                                 push(@command,"AREA:".$name[1].$color."A0:".$name[1]);
 484                         }else{
 485                                 push(@command,"STACK:".$name[1].$color."A0:".$name[1]);
 486                         }
 487                         $count++;
 488                 }
 489
 490                 RRDs::graph (@command);
 491                 $ERROR = RRDs::error;
 492                 print "Error in RRD::graph for processesmemory: ".$ERROR."\n" if $ERROR;
 493 }
 494
 495 # Generate the Disk Graph for the current period of time for values given by collecd
 496
 497 sub updatediskgraph {
 498         my $disk    = $_[0];
 499         my $period    = $_[1];
 500         RRDs::graph(
 501                 "-",
 502                 "--start",
 503                 "-1".$period,
 504                 "-aPNG",
 505                 "-i",
 506                 "-z",
 507                 "-W www.ipfire.org",
 508                 "--alt-y-grid",
 509                 "-w 600",
 510                 "-h 125",
 511                 "-r",
 512                 "-t ".$disk." ".$Lang::tr{'disk access per'}." ".$Lang::tr{$period."-graph"},
 513                 "-v ".$Lang::tr{'bytes per second'},
 514                 "--color=SHADEA".$color{"color19"},
 515                 "--color=SHADEB".$color{"color19"},
 516                 "--color=BACK".$color{"color21"},
 517                 "DEF:read=".$mainsettings{'RRDLOG'}."/collectd/localhost/disk-$disk/disk_octets.rrd:read:AVERAGE",
 518                 "DEF:write=".$mainsettings{'RRDLOG'}."/collectd/localhost/disk-$disk/disk_octets.rrd:write:AVERAGE",
 519                 "CDEF:writen=write,-1,*",
 520                 "DEF:standby=".$mainsettings{'RRDLOG'}."/hddshutdown-".$disk.".rrd:standby:AVERAGE",
 521                 "CDEF:st=standby,INF,*",
 522                 "CDEF:st1=standby,-INF,*",
 523                 "COMMENT:".sprintf("%-25s",$Lang::tr{'caption'}),
 524                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 525                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 526                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 527                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 528                 "AREA:st".$color{"color20"}."A0:",
 529                 "AREA:st1".$color{"color20"}."A0:standby\\j",
 530                 "AREA:read".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'read bytes'}),
 531                 "GPRINT:read:MAX:%8.1lf %sBps",
 532                 "GPRINT:read:AVERAGE:%8.1lf %sBps",
 533                 "GPRINT:read:MIN:%8.1lf %sBps",
 534                 "GPRINT:read:LAST:%8.1lf %sBps\\j",
 535                 "AREA:writen".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'written bytes'}),
 536                 "GPRINT:write:MAX:%8.1lf %sBps",
 537                 "GPRINT:write:AVERAGE:%8.1lf %sBps",
 538                 "GPRINT:write:MIN:%8.1lf %sBps",
 539                 "GPRINT:write:LAST:%8.1lf %sBps\\j",
 540                 );
 541                 $ERROR = RRDs::error;
 542                 print "Error in RRD::graph for ".$disk.": ".$ERROR."\n" if $ERROR;
 543 }
 544
 545 # Generate the Interface Graph for the current period of time for values given by collecd
 546
 547 sub updateifgraph {
 548         my $interface = $_[0];
 549         my $period    = $_[1];
 550         RRDs::graph(
 551                 "-",
 552                 "--start",
 553                 "-1".$period,
 554                 "-aPNG",
 555                 "-i",
 556                 "-z",
 557                 "-W www.ipfire.org",
 558                 "--alt-y-grid",
 559                 "-w 600",
 560                 "-h 125",
 561                 "-r",
 562                 "-t ".$Lang::tr{'traffic on'}." ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 563                 "-v ".$Lang::tr{'bytes per second'},
 564                 "--color=SHADEA".$color{"color19"},
 565                 "--color=SHADEB".$color{"color19"},
 566                 "--color=BACK".$color{"color21"},
 567                 "DEF:incoming=".$mainsettings{'RRDLOG'}."/collectd/localhost/interface/if_octets-".$interface.".rrd:rx:AVERAGE",
 568                 "DEF:outgoing=".$mainsettings{'RRDLOG'}."/collectd/localhost/interface/if_octets-".$interface.".rrd:tx:AVERAGE",
 569                 "CDEF:outgoingn=outgoing,-1,*",
 570                 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
 571                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 572                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 573                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 574                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 575                 "AREA:incoming".$color{"color12"}."A0:".sprintf("%-20s",$Lang::tr{'incoming traffic in bytes per second'}),
 576                 "GPRINT:incoming:MAX:%8.1lf %sBps",
 577                 "GPRINT:incoming:AVERAGE:%8.1lf %sBps",
 578                 "GPRINT:incoming:MIN:%8.1lf %sBps",
 579                 "GPRINT:incoming:LAST:%8.1lf %sBps\\j",
 580                 "AREA:outgoingn".$color{"color13"}."A0:".sprintf("%-20s",$Lang::tr{'outgoing traffic in bytes per second'}),
 581                 "GPRINT:outgoing:MAX:%8.1lf %sBps",
 582                 "GPRINT:outgoing:AVERAGE:%8.1lf %sBps",
 583                 "GPRINT:outgoing:MIN:%8.1lf %sBps",
 584                 "GPRINT:outgoing:LAST:%8.1lf %sBps\\j",
 585                 );
 586                 $ERROR = RRDs::error;
 587                 print "Error in RRD::graph for ".$interface.": ".$ERROR."\n" if $ERROR;
 588 }
 589
 590 sub updatevpngraph {
 591         my $interface = $_[0];
 592         my $period    = $_[1];
 593         RRDs::graph(
 594                 "-",
 595                 "--start",
 596                 "-1".$period,
 597                 "-aPNG",
 598                 "-i",
 599                 "-z",
 600                 "-W www.ipfire.org",
 601                 "--alt-y-grid",
 602                 "-w 600",
 603                 "-h 125",
 604                 "-r",
 605                 "-t ".$Lang::tr{'traffic on'}." ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 606                 "-v ".$Lang::tr{'bytes per second'},
 607                 "--color=SHADEA".$color{"color19"},
 608                 "--color=SHADEB".$color{"color19"},
 609                 "--color=BACK".$color{"color21"},
 610                 "DEF:incoming=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive.rrd:rx:AVERAGE",
 611                 "DEF:outgoing=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive.rrd:tx:AVERAGE",
 612                 "CDEF:outgoingn=outgoing,-1,*",
 613                 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
 614                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 615                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 616                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 617                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 618                 "AREA:incoming#00dd00:".sprintf("%-20s",$Lang::tr{'incoming traffic in bytes per second'}),
 619                 "GPRINT:incoming:MAX:%8.1lf %sBps",
 620                 "GPRINT:incoming:AVERAGE:%8.1lf %sBps",
 621                 "GPRINT:incoming:MIN:%8.1lf %sBps",
 622                 "GPRINT:incoming:LAST:%8.1lf %sBps\\j",
 623                 "AREA:outgoingn#dd0000:".sprintf("%-20s",$Lang::tr{'outgoing traffic in bytes per second'}),
 624                 "GPRINT:outgoing:MAX:%8.1lf %sBps",
 625                 "GPRINT:outgoing:AVERAGE:%8.1lf %sBps",
 626                 "GPRINT:outgoing:MIN:%8.1lf %sBps",
 627                 "GPRINT:outgoing:LAST:%8.1lf %sBps\\j",
 628                 );
 629                 $ERROR = RRDs::error;
 630                 print "Error in RRD::graph for ".$interface.": ".$ERROR."\n" if $ERROR;
 631 }
 632
 633 sub updatevpnn2ngraph {
 634         my $interface = $_[0];
 635         my $period    = $_[1];
 636         RRDs::graph(
 637                 "-",
 638                 "--start",
 639                 "-1".$period,
 640                 "-aPNG",
 641                 "-i",
 642                 "-z",
 643                 "-W www.ipfire.org",
 644                 "--alt-y-grid",
 645                 "-w 600",
 646                 "-h 125",
 647                 "-r",
 648                 "-t ".$Lang::tr{'traffic on'}." ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 649                 "-v ".$Lang::tr{'bytes per second'},
 650                 "--color=SHADEA".$color{"color19"},
 651                 "--color=SHADEB".$color{"color19"},
 652                 "--color=BACK".$color{"color21"},
 653                 "DEF:incoming=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive-traffic.rrd:rx:AVERAGE",
 654                 "DEF:outgoing=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive-traffic.rrd:tx:AVERAGE",
 655                 "DEF:overhead_in=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive-overhead.rrd:rx:AVERAGE",
 656                 "DEF:overhead_out=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/if_octets_derive-overhead.rrd:tx:AVERAGE",
 657                 "DEF:compression_in=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/compression_derive-data_in.rrd:uncompressed:AVERAGE",
 658                 "DEF:compression_out=".$mainsettings{'RRDLOG'}."/collectd/localhost/openvpn-$interface/compression_derive-data_out.rrd:uncompressed:AVERAGE",
 659                 "CDEF:outgoingn=outgoing,-1,*",
 660                 "CDEF:overhead_outn=overhead_out,-1,*",
 661                 "CDEF:compression_outn=compression_out,-1,*",
 662                 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
 663                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 664                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 665                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 666                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 667                 "AREA:incoming#00dd00:".sprintf("%-20s",$Lang::tr{'incoming traffic in bytes per second'}),
 668                 "GPRINT:incoming:MAX:%8.1lf %sBps",
 669                 "GPRINT:incoming:AVERAGE:%8.1lf %sBps",
 670                 "GPRINT:incoming:MIN:%8.1lf %sBps",
 671                 "GPRINT:incoming:LAST:%8.1lf %sBps\\j",
 672                 "STACK:overhead_in#116B11:".sprintf("%-20s",$Lang::tr{'incoming overhead in bytes per second'}),
 673                 "GPRINT:overhead_in:MAX:%8.1lf %sBps",
 674                 "GPRINT:overhead_in:AVERAGE:%8.1lf %sBps",
 675                 "GPRINT:overhead_in:MIN:%8.1lf %sBps",
 676                 "GPRINT:overhead_in:LAST:%8.1lf %sBps\\j",
 677                 "LINE1:compression_in#ff00ff:".sprintf("%-20s",$Lang::tr{'incoming compression in bytes per second'}),
 678                 "GPRINT:compression_in:MAX:%8.1lf %sBps",
 679                 "GPRINT:compression_in:AVERAGE:%8.1lf %sBps",
 680                 "GPRINT:compression_in:MIN:%8.1lf %sBps",
 681                 "GPRINT:compression_in:LAST:%8.1lf %sBps\\j",
 682                 "AREA:outgoingn#dd0000:".sprintf("%-20s",$Lang::tr{'outgoing traffic in bytes per second'}),
 683                 "GPRINT:outgoing:MAX:%8.1lf %sBps",
 684                 "GPRINT:outgoing:AVERAGE:%8.1lf %sBps",
 685                 "GPRINT:outgoing:MIN:%8.1lf %sBps",
 686                 "GPRINT:outgoing:LAST:%8.1lf %sBps\\j",
 687                 "STACK:overhead_outn#870C0C:".sprintf("%-20s",$Lang::tr{'outgoing overhead in bytes per second'}),
 688                 "GPRINT:overhead_out:MAX:%8.1lf %sBps",
 689                 "GPRINT:overhead_out:AVERAGE:%8.1lf %sBps",
 690                 "GPRINT:overhead_out:MIN:%8.1lf %sBps",
 691                 "GPRINT:overhead_out:LAST:%8.1lf %sBps\\j",
 692                 "LINE1:compression_outn#000000:".sprintf("%-20s",$Lang::tr{'outgoing compression in bytes per second'}),
 693                 "GPRINT:compression_out:MAX:%8.1lf %sBps",
 694                 "GPRINT:compression_out:AVERAGE:%8.1lf %sBps",
 695                 "GPRINT:compression_out:MIN:%8.1lf %sBps",
 696                 "GPRINT:compression_out:LAST:%8.1lf %sBps\\j",
 697                 );
 698                 $ERROR = RRDs::error;
 699                 print "Error in RRD::graph for ".$interface.": ".$ERROR."\n" if $ERROR;
 700 }
 701
 702 # Generate the Firewall Graph for the current period of time for values given by collecd
 703
 704 sub updatefwhitsgraph {
 705         my $period    = $_[0];
 706         RRDs::graph(
 707                 "-",
 708                 "--start",
 709                 "-1".$period,
 710                 "-aPNG",
 711                 "-i",
 712                 "-z",
 713                 "-W www.ipfire.org",
 714                 "--alt-y-grid",
 715                 "-w 600",
 716                 "-h 125",
 717                 "-r",
 718                 "-t ".$Lang::tr{'firewall hits per'}." ".$Lang::tr{$period."-graph"},
 719                 "-v ".$Lang::tr{'bytes per second'},
 720                 "--color=SHADEA".$color{"color19"},
 721                 "--color=SHADEB".$color{"color19"},
 722                 "--color=BACK".$color{"color21"},
 723                 "DEF:output=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYOUT/ipt_bytes-DROP_OUTPUT.rrd:value:AVERAGE",
 724                 "DEF:input=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYIN/ipt_bytes-DROP_INPUT.rrd:value:AVERAGE",
 725                 "DEF:forward=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYFWD/ipt_bytes-DROP_FORWARD.rrd:value:AVERAGE",
 726                 "DEF:newnotsyn=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-NEWNOTSYN/ipt_bytes-DROP_NEWNOTSYN.rrd:value:AVERAGE",
 727                 "DEF:portscan=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-PSCAN/ipt_bytes-DROP_PScan.rrd:value:AVERAGE",
 728                 "COMMENT:".sprintf("%-26s",$Lang::tr{'caption'}),
 729                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 730                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 731                 "COMMENT:".sprintf("%14s",$Lang::tr{'minimal'}),
 732                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 733                 "AREA:output".$color{"color25"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-OUTPUT"),
 734                 "GPRINT:output:MAX:%8.1lf %sBps",
 735                 "GPRINT:output:AVERAGE:%8.1lf %sBps",
 736                 "GPRINT:output:MIN:%8.1lf %sBps",
 737                 "GPRINT:output:LAST:%8.1lf %sBps\\j",
 738                 "STACK:forward".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-FORWARD"),
 739                 "GPRINT:forward:MAX:%8.1lf %sBps",
 740                 "GPRINT:forward:AVERAGE:%8.1lf %sBps",
 741                 "GPRINT:forward:MIN:%8.1lf %sBps",
 742                 "GPRINT:forward:LAST:%8.1lf %sBps\\j",
 743                 "STACK:input".$color{"color24"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-INPUT"),
 744                 "GPRINT:input:MAX:%8.1lf %sBps",
 745                 "GPRINT:input:AVERAGE:%8.1lf %sBps",
 746                 "GPRINT:input:MIN:%8.1lf %sBps",
 747                 "GPRINT:input:LAST:%8.1lf %sBps\\j",
 748                 "STACK:newnotsyn".$color{"color14"}."A0:".sprintf("%-25s","NewNotSyn"),
 749                 "GPRINT:newnotsyn:MAX:%8.1lf %sBps",
 750                 "GPRINT:newnotsyn:MIN:%8.1lf %sBps",
 751                 "GPRINT:newnotsyn:AVERAGE:%8.1lf %sBps",
 752                 "GPRINT:newnotsyn:LAST:%8.1lf %sBps\\j",
 753                 "STACK:portscan".$color{"color16"}."A0:".sprintf("%-25s",$Lang::tr{'portscans'}),
 754                 "GPRINT:portscan:MAX:%8.1lf %sBps",
 755                 "GPRINT:portscan:MIN:%8.1lf %sBps",
 756                 "GPRINT:portscan:AVERAGE:%8.1lf %sBps",
 757                 "GPRINT:portscan:LAST:%8.1lf %sBps\\j",
 758                 );
 759                 $ERROR = RRDs::error;
 760                 print "Error in RRD::graph for firewallhits: ".$ERROR."\n" if $ERROR;
 761 }
 762
 763 # Generate the Line Quality Graph for the current period of time for values given by collecd
 764
 765 sub updatepinggraph {
 766         my $period    = $_[1];
 767         my $host    = $_[0];
 768         RRDs::graph(
 769                 "-",
 770                 "--start",
 771                 "-1".$period,
 772                 "-aPNG",
 773                 "-i",
 774                 "-z",
 775                 "-W www.ipfire.org",
 776                 "--alt-y-grid",
 777                 "-w 600",
 778                 "-h 125",
 779                 "-l 0",
 780                 "-r",
 781                 "-t ".$Lang::tr{'linkq'}." ".$host." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 782                 "-v ms",
 783                 "--color=SHADEA".$color{"color19"},
 784                 "--color=SHADEB".$color{"color19"},
 785                 "--color=BACK".$color{"color21"},
 786                 "DEF:roundtrip=".$mainsettings{'RRDLOG'}."/collectd/localhost/ping/ping-".$host.".rrd:ping:AVERAGE",
 787                 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'})."\\j",
 788                 "CDEF:roundavg=roundtrip,PREV(roundtrip),+,2,/",
 789                 "CDEF:r0=roundtrip,30,MIN",
 790                 "CDEF:r1=roundtrip,70,MIN",
 791                 "CDEF:r2=roundtrip,150,MIN",
 792                 "CDEF:r3=roundtrip,300,MIN",
 793                 "AREA:roundtrip".$color{"color25"}."A0:>300 ms",
 794                 "AREA:r3".$color{"color18"}."A0:150-300 ms",
 795                 "AREA:r2".$color{"color14"}."A0:70-150 ms",
 796                 "AREA:r1".$color{"color17"}."A0:30-70 ms",
 797                 "AREA:r0".$color{"color12"}."A0:<30 ms\\j",
 798                 "COMMENT:$Lang::tr{'maximal'}",
 799                 "COMMENT:$Lang::tr{'average'}",
 800                 "COMMENT:$Lang::tr{'minimal'}","COMMENT:$Lang::tr{'current'}\\j",
 801                 "LINE1:roundtrip#707070:",
 802                 "GPRINT:roundtrip:MAX:%3.2lf ms",
 803                 "GPRINT:roundtrip:AVERAGE:%3.2lf ms",
 804                 "GPRINT:roundtrip:MIN:%3.2lf ms",
 805                 "GPRINT:roundtrip:LAST:%3.2lf ms\\j",
 806                 );
 807                 $ERROR = RRDs::error;
 808                 print "Error in RRD::graph for link quality: ".$ERROR."\n" if $ERROR;
 809 }
 810
 811 sub updatewirelessgraph {
 812         my $period    = $_[1];
 813         my $interface    = $_[0];
 814         RRDs::graph(
 815                 "-",
 816                 "--start",
 817                 "-1".$period,
 818                 "-aPNG",
 819                 "-i",
 820                 "-z",
 821                 "-W www.ipfire.org",
 822                 "--alt-y-grid",
 823                 "-w 600",
 824                 "-h 125",
 825                 "-t Wireless ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 826                 "-v dBm",
 827                 "--color=SHADEA".$color{"color19"},
 828                 "--color=SHADEB".$color{"color19"},
 829                 "--color=BACK".$color{"color21"},
 830                 "DEF:noise=".$mainsettings{'RRDLOG'}."/collectd/localhost/wireless-".$interface."/signal_noise.rrd:value:AVERAGE",
 831                 "DEF:power=".$mainsettings{'RRDLOG'}."/collectd/localhost/wireless-".$interface."/signal_power.rrd:value:AVERAGE",
 832                 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
 833                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 834                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 835                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 836                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
 837                 "LINE1:noise".$color{"color11"}."A0:".sprintf("%-20s","Signal Noise Ratio"),
 838                 "GPRINT:noise:MAX:%5.1lf %sdBm",
 839                 "GPRINT:noise:AVERAGE:%5.1lf %sdBm",
 840                 "GPRINT:noise:MIN:%5.1lf %sdBm",
 841                 "GPRINT:noise:LAST:%5.1lf %sdBm\\j",
 842                 "LINE1:power".$color{"color12"}."A0:".sprintf("%-20s","Signal Power Ratio"),
 843                 "GPRINT:power:MAX:%5.1lf %sdBm",
 844                 "GPRINT:power:AVERAGE:%5.1lf %sdBm",
 845                 "GPRINT:power:MIN:%5.1lf %sdBm",
 846                 "GPRINT:power:LAST:%5.1lf %sdBm\\j",
 847                 );
 848                 $ERROR = RRDs::error;
 849                 print "Error in RRD::graph for wireless: ".$ERROR."\n" if $ERROR;
 850 }
 851
 852 # Generate the HDD Temp Graph for the current period of time for values given by collecd and lm_sensors
 853
 854 sub updatehddgraph {
 855         my $disk = $_[0];
 856         my $period = $_[1];
 857         RRDs::graph(
 858                 "-",
 859                 "--start",
 860                 "-1".$period,
 861                 "-aPNG",
 862                 "-i",
 863                 "-z",
 864                 "-W www.ipfire.org",
 865                 "--alt-y-grid",
 866                 "-w 600",
 867                 "-h 125",
 868                 "-r",
 869                 "-t ".$disk." ".$Lang::tr{'harddisk temperature'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 870                 "-v Celsius",
 871                 "--color=SHADEA".$color{"color19"},
 872                 "--color=SHADEB".$color{"color19"},
 873                 "--color=BACK".$color{"color21"},
 874                 "DEF:temperature=".$mainsettings{'RRDLOG'}."/hddtemp-$disk.rrd:temperature:AVERAGE",
 875                 "DEF:standby=".$mainsettings{'RRDLOG'}."/hddshutdown-$disk.rrd:standby:AVERAGE",
 876                 "CDEF:st=standby,INF,*",
 877                 "AREA:st".$color{"color20"}."A0:standby",
 878                 "LINE3:temperature".$color{"color11"}."A0:$Lang::tr{'hdd temperature in'} C\\j",
 879                 "COMMENT:$Lang::tr{'maximal'}",
 880                 "COMMENT:$Lang::tr{'average'}",
 881                 "COMMENT:$Lang::tr{'minimal'}",
 882                 "COMMENT:$Lang::tr{'current'}\\j",
 883                 "GPRINT:temperature:MAX:%3.0lf Grad C",
 884                 "GPRINT:temperature:AVERAGE:%3.0lf Grad C",
 885                 "GPRINT:temperature:MIN:%3.0lf Grad C",
 886                 "GPRINT:temperature:LAST:%3.0lf Grad C\\j",
 887                 );
 888                 $ERROR = RRDs::error;
 889                 print "Error in RRD::graph for hdd-".$disk.": ".$ERROR."\n" if $ERROR;
 890 }
 891
 892 # Generate the Temp Graph for the current period of time for values given by collecd and lm_sensors
 893
 894 sub updatehwtempgraph {
 895         my $period = $_[0];
 896
 897         my @command = (
 898                 "-",
 899                 "--start",
 900                 "-1".$period,
 901                 "-aPNG",
 902                 "-i",
 903                 "-z",
 904                 "-W www.ipfire.org",
 905                 "--alt-y-grid",
 906                 "-w 600",
 907                 "-h 125",
 908                 "-r",
 909                 "-t ".$Lang::tr{'mbmon temp'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 910                 "--color=SHADEA".$color{"color19"},
 911                 "--color=SHADEB".$color{"color19"},
 912                 "--color=BACK".$color{"color21"},
 913                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
 914                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 915                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 916                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 917                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
 918         );
 919
 920                 foreach(@sensorsgraphs){
 921                         chomp($_);
 922                         if ( $_ =~ /temperature/ ) {
 923                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
 924                                 my $label = $2.$3;$label=~ s/-//g;
 925                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
 926                                 push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
 927                         }
 928                 }
 929
 930                 foreach(@sensorsgraphs){
 931                         chomp($_);
 932                         if ( $_ =~ /temperature/ ){
 933                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
 934                                 my $label = $2.$3;$label=~ s/-//g;
 935                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
 936                                 push(@command,"LINE3:".$sensorsettings{'LABEL-'.$label}.random_hex_color(6)."A0:".sprintf("%-25s",$sensorsettings{'LABEL-'.$label}),"GPRINT:".$sensorsettings{'LABEL-'.$label}.":MAX:%3.2lf C","GPRINT:".$sensorsettings{'LABEL-'.$label}.":AVERAGE:%3.2lf C","GPRINT:".$sensorsettings{'LABEL-'.$label}.":MIN:%3.2lf C","GPRINT:".$sensorsettings{'LABEL-'.$label}.":LAST:%3.2lf C\\j",);
 937                         }
 938                 }
 939
 940                 RRDs::graph (@command);
 941                 $ERROR = RRDs::error;
 942                 print "Error in RRD::graph for HDD Temp: ".$ERROR."\n" if $ERROR;
 943 }
 944
 945 # Generate the Fan Graph for the current period of time for values given by collecd and lm_sensors
 946
 947 sub updatehwfangraph {
 948         my $period = $_[0];
 949
 950         my @command = (
 951                 "-",
 952                 "--start",
 953                 "-1".$period,
 954                 "-aPNG",
 955                 "-i",
 956                 "-z",
 957                 "-W www.ipfire.org",
 958                 "--alt-y-grid",
 959                 "-w 600",
 960                 "-h 125",
 961                 "-r",
 962                 "-t ".$Lang::tr{'mbmon fan'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
 963                 "--color=SHADEA".$color{"color19"},
 964                 "--color=SHADEB".$color{"color19"},
 965                 "--color=BACK".$color{"color21"},
 966                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
 967                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
 968                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
 969                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
 970                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
 971         );
 972
 973                 foreach(@sensorsgraphs){
 974                         chomp($_);
 975                         if ( $_ =~ /fanspeed/ ) {
 976                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
 977                                 my $label = $2.$3;$label=~ s/-//g;
 978                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
 979                                 push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
 980                         }
 981                 }
 982
 983                 foreach(@sensorsgraphs){
 984                         chomp($_);
 985                         if ( $_ =~ /fanspeed/ ){
 986                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
 987                                 my $label = $2.$3;$label=~ s/-//g;
 988                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
 989                                 push(@command,"LINE3:".$sensorsettings{'LABEL-'.$label}.random_hex_color(6)."A0:".sprintf("%-25s",$sensorsettings{'LABEL-'.$label}),"GPRINT:".$sensorsettings{'LABEL-'.$label}.":MAX:%3.2lf RPM","GPRINT:".$sensorsettings{'LABEL-'.$label}.":AVERAGE:%3.2lf RPM","GPRINT:".$sensorsettings{'LABEL-'.$label}.":MIN:%3.2lf RPM","GPRINT:".$sensorsettings{'LABEL-'.$label}.":LAST:%3.2lf RPM\\j",);
 990                         }
 991                 }
 992
 993                 RRDs::graph (@command);
 994                 $ERROR = RRDs::error;
 995                 print "Error in RRD::graph for Fan Speed: ".$ERROR."\n" if $ERROR;
 996 }
 997
 998 # Generate the Voltage Graph for the current period of time for values given by collecd and lm_sensors
 999
1000 sub updatehwvoltgraph {
1001         my $period = $_[0];
1002
1003         my @command = (
1004                 "-",
1005                 "--start",
1006                 "-1".$period,
1007                 "-aPNG",
1008                 "-i",
1009                 "-z",
1010                 "-W www.ipfire.org",
1011                 "--alt-y-grid",
1012                 "-w 600",
1013                 "-h 125",
1014                 "-r",
1015                 "-t ".$Lang::tr{'mbmon volt'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
1016                 "--color=SHADEA".$color{"color19"},
1017                 "--color=SHADEB".$color{"color19"},
1018                 "--color=BACK".$color{"color21"},
1019                 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
1020                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
1021                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
1022                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
1023                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
1024         );
1025
1026                 foreach(@sensorsgraphs){
1027                         chomp($_);
1028                         if ( $_ =~ /voltage/ ) {
1029                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
1030                                 my $label = $2.$3;$label=~ s/-//g;
1031                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
1032                                 push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
1033                         }
1034                 }
1035
1036                 foreach(@sensorsgraphs){
1037                         chomp($_);
1038                         if ( $_ =~ /voltage/ ){
1039                                 $_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
1040                                 my $label = $2.$3;$label=~ s/-//g;
1041                                 if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
1042                                 push(@command,"LINE3:".$sensorsettings{'LABEL-'.$label}.random_hex_color(6)."A0:".sprintf("%-25s",$sensorsettings{'LABEL-'.$label}),"GPRINT:".$sensorsettings{'LABEL-'.$label}.":MAX:%3.2lf V","GPRINT:".$sensorsettings{'LABEL-'.$label}.":AVERAGE:%3.2lf V","GPRINT:".$sensorsettings{'LABEL-'.$label}.":MIN:%3.2lf V","GPRINT:".$sensorsettings{'LABEL-'.$label}.":LAST:%3.2lf V\\j",);
1043                         }
1044                 }
1045
1046                 RRDs::graph (@command);
1047                 $ERROR = RRDs::error;
1048                 print "Error in RRD::graph for Voltage: ".$ERROR."\n" if $ERROR;
1049 }
1050
1051
1052 # Generate the QoS Graph for the current period of time
1053
1054 sub updateqosgraph {
1055
1056         my $period = $_[1];
1057         my %qossettings = ();
1058         &General::readhash("${General::swroot}/qos/settings", \%qossettings);
1059
1060         my $classentry = "";
1061         my @classes = ();
1062         my @classline = ();
1063         my $classfile = "/var/ipfire/qos/classes";
1064
1065         $qossettings{'DEV'} = $_[0];
1066         if ( $qossettings{'DEV'} eq $qossettings{'RED_DEV'} ) {
1067                 $qossettings{'CLASSPRFX'} = '1';
1068         } else {
1069                 $qossettings{'CLASSPRFX'} = '2';
1070         }
1071
1072         my $ERROR="";
1073         my $count="1";
1074         my $color="#000000";
1075
1076         my @command = (
1077                 "-",
1078                 "--start",
1079                 "-1".$period,
1080                 "-aPNG",
1081                 "-i",
1082                 "-z",
1083                 "-W www.ipfire.org",
1084                 "--alt-y-grid",
1085                 "-w 600",
1086                 "-h 125",
1087                 "-r",
1088                 "-t ".$Lang::tr{'Utilization on'}." (".$qossettings{'DEV'}.") ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
1089                 "-v ".$Lang::tr{'bytes per second'},
1090                 "--color=SHADEA".$color{"color19"},
1091                 "--color=SHADEB".$color{"color19"},
1092                 "--color=BACK".$color{"color21"},
1093                 "COMMENT:".sprintf("%-28s",$Lang::tr{'caption'}),
1094                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
1095                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
1096                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
1097                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
1098         );
1099
1100                 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
1101                 @classes = <FILE>;
1102                 close FILE;
1103
1104                 my $colorIndex = 0;
1105                 foreach $classentry (sort @classes){
1106                         @classline = split( /\;/, $classentry );
1107                         if ( $classline[0] eq $qossettings{'DEV'} ){
1108                                 my $colorIndex = 10 + $count % 15;
1109                                 $color="$color{\"color$colorIndex\"}";
1110                                 push(@command, "DEF:$classline[1]=$mainsettings{'RRDLOG'}/class_$qossettings{'CLASSPRFX'}-$classline[1]_$qossettings{'DEV'}.rrd:bytes:AVERAGE");
1111
1112                                 if ($count eq "1") {
1113                                         push(@command, "AREA:$classline[1]$color:$Lang::tr{'Class'} $classline[1] -".sprintf("%15s",$classline[8]));
1114                                 } else {
1115                                         push(@command, "STACK:$classline[1]$color:$Lang::tr{'Class'} $classline[1] -".sprintf("%15s",$classline[8]));
1116                                 }
1117
1118                                 push(@command, "GPRINT:$classline[1]:MAX:%8.1lf %sBps"
1119                                                 , "GPRINT:$classline[1]:AVERAGE:%8.1lf %sBps"
1120                                                 , "GPRINT:$classline[1]:MIN:%8.1lf %sBps"
1121                                                 , "GPRINT:$classline[1]:LAST:%8.1lf %sBps\\j");
1122                                 $count++;
1123                         }
1124                 }
1125                 RRDs::graph (@command);
1126                 $ERROR = RRDs::error;
1127                 print "Error in RRD::graph for qos device ".$qossettings{'DEV'}.": ".$ERROR."\n" if $ERROR;
1128 }
1129
1130 # Generate the CPU Frequency Graph for the current period of time for values given by collectd an lm_sensors
1131
1132 sub updatecpufreqgraph {
1133         my $cpucount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/cpu-*/ 2>/dev/null | wc -l`;
1134         my $period    = $_[0];
1135         my @command = (
1136                 "-",
1137                 "--start",
1138                 "-1".$period,
1139                 "-aPNG",
1140                 "-i",
1141                 "-z",
1142                 "-W www.ipfire.org",
1143                 "--alt-y-grid",
1144                 "-w 600",
1145                 "-h 125",
1146                 "-r",
1147                 "-t ".$Lang::tr{'cpu frequency per'}." ".$Lang::tr{$period."-graph"},
1148                 "-v MHz",
1149                 "--color=SHADEA".$color{"color19"},
1150                 "--color=SHADEB".$color{"color19"},
1151                 "--color=BACK".$color{"color21"},
1152                 "COMMENT:".sprintf("%-10s",$Lang::tr{'caption'}),
1153                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
1154                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
1155                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
1156                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
1157         );
1158
1159         for(my $i = 0; $i < $cpucount; $i++) {
1160                 my $j=$i+1;
1161                 push(@command,"DEF:cpu".$i."_=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpufreq/cpufreq-".$i.".rrd:value:AVERAGE"
1162                                 ,"CDEF:cpu".$i."=cpu".$i."_,1000000,/"
1163                                 ,"LINE1:cpu".$i.$color{"color1$j"}."A0:cpu ".$i." "
1164                                 ,"GPRINT:cpu".$i.":MAX:%3.0lf Mhz"
1165                                 ,"GPRINT:cpu".$i.":AVERAGE:%3.0lf Mhz"
1166                                 ,"GPRINT:cpu".$i.":MIN:%3.0lf Mhz"
1167                                 ,"GPRINT:cpu".$i.":LAST:%3.0lf Mhz\\j");
1168         }
1169
1170         RRDs::graph (@command);
1171         $ERROR = RRDs::error;
1172         print "Error in RRD::graph for cpu freq: ".$ERROR."\n" if $ERROR;
1173 }
1174
1175 # Generate the Thermal Zone Temp CPU Graph
1176
1177 sub updatethermaltempgraph {
1178         my $thermalcount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/thermal-thermal_zone* 2>/dev/null | wc -l`;
1179         my $period    = $_[0];
1180         my @command = (
1181                 "-",
1182                 "--start",
1183                 "-1".$period,
1184                 "-aPNG",
1185                 "-i",
1186                 "-z",
1187                 "-W www.ipfire.org",
1188                 "--alt-y-grid",
1189                 "-w 600",
1190                 "-h 125",
1191                 "-r",
1192                 "-t "."ACPI Thermal-Zone Temperature"." - ".$Lang::tr{$period."-graph"},
1193                 "-v Grad Celsius",
1194                 "--color=SHADEA".$color{"color19"},
1195                 "--color=SHADEB".$color{"color19"},
1196                 "--color=BACK".$color{"color21"},
1197                 "COMMENT:".sprintf("%-10s",$Lang::tr{'caption'}),
1198                 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
1199                 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
1200                 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
1201                 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
1202         );
1203
1204         for(my $i = 0; $i < $thermalcount; $i++) {
1205                 my $j=$i+1;
1206                 push(@command,"DEF:temp".$i."_=".$mainsettings{'RRDLOG'}."/collectd/localhost/thermal-thermal_zone".$i."/temperature-temperature.rrd:value:AVERAGE"
1207                                 ,"CDEF:temp".$i."=temp".$i."_,1,/"
1208                                 ,"LINE3:temp".$i.$color{"color1$j"}."A0:Temp ".$i." "
1209                                 ,"GPRINT:temp".$i.":MAX:%3.0lf Grad C"
1210                                 ,"GPRINT:temp".$i.":AVERAGE:%3.0lf Grad C"
1211                                 ,"GPRINT:temp".$i.":MIN:%3.0lf Grad C"
1212                                 ,"GPRINT:temp".$i.":LAST:%3.0lf Grad C\\j");
1213         }
1214
1215         RRDs::graph (@command);
1216         $ERROR = RRDs::error;
1217         print "Error in RRD::graph for thermal temp: ".$ERROR."\n" if $ERROR;
1218 }
1219
1220
1221 # Generate a random color, used by Qos Graph to be independent from the amount of values
1222
1223 sub random_hex_color {
1224         my $size = shift;
1225         $size = 6 if $size !~ /^3|6$/;
1226         my @hex = ( 0 .. 9, 'a' .. 'f' );
1227         my @color;
1228         push @color, @hex[rand(@hex)] for 1 .. $size;
1229         return join('', '#', @color);
1230 }
1231
1232 sub getprocesses {
1233         my @processesgraph = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/processes-*/ 2>/dev/null`;
1234         return @processesgraph;
1235 }
1236
1237 sub updateentropygraph {
1238         my $period    = $_[0];
1239         my @command = (
1240                 "-",
1241                 "--start",
1242                 "-1".$period,
1243                 "-aPNG",
1244                 "-i",
1245                 "-z",
1246                 "-W www.ipfire.org",
1247                 "--alt-y-grid",
1248                 "-w 600",
1249                 "-h 225",
1250                 "-r",
1251                 "--lower-limit","0",
1252                 "-t $Lang::tr{'entropy'}",
1253                 "-v $Lang::tr{'bit'}",
1254                 "DEF:entropy=$mainsettings{'RRDLOG'}/collectd/localhost/entropy/entropy.rrd:entropy:AVERAGE",
1255                 "LINE3:entropy#ff0000:" . sprintf("%-15s", $Lang::tr{'entropy'}),
1256                 "VDEF:entrmin=entropy,MINIMUM",
1257                 "VDEF:entrmax=entropy,MAXIMUM",
1258                 "VDEF:entravg=entropy,AVERAGE",
1259                 "GPRINT:entrmax:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'maximum'}),
1260                 "GPRINT:entrmin:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'minimum'}),
1261                 "GPRINT:entravg:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'average'}) . "\\n",
1262         );
1263
1264         RRDs::graph (@command);
1265         $ERROR = RRDs::error;
1266
1267         print "Error in RRD::graph for entropy: ".$ERROR."\n" if $ERROR;
1268 }