-print "write suite index files ...\n";
-foreach my $s (@SUITES) {
- my $key = $s;
- mkpath ( "$wwwdir/$key" );
- mkpath ( "$wwwdir/source/$key" );
- foreach my $lang (@LANGUAGES) {
- my $locale = get_locale( $lang );
- my $charset = get_charset( $lang );
- setlocale ( LC_ALL, $locale ) or do {
- warn "couldn't set locale ($lang/$locale)\n";
- next;
- };
- print "writing $key/index (lang=$lang)...\n";
-
- my %content = ( subsections => [], suite => $s,
- lang => $lang, charset => $charset,
- used_langs => \@LANGUAGES, suites => \@SUITES );
- foreach my $ssec ((keys %{$subsections->{$s}}, 'virtual')) {
- next if $ssec eq '-';
- if ($sections_descs{$ssec}) {
- push @{$content{subsections}}, {
- id => $ssec,
- name => dgettext( 'sections', $sections_descs{$ssec}[0] ),
- desc => dgettext( 'sections', $sections_descs{$ssec}[1] ),
- };
- }
- }
-
- $template->page( 'suite_index', \%content,
- "$wwwdir/$key/index.$lang.html.new");
- rename( "$wwwdir/$key/index.$lang.html.new",
- "$wwwdir/$key/index.$lang.html" );
-
- $content{source} = 'source';
- $template->page( 'suite_index', \%content,
- "$wwwdir/source/$key/index.$lang.html.new");
- rename( "$wwwdir/source/$key/index.$lang.html.new",
- "$wwwdir/source/$key/index.$lang.html" );
-
- }
-}
-setlocale( LC_ALL, 'C' ) or die "couldn't reset locale";
-