-
- print {$pages{$key}{$lang}{index}{fh}} '</dl></div>',
- "<p class=\"psmallcenter\"><a href=\"allpackages\" title=\""._g( "List of all packages" )."\">".
- _g( "All packages" ) ."</a><br>(<a href=\"allpackages?format=txt.gz\">".
- _g( "compact compressed textlist" )."</a>)</p>\n";
- print {$pages{$key}{$lang}{index}{fh}} trailer( "../", 'index', $lang, @LANGUAGES );
- close $pages{$key}{$lang}{index}{fh} or
- warn "can't close index file $wwwdir/$key/index.$lang.html.new: $!";
- rename( "$wwwdir/$key/index.$lang.html.new",
- "$wwwdir/$key/index.$lang.html" );
-
- }
-}
-setlocale( LC_ALL, 'C' ) or die "couldn't reset locale";
-
-print "opening files ...\n";
-foreach my $s (@SUITES) {
- my $key = $s;
- mkpath ( "$wwwdir/$key" );
- open $pages{$key}{fh}, '>', "$wwwdir/$key/allpackages.en.html.new"
- or die "can't open index file for output: $!";
- $pages{$key}{textgz} = gzopen("$wwwdir/$key/allpackages.en.txt.gz.new",
- 'wb9')
- or die "can't open text index file for output: $!";
-
- my $title = sprintf( _g( "Software Packages in \"%s\"" ),
- $key );
- print {$pages{$key}{fh}} header( title => $title,
- title_keywords => "debian, $s",
- desc => encode_entities( $title, '"' ),
- lang => 'en' ),
- title( $title ), '<dl>';
- my $title_txt = sprintf( _g( "All Debian Packages in \"%s\"" ),
- $key )."\n\n";
- $title_txt .= _g( "Last Modified: " ).gmtime()."\n".
- sprintf(_g( "Copyright (C) 1997-%d SPI;\nSee <URL:http://www.debian.org/license> for the license terms."), (gmtime)[5]+1900 )."\n\n";
- $pages{$key}{textgz}->gzwrite($title_txt);
-
- foreach my $sec (keys %{$sections->{$s}}) {
- mkpath ( "$wwwdir/$key/$sec" );
- open $pages{$key}{$sec}{fh}, '>', "$wwwdir/$key/$sec/index.en.html.new"
- or die "can't open index file for output: $!";
- $title = sprintf( _g( "Software Packages in \"%s\", section %s" ),
- $key, $sec );
- print {$pages{$key}{$sec}{fh}} header( title => $title,
- title_keywords => "debian, $s, $sec",
- desc => encode_entities( $title, '"' ),
- lang => 'en' ),
- title( $title ), '<dl>';