+
+ $content{source} = 'source';
+ open $pages{$key}{$lang}{source_index}{fh}, '>', "$wwwdir/source/$key/index.$lang.html.new"
+ or die "can't open index file for output: $!";
+ print {$pages{$key}{$lang}{source_index}{fh}} $template->page( 'suite_index', \%content );
+ print {$pages{$key}{$lang}{source_index}{fh}} $template->trailer( 'index', $lang, \@LANGUAGES );
+ close $pages{$key}{$lang}{source_index}{fh} or
+ warn "can't close index file $wwwdir/source/$key/index.$lang.html.new: $!";
+ rename( "$wwwdir/source/$key/index.$lang.html.new",
+ "$wwwdir/source/$key/index.$lang.html" );
+