From f7453cc9f36971a2a5c305fc44f52767f363e472 Mon Sep 17 00:00:00 2001 From: Heikki Levanto Date: Mon, 11 Apr 2011 13:26:01 +0200 Subject: [PATCH] Minor --- aptcheck/aptcheck.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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} )) { -- 1.7.10.4