From 4f55914f84fb4051333bc202acfd7e6163c09dfd Mon Sep 17 00:00:00 2001
From: Heikki Levanto <heikki@indexdata.dk>
Date: Mon, 28 Mar 2011 15:29:25 +0200
Subject: [PATCH 1/1] Added host comments to note who should do manuals

---
 aptcheck/aptcheck.pl |   11 +++++++++++
 1 file changed, 11 insertions(+)

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;
-- 
1.7.10.4