]>
git.zerfleddert.de Git - upsgraph/blob - upsgraph.pl
3 #Due to memory leak in Debian squeeze (Bug #545519)
7 if ((@ARGV != 1) && (@ARGV != 2)) {
8 print STDERR
"Syntax: ${0} configfile [uid]\n";
19 $UPSGRAPH::outdir
= "";
20 $UPSGRAPH::daysCovered
= 370;
22 $UPSGRAPH::stepsPerHour
= (60 * 60) / $UPSGRAPH::step
;
23 $UPSGRAPH::keep
= ($UPSGRAPH::daysCovered
*24*60*60)/$UPSGRAPH::step
;
24 $UPSGRAPH::keepHours
= ($UPSGRAPH::daysCovered
*24*60*60)/$UPSGRAPH::stepsPerHour/$UPSGRAPH::step
;
25 $UPSGRAPH::hosts
= ();
26 $UPSGRAPH::regenerateOnStart
= 1; #when set, regenerate graphs on script startup
28 do $ARGV[0] or die "can't read config: $!";
30 my $outdir = $UPSGRAPH::outdir
;
31 my $step = $UPSGRAPH::step
;
32 my $stepsPerHour = $UPSGRAPH::stepsPerHour
;
33 my $keep = $UPSGRAPH::keep
;
34 my $keepHours = $UPSGRAPH::keepHours
;
35 my $hosts = $UPSGRAPH::hosts
;
39 print "Updating: ". Dumper
(\
@_);
42 $rrd_result = RRDs
::error
;
44 $rrd_result = system("rrdtool", "update", @args);
51 print "Graphing: " . Dumper
(\
@_);
53 @rrd_out = RRDs
::graph
(@args);
54 $rrd_result = RRDs
::error
;
58 open(RRDFD
, '-|', 'rrdtool', 'graph', @args);
65 if ($rrd_result == 0) {
67 push @rrd_out, split(/x/, $rrd_stdout);
80 my @cmd = ("${newrrd}", "--step=${step}");
82 if (defined($start)) {
83 push @cmd, "--start=${start}";
86 push @cmd, "DS:${field}:GAUGE:600:" .
87 $vars->{$field}->{'min'} . ":" .
88 $vars->{$field}->{'max'};
90 push @cmd, "RRA:AVERAGE:0.5:1:${keep}";
91 push @cmd, "RRA:MIN:0.4:${stepsPerHour}:${keepHours}";
92 push @cmd, "RRA:MAX:0.4:${stepsPerHour}:${keepHours}";
93 push @cmd, "RRA:AVERAGE:0.5:${stepsPerHour}:${keepHours}";
97 print "Error while creating: " . RRDs
::error
. "\n";
105 my $community = shift;
108 (my $session, my $error) = Net
::SNMP
->session(Hostname
=> $address,
109 Community
=> $community);
112 print STDERR
"session error: $error";
116 $session->translate(0);
118 my $result = $session->get_request($oid);
122 return undef if (!defined($result));
131 my $sock = IO
::Socket
::INET
->new(PeerAddr
=> $address,
136 return undef if (!$sock);
138 my $select = IO
::Select
->new($sock);
142 if ($select->can_read(1)) {
143 chomp($value) if (sysread($sock, $value, 4096) > 0);
157 sub fetch_tcp_multi
(@
) {
160 my $delimiter = shift;
163 my $sock = IO
::Socket
::INET
->new(PeerAddr
=> $address,
168 return undef if (!$sock);
170 my $select = IO
::Select
->new($sock);
172 while($select->can_read(1)) {
173 if (sysread($sock, my $buf, 16384) > 0) {
175 foreach my $line (split(/\n/, $buf)) {
176 (my $key, my $value) = split(/${delimiter}/, $line);
178 $values{$key} = $value;
195 my $dataPoints = shift;
197 push @args, "CDEF:prev${mode}1=PREV(${dataSrc})";
198 for (my $i = 1; $i < $dataPoints - 1; ++$i) {
201 push @args, "CDEF:prev${mode}${next}=PREV(prev${mode}${prev})";
205 if ($mode ne 'AVG') {
206 for (my $i = 1; $i < $dataPoints; ++$i) {
207 $dayCons .= "prev${mode}${i},";
208 $consFunc .= ",${mode}";
211 for (my $i = 1; $i < $dataPoints; ++$i) {
212 $dayCons .= "prev${mode}${i},";
214 $consFunc = ",${dataPoints},${mode}";
216 push @args, "CDEF:day${mode}=${dayCons}${dataSrc}${consFunc}";
217 push @args, "CDEF:fillCalDay${mode}0=COUNT,${dataPoints},%,0,EQ,day${mode},UNKN,IF";
218 for (my $i = 1; $i < $dataPoints; ++$i) {
221 push @args, "CDEF:fillCalDay${mode}${next}=PREV(fillCalDay${mode}${prev})";
225 for (my $i = 0; $i < $dataPoints; ++$i) {
226 $fillPoint .= "COUNT,${dataPoints},%,${i},EQ,fillCalDay${mode}${i},";
229 push @args, "CDEF:${mode}Curve=${fillPoint}UNKN${if}";
230 my $forwardShift = (24*60*60) * ($dataPoints - 1) / $dataPoints;
231 push @args, "SHIFT:${mode}Curve:-${forwardShift}";
232 push @args, "LINE1:${mode}Curve#${color}:${label}";
241 foreach my $subGraph (@
$cfg) {
242 if ($subGraph eq 'avg') {
243 push @graphDef, "LINE1:${varname}-avg#FF0000";
244 } elsif ($subGraph eq 'day-min') {
245 push @graphDef, @
{dayGraphFunc
("${varname}-min", 'MIN', '0000ff', 'Day Minimum Temperature', $dpPerDay)};
246 } elsif ($subGraph eq 'day-max') {
247 push @graphDef, @
{dayGraphFunc
("${varname}-max", 'MAX', '00ff00', 'Day Maximum Temperature', $dpPerDay)};
248 } elsif ($subGraph eq 'day-avg') {
249 push @graphDef, @
{dayGraphFunc
("${varname}-houravg", 'AVG', 'ff0000', 'Day Average Temperature', $dpPerDay)};
257 print STDERR
"Running as root, please provide UID as 2th argument!\n";
261 print "Running as root, switching to ".$ARGV[1]."\n";
265 foreach my $host (@
$hosts) {
266 my $rrdfile = $host->{'rrdfile'};
268 foreach my $var (keys(%{$host->{'vars'}})) {
269 $host->{'vars'}->{$var}->{'min'} = 'U' if (!defined($host->{'vars'}->{$var}->{'min'}));
270 $host->{'vars'}->{$var}->{'max'} = 'U' if (!defined($host->{'vars'}->{$var}->{'max'}));
273 if (-e
"${rrdfile}") {
274 print "Reading old ${rrdfile} to preserve data...\n";
276 my $rrdinfo = RRDs
::info
("${rrdfile}");
278 print "Error while getting info: " . RRDs
::error
. "\n";
282 (my $start, my $ostep, my $names, my $data) =
283 RRDs
::fetch
("${rrdfile}",
284 "-s " . (time() - ($rrdinfo->{'rra[0].rows'} * $rrdinfo->{'step'})),
288 print "Error while fetching data: " . RRDs
::error
. "\n";
292 foreach my $field (@
$names) {
293 if (! -e
"${rrdfile}.${field}") {
294 rrdcreate
("${rrdfile}.${field}",
297 (${start
}-${ostep
}));
302 foreach my $line (@
$data) {
303 foreach my $field (@
$names) {
304 my $val = shift (@
$line);
305 $val = 'U' if (!defined($val));
307 RRDs
::update
("${rrdfile}.${field}", "${pos}:${val}");
309 print "Can't insert data: " . RRDs
::error
. "\n";
317 if ((($pos-$start)/$ostep) == $#$data) {
322 rename("${rrdfile}", "${rrdfile}.old") or die "Can't rename old file: $!\n";
325 foreach my $field (@
{$host->{'fields'}}) {
326 if (! -e
"${rrdfile}.${field}") {
327 print "Creating ${rrdfile}.${field}...\n";
328 rrdcreate
("${rrdfile}.${field}",
333 my $rrdinfo = RRDs
::info
("${rrdfile}.${field}");
335 print "Error while getting info: " . RRDs
::error
. "\n";
339 my $limitsChanged = 0;
340 if (defined($rrdinfo->{"ds[${field}].min"})) {
341 if ($rrdinfo->{"ds[${field}].min"} ne $host->{'vars'}->{$field}->{'min'}) {
343 RRDs
::tune
("${rrdfile}.${field}","-i",$field.":".$host->{'vars'}->{$field}->{'min'});
346 if ($host->{'vars'}->{$field}->{'min'} ne 'U') {
348 RRDs
::tune
("${rrdfile}.${field}","-i",$field.":".$host->{'vars'}->{$field}->{'min'});
353 print "Error while setting min: " . RRDs
::error
. "\n";
357 if (defined($rrdinfo->{"ds[${field}].max"})) {
358 if ($rrdinfo->{"ds[${field}].max"} ne $host->{'vars'}->{$field}->{'max'}) {
360 RRDs
::tune
("${rrdfile}.${field}","-a",$field.":".$host->{'vars'}->{$field}->{'max'});
363 if ($host->{'vars'}->{$field}->{'max'} ne 'U') {
365 RRDs
::tune
("${rrdfile}.${field}","-a",$field.":".$host->{'vars'}->{$field}->{'max'});
370 print "Error while setting max: " . RRDs
::error
. "\n";
374 if ($rrdinfo->{'rra[0].rows'} != $keep ||
375 !defined($rrdinfo->{'rra[3].rows'}) || $rrdinfo->{'rra[3].rows'} != $keepHours ||
376 $limitsChanged == 1) {
378 print "Resizing ${rrdfile}.${field} from " . $rrdinfo->{'rra[0].rows'} .
379 " to ${keep} samples.\n";
381 (my $start, my $ostep, my $names, my $data) =
382 RRDs
::fetch
("${rrdfile}.${field}",
383 "-s " . (time() - ($rrdinfo->{'rra[0].rows'} * $rrdinfo->{'step'})),
387 print "Error while fetching data: " . RRDs
::error
. "\n";
391 rrdcreate
("${rrdfile}.${field}.new",
394 (${start
}-${ostep
}));
396 print "Preserving data in file ${rrdfile}.${field} since " . localtime($start) . "\n";
399 foreach my $line (@
$data) {
400 my $vline = "${pos}";
402 foreach my $val (@
$line) {
403 $val = 'U' if (!defined($val));
406 RRDs
::update
("${rrdfile}.${field}.new", $vline) or die "Can't insert data\n";
409 print "Error while updating: " . RRDs
::error
. "\n";
414 if ((($pos-$start)/$ostep) == $#$data) {
419 rename("${rrdfile}.${field}", "${rrdfile}.${field}.old") or die "Can't rename old file: $!\n";
420 rename("${rrdfile}.${field}.new", "${rrdfile}.${field}") or die "Can't rename new file: $!\n";
422 $rrdinfo = RRDs
::info
("${rrdfile}.${field}");
424 print "Error while getting info: " . RRDs
::error
. "\n";
428 if ($rrdinfo->{'rra[0].rows'} != $keep) {
438 #die "fork failed!" if (!defined($child));
440 #exit 0 if ($child != 0);
442 my $first = $UPSGRAPH::regenerateOnStart
;
444 open(HTML
, ">${outdir}/index.html.new");
446 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>';
447 print HTML
'<body bgcolor="#ffffff">';
449 foreach my $host (@
$hosts) {
450 print HTML
"[<a href=\"#".${host
}->{'name'}."\">".${host
}->{'name'}."</a>] ";
454 foreach my $host (@
$hosts) {
456 print HTML
"<a name=\"".${host
}->{'name'}."\"></a>\n";
457 my $vars = $host->{'vars'};
458 my $rrdfile = $host->{'rrdfile'};
459 my $hostname = $host->{'name'};
460 my %multi_values = ();
462 foreach my $var (@
{$host->{'fields'}}) {
463 delete $vars->{$var}->{'value'};
467 if ((!defined($vars->{$var}->{'proto'})) ||
468 ($vars->{$var}->{'proto'} eq '') ||
469 ($vars->{$var}->{'proto'} eq 'snmp')) {
470 $result = fetch_snmp
($host->{'address'}, $host->{'community'}, $vars->{$var}->{'oid'});
471 } elsif ($vars->{$var}->{'proto'} eq 'tcp') {
472 $result = fetch_tcp
($host->{'address'}, $vars->{$var}->{'port'});
473 } elsif ($vars->{$var}->{'proto'} eq 'tcp_multi') {
474 if (defined($multi_values{$vars->{$var}->{'multi_id'}})) {
475 $result = $multi_values{$vars->{$var}->{'multi_id'}}
477 my %values = fetch_tcp_multi
($host->{'address'}, $vars->{$var}->{'port'}, $vars->{$var}->{'multi_delimiter'});
478 @multi_values{keys %values} = values %values;
479 $result = $multi_values{$vars->{$var}->{'multi_id'}};
483 next unless (defined $result);
485 $vars->{$var}->{'value'} = $result;
486 if (defined($vars->{$var}->{'factor'})) {
487 $vars->{$var}->{'value'} *= $vars->{$var}->{'factor'};
491 foreach my $var (@
{$host->{'fields'}}) {
492 if (!(defined($vars->{$var}->{'value'}))) {
493 $vars->{$var}->{'value'} = 'U';
495 rrd_update
("${rrdfile}.${var}", "N:" . $vars->{$var}->{'value'});
498 print "Error while updating: " . $rrd_result . "\n";
501 foreach my $var (@
{$host->{'fields'}}) {
502 my $graphWidth = 365 * 3;
504 if (defined $vars->{$var}->{'graph'}) {
505 $graphConfig = $vars->{$var}->{'graph'};
506 foreach my $subGraph (qw(day week year)) {
507 if (!defined($graphConfig->{$subGraph})) {
508 $graphConfig->{$subGraph} = [ 'avg'];
519 my @graphdef = ('-P', "-t", $hostname." - ".$vars->{$var}->{'name'});
520 push @graphdef, "--lazy" if !$first;
522 push @graphdef, "DEF:${var}-avg=${rrdfile}.${var}:${var}:AVERAGE";
523 push @graphdef, "DEF:${var}-min=${rrdfile}.${var}:${var}:MIN";
524 push @graphdef, "DEF:${var}-max=${rrdfile}.${var}:${var}:MAX";
525 push @graphdef, "DEF:${var}-houravg=${rrdfile}.${var}:${var}:AVERAGE:step=3600";
526 push @graphdef, "LINE1:${var}-avg#FF0000";
527 push @graphdef, "VDEF:cur=${var}-avg,LAST";
528 push @graphdef, 'GPRINT:cur:Current\\: <span foreground="#FF0000">%.2lf</span>\\r';
531 $mtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
533 (my $averages, my $width, my $height) =
534 rrd_graph
("${outdir}/${hostname}.${var}.png.work",
535 "-w", "720", @graphdef);
542 print "Error while graphing: " . $rrd_result . "\n";
544 my $newmtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
545 if ((!defined($mtime)) || ($newmtime != $mtime)) {
546 copy
("${outdir}/${hostname}.${var}.png.work", "${outdir}/${hostname}.${var}.png.new");
547 rename("${outdir}/${hostname}.${var}.png.new", "${outdir}/${hostname}.${var}.png");
551 print HTML
"<a href=\"${hostname}.${var}.html\"><img src=\"${hostname}.${var}.png\" width=\"${width}\" height=\"${height}\" border=\"0\"></a><br>\n";
553 open (HTML2
, ">${outdir}/${hostname}.${var}.html.new");
554 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>';
555 print HTML2
'<body bgcolor="#ffffff">';
557 push @graphdef, "VDEF:min=${var}-min,MINIMUM";
558 push @graphdef, "GPRINT:min:Minimum\\: %.2lf";
560 push @graphdef, "VDEF:avg=${var}-avg,AVERAGE";
561 push @graphdef, "GPRINT:avg:Average\\: %.2lf";
563 push @graphdef, "VDEF:max=${var}-max,MAXIMUM";
564 push @graphdef, "GPRINT:max:Maximum\\: %.2lf";
566 push @graphdef, "VDEF:cur=${var}-avg,LAST";
567 push @graphdef, "GPRINT:cur:Current\\: %.2lf";
569 my @dayGraphDef = @graphdef;
570 push @dayGraphDef, @
{cfgToGraphDef
($graphConfig->{'day'}, ${var
}, 24)};
572 $mtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
573 ($averages, $width, $height) =
574 rrd_graph
("${outdir}/${hostname}.${var}.long.png.work",
575 "-w", $graphWidth, @dayGraphDef);
578 print "Error while graphing: " . $rrd_result . "\n";
580 my $newmtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
581 if ((!defined($mtime)) || ($newmtime != $mtime)) {
582 copy
("${outdir}/${hostname}.${var}.long.png.work", "${outdir}/${hostname}.${var}.long.png.new");
583 rename("${outdir}/${hostname}.${var}.long.png.new", "${outdir}/${hostname}.${var}.long.png");
587 print HTML2
"<img src=\"${hostname}.${var}.long.png\" width=\"${width}\" height=\"${height}\"><br>\n";
589 $mtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
591 my @weekGraphDef = @graphdef;
592 push @weekGraphDef, @
{cfgToGraphDef
($graphConfig->{'week'}, ${var
}, 24)};
594 ($averages, $width, $height) =
595 rrd_graph
("${outdir}/${hostname}.${var}.week.png.work",
596 "-w", "$graphWidth", "-e", "now", "-s", "00:00-8d", @weekGraphDef);
599 print "Error while graphing: " . $rrd_result . "\n";
601 my $newmtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
602 if ((!defined($mtime)) || ($newmtime != $mtime)) {
603 copy
("${outdir}/${hostname}.${var}.week.png.work", "${outdir}/${hostname}.${var}.week.png.new");
604 rename("${outdir}/${hostname}.${var}.week.png.new", "${outdir}/${hostname}.${var}.week.png");
608 print HTML2
"<img src=\"${hostname}.${var}.week.png\" width=\"${width}\" height=\"${height}\"><br>\n";
610 $mtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
612 my @yearGraphDef = @graphdef;
613 push @yearGraphDef, @
{cfgToGraphDef
($graphConfig->{'year'}, ${var
}, 3)};
615 ($averages, $width, $height) =
616 rrd_graph
("${outdir}/${hostname}.${var}.year.png.work",
617 "-w", "$graphWidth", "-e", "00:00", "-s", "end-365d", @yearGraphDef);
620 print "Error while graphing: " . $rrd_result . "\n";
622 my $newmtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
623 if ((!defined($mtime)) || ($newmtime != $mtime)) {
624 copy
("${outdir}/${hostname}.${var}.year.png.work", "${outdir}/${hostname}.${var}.year.png.new");
625 rename("${outdir}/${hostname}.${var}.year.png.new", "${outdir}/${hostname}.${var}.year.png");
629 print HTML2
"<img src=\"${hostname}.${var}.year.png\" width=\"${width}\" height=\"${height}\"><br>\n";
631 print HTML2
"</body></html>\n";
633 rename("${outdir}/${hostname}.${var}.html.new", "${outdir}/${hostname}.${var}.html");
637 print HTML
"</body></html>\n";
638 print HTML
"<br>Generated on: " . localtime(time());
639 print HTML
' by <a href="http://git.zerfleddert.de/cgi-bin/gitweb.cgi/upsgraph">upsgraph</a>.';
643 rename("${outdir}/index.html.new", "${outdir}/index.html");