- $source = $source ? 'source/' : '';
- print "writing files ...\n";
- foreach my $s (@SUITES) {
- my $key = $s;
- mkpath ( "$wwwdir/$source$key" );
- print "writing $source$s/allpackages...\n";
- $template->process( 'html/index.tmpl', { packages => $pkgs->{$key}, suite => $s, lang => 'en', is_source => $source },
- "$wwwdir/$source$key/allpackages.en.html.new" )
- or die "error writing allpackages for $key: ".$template->error();
- print "writing $source$s/allpackages (txt)...\n";
- my $gzfh = gzopen("$wwwdir/$source$key/allpackages.en.txt.gz.new",
- 'wb9')
- or die "can't open text index file for output: $!";
- my $gztxt;
- $template->process( 'txt/index.tmpl', { packages => $pkgs->{$key}, suite => $s, lang => 'en', is_source => $source },
- \$gztxt )
- or die "error writing allpackages txt for $key: ".$template->error();
- $gzfh->gzwrite($gztxt);
- ($gzfh->gzclose == Z_OK) or
- warn "can't close text index file $wwwdir/$source$key/allpackages.en.txt.gz.new: ".$gzfh->gzerror;
-
- rename( "$wwwdir/$source$key/allpackages.en.html.new",
- "$wwwdir/$source$key/allpackages.en.html" );
- rename( "$wwwdir/$source$key/allpackages.en.txt.gz.new",
- "$wwwdir/$source$key/allpackages.en.txt.gz" );
-
- foreach my $sec (keys %{$sections->{$s}}) {
- mkpath ( "$wwwdir/$source$key/$sec" );
-
- print "writing $source$s/$sec/index...\n";
- $template->process( 'html/index.tmpl', { packages => [ grep { $_->{section} eq $sec } @{$pkgs->{$key}} ],
- suite => $s, lang => 'en', is_source => $source,
- category => { id => 'section', name => $sec } },
- "$wwwdir/$source$key/$sec/index.en.html.new" )
- or die "error writing section index for $key/$sec: ".$template->error();
- rename( "$wwwdir/$source$key/$sec/index.en.html.new",
- "$wwwdir/$source$key/$sec/index.en.html" );
- }
- foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
- next if $ssec eq '-';
- mkpath ( "$wwwdir/$source$key/$ssec" );
-
- print "writing $source$s/$ssec/index...\n";
- $template->process( 'html/index.tmpl', { packages => [ grep { $_->{subsection} eq $ssec } @{$pkgs->{$key}} ],
- suite => $s, lang => 'en', is_source => $source,
- category => { id => 'subsection', name => $ssec } },
- "$wwwdir/$source$key/$ssec/index.en.html.new" )
- or die "error writing subsection index for $key/$ssec: ".$template->error();
- rename( "$wwwdir/$source$key/$ssec/index.en.html.new",
- "$wwwdir/$source$key/$ssec/index.en.html" );
- }
- foreach my $prio (keys %{$priorities->{$s}}) {
- next if $prio eq '-';
- mkpath ( "$wwwdir/$source$key/$prio" );
-
- print "writing $source$s/$prio/index...\n";
- $template->process( 'html/index.tmpl', { packages => [ grep { $_->{priority} eq $prio } @{$pkgs->{$key}} ],
- suite => $s, lang => 'en', is_source => $source,
- category => { id => 'priority', name => $prio } },
- "$wwwdir/$source$key/$prio/index.en.html.new" )
- or die "error writing priority index for $key/$prio: ".$template->error();
- rename( "$wwwdir/$source$key/$prio/index.en.html.new",
- "$wwwdir/$source$key/$prio/index.en.html" );