From: Heikki Levanto <heikki@indexdata.dk>
Date: Mon, 28 Mar 2011 13:29:25 +0000 (+0200)
Subject: Added host comments to note who should do manuals
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=4f55914f84fb4051333bc202acfd7e6163c09dfd;p=git-tools-moved-to-github.git

Added host comments to note who should do manuals
---

diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl
index 000bb67..9ceba58 100755
--- 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 
@@ -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;