Add option to regenerate graphs on script startup
authorBenjamin Oechslein <benjamin.oechslein@informatik.uni-erlangen.de>
Mon, 12 Jan 2015 20:37:03 +0000 (21:37 +0100)
committerBenjamin Oechslein <oechslein@informatik.uni-erlangen.de>
Mon, 19 Jan 2015 16:47:45 +0000 (17:47 +0100)
upsgraph.pl

index ce195002ca2e54f71bc502212e84195170524f51..cade9b25c20b2f10323c4c21b533b32cecda79dd 100755 (executable)
@@ -23,6 +23,7 @@ $UPSGRAPH::stepsPerHour = (60 * 60) / $UPSGRAPH::step;
 $UPSGRAPH::keep = ($UPSGRAPH::daysCovered*24*60*60)/$UPSGRAPH::step;
 $UPSGRAPH::keepHours = ($UPSGRAPH::daysCovered*24*60*60)/$UPSGRAPH::stepsPerHour/$UPSGRAPH::step;
 $UPSGRAPH::hosts = ();
+$UPSGRAPH::regenerateOnStart = 1; #when set, regenerate graphs on script startup
 
 do $ARGV[0] or die "can't read config: $!";
 
@@ -427,6 +428,7 @@ die "fork failed!" if (!defined($child));
 
 exit 0 if ($child != 0);
 
+my $first = $UPSGRAPH::regenerateOnStart;
 while(1) {
        open(HTML, ">${outdir}/index.html.new");
 
@@ -503,7 +505,8 @@ while(1) {
                                };
                        }
 
-                       my @graphdef = ('-P', "--lazy", "-t", $hostname." - ".$vars->{$var}->{'name'});
+                       my @graphdef = ('-P', "-t", $hostname." - ".$vars->{$var}->{'name'});
+                       push @graphdef, "--lazy" if !$first;
 
                        push @graphdef, "DEF:${var}-avg=${rrdfile}.${var}:${var}:AVERAGE";
                        push @graphdef, "DEF:${var}-min=${rrdfile}.${var}:${var}:MIN";
@@ -628,4 +631,5 @@ while(1) {
        rename("${outdir}/index.html.new", "${outdir}/index.html");
 
        sleep(${step}/2);
+       $first = 0;
 }
Impressum, Datenschutz