print F "<body>\n";
print F "<H1>Apt package status</H1>\n";
print F "<b>" . ( $sectot + $owntot + $mantot + $normtot ) .
- "</b> packages pending, including <b>$sectot</b> security \n";
+ "</b> packages pending (<b>$sectot</b> critical) \n";
print F "<H2>Debug run, many hosts missing!</H2>\n"
if $debug;
}
print F "</td></tr>\n";
}
-if ( %okhosts ) {
+#if ( %okhosts ) {
+if ( 1 ) {
print F "<tr><td>Ok " . scalar(keys(%okhosts)) . "</td>\n";
print F "<td colspan='2'>";
for my $HH ( sort(keys(%okhosts)) ) {
print F "<a href='#$HH'><b>$HH</b></a> ";
}
+ if ( !%okhosts ) {
+ print F "<b>None at all!</b>";
+ }
print F "</td></tr>\n";
}
print F "</table>\n";
+# Graph
+#my $secs = 60*60*24 * 7 * 2; # 2 weeks in secods
+my $secs = "1m"; # one month, let nagios do the math
+print F "<p/>" .
+ "<a href='http://nagios.indexdata.com/cgi-bin/nagios3/graphs.cgi?" .
+ "host=nagios&service=Apt%20Summary'>\n".
+ "<img src='http://nagios.indexdata.com/" .
+ "cgi-bin/nagios3/rrd2-system.cgi?" .
+ "host=nagios&service=Apt%20Summary&" .
+ "start=-$secs&" .
+ "width=800&height=100&type=AVERAGE' /> ".
+ "</a>" .
+ "<br/>\n";
# The host table
print F $table;
projects / git-tools-moved-to-github.git / commitdiff