Details

Include hosts with a dash in their name
Tweak lay out

diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl
index 9bac028..c5d17be 100755 (executable)
--- a/aptcheck/aptcheck.pl
+++ b/aptcheck/aptcheck.pl
@@ -38,7 +38,7 @@ my $normtot = 0;
 my $table = "<table>\n";
 
 for $hline ( split("\n",$hostlist) ) {
-    next unless ( $hline =~ /\/([a-z0-9]+)\.cfg$/ );
+    next unless ( $hline =~ /\/([a-z0-9-]+)\.cfg$/ );
     my $H = $1;
     next if ($H =~ /^commands/ );
     next if ($H =~ /^servicegroups/ );
@@ -126,11 +126,11 @@ print F "<H1>Apt package status</H1>\n";
 # Summary table
 print F "<table border='1' >\n";
 print F "<tr><td>&nbsp;</td>" ;
-print F "<td><b>Security:</b> " . scalar(keys(%sechosts)) . 
+print F "<td><b>Security</b><br/>" . scalar(keys(%sechosts)) . 
         " / " .  scalar(keys(%secpkgs)) . " / $sectot </td>\n" ;
-print F "<td>Indexdata: " . scalar(keys(%ownhosts)) . 
+print F "<td>Indexdata<br/>" . scalar(keys(%ownhosts)) . 
         " / " .  scalar(keys(%ownpkgs)) . " / $owntot </td>\n" ;
-print F "<td>Normal: " . scalar(keys(%normhosts)) . 
+print F "<td>Normal<br/>" . scalar(keys(%normhosts)) . 
         " / " .  scalar(keys(%normpkgs)) . "  / $normtot </td>" . "</tr>\n";
 print F "<tr><td>Hosts</td>\n";