+ foreach my $var (@{$host->{'fields'}}) {
+ delete $vars->{$var}->{'value'};
+
+ my $result;
+
+ if ((!defined($vars->{$var}->{'proto'})) ||
+ ($vars->{$var}->{'proto'} eq '') ||
+ ($vars->{$var}->{'proto'} eq 'snmp')) {
+ $result = fetch_snmp($host->{'address'}, $host->{'community'}, $vars->{$var}->{'oid'});
+ } elsif ($vars->{$var}->{'proto'} eq 'tcp') {
+ $result = fetch_tcp($host->{'address'}, $vars->{$var}->{'port'});
+ } elsif ($vars->{$var}->{'proto'} eq 'tcp_multi') {
+ if (defined($multi_values{$vars->{$var}->{'multi_id'}})) {
+ $result = $multi_values{$vars->{$var}->{'multi_id'}}
+ } else {
+ my %values = fetch_tcp_multi($host->{'address'}, $vars->{$var}->{'port'}, $vars->{$var}->{'multi_delimiter'});
+ @multi_values{keys %values} = values %values;
+ $result = $multi_values{$vars->{$var}->{'multi_id'}};
+ }
+ }
+
+ next unless (defined $result);
+
+ $vars->{$var}->{'value'} = $result;
+ if (defined($vars->{$var}->{'factor'})) {
+ $vars->{$var}->{'value'} *= $vars->{$var}->{'factor'};
+ }
+ }
+
+ foreach my $var (@{$host->{'fields'}}) {
+ if (!(defined($vars->{$var}->{'value'}))) {
+ $vars->{$var}->{'value'} = 'U';
+ }
+ rrd_update("${rrdfile}.${var}", "N:" . $vars->{$var}->{'value'});
+ }
+ if ($rrd_result) {
+ print "Error while updating: " . $rrd_result . "\n";
+ }
+
+ foreach my $var (@{$host->{'fields'}}) {
+ my @graphdef = ('-P', "--lazy", "-t", $hostname." - ".$vars->{$var}->{'name'}, "DEF:${var}=${rrdfile}.${var}:${var}:AVERAGE", "LINE1:${var}#FF0000");
+
+ push @graphdef, "VDEF:cur=${var},LAST";
+ push @graphdef, 'GPRINT:cur:Current\\: <span foreground="#FF0000">%.2lf</span>\\r';
+
+ my $mtime;
+ $mtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
+
+ (my $averages, my $width, my $height) =
+ rrd_graph("${outdir}/${hostname}.${var}.png.work",
+ "-w", "720", @graphdef);
+
+ pop @graphdef;
+ pop @graphdef;
+
+ if ($rrd_result) {
+ print "Error while graphing: " . $rrd_result . "\n";
+ } else {
+ my $newmtime=(stat("${outdir}/${hostname}.${var}.png.work"))[9];
+ if ((!defined($mtime)) || ($newmtime != $mtime)) {
+ copy("${outdir}/${hostname}.${var}.png.work", "${outdir}/${hostname}.${var}.png.new");
+ rename("${outdir}/${hostname}.${var}.png.new", "${outdir}/${hostname}.${var}.png");
+ }
+ }
+
+ print HTML "<a href=\"${hostname}.${var}.html\"><img src=\"${hostname}.${var}.png\" width=\"${width}\" height=\"${height}\" border=\"0\"></a><br>\n";
+
+ open (HTML2, ">${outdir}/${hostname}.${var}.html.new");
+ print HTML2 '<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>' . $vars->{$var}->{'name'} . '</title></head>';
+ print HTML2 '<body bgcolor="#ffffff">';
+
+ push @graphdef, "VDEF:min=${var},MINIMUM";
+ push @graphdef, "GPRINT:min:Minimum\\: %.2lf";
+
+ push @graphdef, "VDEF:avg=${var},AVERAGE";
+ push @graphdef, "GPRINT:avg:Average\\: %.2lf";
+
+ push @graphdef, "VDEF:max=${var},MAXIMUM";
+ push @graphdef, "GPRINT:max:Maximum\\: %.2lf";
+
+ push @graphdef, "VDEF:cur=${var},LAST";
+ push @graphdef, "GPRINT:cur:Current\\: %.2lf";
+
+ $mtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
+ ($averages, $width, $height) =
+ rrd_graph("${outdir}/${hostname}.${var}.long.png.work",
+ "-w", "1008", @graphdef);
+
+ if ($rrd_result) {
+ print "Error while graphing: " . $rrd_result . "\n";
+ } else {
+ my $newmtime=(stat("${outdir}/${hostname}.${var}.long.png.work"))[9];
+ if ((!defined($mtime)) || ($newmtime != $mtime)) {
+ copy("${outdir}/${hostname}.${var}.long.png.work", "${outdir}/${hostname}.${var}.long.png.new");
+ rename("${outdir}/${hostname}.${var}.long.png.new", "${outdir}/${hostname}.${var}.long.png");
+ }
+ }
+
+ print HTML2 "<img src=\"${hostname}.${var}.long.png\" width=\"${width}\" height=\"${height}\"><br>";
+
+ $mtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
+ ($averages, $width, $height) =
+ rrd_graph("${outdir}/${hostname}.${var}.week.png.work",
+ "-w", "1008", "-e", "now", "-s", "end-1w", @graphdef);
+
+ if ($rrd_result) {
+ print "Error while graphing: " . $rrd_result . "\n";
+ } else {
+ my $newmtime=(stat("${outdir}/${hostname}.${var}.week.png.work"))[9];
+ if ((!defined($mtime)) || ($newmtime != $mtime)) {
+ copy("${outdir}/${hostname}.${var}.week.png.work", "${outdir}/${hostname}.${var}.week.png.new");
+ rename("${outdir}/${hostname}.${var}.week.png.new", "${outdir}/${hostname}.${var}.week.png");
+ }
+ }
+
+ print HTML2 "<img src=\"${hostname}.${var}.week.png\" width=\"${width}\" height=\"${height}\"><br>";
+
+ $mtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
+ ($averages, $width, $height) =
+ rrd_graph("${outdir}/${hostname}.${var}.year.png.work",
+ "-w", "1008", "-e", "now", "-s", "end-1y", @graphdef);
+
+ if ($rrd_result) {
+ print "Error while graphing: " . $rrd_result . "\n";
+ } else {
+ my $newmtime=(stat("${outdir}/${hostname}.${var}.year.png.work"))[9];
+ if ((!defined($mtime)) || ($newmtime != $mtime)) {
+ copy("${outdir}/${hostname}.${var}.year.png.work", "${outdir}/${hostname}.${var}.year.png.new");
+ rename("${outdir}/${hostname}.${var}.year.png.new", "${outdir}/${hostname}.${var}.year.png");
+ }
+ }
+
+ print HTML2 "<img src=\"${hostname}.${var}.year.png\" width=\"${width}\" height=\"${height}\"><br>";
+
+ print HTML2 "</body></html>\n";
+ close(HTML2);
+ rename("${outdir}/${hostname}.${var}.html.new", "${outdir}/${hostname}.${var}.html");
+ }