X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=aptcheck%2Faptcheck.pl;h=7c9245b8b81dc0e36f9a0cb47dc95a6da936997c;hb=c81a19dfdf091306ed974b9c60e6cfaa152048f9;hp=1568872e302b637683c2db539f59186cbd4c744c;hpb=f3c349d5c88413cbf479a82f3beac389b1b58c43;p=git-tools-moved-to-github.git diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl index 1568872..7c9245b 100755 --- 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" => "Niels Erik does the manual upgrades", + "bellone" => "Niels Erik does the manual upgrades", + "cfrepous" => "Wolfram does the manual upgrades", + "leopard" => "Wolfram 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 .= "