projects / git-tools-moved-to-github.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
id-pbuild.sh: new option --product
[git-tools-moved-to-github.git] / aptcheck / aptcheck.pl
diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl
index 000bb67..7c9245b 100755 (executable)
--- a/aptcheck/aptcheck.pl
+++ b/aptcheck/aptcheck.pl
@@ -30,6 +30,15 @@ my $year =`date +%Y`;
 my $wikilink = 'http://twiki.indexdata.dk/cgi-bin/twiki/view/ID/';
 my $restrictedpackages = "ssh -q kebab cat /home/ftp/pub/debian/dists/*/restricted/*/Packages";
 
+#### Host comments
+my %hostcomments = (
+      "ariel"    => "<i>Niels Erik</i> does the manual upgrades",
+      "bellone"  => "<i>Niels Erik</i> does the manual upgrades",
+      "cfrepous" => "<i>Wolfram</i> does the manual upgrades",
+      "leopard"  => "<i>Wolfram</i> does the manual upgrades",
+      );
+      
+
 #### Get list of hosts
 # I could use a hard-coded list, but I would forget to maintain it.
 # Nagios knows most of our hosts. It even knows which are worth 
@@ -145,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} = "";
                     }
@@ -214,6 +223,8 @@ for my $hline ( split("\n",$hostlist) ) {
     $updlink =~ s/Opencontent-solrUpdates/OpenContentSolrUpdates/; 
     $table .= "&nbsp;<a href='$updlink' >Upd</a>";
     $table .= "</td></tr>\n";
+    $table .= "<tr><td>$hostcomments{$H}</td></tr>\n"
+        if ( $hostcomments{$H} );
     $table .= $det if $pkgs;
     print "\n$table\n" if $debug>2;
     last if $H =~/dart/ && $debug;
@@ -228,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
@@ -324,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} )) {
ID Git Tools.