+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'>,</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'>,</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'>,</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ print F "</td></tr>\n";
+}
+#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)) ) {
+ my $upd = $updlinks{$HH} || "#" ;
+ print F "<a href='#$HH'><b>$HH</b></a><a href='$upd'>,</a> ";
+ #print F "<a href='#$HH'><b>$HH</b></a> ";
+ }
+ if ( !%okhosts ) {
+ print F "<b>None at all!</b>";
+ }
+ print F "</td></tr>\n";