projects
/
git-tools-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
daff3cb
)
Added host comments to note who should do manuals
author
Heikki Levanto
<heikki@indexdata.dk>
Mon, 28 Mar 2011 13:29:25 +0000
(15:29 +0200)
committer
Heikki Levanto
<heikki@indexdata.dk>
Mon, 28 Mar 2011 13:29:25 +0000
(15:29 +0200)
aptcheck/aptcheck.pl
patch
|
blob
|
history
diff --git
a/aptcheck/aptcheck.pl
b/aptcheck/aptcheck.pl
index
000bb67
..
9ceba58
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";
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
#### 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 .= " <a href='$updlink' >Upd</a>";
$table .= "</td></tr>\n";
$updlink =~ s/Opencontent-solrUpdates/OpenContentSolrUpdates/;
$table .= " <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;
$table .= $det if $pkgs;
print "\n$table\n" if $debug>2;
last if $H =~/dart/ && $debug;