X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=aptcheck%2Faptcheck.pl;h=ad72adba15804d9c2ed17e16e78a1f68b0e23bb7;hb=fe107795d8c5c5dd4df63dee5c7aa9ba81d13a45;hp=ac4893f5046af175ade41f8c0f67a1a46347ccfe;hpb=70028dc70af1fb94bd430acce15a2c9de0def8fb;p=git-tools-moved-to-github.git diff --git a/aptcheck/aptcheck.pl b/aptcheck/aptcheck.pl index ac4893f..ad72adb 100755 --- a/aptcheck/aptcheck.pl +++ b/aptcheck/aptcheck.pl @@ -31,15 +31,20 @@ my %normhosts; my %normpkgs; my %okhosts; my %skiphosts; +my %allhosts; +my $sectot = 0; +my $owntot = 0; +my $normtot = 0; my $table = "
$cur | "; $det .= "$new | "; @@ -97,8 +103,13 @@ for $hline ( split("\n",$hostlist) ) { $table .= " $own from indexdata " if $own; } else { $table .= "ok"; + $okhosts{$H} = 1; } my $updlink = $wikilink . ucfirst($H) . "Updates" . $year; + # Fix some pages that do not follow the convention. + # Mostly because the host names would not make proper WikiWords + $updlink =~ s/Bugzilla3Updates/BugzillaUpdates/; + $updlink =~ s/Opencontent-solrUpdates/OpenContentSolrUpdates/; $table .= " Upd"; $table .= "\n"; $table .= $det if $pkgs; @@ -107,7 +118,7 @@ for $hline ( split("\n",$hostlist) ) { } $table .= "
" ; -print F " | Security: " . scalar(keys(%sechosts)) . - " / " . scalar(keys(%secpkgs)) . " | \n" ; -print F "Indexdata: " . scalar(keys(%ownhosts)) . - " / " . scalar(keys(%ownpkgs)) . " | \n" ; -print F "Normal: " . scalar(keys(%normhosts)) . - " / " . scalar(keys(%normpkgs)) . " | " . "
Hosts | \n"; - - -print F ""; -for $HH ( sort(keys(%sechosts)) ) { - print F "$HH "; +print F " | Hosts | \n"; +print F "Packages |
Security " . scalar(keys(%sechosts)) . + " / " . scalar(keys(%secpkgs)) . " / $sectot | \n" ;
+ print F ""; + for $HH ( sort(keys(%sechosts)) ) { + print F "$HH "; + } + print F " | "; + print F ""; + for $PP ( sort(keys(%secpkgs)) ) { + print F "$PP "; + } + print F " | "; + print F "" . join(" ",sort(keys(%sechosts))) . " | "; -#print F "" . join(" ",sort(keys(%ownhosts))) . " | "; -print F ""; -for $HH ( sort(keys(%ownhosts)) ) { - print F "$HH "; +if ( $owntot ) { + print F " |
Indexdata " . scalar(keys(%ownhosts)) . + " / " . scalar(keys(%ownpkgs)) . " / $owntot | \n" ;
+ print F ""; + for $HH ( sort(keys(%ownhosts)) ) { + print F "$HH "; + } + print F " | "; + print F ""; + for $PP ( sort(keys(%ownpkgs)) ) { + print F "$PP "; + } + print F " | "; + print F "" . join(" ",sort(keys(%normhosts))) . " | \n"; -print F ""; -for $HH ( sort(keys(%normhosts)) ) { - print F "$HH "; +if ( $normtot ) { + print F " |
Normal " . scalar(keys(%normhosts)) . + " / " . scalar(keys(%normpkgs)) . " / $normtot | \n" ;
+ print F ""; + for $HH ( sort(keys(%normhosts)) ) { + print F "$HH "; + } + print F " | "; + print F ""; + for $PP ( sort(keys(%normpkgs)) ) { + print F "$PP "; + } + print F " | "; + print F "|
Skipped " . scalar(keys(%skiphosts)) . " | \n"; + print F ""; + for $HH ( sort(keys(%skiphosts)) ) { + print F "$HH "; + } + print F " | ||
Ok " . scalar(keys(%okhosts)) . " | \n"; + print F ""; + for $HH ( sort(keys(%okhosts)) ) { + print F "$HH "; + } + print F " | ||
Packages | \n"; -print F "" . join(" ",sort(keys(%secpkgs))) . " | "; -print F "" . join(" ",sort(keys(%ownpkgs))) . " | "; -print F "" . join(" ",sort(keys(%normpkgs))) . " |
$PN | \n"; + print F ""; + for $HH ( split(' ',$summary{$P} )) { + print F "$HH "; + } + print F " | \n"; + +} +print F "