Minor
authorHeikki Levanto <heikki@indexdata.dk>
Mon, 11 Apr 2011 11:26:01 +0000 (13:26 +0200)
committerHeikki Levanto <heikki@indexdata.dk>
Mon, 11 Apr 2011 11:26:01 +0000 (13:26 +0200)
aptcheck/aptcheck.pl

index 9ceba58..7c9245b 100755 (executable)
@@ -154,11 +154,11 @@ for my $hline ( split("\n",$hostlist) ) {
                     $manhosts{$H} = 1;
                     $manpkgs{$restrname} = 1;
                     $det .= "<tr>";
-                    $det .= "<td>&nbsp;&nbsp;<b>$restrname (M)</b></td>";
+                    $det .= "<td>&nbsp;&nbsp;$restrname <b>(M)</b></td>";
                     $det .= "<td>". strdiff($bver,$restrinst)."</td>";
                     $det .= "<td>". strdiff($restrinst,$bver)."</td>";
                     $det .= "</tr>\n";
-                    my $key = "$restrname (M)";
+                    my $key = "$restrname";
                     if ( !$summary{$key} ) {
                         $summary{$key} = "";
                     }
@@ -239,6 +239,8 @@ print F "<html>\n";
 print F "<head><title>Apt upgrade status</title></head>\n";
 print F "<body>\n";
 print F "<H1>Apt package status</H1>\n";
+print F "<H2>Debug run, many hosts missing!</H2>\n"
+   if $debug;
 
 
 # Summary table: one row for per host group
@@ -335,8 +337,9 @@ print F "<p/><b><u>Packages</u></b>\n";
 print F "<table>\n";
 for my $P ( sort(keys(%summary)) ) {
     my $PN = $P;
-    $PN = "<b>$P (s)</b>" if ($secpkgs{$P});
-    $PN = "$P (id)" if ($ownpkgs{$P});
+    $PN = "<b>$P&nbsp;(s)</b>" if ($secpkgs{$P});
+    $PN = "<i>$P&nbsp;(id)</i>" if ($ownpkgs{$P});
+    $PN = "$P&nbsp;<b>(M)</b>" if ($manpkgs{$P});
     print F "<tr><td><a name='$P'/>$PN</td>\n";
     print F "<td>";
     for my $HH ( split(' ',$summary{$P} )) {