--- /usr/share/perl5/Pisg/HTMLGenerator.pm 2003-04-29 00:08:36.000000000 +0200
+++ Pisg/HTMLGenerator.pm 2003-09-06 22:16:35.000000000 +0200
@@ -37,11 +37,13 @@
$self->_topactive();
- print "Now generating HTML($self->{cfg}->{outputfile})...\n"
+ my $fname = $self->{cfg}->{outputfile};
+ $fname =~ s/\%t/$self->{cfg}->{outputtag}/g;
+ print "Now generating HTML($fname)...\n"
unless ($self->{cfg}->{silent});
- open (OUTPUT, "> $self->{cfg}->{outputfile}") or
- die("$0: Unable to open outputfile($self->{cfg}->{outputfile}): $!\n");
+ open (OUTPUT, "> $fname") or
+ die("$0: Unable to open outputfile($fname): $!\n");
if ($self->{cfg}->{showtime}) {
$self->{cfg}->{tablewidth} += 40;