-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>';
- }
- foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
- next if $ssec eq '-';
- mkpath ( "$wwwdir/$key/$ssec" );
- open $pages{$key}{$ssec}{fh}, '>', "$wwwdir/$key/$ssec/index.en.html.new"
- or die "can't open index file for output: $!";
- $title = sprintf( _g( "Software Packages in \"%s\", subsection %s" ),
- $key, $ssec );
- print {$pages{$key}{$ssec}{fh}} header( title => $title,
- title_keywords => "debian, $s, $ssec",
- desc => encode_entities( $title, '"' ),
- lang => 'en' ),
- title( $title ), '<dl>';