-print "closing files ...\n";
-foreach my $s (@SUITES) {
- foreach my $a (@ARCHIVES) {
- next if $a eq 'security';
- next if $a eq 'non-US';
- my $key = ($a eq 'us') ? $s : "$s/$a";
- my $root = ($a eq 'us') ? '' : '../';
- print {$pages{$key}{index}{fh}} '</dl></div>',
- "<p class=\"psmallcenter\"><a href=\"allpackages\" title=\"".gettext( "List of all packages" )."\">".
- gettext( "All packages" ) ."</a><br>(<a href=\"allpackages.en.txt.gz\">".
- gettext( "compact compressed textlist" )."</a>)</p>\n";
- print {$pages{$key}{index}{fh}} trailer( "$root../" );
- close $pages{$key}{index}{fh} or
- warn "can't open index file for output $wwwdir/$key/index.en.html.new: $!";
- rename( "$wwwdir/$key/index.en.html.new",
- "$wwwdir/$key/index.en.html" );
- print {$pages{$key}{fh}} '</dl>', trailer( "$root../" );
- close $pages{$key}{fh} or
- warn "can't close index file $wwwdir/$key/allpackages.en.html.new: $!";
- rename( "$wwwdir/$key/allpackages.en.html.new",
- "$wwwdir/$key/allpackages.en.html" );
- foreach my $sec (keys %{$sections->{$s}{$a}}) {
- print {$pages{$key}{$sec}{fh}} '</dl>', trailer( "$root../../" );
- close $pages{$key}{$sec}{fh} or
- warn "can't close index file $wwwdir/$key/$sec/index.en.html.new: $!";
- rename( "$wwwdir/$key/$sec/index.en.html.new",
- "$wwwdir/$key/$sec/index.en.html" );
- }
- foreach my $ssec ((keys %{$subsections->{$s}{$a}}, 'virtual')) {
+write_files(\%allpkgs);
+
+print "collecting source package info ...\n";
+my %allsrcpkgs;
+while (my ($pkg, $data) = each %src_packages) {
+ my %pkg;
+ foreach (split /\000/o, $data||'') {
+ my @data = split ( /\s/o, $_ );
+ $pkg{$data[1]} ||= new Packages::SrcPage( $pkg );
+ $pkg{$data[1]}->merge_package( { package => $pkg,
+ archive => $data[0],
+ suite => $data[1],
+ section => $data[2],
+ subsection => $data[3],
+ priority => $data[4],
+ version => $data[5],
+ } );
+ }
+
+ while (my ($key, $entry) = each %pkg) {
+ $allsrcpkgs{$key} ||= [];
+
+ my %p = ( name => $pkg, providers => [], versions => '' );
+ $p{versions} = $entry->{version};
+ $p{subsection} = $entry->get_newest( 'subsection' );
+ $p{section} = $entry->get_newest( 'section' );
+ $p{archive} = $entry->get_newest( 'archive' );
+ $p{priority} = $entry->get_newest( 'priority' );
+
+ $p{desc} = '';
+ $p{binaries} = [];
+# my $binaries = find_binaries( $pkg, $p{archive}, $p{suite}, \%src2bin );
+# if ($binaries && @$binaries) {
+# pkg_list( \%packages, $opts, $binaries, 'en', $contents{binaries} );
+# }
+
+ push @{$allsrcpkgs{$key}}, \%p;
+ }
+}
+
+write_files(\%allsrcpkgs, 1);
+
+sub write_files {
+ my ($pkgs, $source) = @_;
+
+ $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')) {