add example for tr7432
[upsgraph] / upsgraph.pl
CommitLineData
e18c93b3
MG
1#!/usr/bin/perl -w
2
f49c04f7
MG
3#Due to memory leak in Debian squeeze (Bug #545519)
4my $use_rrds = 0;
5my $rrd_result = 0;
6
1c9fb9df
MG
7if ((@ARGV != 1) && (@ARGV != 2)) {
8 print STDERR "Syntax: ${0} configfile [uid]\n";
e18c93b3
MG
9 exit(1);
10}
11
1c9fb9df 12use Net::SNMP;
0e572cdc 13use IO::Socket::INET;
3679b927 14use IO::Select;
e5da3876 15use RRDs;
e26b065f 16use File::Copy;
e5da3876 17use Data::Dumper;
72d2ded0
MG
18use LWP::UserAgent;
19use JSON;
e18c93b3 20
1c9fb9df 21$UPSGRAPH::outdir = "";
3d7df03f 22$UPSGRAPH::daysCovered = 370;
1c9fb9df 23$UPSGRAPH::step = 60;
3d7df03f
BO
24$UPSGRAPH::stepsPerHour = (60 * 60) / $UPSGRAPH::step;
25$UPSGRAPH::keep = ($UPSGRAPH::daysCovered*24*60*60)/$UPSGRAPH::step;
26$UPSGRAPH::keepHours = ($UPSGRAPH::daysCovered*24*60*60)/$UPSGRAPH::stepsPerHour/$UPSGRAPH::step;
6c1071ee 27$UPSGRAPH::hosts = ();
d036d16a 28$UPSGRAPH::regenerateOnStart = 1; #when set, regenerate graphs on script startup
e18c93b3 29
1c9fb9df 30do $ARGV[0] or die "can't read config: $!";
e18c93b3 31
1c9fb9df 32my $outdir = $UPSGRAPH::outdir;
1c9fb9df 33my $step = $UPSGRAPH::step;
3d7df03f 34my $stepsPerHour = $UPSGRAPH::stepsPerHour;
e5da3876 35my $keep = $UPSGRAPH::keep;
3d7df03f 36my $keepHours = $UPSGRAPH::keepHours;
6c1071ee 37my $hosts = $UPSGRAPH::hosts;
e18c93b3 38
f49c04f7
MG
39sub rrd_update(@) {
40 my @args = @_;
41
42 if ($use_rrds == 1) {
43 RRDs::update(@args);
44 $rrd_result = RRDs::error;
45 } else {
46 $rrd_result = system("rrdtool", "update", @args);
47 }
48}
49
50sub rrd_graph(@) {
51 my @args = @_;
52 my @rrd_out = ();
53
54 if ($use_rrds == 1) {
55 @rrd_out = RRDs::graph(@args);
56 $rrd_result = RRDs::error;
57 } else {
58 my $rrd_stdout;
59
60 open(RRDFD, '-|', 'rrdtool', 'graph', @args);
61 while(<RRDFD>) {
62 chomp;
63 $rrd_stdout = $_;
64 }
65 close(RRDFD);
66 $rrd_result = $?;
67 if ($rrd_result == 0) {
68 push @rrd_out, 0;
69 push @rrd_out, split(/x/, $rrd_stdout);
70 }
71 }
72
73 return @rrd_out;
74}
75
e5da3876 76sub rrdcreate(@) {
21377f43
MG
77 my $newrrd = shift;
78 my $field = shift;
6c1071ee 79 my $vars = shift;
e5da3876
MG
80 my $start = shift;
81
21377f43 82 my @cmd = ("${newrrd}", "--step=${step}");
e5da3876
MG
83
84 if (defined($start)) {
85 push @cmd, "--start=${start}";
86 }
87
21377f43
MG
88 push @cmd, "DS:${field}:GAUGE:600:" .
89 $vars->{$field}->{'min'} . ":" .
f447c2a1 90 $vars->{$field}->{'max'};
21377f43 91
e5da3876 92 push @cmd, "RRA:AVERAGE:0.5:1:${keep}";
3d7df03f
BO
93 push @cmd, "RRA:MIN:0.4:${stepsPerHour}:${keepHours}";
94 push @cmd, "RRA:MAX:0.4:${stepsPerHour}:${keepHours}";
45bf9852 95 push @cmd, "RRA:AVERAGE:0.5:${stepsPerHour}:${keepHours}";
e5da3876
MG
96
97 RRDs::create(@cmd);
98 if (RRDs::error) {
99 print "Error while creating: " . RRDs::error . "\n";
100 exit 1;
101 }
102}
103
6c1071ee
MG
104sub fetch_snmp(@) {
105 my $address = shift;
106 my $community = shift;
107 my $oid = shift;
e5da3876 108
6c1071ee
MG
109 (my $session, my $error) = Net::SNMP->session(Hostname => $address,
110 Community => $community);
e18c93b3 111
0e572cdc
MG
112 if (!$session) {
113 print STDERR "session error: $error";
e0acc35a 114 return undef;
0e572cdc 115 }
e5da3876 116
6c1071ee 117 $session->translate(0);
e5da3876 118
0e572cdc 119 my $result = $session->get_request($oid);
e5da3876 120
6c1071ee 121 $session->close;
21377f43 122
0e572cdc
MG
123 return undef if (!defined($result));
124
125 $result->{$oid};
126}
127
128sub fetch_tcp(@) {
129 my $address = shift;
130 my $port = shift;
131
132 my $sock = IO::Socket::INET->new(PeerAddr => $address,
133 PeerPort => $port,
134 Proto => 'tcp',
135 Timeout => 1);
136
137 return undef if (!$sock);
138
3679b927
MG
139 my $select = IO::Select->new($sock);
140
141 my $value = undef;
142
143 if ($select->can_read(1)) {
144 chomp($value) if (sysread($sock, $value, 4096) > 0);
145 }
0e572cdc
MG
146
147 close($sock);
148
149 if (!$value) {
150 return undef;
151 }
152
153 $value=~ s/\s//g;
154
155 $value;
6c1071ee 156}
e5da3876 157
b57167a1
MG
158sub fetch_tcp_multi(@) {
159 my $address = shift;
160 my $port = shift;
161 my $delimiter = shift;
162 my %values;
163
164 my $sock = IO::Socket::INET->new(PeerAddr => $address,
165 PeerPort => $port,
166 Proto => 'tcp',
167 Timeout => 1);
168
169 return undef if (!$sock);
170
3679b927
MG
171 my $select = IO::Select->new($sock);
172
173 while($select->can_read(1)) {
174 if (sysread($sock, my $buf, 16384) > 0) {
175 $buf=~s/\r//g;
176 foreach my $line (split(/\n/, $buf)) {
177 (my $key, my $value) = split(/${delimiter}/, $line);
178 $value=~ s/\s//g;
179 $values{$key} = $value;
180 }
181 } else {
182 last;
183 }
b57167a1
MG
184 }
185
186 close($sock);
187
188 %values;
189}
190
72d2ded0 191sub fetch_iotcore(@) {
c952fc0b
MG
192 my $host = shift;
193 my $adr = shift;
194 my $mask = shift;
72d2ded0
MG
195
196 my $ua = LWP::UserAgent->new;
197 $ua->timeout(1);
198
c952fc0b
MG
199 my $iotcore_req = {
200 cid => 1,
201 code => 10,
202 adr => $adr,
203 };
204
205 my $req = HTTP::Request->new(POST => "http://${host}");
206 $req->content_type('application/json');
207 $req->content(encode_json($iotcore_req));
208
209 my $resp = $ua->request($req);
72d2ded0
MG
210 return undef if (!$resp->is_success);
211
212 my $pdin = decode_json($resp->decoded_content);
213 return undef if (!defined($pdin));
214
215 my $value = hex($pdin->{'data'}->{'value'});
216
c952fc0b
MG
217 if (defined($mask)) {
218 $value = $value & $mask;
219 }
220
72d2ded0
MG
221 $value;
222}
223
fd198fcd
BO
224sub dayGraphFunc {
225 my $dataSrc = shift;
226 my $mode = shift;
227 my $color = shift;
228 my $label = shift;
229 my $dataPoints = shift;
230 my @args = ();
231 push @args, "CDEF:prev${mode}1=PREV(${dataSrc})";
232 for (my $i = 1; $i < $dataPoints - 1; ++$i) {
233 my $prev = $i;
234 my $next = $i+1;
235 push @args, "CDEF:prev${mode}${next}=PREV(prev${mode}${prev})";
236 }
237 my $dayCons = '';
238 my $consFunc = '';
45bf9852
BO
239 if ($mode ne 'AVG') {
240 for (my $i = 1; $i < $dataPoints; ++$i) {
241 $dayCons .= "prev${mode}${i},";
242 $consFunc .= ",${mode}";
243 }
244 } else {
245 for (my $i = 1; $i < $dataPoints; ++$i) {
246 $dayCons .= "prev${mode}${i},";
247 }
248 $consFunc = ",${dataPoints},${mode}";
fd198fcd
BO
249 }
250 push @args, "CDEF:day${mode}=${dayCons}${dataSrc}${consFunc}";
251 push @args, "CDEF:fillCalDay${mode}0=COUNT,${dataPoints},%,0,EQ,day${mode},UNKN,IF";
252 for (my $i = 1; $i < $dataPoints; ++$i) {
253 my $prev = $i-1;
254 my $next = $i;
255 push @args, "CDEF:fillCalDay${mode}${next}=PREV(fillCalDay${mode}${prev})";
256 }
257 my $fillPoint = '';
258 my $if = '';
259 for (my $i = 0; $i < $dataPoints; ++$i) {
260 $fillPoint .= "COUNT,${dataPoints},%,${i},EQ,fillCalDay${mode}${i},";
261 $if .= ",IF";
262 }
263 push @args, "CDEF:${mode}Curve=${fillPoint}UNKN${if}";
264 my $forwardShift = (24*60*60) * ($dataPoints - 1) / $dataPoints;
265 push @args, "SHIFT:${mode}Curve:-${forwardShift}";
266 push @args, "LINE1:${mode}Curve#${color}:${label}";
267 return \@args;
268}
269
235b08ab
BO
270sub cfgToGraphDef {
271 my $cfg = shift;
272 my $varname = shift;
273 my $dpPerDay= shift;
274 my @graphDef = ();
275 foreach my $subGraph (@$cfg) {
276 if ($subGraph eq 'avg') {
277 push @graphDef, "LINE1:${varname}-avg#FF0000";
278 } elsif ($subGraph eq 'day-min') {
279 push @graphDef, @{dayGraphFunc("${varname}-min", 'MIN', '0000ff', 'Day Minimum Temperature', $dpPerDay)};
280 } elsif ($subGraph eq 'day-max') {
281 push @graphDef, @{dayGraphFunc("${varname}-max", 'MAX', '00ff00', 'Day Maximum Temperature', $dpPerDay)};
45bf9852
BO
282 } elsif ($subGraph eq 'day-avg') {
283 push @graphDef, @{dayGraphFunc("${varname}-houravg", 'AVG', 'ff0000', 'Day Average Temperature', $dpPerDay)};
235b08ab
BO
284 }
285 }
286 return \@graphDef;
287}
288
6c1071ee
MG
289if ($> == 0) {
290 if (@ARGV != 2) {
291 print STDERR "Running as root, please provide UID as 2th argument!\n";
292 exit(1);
e5da3876
MG
293 }
294
6c1071ee
MG
295 print "Running as root, switching to ".$ARGV[1]."\n";
296 $< = $> = $ARGV[1];
21377f43 297}
e5da3876 298
6c1071ee
MG
299foreach my $host (@$hosts) {
300 my $rrdfile = $host->{'rrdfile'};
21377f43 301
46ead44b
MG
302 foreach my $var (keys(%{$host->{'vars'}})) {
303 $host->{'vars'}->{$var}->{'min'} = 'U' if (!defined($host->{'vars'}->{$var}->{'min'}));
304 $host->{'vars'}->{$var}->{'max'} = 'U' if (!defined($host->{'vars'}->{$var}->{'max'}));
305 }
306
6c1071ee
MG
307 if (-e "${rrdfile}") {
308 print "Reading old ${rrdfile} to preserve data...\n";
e5da3876 309
6c1071ee
MG
310 my $rrdinfo = RRDs::info("${rrdfile}");
311 if (RRDs::error) {
312 print "Error while getting info: " . RRDs::error . "\n";
313 exit 1;
314 }
21377f43
MG
315
316 (my $start, my $ostep, my $names, my $data) =
6c1071ee 317 RRDs::fetch("${rrdfile}",
21377f43
MG
318 "-s " . (time() - ($rrdinfo->{'rra[0].rows'} * $rrdinfo->{'step'})),
319 "AVERAGE");
320
321 if (RRDs::error) {
322 print "Error while fetching data: " . RRDs::error . "\n";
323 exit 1;
324 }
325
6c1071ee
MG
326 foreach my $field (@$names) {
327 if (! -e "${rrdfile}.${field}") {
328 rrdcreate("${rrdfile}.${field}",
329 "${field}",
330 $host->{'vars'},
331 (${start}-${ostep}));
332 }
333 }
21377f43
MG
334
335 my $pos = $start;
336 foreach my $line (@$data) {
6c1071ee
MG
337 foreach my $field (@$names) {
338 my $val = shift (@$line);
21377f43 339 $val = 'U' if (!defined($val));
21377f43 340
6c1071ee
MG
341 RRDs::update("${rrdfile}.${field}", "${pos}:${val}");
342 if (RRDs::error) {
343 print "Can't insert data: " . RRDs::error . "\n";
344 exit 1;
345 }
346
21377f43 347 }
6c1071ee 348
21377f43
MG
349 $pos += $ostep;
350
351 if ((($pos-$start)/$ostep) == $#$data) {
352 last;
353 }
354 }
355
6c1071ee
MG
356 rename("${rrdfile}", "${rrdfile}.old") or die "Can't rename old file: $!\n";
357 }
21377f43 358
6c1071ee
MG
359 foreach my $field (@{$host->{'fields'}}) {
360 if (! -e "${rrdfile}.${field}") {
361 print "Creating ${rrdfile}.${field}...\n";
362 rrdcreate("${rrdfile}.${field}",
363 "${field}",
364 $host->{'vars'});
365 }
366
367 my $rrdinfo = RRDs::info("${rrdfile}.${field}");
21377f43
MG
368 if (RRDs::error) {
369 print "Error while getting info: " . RRDs::error . "\n";
370 exit 1;
371 }
372
99c552bf 373 my $limitsChanged = 0;
178e4778
MG
374 if (defined($rrdinfo->{"ds[${field}].min"})) {
375 if ($rrdinfo->{"ds[${field}].min"} ne $host->{'vars'}->{$field}->{'min'}) {
99c552bf 376 $limitsChanged = 1;
178e4778
MG
377 RRDs::tune("${rrdfile}.${field}","-i",$field.":".$host->{'vars'}->{$field}->{'min'});
378 }
379 } else {
380 if ($host->{'vars'}->{$field}->{'min'} ne 'U') {
99c552bf 381 $limitsChanged = 1;
178e4778
MG
382 RRDs::tune("${rrdfile}.${field}","-i",$field.":".$host->{'vars'}->{$field}->{'min'});
383 }
384 }
385
386 if (RRDs::error) {
387 print "Error while setting min: " . RRDs::error . "\n";
388 exit 1;
389 }
390
391 if (defined($rrdinfo->{"ds[${field}].max"})) {
392 if ($rrdinfo->{"ds[${field}].max"} ne $host->{'vars'}->{$field}->{'max'}) {
99c552bf 393 $limitsChanged = 1;
178e4778
MG
394 RRDs::tune("${rrdfile}.${field}","-a",$field.":".$host->{'vars'}->{$field}->{'max'});
395 }
396 } else {
397 if ($host->{'vars'}->{$field}->{'max'} ne 'U') {
99c552bf 398 $limitsChanged = 1;
178e4778
MG
399 RRDs::tune("${rrdfile}.${field}","-a",$field.":".$host->{'vars'}->{$field}->{'max'});
400 }
401 }
402
403 if (RRDs::error) {
404 print "Error while setting max: " . RRDs::error . "\n";
405 exit 1;
406 }
407
3d7df03f 408 if ($rrdinfo->{'rra[0].rows'} != $keep ||
45bf9852 409 !defined($rrdinfo->{'rra[3].rows'}) || $rrdinfo->{'rra[3].rows'} != $keepHours ||
99c552bf 410 $limitsChanged == 1) {
3d7df03f 411
6c1071ee
MG
412 print "Resizing ${rrdfile}.${field} from " . $rrdinfo->{'rra[0].rows'} .
413 " to ${keep} samples.\n";
e18c93b3 414
6c1071ee
MG
415 (my $start, my $ostep, my $names, my $data) =
416 RRDs::fetch("${rrdfile}.${field}",
417 "-s " . (time() - ($rrdinfo->{'rra[0].rows'} * $rrdinfo->{'step'})),
418 "AVERAGE");
6aa53fc5 419
6c1071ee
MG
420 if (RRDs::error) {
421 print "Error while fetching data: " . RRDs::error . "\n";
422 exit 1;
423 }
6aa53fc5 424
6c1071ee
MG
425 rrdcreate("${rrdfile}.${field}.new",
426 "${field}",
427 $host->{'vars'},
428 (${start}-${ostep}));
6aa53fc5 429
3d7df03f 430 print "Preserving data in file ${rrdfile}.${field} since " . localtime($start) . "\n";
e18c93b3 431
6c1071ee
MG
432 my $pos = $start;
433 foreach my $line (@$data) {
434 my $vline = "${pos}";
e18c93b3 435
6c1071ee
MG
436 foreach my $val (@$line) {
437 $val = 'U' if (!defined($val));
438 $vline .= ":${val}";
439 }
440 RRDs::update("${rrdfile}.${field}.new", $vline) or die "Can't insert data\n";
e18c93b3 441
6c1071ee
MG
442 if (RRDs::error) {
443 print "Error while updating: " . RRDs::error . "\n";
444 exit 1;
445 }
446 $pos += $ostep;
e18c93b3 447
6c1071ee
MG
448 if ((($pos-$start)/$ostep) == $#$data) {
449 last;
450 }
451 }
e18c93b3 452
6c1071ee
MG
453 rename("${rrdfile}.${field}", "${rrdfile}.${field}.old") or die "Can't rename old file: $!\n";
454 rename("${rrdfile}.${field}.new", "${rrdfile}.${field}") or die "Can't rename new file: $!\n";
e18c93b3 455
6c1071ee
MG
456 $rrdinfo = RRDs::info("${rrdfile}.${field}");
457 if (RRDs::error) {
458 print "Error while getting info: " . RRDs::error . "\n";
459 exit 1;
460 }
e18c93b3 461
6c1071ee
MG
462 if ($rrdinfo->{'rra[0].rows'} != $keep) {
463 print "Failed!\n";
464 exit 1;
465 }
e18c93b3 466 }
e18c93b3 467 }
6c1071ee
MG
468}
469
470my $child = fork();
e18c93b3 471
6c1071ee
MG
472die "fork failed!" if (!defined($child));
473
474exit 0 if ($child != 0);
475
d036d16a 476my $first = $UPSGRAPH::regenerateOnStart;
6c1071ee 477while(1) {
e18c93b3
MG
478 open(HTML, ">${outdir}/index.html.new");
479
2c148a8e 480 print HTML '<html><head><meta http-equiv="refresh" content="60"/><meta http-equiv="cache-control" content="no-cache"/><meta http-equiv="pragma" content="no-cache"/><meta http_equiv="expires" content="Sat, 26 Jul 1997 05:00:00 GMT"/><title>Status</title></head>';
e18c93b3
MG
481 print HTML '<body bgcolor="#ffffff">';
482
6c1071ee 483 foreach my $host (@$hosts) {
2c148a8e
MG
484 print HTML "[<a href=\"#".${host}->{'name'}."\">".${host}->{'name'}."</a>]&nbsp;";
485 }
486 print HTML "<br>\n";
487
488 foreach my $host (@$hosts) {
489 print HTML "<br>\n";
490 print HTML "<a name=\"".${host}->{'name'}."\"></a>\n";
6c1071ee
MG
491 my $vars = $host->{'vars'};
492 my $rrdfile = $host->{'rrdfile'};
493 my $hostname = $host->{'name'};
b57167a1 494 my %multi_values = ();
6c1071ee
MG
495
496 foreach my $var (@{$host->{'fields'}}) {
497 delete $vars->{$var}->{'value'};
e5da3876 498
0e572cdc
MG
499 my $result;
500
501 if ((!defined($vars->{$var}->{'proto'})) ||
502 ($vars->{$var}->{'proto'} eq '') ||
503 ($vars->{$var}->{'proto'} eq 'snmp')) {
504 $result = fetch_snmp($host->{'address'}, $host->{'community'}, $vars->{$var}->{'oid'});
505 } elsif ($vars->{$var}->{'proto'} eq 'tcp') {
506 $result = fetch_tcp($host->{'address'}, $vars->{$var}->{'port'});
b57167a1
MG
507 } elsif ($vars->{$var}->{'proto'} eq 'tcp_multi') {
508 if (defined($multi_values{$vars->{$var}->{'multi_id'}})) {
509 $result = $multi_values{$vars->{$var}->{'multi_id'}}
510 } else {
511 my %values = fetch_tcp_multi($host->{'address'}, $vars->{$var}->{'port'}, $vars->{$var}->{'multi_delimiter'});
512 @multi_values{keys %values} = values %values;
513 $result = $multi_values{$vars->{$var}->{'multi_id'}};
514 }
72d2ded0 515 } elsif ($vars->{$var}->{'proto'} eq 'iotcore') {
c952fc0b 516 $result = fetch_iotcore($host->{'address'}, $vars->{$var}->{'adr'}, $vars->{$var}->{'mask'});
0e572cdc
MG
517 }
518
6c1071ee
MG
519 next unless (defined $result);
520
0e572cdc 521 $vars->{$var}->{'value'} = $result;
6c1071ee
MG
522 if (defined($vars->{$var}->{'factor'})) {
523 $vars->{$var}->{'value'} *= $vars->{$var}->{'factor'};
524 }
525 }
526
527 foreach my $var (@{$host->{'fields'}}) {
528 if (!(defined($vars->{$var}->{'value'}))) {
529 $vars->{$var}->{'value'} = 'U';
530 }
f49c04f7 531 rrd_update("${rrdfile}.${var}", "N:" . $vars->{$var}->{'value'});
6c1071ee 532 }
f49c04f7
MG
533 if ($rrd_result) {
534 print "Error while updating: " . $rrd_result . "\n";
e5da3876
MG
535 }
536
6c1071ee 537 foreach my $var (@{$host->{'fields'}}) {
235b08ab
BO
538 my $graphWidth = 365 * 3;
539 my $graphConfig;
540 if (defined $vars->{$var}->{'graph'}) {
541 $graphConfig = $vars->{$var}->{'graph'};
542 foreach my $subGraph (qw(day week year)) {
543 if (!defined($graphConfig->{$subGraph})) {
544 $graphConfig->{$subGraph} = [ 'avg'];
545 }
546 }
547 } else {
548 $graphConfig = {
549 'day' => [ 'avg' ],
550 'week' => [ 'avg' ],
551 'year' => [ 'avg' ],
552 };
553 }
554
29f39945 555 my @graphdef = ('-P', "-A", "-t", $hostname." - ".$vars->{$var}->{'name'});
d036d16a 556 push @graphdef, "--lazy" if !$first;
235b08ab
BO
557
558 push @graphdef, "DEF:${var}-avg=${rrdfile}.${var}:${var}:AVERAGE";
559 push @graphdef, "DEF:${var}-min=${rrdfile}.${var}:${var}:MIN";
560 push @graphdef, "DEF:${var}-max=${rrdfile}.${var}:${var}:MAX";
45bf9852 561 push @graphdef, "DEF:${var}-houravg=${rrdfile}.${var}:${var}:AVERAGE:step=3600";
235b08ab
BO
562 push @graphdef, "LINE1:${var}-avg#FF0000";
563 push @graphdef, "VDEF:cur=${var}-avg,LAST";
de10ff59 564 push @graphdef, 'GPRINT:cur:Current\\: <span foreground="#FF0000">%.2lf</span>\\r';
52259377
MG
565
566 my $mtime;
567 $mtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
568
6c1071ee 569 (my $averages, my $width, my $height) =
f49c04f7 570 rrd_graph("${outdir}/${hostname}.${var}.png.work",
6c1071ee 571 "-w", "720", @graphdef);
e5da3876 572
0e74e3d8
MG
573 pop @graphdef;
574 pop @graphdef;
235b08ab 575 pop @graphdef;
0e74e3d8 576
f49c04f7
MG
577 if ($rrd_result) {
578 print "Error while graphing: " . $rrd_result . "\n";
6c1071ee 579 } else {
52259377 580 my $newmtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
f004592a 581 if ((!defined($mtime)) || ($newmtime != $mtime)) {
52259377
MG
582 copy("${outdir}/${hostname}.${var}.png.work", "${outdir}/${hostname}.${var}.png.new");
583 rename("${outdir}/${hostname}.${var}.png.new", "${outdir}/${hostname}.${var}.png");
584 }
6c1071ee 585 }
e5da3876 586
2c148a8e 587 print HTML "<a href=\"${hostname}.${var}.html\"><img src=\"${hostname}.${var}.png\" width=\"${width}\" height=\"${height}\" border=\"0\"></a><br>\n";
58c56c83 588
6c1071ee 589 open (HTML2, ">${outdir}/${hostname}.${var}.html.new");
41cfd723 590 print HTML2 '<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><meta http-equiv="refresh" content="60"/><meta http-equiv="cache-control" content="no-cache"/><meta http-equiv="pragma" content="no-cache"/><meta http_equiv="expires" content="Sat, 26 Jul 1997 05:00:00 GMT"/><title>' . $vars->{$var}->{'name'} . '</title></head>';
6c1071ee 591 print HTML2 '<body bgcolor="#ffffff">';
58c56c83 592
3d7df03f 593 push @graphdef, "VDEF:min=${var}-min,MINIMUM";
6c1071ee 594 push @graphdef, "GPRINT:min:Minimum\\: %.2lf";
58c56c83 595
235b08ab 596 push @graphdef, "VDEF:avg=${var}-avg,AVERAGE";
6c1071ee 597 push @graphdef, "GPRINT:avg:Average\\: %.2lf";
58c56c83 598
3d7df03f 599 push @graphdef, "VDEF:max=${var}-max,MAXIMUM";
6c1071ee 600 push @graphdef, "GPRINT:max:Maximum\\: %.2lf";
e5da3876 601
235b08ab 602 push @graphdef, "VDEF:cur=${var}-avg,LAST";
6c1071ee 603 push @graphdef, "GPRINT:cur:Current\\: %.2lf";
e5da3876 604
235b08ab
BO
605 my @dayGraphDef = @graphdef;
606 push @dayGraphDef, @{cfgToGraphDef($graphConfig->{'day'}, ${var}, 24)};
607
52259377 608 $mtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
6c1071ee 609 ($averages, $width, $height) =
f49c04f7 610 rrd_graph("${outdir}/${hostname}.${var}.long.png.work",
235b08ab 611 "-w", $graphWidth, @dayGraphDef);
e5da3876 612
f49c04f7
MG
613 if ($rrd_result) {
614 print "Error while graphing: " . $rrd_result . "\n";
6c1071ee 615 } else {
52259377 616 my $newmtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
f004592a 617 if ((!defined($mtime)) || ($newmtime != $mtime)) {
52259377
MG
618 copy("${outdir}/${hostname}.${var}.long.png.work", "${outdir}/${hostname}.${var}.long.png.new");
619 rename("${outdir}/${hostname}.${var}.long.png.new", "${outdir}/${hostname}.${var}.long.png");
620 }
6c1071ee 621 }
e5da3876 622
1c46ea61 623 print HTML2 "<img src=\"${hostname}.${var}.long.png\" width=\"${width}\" height=\"${height}\"><br>\n";
6c1071ee 624
52259377 625 $mtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
235b08ab
BO
626
627 my @weekGraphDef = @graphdef;
628 push @weekGraphDef, @{cfgToGraphDef($graphConfig->{'week'}, ${var}, 24)};
629
6c1071ee 630 ($averages, $width, $height) =
f49c04f7 631 rrd_graph("${outdir}/${hostname}.${var}.week.png.work",
235b08ab 632 "-w", "$graphWidth", "-e", "now", "-s", "00:00-8d", @weekGraphDef);
6c1071ee 633
f49c04f7
MG
634 if ($rrd_result) {
635 print "Error while graphing: " . $rrd_result . "\n";
6c1071ee 636 } else {
52259377 637 my $newmtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
f004592a 638 if ((!defined($mtime)) || ($newmtime != $mtime)) {
52259377
MG
639 copy("${outdir}/${hostname}.${var}.week.png.work", "${outdir}/${hostname}.${var}.week.png.new");
640 rename("${outdir}/${hostname}.${var}.week.png.new", "${outdir}/${hostname}.${var}.week.png");
641 }
6c1071ee 642 }
e5da3876 643
1c46ea61 644 print HTML2 "<img src=\"${hostname}.${var}.week.png\" width=\"${width}\" height=\"${height}\"><br>\n";
e5da3876 645
52259377 646 $mtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
235b08ab
BO
647
648 my @yearGraphDef = @graphdef;
649 push @yearGraphDef, @{cfgToGraphDef($graphConfig->{'year'}, ${var}, 3)};
650
6c1071ee 651 ($averages, $width, $height) =
f49c04f7 652 rrd_graph("${outdir}/${hostname}.${var}.year.png.work",
235b08ab 653 "-w", "$graphWidth", "-e", "00:00", "-s", "end-365d", @yearGraphDef);
e5da3876 654
f49c04f7
MG
655 if ($rrd_result) {
656 print "Error while graphing: " . $rrd_result . "\n";
6c1071ee 657 } else {
52259377 658 my $newmtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
f004592a 659 if ((!defined($mtime)) || ($newmtime != $mtime)) {
52259377
MG
660 copy("${outdir}/${hostname}.${var}.year.png.work", "${outdir}/${hostname}.${var}.year.png.new");
661 rename("${outdir}/${hostname}.${var}.year.png.new", "${outdir}/${hostname}.${var}.year.png");
662 }
6c1071ee 663 }
e18c93b3 664
1c46ea61 665 print HTML2 "<img src=\"${hostname}.${var}.year.png\" width=\"${width}\" height=\"${height}\"><br>\n";
e18c93b3 666
6c1071ee
MG
667 print HTML2 "</body></html>\n";
668 close(HTML2);
669 rename("${outdir}/${hostname}.${var}.html.new", "${outdir}/${hostname}.${var}.html");
670 }
e18c93b3
MG
671 }
672
673 print HTML "</body></html>\n";
674 print HTML "<br>Generated on: " . localtime(time());
863e62dc 675 print HTML ' by <a href="http://git.zerfleddert.de/cgi-bin/gitweb.cgi/upsgraph">upsgraph</a>.';
e18c93b3
MG
676
677 close(HTML);
678
679 rename("${outdir}/index.html.new", "${outdir}/index.html");
680
681 sleep(${step}/2);
d036d16a 682 $first = 0;
e18c93b3 683}
Impressum, Datenschutz