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