From 114cf0ae412ff4d23ff7488db783d1bd1ed8197b Mon Sep 17 00:00:00 2001 From: Heikki Levanto Date: Tue, 25 Feb 2014 11:08:01 +0100 Subject: [PATCH] More visible upd links. --- aptcheck/aptcheck.pl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl index b635300..3121946 100755 --- a/aptcheck/aptcheck.pl +++ b/aptcheck/aptcheck.pl @@ -35,6 +35,7 @@ my $year =`date +%Y`; #my $wikilink = 'http://twiki.indexdata.dk/cgi-bin/twiki/view/ID/'; my $wikilink = 'https://twiki.indexdata.com/twiki/bin/view/ID/'; my $restrictedpackages = "ssh -q kebab cat /home/ftp/pub/debian/dists/*/restricted/*/Packages"; +my $updlink="-u"; # to display after a name, liking to the upd page #### Host comments my %hostcomments = ( @@ -356,7 +357,7 @@ if ( $sectot ) { print F ""; for my $HH ( sort(keys(%sechosts)) ) { my $upd = $updlinks{$HH} || "#" ; - print F "$HH, "; + print F "$HH$updlink "; } print F ""; print F ""; @@ -372,7 +373,7 @@ if ( $owntot ) { print F ""; for my $HH ( sort(keys(%ownhosts)) ) { my $upd = $updlinks{$HH} || "#" ; - print F "$HH, "; + print F "$HH$updlink "; #print F "$HH "; } print F ""; @@ -389,7 +390,7 @@ if ( $mantot ) { print F ""; for my $HH ( sort(keys(%manhosts)) ) { my $upd = $updlinks{$HH} || "#" ; - print F "$HH, "; + print F "$HH$updlink "; #print F "$HH "; } print F ""; @@ -406,7 +407,7 @@ if ( $normtot ) { print F ""; for my $HH ( sort(keys(%normhosts)) ) { my $upd = $updlinks{$HH} || "#" ; - print F "$HH, "; + print F "$HH$updlink "; #print F "$HH "; } print F ""; @@ -423,18 +424,18 @@ if ( %skiphosts ) { for my $HH ( sort(keys(%skiphosts)) ) { my $upd = $updlinks{$HH} || $wikilink . ucfirst($HH) . "Updates" . $year; - print F "$HH, "; + print F "$HH$updlink "; #print F "$HH "; } print F "\n"; } -#if ( %okhosts ) { if ( 1 ) { - print F "Ok " . scalar(keys(%okhosts)) . "\n"; + print F "Ok
" . scalar(keys(%okhosts)) . + " of " . scalar(keys(%allhosts)) . "\n"; print F ""; for my $HH ( sort(keys(%okhosts)) ) { my $upd = $updlinks{$HH} || "#" ; - print F "$HH, "; + print F "$HH$updlink "; #print F "$HH "; } if ( !%okhosts ) { -- 1.7.10.4