mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-28 11:43:25 +02:00
e06986e853
For the graphs for qos classes, and for process count and memory usage, the colors change on each page reload, since the colors are currently totally random. This change uses defined color indexes, 15 different ones, that should be enough for qos at least, and is enough for processes on my setup. This makes the colors consistent between page loads, so it makes it easier to monitor changes. Perhaps one should define 30 different colors meant to be used for graphing, then one could avoid random colors also for the sensor graphs, and make it less likely to get color collision for the process graphs as well. Defining 30 such colors is not part of this change.
1159 lines
40 KiB
Perl
1159 lines
40 KiB
Perl
#!/usr/bin/perl
|
|
# Generate Graphs exported from Makegraphs to minimize system load an only generate the Graphs when displayed
|
|
###############################################################################
|
|
# #
|
|
# IPFire.org - A linux based firewall #
|
|
# Copyright (C) 2005-2010 IPFire Team #
|
|
# #
|
|
# This program is free software: you can redistribute it and/or modify #
|
|
# it under the terms of the GNU General Public License as published by #
|
|
# the Free Software Foundation, either version 3 of the License, or #
|
|
# (at your option) any later version. #
|
|
# #
|
|
# This program is distributed in the hope that it will be useful, #
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
|
# GNU General Public License for more details. #
|
|
# #
|
|
# You should have received a copy of the GNU General Public License #
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
|
# #
|
|
###############################################################################
|
|
|
|
package Graphs;
|
|
|
|
use strict;
|
|
use RRDs;
|
|
|
|
require '/var/ipfire/general-functions.pl';
|
|
require "${General::swroot}/lang.pl";
|
|
require "${General::swroot}/header.pl";
|
|
|
|
my $ERROR;
|
|
|
|
# Read the global settings files to get the current theme and after this load
|
|
# colors for this theme
|
|
|
|
my %color = ();
|
|
my %mainsettings = ();
|
|
my %sensorsettings = ();
|
|
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
|
|
&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
|
|
|
|
if ( $mainsettings{'RRDLOG'} eq "" ){
|
|
$mainsettings{'RRDLOG'}="/var/log/rrd";
|
|
&General::writehash("${General::swroot}/main/settings", \%mainsettings);
|
|
}
|
|
|
|
# If the collection deamon is working and collecting lm_sensors data there will be
|
|
# some data source named after a common scheme, with the sensorssettingsfile
|
|
# the user is able to deactivate some of this parameters, in case not to show
|
|
# false collected values may be disable. The user has the ability to enter
|
|
# custom graph names in order to change temp0 to cpu or motherboard
|
|
|
|
my $count = 0;
|
|
my @sensorsgraphs = ();
|
|
my @sensorsdir = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/sensors-*/ 2>/dev/null`;
|
|
foreach (@sensorsdir){
|
|
chomp($_);chop($_);
|
|
foreach (`ls $_/*`){
|
|
chomp($_);
|
|
push(@sensorsgraphs,$_);
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
$sensorsettings{'LABEL-'.$label}="$label";
|
|
$sensorsettings{'LINE-'.$label}="checked";
|
|
}
|
|
}
|
|
|
|
&General::readhash("${General::swroot}/sensors/settings", \%sensorsettings);
|
|
|
|
# Generate a nice box for selection of time range in graphs
|
|
# this will generate a nice iframe for the cgi every klick for
|
|
# the graph will be handled inside the iframe
|
|
# 0 is the cgi refering to
|
|
# 1 is the graph name
|
|
# 2 is the time range for the graph
|
|
# 3 if given is the height of the iframe default if nothing is given
|
|
|
|
sub makegraphbox {
|
|
my $height = 285;
|
|
my $width = 700;
|
|
|
|
if ( $_[3] ne "" ){ $height = $_[3]; }
|
|
|
|
print "<center>";
|
|
print "<a href='".$_[0]."?".$_[1]."?hour' target='".$_[1]."box'><b>".$Lang::tr{'hour'}."</b></a>";
|
|
print " - ";
|
|
print "<a href='".$_[0]."?".$_[1]."?day' target='".$_[1]."box'><b>".$Lang::tr{'day'}."</b></a>";
|
|
print " - ";
|
|
print "<a href='".$_[0]."?".$_[1]."?week' target='".$_[1]."box'><b>".$Lang::tr{'week'}."</b></a>";
|
|
print " - ";
|
|
print "<a href='".$_[0]."?".$_[1]."?month' target='".$_[1]."box'><b>".$Lang::tr{'month'}."</b></a>";
|
|
print " - ";
|
|
print "<a href='".$_[0]."?".$_[1]."?year' target='".$_[1]."box'><b>".$Lang::tr{'year'}."</b></a>";
|
|
print "<iframe src='".$_[0]."?".$_[1]."?".$_[2]."' width='".$width."' height='".$height."' scrolling='no' frameborder='no' marginheight='0' name='".$_[1]."box'></iframe>";
|
|
print "</center>";
|
|
}
|
|
|
|
# Generate the CPU Graph for the current period of time for values given by
|
|
# collectd we are now able to handle any kind of cpucount
|
|
|
|
sub updatecpugraph {
|
|
my $cpucount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/cpu-*/ 2>/dev/null | wc -l`;
|
|
my $period = $_[0];
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-u 100",
|
|
"-r",
|
|
"-t ".$Lang::tr{'cpu usage per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'percentage'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
my $nice = "CDEF:nice=";
|
|
my $interrupt = "CDEF:interrupt=";
|
|
my $steal = "CDEF:steal=";
|
|
my $user = "CDEF:user=";
|
|
my $system = "CDEF:system=";
|
|
my $idle = "CDEF:idle=";
|
|
my $iowait = "CDEF:iowait=";
|
|
my $irq = "CDEF:irq=";
|
|
my $addstring = "";
|
|
|
|
for(my $i = 0; $i < $cpucount; $i++) {
|
|
push(@command,"DEF:iowait".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-wait.rrd:value:AVERAGE"
|
|
,"DEF:nice".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-nice.rrd:value:AVERAGE"
|
|
,"DEF:interrupt".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-interrupt.rrd:value:AVERAGE"
|
|
,"DEF:steal".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-steal.rrd:value:AVERAGE"
|
|
,"DEF:user".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-user.rrd:value:AVERAGE"
|
|
,"DEF:system".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-system.rrd:value:AVERAGE"
|
|
,"DEF:idle".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-idle.rrd:value:AVERAGE"
|
|
,"DEF:irq".$i."=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpu-".$i."/cpu-softirq.rrd:value:AVERAGE");
|
|
|
|
$nice .= "nice".$i.",";
|
|
$interrupt .= "interrupt".$i.",";
|
|
$steal .= "steal".$i.",";
|
|
$user .= "user".$i.",";
|
|
$system .= "system".$i.",";
|
|
$idle .= "idle".$i.",";
|
|
$iowait .= "iowait".$i.",";
|
|
$irq .= "irq".$i.",";
|
|
}
|
|
|
|
for(my $i = 2; $i < $cpucount; $i++) {
|
|
$addstring .= "+,";
|
|
}
|
|
|
|
if ( $cpucount > 1){
|
|
$addstring .= "+";
|
|
push(@command,$nice.$addstring
|
|
,$interrupt.$addstring
|
|
,$steal.$addstring
|
|
,$user.$addstring
|
|
,$system.$addstring
|
|
,$idle.$addstring
|
|
,$iowait.$addstring
|
|
,$irq.$addstring);
|
|
}else{
|
|
chop($nice),chop($interrupt),chop($steal),chop($user),chop($system),chop($idle),chop($iowait),chop($irq);
|
|
push(@command,$nice,$interrupt,$steal,$user,$system,$idle,$iowait,$irq);
|
|
}
|
|
|
|
push(@command,"CDEF:total=user,system,idle,iowait,irq,nice,interrupt,steal,+,+,+,+,+,+,+"
|
|
,"CDEF:userpct=100,user,total,/,*"
|
|
,"CDEF:nicepct=100,nice,total,/,*"
|
|
,"CDEF:interruptpct=100,interrupt,total,/,*"
|
|
,"CDEF:stealpct=100,steal,total,/,*"
|
|
,"CDEF:systempct=100,system,total,/,*"
|
|
,"CDEF:idlepct=100,idle,total,/,*"
|
|
,"CDEF:iowaitpct=100,iowait,total,/,*"
|
|
,"CDEF:irqpct=100,irq,total,/,*"
|
|
,"AREA:iowaitpct".$color{"color14"}.":".sprintf("%-25s",$Lang::tr{'cpu iowait usage'})
|
|
,"GPRINT:iowaitpct:MAX:%3.2lf%%"
|
|
,"GPRINT:iowaitpct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:iowaitpct:MIN:%3.2lf%%"
|
|
,"GPRINT:iowaitpct:LAST:%3.2lf%%\\j"
|
|
,"STACK:irqpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'cpu irq usage'})
|
|
,"GPRINT:irqpct:MAX:%3.2lf%%"
|
|
,"GPRINT:irqpct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:irqpct:MIN:%3.2lf%%"
|
|
,"GPRINT:irqpct:LAST:%3.2lf%%\\j"
|
|
,"STACK:nicepct".$color{"color16"}."A0:".sprintf("%-25s",$Lang::tr{'cpu nice usage'})
|
|
,"GPRINT:nicepct:MAX:%3.2lf%%"
|
|
,"GPRINT:nicepct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:nicepct:MIN:%3.2lf%%"
|
|
,"GPRINT:nicepct:LAST:%3.2lf%%\\j"
|
|
,"STACK:interruptpct".$color{"color15"}."A0:".sprintf("%-25s",$Lang::tr{'cpu interrupt usage'})
|
|
,"GPRINT:interruptpct:MAX:%3.2lf%%"
|
|
,"GPRINT:interruptpct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:interruptpct:MIN:%3.2lf%%"
|
|
,"GPRINT:interruptpct:LAST:%3.2lf%%\\j"
|
|
,"STACK:stealpct".$color{"color18"}."A0:".sprintf("%-25s",$Lang::tr{'cpu steal usage'})
|
|
,"GPRINT:stealpct:MAX:%3.2lf%%"
|
|
,"GPRINT:stealpct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:stealpct:MIN:%3.2lf%%"
|
|
,"GPRINT:stealpct:LAST:%3.2lf%%\\j"
|
|
,"STACK:userpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'cpu user usage'})
|
|
,"GPRINT:userpct:MAX:%3.2lf%%"
|
|
,"GPRINT:userpct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:userpct:MIN:%3.2lf%%"
|
|
,"GPRINT:userpct:LAST:%3.2lf%%\\j"
|
|
,"STACK:systempct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cpu system usage'})
|
|
,"GPRINT:systempct:MAX:%3.2lf%%"
|
|
,"GPRINT:systempct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:systempct:MIN:%3.2lf%%"
|
|
,"GPRINT:systempct:LAST:%3.2lf%%\\j"
|
|
,"STACK:idlepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'cpu idle usage'})
|
|
,"GPRINT:idlepct:MAX:%3.2lf%%"
|
|
,"GPRINT:idlepct:AVERAGE:%3.2lf%%"
|
|
,"GPRINT:idlepct:MIN:%3.2lf%%"
|
|
,"GPRINT:idlepct:LAST:%3.2lf%%\\j");
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for cpu: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Load Graph for the current period of time for values given by collecd
|
|
|
|
sub updateloadgraph {
|
|
my $period = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-r",
|
|
"-t Load Average ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'processes'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:load1=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:shortterm:AVERAGE",
|
|
"DEF:load5=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:midterm:AVERAGE",
|
|
"DEF:load15=".$mainsettings{'RRDLOG'}."/collectd/localhost/load/load.rrd:longterm:AVERAGE",
|
|
"AREA:load1".$color{"color13"}."A0:1 ".$Lang::tr{'minute'}.":",
|
|
"GPRINT:load1:LAST:%5.2lf",
|
|
"AREA:load5".$color{"color18"}."A0:5 ".$Lang::tr{'minutes'}.":",
|
|
"GPRINT:load5:LAST:%5.2lf",
|
|
"AREA:load15".$color{"color14"}."A0:15 ".$Lang::tr{'minutes'}.":",
|
|
"GPRINT:load15:LAST:%5.2lf\\j",
|
|
"LINE1:load5".$color{"color13"},
|
|
"LINE1:load1".$color{"color18"},
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for load: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Memory Graph for the current period of time for values given by collecd
|
|
|
|
sub updatememorygraph {
|
|
my $period = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-u 100",
|
|
"-r",
|
|
"-t ".$Lang::tr{'memory usage per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'percentage'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:used=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-used.rrd:value:AVERAGE",
|
|
"DEF:free=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-free.rrd:value:AVERAGE",
|
|
"DEF:buffer=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-buffered.rrd:value:AVERAGE",
|
|
"DEF:cache=".$mainsettings{'RRDLOG'}."/collectd/localhost/memory/memory-cached.rrd:value:AVERAGE",
|
|
"CDEF:total=used,free,cache,buffer,+,+,+",
|
|
"CDEF:usedpct=used,total,/,100,*",
|
|
"CDEF:bufferpct=buffer,total,/,100,*",
|
|
"CDEF:cachepct=cache,total,/,100,*",
|
|
"CDEF:freepct=free,total,/,100,*",
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used memory'}),
|
|
"GPRINT:usedpct:MAX:%3.2lf%%",
|
|
"GPRINT:usedpct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:usedpct:MIN:%3.2lf%%",
|
|
"GPRINT:usedpct:LAST:%3.2lf%%\\j",
|
|
"STACK:bufferpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'buffered memory'}),
|
|
"GPRINT:bufferpct:MAX:%3.2lf%%",
|
|
"GPRINT:bufferpct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:bufferpct:MIN:%3.2lf%%",
|
|
"GPRINT:bufferpct:LAST:%3.2lf%%\\j",
|
|
"STACK:cachepct".$color{"color14"}."A0:".sprintf("%-25s",$Lang::tr{'cached memory'}),
|
|
"GPRINT:cachepct:MAX:%3.2lf%%",
|
|
"GPRINT:cachepct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:cachepct:MIN:%3.2lf%%",
|
|
"GPRINT:cachepct:LAST:%3.2lf%%\\j",
|
|
"STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free memory'}),
|
|
"GPRINT:freepct:MAX:%3.2lf%%",
|
|
"GPRINT:freepct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:freepct:MIN:%3.2lf%%",
|
|
"GPRINT:freepct:LAST:%3.2lf%%\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for memory: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Swap Graph for the current period of time for values given by collecd
|
|
|
|
sub updateswapgraph {
|
|
my $period = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-u 100",
|
|
"-r",
|
|
"-t ".$Lang::tr{'swap usage per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'percentage'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:free=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-free.rrd:value:AVERAGE",
|
|
"DEF:used=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-used.rrd:value:AVERAGE",
|
|
"DEF:cached=".$mainsettings{'RRDLOG'}."/collectd/localhost/swap/swap-cached.rrd:value:AVERAGE",
|
|
"CDEF:total=used,free,cached,+,+",
|
|
"CDEF:usedpct=100,used,total,/,*",
|
|
"CDEF:freepct=100,free,total,/,*",
|
|
"CDEF:cachedpct=100,cached,total,/,*",
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used swap'}),
|
|
"GPRINT:usedpct:MAX:%3.2lf%%",
|
|
"GPRINT:usedpct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:usedpct:MIN:%3.2lf%%",
|
|
"GPRINT:usedpct:LAST:%3.2lf%%\\j",
|
|
"STACK:cachedpct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cached swap'}),
|
|
"GPRINT:cachedpct:MAX:%3.2lf%%",
|
|
"GPRINT:cachedpct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:cachedpct:MIN:%3.2lf%%",
|
|
"GPRINT:cachedpct:LAST:%3.2lf%%\\j",
|
|
"STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free swap'}),
|
|
"GPRINT:freepct:MAX:%3.2lf%%",
|
|
"GPRINT:freepct:AVERAGE:%3.2lf%%",
|
|
"GPRINT:freepct:MIN:%3.2lf%%",
|
|
"GPRINT:freepct:LAST:%3.2lf%%\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for memory: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Process Cpu Graph for the current period of time for values given by collecd
|
|
|
|
sub updateprocessescpugraph {
|
|
my @processesgraph = getprocesses();
|
|
my $period = $_[0];
|
|
my $count="0";
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-r",
|
|
"-t ".$Lang::tr{'processes'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"}
|
|
);
|
|
|
|
foreach(@processesgraph){
|
|
chomp($_);my @name=split(/\-/,$_);chop($name[1]);
|
|
push(@command,"DEF:".$name[1]."user=".$_."ps_cputime.rrd:user:AVERAGE");
|
|
push(@command,"DEF:".$name[1]."system=".$_."ps_cputime.rrd:syst:AVERAGE");
|
|
push(@command,"CDEF:".$name[1]."=".$name[1]."user,".$name[1]."system,+");
|
|
}
|
|
|
|
push(@command,"COMMENT:".$Lang::tr{'caption'}."\\j");
|
|
|
|
my $colorIndex = 0;
|
|
foreach(@processesgraph){
|
|
my $colorIndex = 10 + $count % 15;
|
|
my $color="$color{\"color$colorIndex\"}";
|
|
chomp($_);my @name=split(/\-/,$_);chop($name[1]);
|
|
if ($count eq "0"){
|
|
push(@command,"AREA:".$name[1].$color."A0:".$name[1]);
|
|
}else{
|
|
push(@command,"STACK:".$name[1].$color."A0:".$name[1]);
|
|
}
|
|
$count++;
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for processes: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Process Memory Graph for the current period of time for values given by collecd
|
|
|
|
sub updateprocessesmemorygraph {
|
|
my @processesgraph = getprocesses();
|
|
my $period = $_[0];
|
|
my $count="0";
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-r",
|
|
"-t ".$Lang::tr{'processes'}." ".$Lang::tr{'memory'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'bytes'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"}
|
|
);
|
|
|
|
foreach(@processesgraph){
|
|
chomp($_);my @name=split(/\-/,$_);chop($name[1]);
|
|
push(@command,"DEF:".$name[1]."=".$_."ps_rss.rrd:value:AVERAGE");
|
|
}
|
|
|
|
push(@command,"COMMENT:".$Lang::tr{'caption'}."\\j");
|
|
|
|
my $colorIndex = 0;
|
|
foreach(@processesgraph){
|
|
chomp($_);my @name=split(/\-/,$_);chop($name[1]);
|
|
my $colorIndex = 10 + $count % 15;
|
|
my $color="$color{\"color$colorIndex\"}";
|
|
if ($count eq "0"){
|
|
push(@command,"AREA:".$name[1].$color."A0:".$name[1]);
|
|
}else{
|
|
push(@command,"STACK:".$name[1].$color."A0:".$name[1]);
|
|
}
|
|
$count++;
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for processesmemory: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Disk Graph for the current period of time for values given by collecd
|
|
|
|
sub updatediskgraph {
|
|
my $disk = $_[0];
|
|
my $period = $_[1];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$disk." ".$Lang::tr{'disk access per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'bytes per second'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:read=".$mainsettings{'RRDLOG'}."/collectd/localhost/disk-$disk/disk_octets.rrd:read:AVERAGE",
|
|
"DEF:write=".$mainsettings{'RRDLOG'}."/collectd/localhost/disk-$disk/disk_octets.rrd:write:AVERAGE",
|
|
"CDEF:writen=write,-1,*",
|
|
"DEF:standby=".$mainsettings{'RRDLOG'}."/hddshutdown-".$disk.".rrd:standby:AVERAGE",
|
|
"CDEF:st=standby,INF,*",
|
|
"CDEF:st1=standby,-INF,*",
|
|
"COMMENT:".sprintf("%-25s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"AREA:st".$color{"color20"}."A0:",
|
|
"AREA:st1".$color{"color20"}."A0:standby\\j",
|
|
"AREA:read".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'read bytes'}),
|
|
"GPRINT:read:MAX:%8.1lf %sBps",
|
|
"GPRINT:read:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:read:MIN:%8.1lf %sBps",
|
|
"GPRINT:read:LAST:%8.1lf %sBps\\j",
|
|
"AREA:writen".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'written bytes'}),
|
|
"GPRINT:write:MAX:%8.1lf %sBps",
|
|
"GPRINT:write:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:write:MIN:%8.1lf %sBps",
|
|
"GPRINT:write:LAST:%8.1lf %sBps\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for ".$disk.": ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Interface Graph for the current period of time for values given by collecd
|
|
|
|
sub updateifgraph {
|
|
my $interface = $_[0];
|
|
my $period = $_[1];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'traffic on'}." ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'bytes per second'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:incoming=".$mainsettings{'RRDLOG'}."/collectd/localhost/interface/if_octets-".$interface.".rrd:rx:AVERAGE",
|
|
"DEF:outgoing=".$mainsettings{'RRDLOG'}."/collectd/localhost/interface/if_octets-".$interface.".rrd:tx:AVERAGE",
|
|
"CDEF:outgoingn=outgoing,-1,*",
|
|
"COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"AREA:incoming".$color{"color12"}."A0:".sprintf("%-20s",$Lang::tr{'incoming traffic in bytes per second'}),
|
|
"GPRINT:incoming:MAX:%8.1lf %sBps",
|
|
"GPRINT:incoming:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:incoming:MIN:%8.1lf %sBps",
|
|
"GPRINT:incoming:LAST:%8.1lf %sBps\\j",
|
|
"AREA:outgoingn".$color{"color13"}."A0:".sprintf("%-20s",$Lang::tr{'outgoing traffic in bytes per second'}),
|
|
"GPRINT:outgoing:MAX:%8.1lf %sBps",
|
|
"GPRINT:outgoing:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:outgoing:MIN:%8.1lf %sBps",
|
|
"GPRINT:outgoing:LAST:%8.1lf %sBps\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for ".$interface.": ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Firewall Graph for the current period of time for values given by collecd
|
|
|
|
sub updatefwhitsgraph {
|
|
my $period = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'firewall hits per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'bytes per second'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:output=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYOUT/ipt_bytes-DROP_OUTPUT.rrd:value:AVERAGE",
|
|
"DEF:input=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYIN/ipt_bytes-DROP_INPUT.rrd:value:AVERAGE",
|
|
"DEF:forward=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-POLICYFWD/ipt_bytes-DROP_FORWARD.rrd:value:AVERAGE",
|
|
"DEF:newnotsyn=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-NEWNOTSYN/ipt_bytes-DROP_NEWNOTSYN.rrd:value:AVERAGE",
|
|
"DEF:portscan=".$mainsettings{'RRDLOG'}."/collectd/localhost/iptables-filter-PSCAN/ipt_bytes-DROP_PScan.rrd:value:AVERAGE",
|
|
"COMMENT:".sprintf("%-26s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%14s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"AREA:output".$color{"color25"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-OUTPUT"),
|
|
"GPRINT:output:MAX:%8.1lf %sBps",
|
|
"GPRINT:output:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:output:MIN:%8.1lf %sBps",
|
|
"GPRINT:output:LAST:%8.1lf %sBps\\j",
|
|
"STACK:forward".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-FORWARD"),
|
|
"GPRINT:forward:MAX:%8.1lf %sBps",
|
|
"GPRINT:forward:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:forward:MIN:%8.1lf %sBps",
|
|
"GPRINT:forward:LAST:%8.1lf %sBps\\j",
|
|
"STACK:input".$color{"color24"}."A0:".sprintf("%-25s",$Lang::tr{'firewallhits'}."-INPUT"),
|
|
"GPRINT:input:MAX:%8.1lf %sBps",
|
|
"GPRINT:input:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:input:MIN:%8.1lf %sBps",
|
|
"GPRINT:input:LAST:%8.1lf %sBps\\j",
|
|
"STACK:newnotsyn".$color{"color14"}."A0:".sprintf("%-25s","NewNotSyn"),
|
|
"GPRINT:newnotsyn:MAX:%8.1lf %sBps",
|
|
"GPRINT:newnotsyn:MIN:%8.1lf %sBps",
|
|
"GPRINT:newnotsyn:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:newnotsyn:LAST:%8.1lf %sBps\\j",
|
|
"STACK:portscan".$color{"color16"}."A0:".sprintf("%-25s",$Lang::tr{'portscans'}),
|
|
"GPRINT:portscan:MAX:%8.1lf %sBps",
|
|
"GPRINT:portscan:MIN:%8.1lf %sBps",
|
|
"GPRINT:portscan:AVERAGE:%8.1lf %sBps",
|
|
"GPRINT:portscan:LAST:%8.1lf %sBps\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for firewallhits: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Line Quality Graph for the current period of time for values given by collecd
|
|
|
|
sub updatepinggraph {
|
|
my $period = $_[1];
|
|
my $host = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-l 0",
|
|
"-r",
|
|
"-t ".$Lang::tr{'linkq'}." ".$host." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ms",
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:roundtrip=".$mainsettings{'RRDLOG'}."/collectd/localhost/ping/ping-".$host.".rrd:ping:AVERAGE",
|
|
"COMMENT:".sprintf("%-20s",$Lang::tr{'caption'})."\\j",
|
|
"CDEF:roundavg=roundtrip,PREV(roundtrip),+,2,/",
|
|
"CDEF:r0=roundtrip,30,MIN",
|
|
"CDEF:r1=roundtrip,70,MIN",
|
|
"CDEF:r2=roundtrip,150,MIN",
|
|
"CDEF:r3=roundtrip,300,MIN",
|
|
"AREA:roundtrip".$color{"color25"}."A0:>300 ms",
|
|
"AREA:r3".$color{"color18"}."A0:150-300 ms",
|
|
"AREA:r2".$color{"color14"}."A0:70-150 ms",
|
|
"AREA:r1".$color{"color17"}."A0:30-70 ms",
|
|
"AREA:r0".$color{"color12"}."A0:<30 ms\\j",
|
|
"COMMENT:$Lang::tr{'maximal'}",
|
|
"COMMENT:$Lang::tr{'average'}",
|
|
"COMMENT:$Lang::tr{'minimal'}","COMMENT:$Lang::tr{'current'}\\j",
|
|
"LINE1:roundtrip#707070:",
|
|
"GPRINT:roundtrip:MAX:%3.2lf ms",
|
|
"GPRINT:roundtrip:AVERAGE:%3.2lf ms",
|
|
"GPRINT:roundtrip:MIN:%3.2lf ms",
|
|
"GPRINT:roundtrip:LAST:%3.2lf ms\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for link quality: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
sub updatewirelessgraph {
|
|
my $period = $_[1];
|
|
my $interface = $_[0];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-t Wireless ".$interface." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v dBm",
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:noise=".$mainsettings{'RRDLOG'}."/collectd/localhost/wireless-".$interface."/signal_noise.rrd:value:AVERAGE",
|
|
"DEF:power=".$mainsettings{'RRDLOG'}."/collectd/localhost/wireless-".$interface."/signal_power.rrd:value:AVERAGE",
|
|
"COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
|
|
"LINE1:noise".$color{"color11"}."A0:".sprintf("%-20s","Signal Noise Ratio"),
|
|
"GPRINT:noise:MAX:%5.1lf %sdBm",
|
|
"GPRINT:noise:AVERAGE:%5.1lf %sdBm",
|
|
"GPRINT:noise:MIN:%5.1lf %sdBm",
|
|
"GPRINT:noise:LAST:%5.1lf %sdBm\\j",
|
|
"LINE1:power".$color{"color12"}."A0:".sprintf("%-20s","Signal Power Ratio"),
|
|
"GPRINT:power:MAX:%5.1lf %sdBm",
|
|
"GPRINT:power:AVERAGE:%5.1lf %sdBm",
|
|
"GPRINT:power:MIN:%5.1lf %sdBm",
|
|
"GPRINT:power:LAST:%5.1lf %sdBm\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for wireless: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the HDD Temp Graph for the current period of time for values given by collecd and lm_sensors
|
|
|
|
sub updatehddgraph {
|
|
my $disk = $_[0];
|
|
my $period = $_[1];
|
|
RRDs::graph(
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$disk." ".$Lang::tr{'harddisk temperature'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v Celsius",
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"DEF:temperature=".$mainsettings{'RRDLOG'}."/hddtemp-$disk.rrd:temperature:AVERAGE",
|
|
"DEF:standby=".$mainsettings{'RRDLOG'}."/hddshutdown-$disk.rrd:standby:AVERAGE",
|
|
"CDEF:st=standby,INF,*",
|
|
"AREA:st".$color{"color20"}."A0:standby",
|
|
"LINE3:temperature".$color{"color11"}."A0:$Lang::tr{'hdd temperature in'} C\\j",
|
|
"COMMENT:$Lang::tr{'maximal'}",
|
|
"COMMENT:$Lang::tr{'average'}",
|
|
"COMMENT:$Lang::tr{'minimal'}",
|
|
"COMMENT:$Lang::tr{'current'}\\j",
|
|
"GPRINT:temperature:MAX:%3.0lf Grad C",
|
|
"GPRINT:temperature:AVERAGE:%3.0lf Grad C",
|
|
"GPRINT:temperature:MIN:%3.0lf Grad C",
|
|
"GPRINT:temperature:LAST:%3.0lf Grad C\\j",
|
|
);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for hdd-".$disk.": ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Temp Graph for the current period of time for values given by collecd and lm_sensors
|
|
|
|
sub updatehwtempgraph {
|
|
my $period = $_[0];
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'mbmon temp'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /temperature/ ) {
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
|
|
}
|
|
}
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /temperature/ ){
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
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",);
|
|
}
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for HDD Temp: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Fan Graph for the current period of time for values given by collecd and lm_sensors
|
|
|
|
sub updatehwfangraph {
|
|
my $period = $_[0];
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'mbmon fan'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /fanspeed/ ) {
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
|
|
}
|
|
}
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /fanspeed/ ){
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
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",);
|
|
}
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for Fan Speed: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Voltage Graph for the current period of time for values given by collecd and lm_sensors
|
|
|
|
sub updatehwvoltgraph {
|
|
my $period = $_[0];
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'mbmon volt'}." ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /voltage/ ) {
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
push(@command,"DEF:".$sensorsettings{'LABEL-'.$label}."=".$_.":value:AVERAGE");
|
|
}
|
|
}
|
|
|
|
foreach(@sensorsgraphs){
|
|
chomp($_);
|
|
if ( $_ =~ /voltage/ ){
|
|
$_ =~ /\/(.*)sensors-(.*)\/(.*)\.rrd/;
|
|
my $label = $2.$3;$label=~ s/-//g;
|
|
if ( $sensorsettings{'LINE-'.$label} eq "off" ){next;}
|
|
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",);
|
|
}
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for Voltage: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
|
|
# Generate the QoS Graph for the current period of time
|
|
|
|
sub updateqosgraph {
|
|
|
|
my $period = $_[1];
|
|
my %qossettings = ();
|
|
&General::readhash("${General::swroot}/qos/settings", \%qossettings);
|
|
|
|
my $classentry = "";
|
|
my @classes = ();
|
|
my @classline = ();
|
|
my $classfile = "/var/ipfire/qos/classes";
|
|
|
|
$qossettings{'DEV'} = $_[0];
|
|
if ( $qossettings{'DEV'} eq $qossettings{'RED_DEV'} ) {
|
|
$qossettings{'CLASSPRFX'} = '1';
|
|
} else {
|
|
$qossettings{'CLASSPRFX'} = '2';
|
|
}
|
|
|
|
my $ERROR="";
|
|
my $count="1";
|
|
my $color="#000000";
|
|
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'Utilization on'}." (".$qossettings{'DEV'}.") ".$Lang::tr{'graph per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v ".$Lang::tr{'bytes per second'},
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-28s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
open( FILE, "< $classfile" ) or die "Unable to read $classfile";
|
|
@classes = <FILE>;
|
|
close FILE;
|
|
|
|
my $colorIndex = 0;
|
|
foreach $classentry (sort @classes){
|
|
@classline = split( /\;/, $classentry );
|
|
if ( $classline[0] eq $qossettings{'DEV'} ){
|
|
my $colorIndex = 10 + $count % 15;
|
|
$color="$color{\"color$colorIndex\"}";
|
|
push(@command, "DEF:$classline[1]=$mainsettings{'RRDLOG'}/class_$qossettings{'CLASSPRFX'}-$classline[1]_$qossettings{'DEV'}.rrd:bytes:AVERAGE");
|
|
|
|
if ($count eq "1") {
|
|
push(@command, "AREA:$classline[1]$color:$Lang::tr{'Class'} $classline[1] -".sprintf("%15s",$classline[8]));
|
|
} else {
|
|
push(@command, "STACK:$classline[1]$color:$Lang::tr{'Class'} $classline[1] -".sprintf("%15s",$classline[8]));
|
|
}
|
|
|
|
push(@command, "GPRINT:$classline[1]:MAX:%8.1lf %sBps"
|
|
, "GPRINT:$classline[1]:AVERAGE:%8.1lf %sBps"
|
|
, "GPRINT:$classline[1]:MIN:%8.1lf %sBps"
|
|
, "GPRINT:$classline[1]:LAST:%8.1lf %sBps\\j");
|
|
$count++;
|
|
}
|
|
}
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for qos device ".$qossettings{'DEV'}.": ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the CPU Frequency Graph for the current period of time for values given by collectd an lm_sensors
|
|
|
|
sub updatecpufreqgraph {
|
|
my $cpucount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/cpu-*/ 2>/dev/null | wc -l`;
|
|
my $period = $_[0];
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t ".$Lang::tr{'cpu frequency per'}." ".$Lang::tr{$period."-graph"},
|
|
"-v MHz",
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-10s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
for(my $i = 0; $i < $cpucount; $i++) {
|
|
my $j=$i+1;
|
|
push(@command,"DEF:cpu".$i."_=".$mainsettings{'RRDLOG'}."/collectd/localhost/cpufreq/cpufreq-".$i.".rrd:value:AVERAGE"
|
|
,"CDEF:cpu".$i."=cpu".$i."_,1000000,/"
|
|
,"LINE1:cpu".$i.$color{"color1$j"}."A0:cpu ".$i." "
|
|
,"GPRINT:cpu".$i.":MAX:%3.0lf Mhz"
|
|
,"GPRINT:cpu".$i.":AVERAGE:%3.0lf Mhz"
|
|
,"GPRINT:cpu".$i.":MIN:%3.0lf Mhz"
|
|
,"GPRINT:cpu".$i.":LAST:%3.0lf Mhz\\j");
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for cpu freq: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
# Generate the Thermal Zone Temp CPU Graph
|
|
|
|
sub updatethermaltempgraph {
|
|
my $thermalcount = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/thermal-thermal_zone* 2>/dev/null | wc -l`;
|
|
my $period = $_[0];
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 125",
|
|
"-r",
|
|
"-t "."ACPI Thermal-Zone Temperature"." - ".$Lang::tr{$period."-graph"},
|
|
"-v Grad Celsius",
|
|
"--color=SHADEA".$color{"color19"},
|
|
"--color=SHADEB".$color{"color19"},
|
|
"--color=BACK".$color{"color21"},
|
|
"COMMENT:".sprintf("%-10s",$Lang::tr{'caption'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
|
|
"COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j"
|
|
);
|
|
|
|
for(my $i = 0; $i < $thermalcount; $i++) {
|
|
my $j=$i+1;
|
|
push(@command,"DEF:temp".$i."_=".$mainsettings{'RRDLOG'}."/collectd/localhost/thermal-thermal_zone".$i."/temperature-temperature.rrd:value:AVERAGE"
|
|
,"CDEF:temp".$i."=temp".$i."_,1,/"
|
|
,"LINE3:temp".$i.$color{"color1$j"}."A0:Temp ".$i." "
|
|
,"GPRINT:temp".$i.":MAX:%3.0lf Grad C"
|
|
,"GPRINT:temp".$i.":AVERAGE:%3.0lf Grad C"
|
|
,"GPRINT:temp".$i.":MIN:%3.0lf Grad C"
|
|
,"GPRINT:temp".$i.":LAST:%3.0lf Grad C\\j");
|
|
}
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
print "Error in RRD::graph for thermal temp: ".$ERROR."\n" if $ERROR;
|
|
}
|
|
|
|
|
|
# Generate a random color, used by Qos Graph to be independent from the amount of values
|
|
|
|
sub random_hex_color {
|
|
my $size = shift;
|
|
$size = 6 if $size !~ /^3|6$/;
|
|
my @hex = ( 0 .. 9, 'a' .. 'f' );
|
|
my @color;
|
|
push @color, @hex[rand(@hex)] for 1 .. $size;
|
|
return join('', '#', @color);
|
|
}
|
|
|
|
sub getprocesses {
|
|
my @processesgraph = `ls -dA $mainsettings{'RRDLOG'}/collectd/localhost/processes-*/ 2>/dev/null`;
|
|
return @processesgraph;
|
|
}
|
|
|
|
sub updateentropygraph {
|
|
my $period = $_[0];
|
|
my @command = (
|
|
"-",
|
|
"--start",
|
|
"-1".$period,
|
|
"-aPNG",
|
|
"-i",
|
|
"-z",
|
|
"-W www.ipfire.org",
|
|
"--alt-y-grid",
|
|
"-w 600",
|
|
"-h 225",
|
|
"-r",
|
|
"--lower-limit","0",
|
|
"-t $Lang::tr{'entropy'}",
|
|
"-v $Lang::tr{'bit'}",
|
|
"DEF:entropy=$mainsettings{'RRDLOG'}/collectd/localhost/entropy/entropy.rrd:entropy:AVERAGE",
|
|
"CDEF:entropytrend=entropy,43200,TREND",
|
|
"LINE3:entropy#ff0000:" . sprintf("%-15s", $Lang::tr{'entropy'}),
|
|
"VDEF:entrmin=entropy,MINIMUM",
|
|
"VDEF:entrmax=entropy,MAXIMUM",
|
|
"VDEF:entravg=entropy,AVERAGE",
|
|
"GPRINT:entrmax:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'maximum'}),
|
|
"GPRINT:entrmin:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'minimum'}),
|
|
"GPRINT:entravg:" . sprintf("%12s\\: %%5.0lf", $Lang::tr{'average'}) . "\\n",
|
|
"LINE3:entropytrend#000000",
|
|
);
|
|
|
|
RRDs::graph (@command);
|
|
$ERROR = RRDs::error;
|
|
|
|
print "Error in RRD::graph for entropy: ".$ERROR."\n" if $ERROR;
|
|
}
|