+print F "<H2>Debug run, many hosts missing!</H2>\n"
+ if $debug;
+
+
+# Summary table: one row for per host group
+print F "<p/>\n";
+print F "<table border='1' >\n";
+print F "<tr><td> </td>" ;
+print F "<td><b>Hosts</b></td>\n";
+print F "<td><b>Packages</b></td></tr>\n";
+
+if ( $sectot ) {
+ print F "<tr><td><b>Security</b><br/>" . scalar(keys(%sechosts)) .
+ " / " . scalar(keys(%secpkgs)) . " / $sectot </td>\n" ;
+ print F "<td>";
+ for my $HH ( sort(keys(%sechosts)) ) {
+ my $upd = $updlinks{$HH} || "#" ;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>$updlink</a> ";
+ }
+ print F "</td>";
+ print F "<td>";
+ for my $PP ( sort(keys(%secpkgs)) ) {
+ print F "<a href='#$PP'>$PP</a> ";
+ }
+ print F "</td>";
+ print F "</tr>\n";
+}
+if ( $owntot ) {
+ print F "<tr><td><b>Indexdata</b><br/>" . scalar(keys(%ownhosts)) .
+ " / " . scalar(keys(%ownpkgs)) . " / $owntot </td>\n" ;
+ print F "<td>";
+ for my $HH ( sort(keys(%ownhosts)) ) {
+ my $upd = $updlinks{$HH} || "#" ;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>$updlink</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ print F "</td>";
+ print F "<td>";
+ for my $PP ( sort(keys(%ownpkgs)) ) {
+ print F "<a href='#$PP'>$PP</a> ";
+ }
+ print F "</td>";
+ print F "</tr>\n";
+}
+if ( $mantot ) {
+ print F "<tr><td><b>Manual</b><br/>" . scalar(keys(%manhosts)) .
+ " / " . scalar(keys(%manpkgs)) . " / $mantot </td>\n" ;
+ print F "<td>";
+ for my $HH ( sort(keys(%manhosts)) ) {
+ my $upd = $updlinks{$HH} || "#" ;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>$updlink</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ print F "</td>";
+ print F "<td>";
+ for my $PP ( sort(keys(%manpkgs)) ) {
+ print F "<a href='#$PP'>$PP</a> ";
+ }
+ print F "</td>";
+ print F "</tr>\n";
+}
+if ( $normtot ) {
+ print F "<tr><td>Normal<br/>" . scalar(keys(%normhosts)) .
+ " / " . scalar(keys(%normpkgs)) . " / $normtot </td>\n" ;
+ print F "<td>";
+ for my $HH ( sort(keys(%normhosts)) ) {
+ my $upd = $updlinks{$HH} || "#" ;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>$updlink</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ print F "</td>";
+ print F "<td>";
+ for my $PP ( sort(keys(%normpkgs)) ) {
+ print F "<a href='#$PP'>$PP</a> ";
+ }
+ print F "</td>";
+ print F "</tr>\n";
+}
+if ( %skiphosts ) {
+ print F "<tr><td>Skipped " . scalar(keys(%skiphosts)) . "</td>\n";
+ print F "<td colspan='2'>";
+ for my $HH ( sort(keys(%skiphosts)) ) {
+ my $upd = $updlinks{$HH} ||
+ $wikilink . ucfirst($HH) . "Updates" . $year;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>$updlink</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ print F "</td></tr>\n";