+ 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) =
+ RRDs::graph("${outdir}/${hostname}.${var}.long.png.work",
+ "-w", "1008", @graphdef);
+
+ if (RRDs::error) {
+ print "Error while graphing: " . RRDs::error . "\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) =
+ RRDs::graph("${outdir}/${hostname}.${var}.week.png.work",
+ "-w", "1008", "-e", "now", "-s", "end-1w", @graphdef);
+
+ if (RRDs::error) {
+ print "Error while graphing: " . RRDs::error . "\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) =
+ RRDs::graph("${outdir}/${hostname}.${var}.year.png.work",
+ "-w", "1008", "-e", "now", "-s", "end-1y", @graphdef);
+
+ if (RRDs::error) {
+ print "Error while graphing: " . RRDs::error . "\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");
+ }