projects / git-tools-moved-to-github.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Minor
[git-tools-moved-to-github.git] / aptcheck / aptcheck.pl
diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl
index b3e7927..7c9245b 100755 (executable)
--- a/aptcheck/aptcheck.pl
+++ b/aptcheck/aptcheck.pl
@@ -21,7 +21,7 @@
 #
 # TODO: Assumes that we release our restricted packages for all versions
 # and architectures at the same time. Gets only the highest version from
-# all, and reports anything less than this.
+# all, and reports anything less than this. Good enough for now.
 
 #### Init
 use strict;
@@ -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,14 +154,15 @@ 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";
-                    if ( !$summary{$restrname} ) {
-                        $summary{$restrname} = "";
+                    my $key = "$restrname";
+                    if ( !$summary{$key} ) {
+                        $summary{$key} = "";
                     }
-                    $summary{$restrname} .= "$H ";
+                    $summary{$key} .= "$H ";
                 }
             }
             $restrname = ""; # clear for next round
@@ -213,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;
@@ -227,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
@@ -323,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} )) {
@@ -362,7 +377,7 @@ sub strdiff {
         $a++;
     }
     if ( $a == length($y) ) {
-        return "$y ??";
+        return "$y";
     }
     my $b = 1;
     while ( $b < length($y)-$a &&
ID Git Tools.