use HTML::Entities;
use URI::Escape;
use Compress::Zlib;
+use IO::Handle;
use lib './lib';
print "opening $key\n";
mkdirp ( "$wwwdir/$key" );
+ if ($fh{$key}) {
+ warn "filehandle for $key already open\n";
+ return;
+ }
open($fh{$key}, '>',
"$wwwdir/$key/$file.slices.new")
or die "Cannot open file $wwwdir/$key/$file.slices.new: $!";
$file ||= 'index';
print "closing $key\n";
+ unless ($fh{$key}->opened()) {
+ warn "filehandle for $key already closed\n";
+ return;
+ }
foreach my $lang (@LANGUAGES) {
print {$fh{$key}} "\n$s{begin}{$lang}\n";
foreach my $s (@SUITES) {
my %common_vars = ( suite => $s,
is_source => $source );
- close_file("$source$s", \%common_vars, 'allpackages');
- close_txt_file("$source$s", \%common_vars, 'allpackages');
+ my $page_base = "$source$s/";
+ close_file("$source$s", { %common_vars,
+ page_name => "${page_base}allpackages" },
+ 'allpackages');
+ close_txt_file("$source$s", { %common_vars,
+ page_name => "{$page_base}allpackages" },
+ 'allpackages');
foreach my $sec (keys %{$sections->{$s}}) {
close_file("$source$s/$sec",
{ %common_vars,
+ page_name => "$page_base$sec/",
category => { id => N_('Section'),
name => $sec }});
}
next if $ssec eq '-';
close_file("$source$s/$ssec",
{ %common_vars,
+ page_name => "$page_base$ssec/",
category => { id => N_('Subsection'),
name => $ssec }});
}
next if $prio eq '-';
close_file("$source$s/$prio",
{ %common_vars,
+ page_name => "$page_base$prio/",
category => { id => N_('Priority'),
name => $prio }});
}