Made some nicer graphs and fixes
[people/pmueller/ipfire-2.x.git] / config / cfgroot / graphs.pl
1 #!/usr/bin/perl
2 # Generate Graphs exported from Makegraphs to minimize system load an only generate the Graphs when displayed
3 # This is part of the IPFire Firewall
4
5
6 package Graphs;
7
8 use strict;
9 use RRDs;
10
11 require '/var/ipfire/general-functions.pl';
12 require "${General::swroot}/lang.pl";
13 require "${General::swroot}/header.pl";
14
15 my $ERROR;
16 my $rrdlog = "/var/log/rrd";
17 my $graphs = "/srv/web/ipfire/html/graphs";
18 $ENV{PATH}="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin";
19
20 # Read the global settings files to get the current theme and after this load
21 # colors for this theme
22
23 my %color = ();
24 my %mainsettings = ();
25 my %mbmonsettings = ();
26 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
27 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
28
29
30 # If the collection deamon is working and collecting mbmon data there will be
31 # some data source named after a common scheme, with the mbmonsettingsfile
32 # the user is able to deactivate some of this parameters, in case not to show
33 # false collected value´s may be disable. The user has the ability to enter
34 # custom graph names in order to change temp0 to cpu or motherboad
35
36 my $key;
37 my $value;
38 my @args = ();
39 my $count = 0;
40 my @mbmongraphs = ();
41 if ( -e "/var/log/rrd/collectd/localhost/mbmon" ){
42 @mbmongraphs = `ls /var/log/rrd/collectd/localhost/mbmon/`;
43 foreach (@mbmongraphs){
44 chomp($_);
45 my @name=split(/\./,$_);my $label = $name[0]; $label=~ s/-//;
46 $mbmonsettings{'LABEL-'.$name[0]}="$label";
47 $mbmonsettings{'LINE-'.$name[0]}="checked";
48 }
49 }
50
51 &General::readhash("${General::swroot}/mbmon/settings", \%mbmonsettings);
52 use Encode 'from_to';
53
54 my %tr=();
55 if ((${Lang::language} eq 'el') ||
56 (${Lang::language} eq 'fa') ||
57 (${Lang::language} eq 'ru') ||
58 (${Lang::language} eq 'th') ||
59 (${Lang::language} eq 'vi') ||
60 (${Lang::language} eq 'zh') ||
61 (${Lang::language} eq 'zt')) {
62 eval `/bin/cat "${General::swroot}/langs/en.pl"`;
63 } else {
64 %tr=%Lang::tr; # use translated version for other languages
65 }
66
67 # Generate the CPU Graph for the current period of time for values given by
68 # collectd atm only cpu average is displayed and only 1 or 2 cpu´s is working
69
70 sub updatecpugraph {
71 my $period = $_[0];
72 my @command = ("$graphs/cpu-$period.png",
73 "--start", "-1$period", "-aPNG", "-i", "-z", "-W www.ipfire.org", "-v $Lang::tr{'percentage'}",
74 "--alt-y-grid", "-w 600", "-h 125", "-l 0", "-u 100", "-r",
75 "--color", "SHADEA".$color{"color19"},
76 "--color", "SHADEB".$color{"color19"},
77 "--color", "BACK".$color{"color21"},
78 "-t $Lang::tr{'cpu usage per'} $Lang::tr{$period}");
79
80 if ( -e "/var/log/rrd/collectd/localhost/cpu-1/" ){
81 push(@command,"DEF:iowait0=$rrdlog/collectd/localhost/cpu-0/cpu-wait.rrd:value:AVERAGE",
82 "DEF:nice0=$rrdlog/collectd/localhost/cpu-0/cpu-nice.rrd:value:AVERAGE",
83 "DEF:interrupt0=$rrdlog/collectd/localhost/cpu-0/cpu-interrupt.rrd:value:AVERAGE",
84 "DEF:steal0=$rrdlog/collectd/localhost/cpu-0/cpu-steal.rrd:value:AVERAGE",
85 "DEF:user0=$rrdlog/collectd/localhost/cpu-0/cpu-user.rrd:value:AVERAGE",
86 "DEF:system0=$rrdlog/collectd/localhost/cpu-0/cpu-system.rrd:value:AVERAGE",
87 "DEF:idle0=$rrdlog/collectd/localhost/cpu-0/cpu-idle.rrd:value:AVERAGE",
88 "DEF:irq0=$rrdlog/collectd/localhost/cpu-0/cpu-softirq.rrd:value:AVERAGE");
89 push(@command,"DEF:iowait1=$rrdlog/collectd/localhost/cpu-1/cpu-wait.rrd:value:AVERAGE",
90 "DEF:nice1=$rrdlog/collectd/localhost/cpu-1/cpu-nice.rrd:value:AVERAGE",
91 "DEF:interrupt1=$rrdlog/collectd/localhost/cpu-1/cpu-interrupt.rrd:value:AVERAGE",
92 "DEF:steal1=$rrdlog/collectd/localhost/cpu-1/cpu-steal.rrd:value:AVERAGE",
93 "DEF:user1=$rrdlog/collectd/localhost/cpu-1/cpu-user.rrd:value:AVERAGE",
94 "DEF:system1=$rrdlog/collectd/localhost/cpu-1/cpu-system.rrd:value:AVERAGE",
95 "DEF:idle1=$rrdlog/collectd/localhost/cpu-1/cpu-idle.rrd:value:AVERAGE",
96 "DEF:irq1=$rrdlog/collectd/localhost/cpu-1/cpu-softirq.rrd:value:AVERAGE");
97 push(@command,"CDEF:user=user0,user1,+",
98 "CDEF:nice=nice0,nice1,+",
99 "CDEF:interrupt=interrupt0,interrupt1,+",
100 "CDEF:steal=steal0,steal1,+",
101 "CDEF:system=system0,system1,+",
102 "CDEF:idle=idle0,idle1,+",
103 "CDEF:iowait=iowait0,iowait1,+",
104 "CDEF:irq=irq0,irq1,+");
105 }
106 else {
107 push(@command,"DEF:iowait=$rrdlog/collectd/localhost/cpu-0/cpu-wait.rrd:value:AVERAGE",
108 "DEF:nice=$rrdlog/collectd/localhost/cpu-0/cpu-nice.rrd:value:AVERAGE",
109 "DEF:interrupt=$rrdlog/collectd/localhost/cpu-0/cpu-interrupt.rrd:value:AVERAGE",
110 "DEF:steal=$rrdlog/collectd/localhost/cpu-0/cpu-steal.rrd:value:AVERAGE",
111 "DEF:user=$rrdlog/collectd/localhost/cpu-0/cpu-user.rrd:value:AVERAGE",
112 "DEF:system=$rrdlog/collectd/localhost/cpu-0/cpu-system.rrd:value:AVERAGE",
113 "DEF:idle=$rrdlog/collectd/localhost/cpu-0/cpu-idle.rrd:value:AVERAGE",
114 "DEF:irq=$rrdlog/collectd/localhost/cpu-0/cpu-softirq.rrd:value:AVERAGE");
115 }
116 push(@command,"CDEF:total=user,system,idle,iowait,irq,nice,interrupt,steal,+,+,+,+,+,+,+",
117 "CDEF:userpct=100,user,total,/,*",
118 "CDEF:nicepct=100,nice,total,/,*",
119 "CDEF:interruptpct=100,interrupt,total,/,*",
120 "CDEF:stealpct=100,steal,total,/,*",
121 "CDEF:systempct=100,system,total,/,*",
122 "CDEF:idlepct=100,idle,total,/,*",
123 "CDEF:iowaitpct=100,iowait,total,/,*",
124 "CDEF:irqpct=100,irq,total,/,*",
125 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
126 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
127 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
128 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
129 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
130 "AREA:iowaitpct".$color{"color14"}.":".sprintf("%-25s",$Lang::tr{'cpu iowait usage'}),
131 "GPRINT:iowaitpct:MAX:%3.2lf%%",
132 "GPRINT:iowaitpct:AVERAGE:%3.2lf%%",
133 "GPRINT:iowaitpct:MIN:%3.2lf%%",
134 "GPRINT:iowaitpct:LAST:%3.2lf%%\\j",
135 "STACK:irqpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'cpu irq usage'}),
136 "GPRINT:irqpct:MAX:%3.2lf%%",
137 "GPRINT:irqpct:AVERAGE:%3.2lf%%",
138 "GPRINT:irqpct:MIN:%3.2lf%%",
139 "GPRINT:irqpct:LAST:%3.2lf%%\\j",
140 "STACK:nicepct".$color{"color16"}."A0:".sprintf("%-25s",$Lang::tr{'cpu nice usage'}),
141 "GPRINT:nicepct:MAX:%3.2lf%%",
142 "GPRINT:nicepct:AVERAGE:%3.2lf%%",
143 "GPRINT:nicepct:MIN:%3.2lf%%",
144 "GPRINT:nicepct:LAST:%3.2lf%%\\j",
145 "STACK:interruptpct".$color{"color15"}."A0:".sprintf("%-25s",$Lang::tr{'cpu interrupt usage'}),
146 "GPRINT:interruptpct:MAX:%3.2lf%%",
147 "GPRINT:interruptpct:AVERAGE:%3.2lf%%",
148 "GPRINT:interruptpct:MIN:%3.2lf%%",
149 "GPRINT:interruptpct:LAST:%3.2lf%%\\j",
150 "STACK:stealpct".$color{"color18"}."A0:".sprintf("%-25s",$Lang::tr{'cpu steal usage'}),
151 "GPRINT:stealpct:MAX:%3.2lf%%",
152 "GPRINT:stealpct:AVERAGE:%3.2lf%%",
153 "GPRINT:stealpct:MIN:%3.2lf%%",
154 "GPRINT:stealpct:LAST:%3.2lf%%\\j",
155 "STACK:userpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'cpu user usage'}),
156 "GPRINT:userpct:MAX:%3.2lf%%",
157 "GPRINT:userpct:AVERAGE:%3.2lf%%",
158 "GPRINT:userpct:MIN:%3.2lf%%",
159 "GPRINT:userpct:LAST:%3.2lf%%\\j",
160 "STACK:systempct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cpu system usage'}),
161 "GPRINT:systempct:MAX:%3.2lf%%",
162 "GPRINT:systempct:AVERAGE:%3.2lf%%",
163 "GPRINT:systempct:MIN:%3.2lf%%",
164 "GPRINT:systempct:LAST:%3.2lf%%\\j",
165 "STACK:idlepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'cpu idle usage'}),
166 "GPRINT:idlepct:MAX:%3.2lf%%",
167 "GPRINT:idlepct:AVERAGE:%3.2lf%%",
168 "GPRINT:idlepct:MIN:%3.2lf%%",
169 "GPRINT:idlepct:LAST:%3.2lf%%\\j");
170
171 RRDs::graph (@command);
172 $ERROR = RRDs::error;
173 print "Error in RRD::graph for cpu: $ERROR\n" if $ERROR;
174 }
175
176 # Generate the Load Graph for the current period of time for values given by collecd
177
178 sub updateloadgraph {
179 my $period = $_[0];
180
181 RRDs::graph ("$graphs/load-$period.png",
182 "--start", "-1$period", "-aPNG",
183 "-w 600", "-h 125", "-i", "-z", "-W www.ipfire.org", "-l 0", "-r", "--alt-y-grid",
184 "-t Load Average $Lang::tr{'graph per'} $Lang::tr{$period}", "-v $Lang::tr{'processes'}",
185 "--color", "SHADEA".$color{"color19"},
186 "--color", "SHADEB".$color{"color19"},
187 "--color", "BACK".$color{"color21"},
188 "DEF:load1=$rrdlog/collectd/localhost/load/load.rrd:shortterm:AVERAGE",
189 "DEF:load5=$rrdlog/collectd/localhost/load/load.rrd:midterm:AVERAGE",
190 "DEF:load15=$rrdlog/collectd/localhost/load/load.rrd:longterm:AVERAGE",
191 "AREA:load1".$color{"color13"}."A0:1 Minute:",
192 "GPRINT:load1:LAST:%5.2lf",
193 "AREA:load5".$color{"color18"}."A0:5 Minuten:",
194 "GPRINT:load5:LAST:%5.2lf",
195 "AREA:load15".$color{"color14"}."A0:15 Minuten:",
196 "GPRINT:load15:LAST:%5.2lf\\j",
197 "LINE1:load5".$color{"color13"},
198 "LINE1:load1".$color{"color18"});
199 $ERROR = RRDs::error;
200 print "Error in RRD::graph for load: $ERROR\n" if $ERROR;
201 }
202
203 # Generate the Memory and Swap Graph for the current period of time for values given by collecd
204
205 sub updatememgraph {
206 my $period = $_[0];
207
208 RRDs::graph ("$graphs/memory-$period.png",
209 "--start", "-1$period", "-aPNG", "-i", "-z", "-W www.ipfire.org", "-v $Lang::tr{'percentage'}",
210 "--alt-y-grid", "-w 600", "-h 125", "-l 0", "-u 100", "-r",
211 "--color", "SHADEA".$color{"color19"},
212 "--color", "SHADEB".$color{"color19"},
213 "--color", "BACK".$color{"color21"},
214 "-t $Lang::tr{'memory usage per'} $Lang::tr{$period}",
215 "DEF:used=$rrdlog/collectd/localhost/memory/memory-used.rrd:value:AVERAGE",
216 "DEF:free=$rrdlog/collectd/localhost/memory/memory-free.rrd:value:AVERAGE",
217 "DEF:buffer=$rrdlog/collectd/localhost/memory/memory-buffered.rrd:value:AVERAGE",
218 "DEF:cache=$rrdlog/collectd/localhost/memory/memory-cached.rrd:value:AVERAGE",
219 "CDEF:total=used,free,cache,buffer,+,+,+",
220 "CDEF:usedpct=used,total,/,100,*",
221 "CDEF:bufferpct=buffer,total,/,100,*",
222 "CDEF:cachepct=cache,total,/,100,*",
223 "CDEF:freepct=free,total,/,100,*",
224 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
225 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
226 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
227 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
228 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
229 "AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used memory'}),
230 "GPRINT:usedpct:MAX:%3.2lf%%",
231 "GPRINT:usedpct:AVERAGE:%3.2lf%%",
232 "GPRINT:usedpct:MIN:%3.2lf%%",
233 "GPRINT:usedpct:LAST:%3.2lf%%\\j",
234 "STACK:bufferpct".$color{"color23"}."A0:".sprintf("%-25s",$Lang::tr{'buffered memory'}),
235 "GPRINT:bufferpct:MAX:%3.2lf%%",
236 "GPRINT:bufferpct:AVERAGE:%3.2lf%%",
237 "GPRINT:bufferpct:MIN:%3.2lf%%",
238 "GPRINT:bufferpct:LAST:%3.2lf%%\\j",
239 "STACK:cachepct".$color{"color14"}."A0:".sprintf("%-25s",$Lang::tr{'cached memory'}),
240 "GPRINT:cachepct:MAX:%3.2lf%%",
241 "GPRINT:cachepct:AVERAGE:%3.2lf%%",
242 "GPRINT:cachepct:MIN:%3.2lf%%",
243 "GPRINT:cachepct:LAST:%3.2lf%%\\j",
244 "STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free memory'}),
245 "GPRINT:freepct:MAX:%3.2lf%%",
246 "GPRINT:freepct:AVERAGE:%3.2lf%%",
247 "GPRINT:freepct:MIN:%3.2lf%%",
248 "GPRINT:freepct:LAST:%3.2lf%%\\j");
249 $ERROR = RRDs::error;
250 print "Error in RRD::graph for mem: $ERROR\n" if $ERROR;
251
252 RRDs::graph ("$graphs/swap-$period.png",
253 "--start", "-1$period", "-aPNG", "-i", "-z", "-W www.ipfire.org", "-v $Lang::tr{'percentage'}",
254 "--alt-y-grid", "-w 600", "-h 125", "-l 0", "-u 100", "-r",
255 "--color", "SHADEA".$color{"color19"},
256 "--color", "SHADEB".$color{"color19"},
257 "--color", "BACK".$color{"color21"},
258 "-t $Lang::tr{'swap usage per'} $Lang::tr{$period}",
259 "DEF:used=$rrdlog/collectd/localhost/swap/swap-used.rrd:value:AVERAGE",
260 "DEF:free=$rrdlog/collectd/localhost/swap/swap-free.rrd:value:AVERAGE",
261 "DEF:cached=$rrdlog/collectd/localhost/swap/swap-cached.rrd:value:AVERAGE",
262 "CDEF:total=used,free,cached,+,+",
263 "CDEF:usedpct=100,used,total,/,*",
264 "CDEF:freepct=100,free,total,/,*",
265 "CDEF:cachedpct=100,cached,total,/,*",
266 "COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),
267 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
268 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
269 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
270 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
271 "AREA:usedpct".$color{"color11"}."A0:".sprintf("%-25s",$Lang::tr{'used swap'}),
272 "GPRINT:usedpct:MAX:%3.2lf%%",
273 "GPRINT:usedpct:AVERAGE:%3.2lf%%",
274 "GPRINT:usedpct:MIN:%3.2lf%%",
275 "GPRINT:usedpct:LAST:%3.2lf%%\\j",
276 "STACK:freepct".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'free swap'}),
277 "GPRINT:freepct:MAX:%3.2lf%%",
278 "GPRINT:freepct:AVERAGE:%3.2lf%%",
279 "GPRINT:freepct:MIN:%3.2lf%%",
280 "GPRINT:freepct:LAST:%3.2lf%%\\j",
281 "STACK:cachedpct".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'cached swap'}),
282 "GPRINT:cachedpct:MAX:%3.2lf%%",
283 "GPRINT:cachedpct:AVERAGE:%3.2lf%%",
284 "GPRINT:cachedpct:MIN:%3.2lf%%",
285 "GPRINT:cachedpct:LAST:%3.2lf%%\\j");
286 $ERROR = RRDs::error;
287 print "Error in RRD::graph for swap: $ERROR\n" if $ERROR;
288 }
289
290 # Generate the Disk Graph for the current period of time for values given by collecd
291
292 sub updatediskgraph {
293 my $period = $_[0];
294 my $disk = $_[1];
295
296 RRDs::graph ("$graphs/disk-$disk-$period.png",
297 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org", "-v $Lang::tr{'bytes per second'}",
298 "--alt-y-grid", "-w 600", "-h 125", "-r", "-z",
299 "--color", "SHADEA".$color{"color19"},
300 "--color", "SHADEB".$color{"color19"},
301 "--color", "BACK".$color{"color21"},
302 "-t $disk $Lang::tr{'disk access per'} $Lang::tr{$period}",
303 "DEF:read=$rrdlog/collectd/localhost/disk-$disk/disk_octets.rrd:read:AVERAGE",
304 "DEF:write=$rrdlog/collectd/localhost/disk-$disk/disk_octets.rrd:write:AVERAGE",
305 "CDEF:writen=write,-1,*",
306 "DEF:standby=$rrdlog/hddshutdown-$disk.rrd:standby:AVERAGE",
307 "CDEF:st=standby,INF,*",
308 "COMMENT:".sprintf("%-25s",$Lang::tr{'caption'}),
309 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
310 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
311 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
312 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
313 "AREA:st".$color{"color20"}."A0:standby\\j",
314 "AREA:read".$color{"color12"}."A0:".sprintf("%-25s",$Lang::tr{'read bytes'}),
315 "GPRINT:read:MAX:%8.1lf %sBps",
316 "GPRINT:read:AVERAGE:%8.1lf %sBps",
317 "GPRINT:read:MIN:%8.1lf %sBps",
318 "GPRINT:read:LAST:%8.1lf %sBps\\j",
319 "AREA:writen".$color{"color13"}."A0:".sprintf("%-25s",$Lang::tr{'written bytes'}),
320 "GPRINT:write:MAX:%8.1lf %sBps",
321 "GPRINT:write:AVERAGE:%8.1lf %sBps",
322 "GPRINT:write:MIN:%8.1lf %sBps",
323 "GPRINT:write:LAST:%8.1lf %sBps\\j");
324 $ERROR = RRDs::error;
325 print "Error in RRD::graph for disk: $ERROR\n" if $ERROR;
326 }
327
328 # Generate the Interface Graph for the current period of time for values given by collecd
329
330 sub updateifgraph {
331 my $interface = $_[0];
332 my $period = $_[1];
333
334 RRDs::graph ("$graphs/$interface-$period.png",
335 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org", "-v $Lang::tr{'bytes per second'}",
336 "--alt-y-grid", "-w 600", "-h 125", "-z", "-r",
337 "--color", "SHADEA".$color{"color19"},
338 "--color", "SHADEB".$color{"color19"},
339 "--color", "BACK".$color{"color21"},
340 "-t $Lang::tr{'traffic on'} $interface $Lang::tr{'graph per'} $Lang::tr{$period}",
341 "-v$Lang::tr{'bytes per second'}",
342 "DEF:incoming=$rrdlog/collectd/localhost/interface/if_octets-$interface.rrd:rx:AVERAGE",
343 "DEF:outgoing=$rrdlog/collectd/localhost/interface/if_octets-$interface.rrd:tx:AVERAGE",
344 "CDEF:outgoingn=outgoing,-1,*",
345 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
346 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
347 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
348 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
349 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
350 "AREA:incoming".$color{"color12"}."A0:".sprintf("%-20s",$Lang::tr{'incoming traffic in bytes per second'}),
351 "GPRINT:incoming:MAX:%8.1lf %sBps",
352 "GPRINT:incoming:AVERAGE:%8.1lf %sBps",
353 "GPRINT:incoming:MIN:%8.1lf %sBps",
354 "GPRINT:incoming:LAST:%8.1lf %sBps\\j",
355 "AREA:outgoingn".$color{"color13"}."A0:".sprintf("%-20s",$Lang::tr{'outgoing traffic in bytes per second'}),
356 "GPRINT:outgoing:MAX:%8.1lf %sBps",
357 "GPRINT:outgoing:AVERAGE:%8.1lf %sBps",
358 "GPRINT:outgoing:MIN:%8.1lf %sBps",
359 "GPRINT:outgoing:LAST:%8.1lf %sBps\\j");
360 $ERROR = RRDs::error;
361 print "Error in RRD::graph for $interface: $ERROR\n" if $ERROR;
362 }
363
364 # Generate the Firewall Graph for the current period of time for values given by collecd
365
366 sub updatefwhitsgraph {
367 my $period = $_[0];
368 RRDs::graph ("$graphs/fwhits-$period.png",
369 "--start", "-1$period", "-aPNG", "-i", "-z", "-W www.ipfire.org",
370 "--alt-y-grid", "-w 600", "-h 125", "-r", "-v $Lang::tr{'bytes per second'}",
371 "--color", "SHADEA".$color{"color19"},
372 "--color", "SHADEB".$color{"color19"},
373 "--color", "BACK".$color{"color21"},
374 "-t $Lang::tr{'firewall hits per'} $Lang::tr{$period}",
375 "DEF:output=$rrdlog/collectd/localhost/iptables-filter-FORWARD/ipt_bytes-DROP_OUTPUT.rrd:value:AVERAGE",
376 "DEF:input=$rrdlog/collectd/localhost/iptables-filter-INPUT/ipt_bytes-DROP_INPUT.rrd:value:AVERAGE",
377 "DEF:newnotsyn=$rrdlog/collectd/localhost/iptables-filter-NEWNOTSYN/ipt_bytes-DROP_NEWNOTSYN.rrd:value:AVERAGE",
378 "DEF:portscan=$rrdlog/collectd/localhost/iptables-filter-PSCAN/ipt_bytes-DROP_PScan.rrd:value:AVERAGE",
379 "CDEF:amount=output,input,newnotsyn,+,+",
380 "COMMENT:".sprintf("%-20s",$Lang::tr{'caption'}),
381 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
382 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
383 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
384 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
385 "AREA:amount".$color{"color24"}."A0:".sprintf("%-20s",$Lang::tr{'firewallhits'}),
386 "GPRINT:amount:MAX:%8.1lf %sBps",
387 "GPRINT:amount:AVERAGE:%8.1lf %sBps",
388 "GPRINT:amount:MIN:%8.1lf %sBps",
389 "GPRINT:amount:LAST:%8.1lf %sBps\\j",
390 "STACK:portscan".$color{"color25"}."A0:".sprintf("%-20s",$Lang::tr{'portscans'}),
391 "GPRINT:portscan:MAX:%8.1lf %sBps",
392 "GPRINT:portscan:MIN:%8.1lf %sBps",
393 "GPRINT:portscan:AVERAGE:%8.1lf %sBps",
394 "GPRINT:portscan:LAST:%8.1lf %sBps\\j");
395 $ERROR = RRDs::error;
396 print "Error in RRD::graph for Firewallhits: $ERROR\n" if $ERROR;
397 }
398
399 # Generate the Line Quality Graph for the current period of time for values given by collecd
400
401 sub updatelqgraph {
402 my $period = $_[0];
403 RRDs::graph ("$graphs/lq-$period.png",
404 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org",
405 "--alt-y-grid", "-w 600", "-h 125", "-l 0", "-r", "-v ms",
406 "-t $Lang::tr{'linkq'} $Lang::tr{'graph per'} $Lang::tr{$period}",
407 "--color", "SHADEA".$color{"color19"},
408 "--color", "SHADEB".$color{"color19"},
409 "--color", "BACK".$color{"color21"},
410 "DEF:roundtrip=$rrdlog/collectd/localhost/ping/ping-gateway.rrd:ping:AVERAGE",
411 "COMMENT:$Lang::".sprintf("%-20s",$Lang::tr{'caption'})."\\j",
412 "CDEF:roundavg=roundtrip,PREV(roundtrip),+,2,/",
413 "CDEF:r0=roundtrip,30,MIN",
414 "CDEF:r1=roundtrip,70,MIN",
415 "CDEF:r2=roundtrip,150,MIN",
416 "CDEF:r3=roundtrip,300,MIN",
417 "AREA:roundtrip".$color{"color25"}."A0:>300 ms",
418 "AREA:r3".$color{"color18"}."A0:150-300 ms",
419 "AREA:r2".$color{"color14"}."A0:70-150 ms",
420 "AREA:r1".$color{"color17"}."A0:30-70 ms",
421 "AREA:r0".$color{"color12"}."A0:<30 ms\\j",
422 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
423 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
424 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
425 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
426 "LINE1:roundtrip#707070:",
427 "GPRINT:roundtrip:MAX:%3.2lf ms",
428 "GPRINT:roundtrip:AVERAGE:%3.2lf ms",
429 "GPRINT:roundtrip:MIN:%3.2lf ms",
430 "GPRINT:roundtrip:LAST:%3.2lf ms\\j");
431 $ERROR = RRDs::error;
432 print "Error in RRD::graph for Link Quality: $ERROR\n" if $ERROR;
433 }
434
435 # Generate the Hdd Graph for the current period of time for values given by collecd
436
437 sub updatehddgraph {
438
439 my $disk = $_[0];
440 my $period = $_[1];
441
442 RRDs::graph ("$graphs/hddtemp-$disk-$period.png",
443 "--start", "-1$period", "-aPNG", "-i", "-z", "-W www.ipfire.org",
444 "--alt-y-grid", "-w 600", "-h 125",
445 "--color", "SHADEA".$color{"color19"},
446 "--color", "SHADEB".$color{"color19"},
447 "--color", "BACK".$color{"color21"},
448 "-t $disk $Lang::tr{'harddisk temperature'} $Lang::tr{'graph per'} $Lang::tr{$period}",
449 "DEF:temperature=$rrdlog/hddtemp-$disk.rrd:temperature:AVERAGE",
450 "DEF:standby=$rrdlog/hddshutdown-$disk.rrd:standby:AVERAGE",
451 "CDEF:st=standby,INF,*",
452 "AREA:st".$color{"color20"}."A0:standby",
453 "LINE3:temperature".$color{"color11"}."A0:$Lang::tr{'hdd temperature in'} C\\j",
454 "COMMENT:$Lang::tr{'maximal'}",
455 "COMMENT:$Lang::tr{'average'}",
456 "COMMENT:$Lang::tr{'minimal'}",
457 "COMMENT:$Lang::tr{'current'}\\j",
458 "GPRINT:temperature:MAX:%3.0lf Grad C",
459 "GPRINT:temperature:AVERAGE:%3.0lf Grad C",
460 "GPRINT:temperature:MIN:%3.0lf Grad C",
461 "GPRINT:temperature:LAST:%3.0lf Grad C\\j",
462 );
463 $ERROR = RRDs::error;
464 print "Error in RRD::graph for hdd-$disk: $ERROR\n" if $ERROR;
465 }
466
467 # Generate the QoS Graph for the current period of time
468
469 sub overviewgraph {
470
471 my $period = $_[0];
472 my $periodstring;
473 my $description;
474 my %qossettings = ();
475 &General::readhash("${General::swroot}/qos/settings", \%qossettings);
476 my $classentry = "";
477 my @classes = ();
478 my @classline = ();
479 my $classfile = "/var/ipfire/qos/classes";
480
481 $qossettings{'DEV'} = $_[1];
482 if ( $qossettings{'DEV'} eq $qossettings{'RED_DEV'} ) {
483 $qossettings{'CLASSPRFX'} = '1';
484 } else {
485 $qossettings{'CLASSPRFX'} = '2';
486 }
487
488 if ( $period ne '3240' ){ $periodstring = "-1$period";}else{ $periodstring = "-".$period;}
489 if ( $period ne '3240' ){ $description = "-t $Lang::tr{'Utilization on'} ($qossettings{'DEV'}) ($Lang::tr{'graph per'} $Lang::tr{$period})";}else{ $description = "-t $Lang::tr{'Utilization on'} ($qossettings{'DEV'})";}
490
491 my $ERROR="";
492 my $count="1";
493 my $color="#000000";
494 my @command=("/srv/web/ipfire/html/graphs/qos-graph-$qossettings{'DEV'}-$period.png",
495 "--start", $periodstring, "-aPNG", "-i", "-z", "-W www.ipfire.org",
496 "--alt-y-grid", "-w 600", "-h 125", "-r", "-v $Lang::tr{'bytes per second'}",
497 "--color", "SHADEA".$color{"color19"},
498 "--color", "SHADEB".$color{"color19"},
499 "--color", "BACK".$color{"color21"},
500 "COMMENT:".sprintf("%-28s",$Lang::tr{'caption'}),
501 "COMMENT:".sprintf("%15s",$Lang::tr{'maximal'}),
502 "COMMENT:".sprintf("%15s",$Lang::tr{'average'}),
503 "COMMENT:".sprintf("%15s",$Lang::tr{'minimal'}),
504 "COMMENT:".sprintf("%15s",$Lang::tr{'current'})."\\j",
505 $description
506 );
507 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
508 @classes = <FILE>;
509 close FILE;
510 foreach $classentry (sort @classes)
511 {
512 @classline = split( /\;/, $classentry );
513 if ( $classline[0] eq $qossettings{'DEV'} )
514 {
515 $color=random_hex_color(6);
516 push(@command, "DEF:$classline[1]=/var/log/rrd/class_$qossettings{'CLASSPRFX'}-$classline[1]_$qossettings{'DEV'}.rrd:bytes:AVERAGE");
517
518 if ($count eq "1") {
519 push(@command, "AREA:$classline[1]$color:Klasse $classline[1] -".sprintf("%15s",$classline[8]));
520 } else {
521 push(@command, "STACK:$classline[1]$color:Klasse $classline[1] -".sprintf("%15s",$classline[8]));
522
523 }
524 push(@command, "GPRINT:$classline[1]:MAX:%8.1lf %sBps");
525 push(@command, "GPRINT:$classline[1]:AVERAGE:%8.1lf %sBps");
526 push(@command, "GPRINT:$classline[1]:MIN:%8.1lf %sBps");
527 push(@command, "GPRINT:$classline[1]:LAST:%8.1lf %sBps\\j");
528 $count++;
529 }
530 }
531 RRDs::graph (@command);
532 $ERROR = RRDs::error;
533 print "$ERROR";
534 }
535
536 # Generate the Temperature Graph for the current period of time for values given by collecd and mbmon
537
538 sub updatehwtempgraph {
539
540 my $period = $_[0];
541
542 my @command = ("$graphs/mbmon-hwtemp-$period.png",
543 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org",
544 "--alt-y-grid", "-w 600", "-h 125",
545 "--color", "SHADEA".$color{"color19"},"--color",
546 "SHADEB".$color{"color19"},"--color",
547 "BACK".$color{"color21"},
548 "-t $Lang::tr{'mbmon temp'} $Lang::tr{'graph per'} $Lang::tr{$period}");
549
550 foreach(@mbmongraphs){
551 chomp($_);
552 if ( $_ =~ /temperature/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"DEF:".$mbmonsettings{'LABEL-'.$name[0]}."=$rrdlog/collectd/localhost/mbmon/".$_.":value:AVERAGE");
553 }
554 }
555 push(@command,"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),"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");
556 foreach(@mbmongraphs){
557 chomp($_);
558 if ( $_ =~ /temperature/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"LINE3:".$mbmonsettings{'LABEL-'.$name[0]}.random_hex_color(6)."A0:".sprintf("%-25s",$mbmonsettings{'LABEL-'.$name[0]}),
559 "GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MAX:%3.2lf C","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":AVERAGE:%3.2lf C","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MIN:%3.2lf C","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":LAST:%3.2lf C\\j",);}
560 }
561 RRDs::graph (@command);
562 $ERROR = RRDs::error;
563 print "$ERROR";
564 }
565
566 # Generate the Voltage Graph for the current period of time for values given by collecd and mbmon
567
568 sub updatehwvoltgraph {
569
570 my $period = $_[0];
571
572 my @command = ("$graphs/mbmon-hwvolt-$period.png",
573 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org",
574 "--alt-y-grid", "-w 600", "-h 125",
575 "--color", "SHADEA".$color{"color19"},"--color",
576 "SHADEB".$color{"color19"},"--color",
577 "BACK".$color{"color21"},
578 "-t $Lang::tr{'mbmon volt'} $Lang::tr{'graph per'} $Lang::tr{$period}");
579
580 foreach(@mbmongraphs){
581 chomp($_);
582 if ( $_ =~ /voltage/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"DEF:".$mbmonsettings{'LABEL-'.$name[0]}."=$rrdlog/collectd/localhost/mbmon/".$_.":value:AVERAGE");}
583 }
584 push(@command,"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),"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");
585 foreach(@mbmongraphs){
586 chomp($_);
587 if ( $_ =~ /voltage/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"LINE3:".$mbmonsettings{'LABEL-'.$name[0]}.random_hex_color(6)."A0:".sprintf("%-25s",$mbmonsettings{'LABEL-'.$name[0]}),
588 "GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MAX:%3.2lf V","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":AVERAGE:%3.2lf V","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MIN:%3.2lf V","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":LAST:%3.2lf V\\j",);}
589 }
590 RRDs::graph (@command);
591 $ERROR = RRDs::error;
592 print "$ERROR";
593 }
594
595 # Generate the Load Graph for the current period of time for values given by collecd and mbmon
596
597 sub updatehwfangraph {
598
599 my $period = $_[0];
600
601 my @command = ("$graphs/mbmon-hwfan-$period.png",
602 "--start", "-1$period", "-aPNG", "-i", "-W www.ipfire.org",
603 "--alt-y-grid", "-w 600", "-h 125",
604 "--color", "SHADEA".$color{"color19"},"--color",
605 "SHADEB".$color{"color19"},"--color",
606 "BACK".$color{"color21"},
607 "-t $Lang::tr{'mbmon fan'} $Lang::tr{'graph per'} $Lang::tr{$period}");
608
609 foreach(@mbmongraphs){
610 chomp($_);
611 if ( $_ =~ /fanspeed/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"DEF:".$mbmonsettings{'LABEL-'.$name[0]}."=$rrdlog/collectd/localhost/mbmon/".$_.":value:AVERAGE");}
612 }
613 push(@command,"COMMENT:".sprintf("%-29s",$Lang::tr{'caption'}),"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");
614 foreach(@mbmongraphs){
615 chomp($_);
616 if ( $_ =~ /fanspeed/ ) {my @name=split(/\./,$_);if ( $mbmonsettings{'LINE-'.$name[0]} eq "off" ){next;}push(@command,"LINE3:".$mbmonsettings{'LABEL-'.$name[0]}.random_hex_color(6)."A0:".sprintf("%-25s",$mbmonsettings{'LABEL-'.$name[0]}),
617 "GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MAX:%5.0lf RPM","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":AVERAGE:%5.0lf RPM","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":MIN:%5.0lf RPM","GPRINT:".$mbmonsettings{'LABEL-'.$name[0]}.":LAST:%5.0lf RPM\\j",);}
618 }
619 RRDs::graph (@command);
620 $ERROR = RRDs::error;
621 print "$ERROR";
622 }
623
624 # Generate a random color, used by Qos Graph to be independent from the amount of values
625
626 sub random_hex_color {
627 my $size = shift;
628 $size = 6 if $size !~ /^3|6$/;
629 my @hex = ( 0 .. 9, 'a' .. 'f' );
630 my @color;
631 push @color, @hex[rand(@hex)] for 1 .. $size;
632 return join('', '#', @color);
633 }