$H (skipped)\n"; + $table .= " | |||
$H (skipped) | |||
$H (skipped) | |||
Looks like Centos, " . + "not yet implemented | |||
$restrname (M) | "; + $det .= "". strdiff($bver,$restrinst)." | "; + $det .= "". strdiff($restrinst,$bver)." | "; + my $datekey = "$H:$restrname"; + if ( $olddates{$datekey} ) { + $newdates{$datekey} = $olddates{$datekey}; + } else { + $newdates{$datekey} = $thisdate; + } + my $dispdate = $newdates{$datekey}; + # if ( $dispdate lt $warndate ) { + if ( 0 ) { # manual packages don't need to be highlighted + $dispdate = "$dispdate !"; + } + $det .= "" . $dispdate . " | "; + $det .= "$cur | "; $det .= "$new | "; + my $datekey = "$H:$pkg"; + if ( $olddates{$datekey} ) { + $newdates{$datekey} = $olddates{$datekey}; + } else { + $newdates{$datekey} = $thisdate; + } + my $dispdate = $newdates{$datekey}; + if ( ( $dispdate lt $warndate ) && ( $src =~ /Security/) ) { + $dispdate = "$dispdate !"; + } + $det .= "" . $dispdate . " | "; $det .= "\n"; + } - $table .= "
$H \n"; + $table .= " | |||
$H \n"; if ( $pkgs ) { $table .= "$pkgs packages to upgrade. "; $table .= "$secs security. " if $secs; - $table .= " $own from indexdata " if $own; + $table .= " $own from indexdata. " if $own; + $table .= " $man manual. " if $man; } 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/; + $updlinks{$H} = $updlink; $table .= " Upd"; + $table .= " " . $debversions{$H}; $table .= " | |||
$hostcomments{$H} |
" ; -print F " | Security: " . scalar(keys(%sechosts)) . - " / " . scalar(keys(%secpkgs)) . " / $sectot | \n" ; -print F "Indexdata: " . scalar(keys(%ownhosts)) . - " / " . scalar(keys(%ownpkgs)) . " / $owntot | \n" ; -print F "Normal: " . scalar(keys(%normhosts)) . - " / " . scalar(keys(%normpkgs)) . " / $normtot | " . "
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 my $HH ( sort(keys(%sechosts)) ) { + my $upd = $updlinks{$HH} || "#" ; + print F "$HH$updlink "; + } + print F " | "; + print F ""; + for my $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 my $HH ( sort(keys(%ownhosts)) ) { + my $upd = $updlinks{$HH} || "#" ; + print F "$HH$updlink "; + #print F "$HH "; + } + print F " | "; + print F ""; + for my $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 ( $mantot ) { + print F " |
Manual " . scalar(keys(%manhosts)) . + " / " . scalar(keys(%manpkgs)) . " / $mantot | \n" ;
+ print F ""; + for my $HH ( sort(keys(%manhosts)) ) { + my $upd = $updlinks{$HH} || "#" ; + print F "$HH$updlink "; + #print F "$HH "; + } + print F " | "; + print F ""; + for my $PP ( sort(keys(%manpkgs)) ) { + print F "$PP "; + } + print F " | "; + print F "|
Normal " . scalar(keys(%normhosts)) . + " / " . scalar(keys(%normpkgs)) . " / $normtot | \n" ;
+ print F ""; + for my $HH ( sort(keys(%normhosts)) ) { + my $upd = $updlinks{$HH} || "#" ; + print F "$HH$updlink "; + #print F "$HH "; + } + print F " | "; + print F ""; + for my $PP ( sort(keys(%normpkgs)) ) { + print F "$PP "; + } + print F " | "; + print F "|
Skipped " . scalar(keys(%skiphosts)) . " | \n"; + print F ""; + for my $HH ( sort(keys(%skiphosts)) ) { + my $upd = $updlinks{$HH} || + $wikilink . ucfirst($HH) . "Updates" . $year; + print F "$HH$updlink "; + #print F "$HH "; + } + 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$updlink "; + #print F "$HH "; + } + if ( !%okhosts ) { + print F "None at all!"; + } + 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 my $HH ( split(' ',$summary{$P} )) { + print F "$HH "; + } + print F " | \n"; + +} +print F "