From: Heikki Levanto Date: Mon, 11 Apr 2011 11:26:01 +0000 (+0200) Subject: Minor X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=commitdiff_plain;ds=sidebyside;h=f7453cc9f36971a2a5c305fc44f52767f363e472;p=git-tools-moved-to-github.git Minor --- diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl index 9ceba58..7c9245b 100755 --- a/aptcheck/aptcheck.pl +++ b/aptcheck/aptcheck.pl @@ -154,11 +154,11 @@ for my $hline ( split("\n",$hostlist) ) { $manhosts{$H} = 1; $manpkgs{$restrname} = 1; $det .= ""; - $det .= " $restrname (M)"; + $det .= " $restrname (M)"; $det .= "". strdiff($bver,$restrinst).""; $det .= "". strdiff($restrinst,$bver).""; $det .= "\n"; - my $key = "$restrname (M)"; + my $key = "$restrname"; if ( !$summary{$key} ) { $summary{$key} = ""; } @@ -239,6 +239,8 @@ print F "\n"; print F "Apt upgrade status\n"; print F "\n"; print F "

Apt package status

\n"; +print F "

Debug run, many hosts missing!

\n" + if $debug; # Summary table: one row for per host group @@ -335,8 +337,9 @@ print F "

Packages\n"; print F "\n"; for my $P ( sort(keys(%summary)) ) { my $PN = $P; - $PN = "$P (s)" if ($secpkgs{$P}); - $PN = "$P (id)" if ($ownpkgs{$P}); + $PN = "$P (s)" if ($secpkgs{$P}); + $PN = "$P (id)" if ($ownpkgs{$P}); + $PN = "$P (M)" if ($manpkgs{$P}); print F "\n"; print F "
$PN "; for my $HH ( split(' ',$summary{$P} )) {