X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=aptcheck%2Faptcheck.pl;h=2b769f22c9860c2ac2bf6610b06844a5046e6ba5;hb=69a6a467da589cfa124afba38c964635d38396e8;hp=7801291189a50cf7ec8cbc3113f55fd9229e6e85;hpb=b635b93320983660db8ec168a37848bb545ea6ab;p=git-tools-moved-to-github.git diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl index 7801291..2b769f2 100755 --- a/aptcheck/aptcheck.pl +++ b/aptcheck/aptcheck.pl @@ -76,7 +76,7 @@ for my $pline ( split("\n",$restplines) ) { print "found $pname, first version $pver\n" if $debug>1; } else { my $bver = $restrpkgs{$pname}; - `dpkg --compare-versions $bver lt $pver`; + `dpkg --compare-versions "$bver" lt "$pver" `; if ( ! $? ) { print "found $pname, better version $pver (better than $bver)\n" if $debug>1; @@ -111,6 +111,7 @@ my $sectot = 0; my $owntot = 0; my $mantot = 0; my $normtot = 0; +my %updlinks; my $table = "
$hostcomments{$H} | "; for my $HH ( sort(keys(%sechosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || "#" ; + print F "$HH, "; } print F " | "; print F ""; @@ -279,7 +283,9 @@ if ( $owntot ) { " / " . scalar(keys(%ownpkgs)) . " / $owntot | \n" ; print F ""; for my $HH ( sort(keys(%ownhosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || "#" ; + print F "$HH, "; + #print F "$HH "; } print F " | "; print F ""; @@ -294,7 +300,9 @@ if ( $mantot ) { " / " . scalar(keys(%manpkgs)) . " / $mantot | \n" ; print F ""; for my $HH ( sort(keys(%manhosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || "#" ; + print F "$HH, "; + #print F "$HH "; } print F " | "; print F ""; @@ -309,7 +317,9 @@ if ( $normtot ) { " / " . scalar(keys(%normpkgs)) . " / $normtot | \n" ; print F ""; for my $HH ( sort(keys(%normhosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || "#" ; + print F "$HH, "; + #print F "$HH "; } print F " | "; print F ""; @@ -323,7 +333,10 @@ if ( %skiphosts ) { print F " |
Skipped " . scalar(keys(%skiphosts)) . " | \n"; print F ""; for my $HH ( sort(keys(%skiphosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || + $wikilink . ucfirst($HH) . "Updates" . $year; + print F "$HH, "; + #print F "$HH "; } print F " | |
Ok " . scalar(keys(%okhosts)) . " | \n"; print F ""; for my $HH ( sort(keys(%okhosts)) ) { - print F "$HH "; + my $upd = $updlinks{$HH} || "#" ; + print F "$HH, "; + #print F "$HH "; } if ( !%okhosts ) { print F "None at all!"; |