89 |
|
|
90 |
foreach my $filename (keys %html) { |
foreach my $filename (keys %html) { |
91 |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
92 |
print OUT $html{$filename}; |
print OUT $html{$filename},"</body></html>"; |
93 |
close(OUT); |
close(OUT); |
94 |
} |
} |
95 |
|
|
146 |
my($dslist); |
my($dslist); |
147 |
|
|
148 |
my($filename)="$path/$name-$rangeLabel.html"; |
my($filename)="$path/$name-$rangeLabel.html"; |
149 |
|
if (! defined $html{$filename}) { |
150 |
|
$html{$filename}="<html><head><title>$rangeLabel</title></head><body>"; |
151 |
|
} |
152 |
my($dir) = dirname($filename); |
my($dir) = dirname($filename); |
153 |
if (! -d $dir) { |
if (! -d $dir) { |
154 |
Info("Making directory $dir to hold file $filename."); |
Info("Making directory $dir to hold file $filename."); |