$key

--- generate-overview.pl 2002/07/11 08:33:48 1.4 +++ generate-overview.pl 2002/07/24 15:14:08 1.5 @@ -38,8 +38,6 @@ # change this to destination directory $path = "/data/mon/"; - # this is basename of all html files - $name = "overview"; } #use lib "$gInstallRoot/../lib"; @@ -87,10 +85,31 @@ } } -foreach my $filename (keys %html) { +my %html_file; + +foreach my $item (sort keys %html) { + my ($range,$target) = split(/\t/,$item,2); + my (undef,$service,$arg) = split(/\//,$target,3); + + $html_file{"$range/$service"} .= $html{$item}; + $html_file{"overview-$range"} .= $html{$item}; +} + +foreach my $key (keys %html_file) { + + my $filename = "$path/$key.html"; + my($dir) = dirname($filename); + if (! -d $dir) { + Info("Making directory $dir to hold file $filename."); + Common::Util::MkDir($dir); + } + Info("Dumping HTML for $key to $filename."); open(OUT,"> $filename") || die "can't open output html '$filename': $!"; - print OUT $html{$filename},""; + print OUT "$key"; + print OUT $html_file{$key}; + print OUT ""; close(OUT); + } exit; @@ -145,16 +164,6 @@ my($dslist); - my($filename)="$path/$name-$rangeLabel.html"; - if (! defined $html{$filename}) { - $html{$filename}="$rangeLabel"; - } - my($dir) = dirname($filename); - if (! -d $dir) { - Info("Making directory $dir to hold file $filename."); - Common::Util::MkDir($dir); - } - if (defined($ttRef->{'view'})) { my($v); @@ -169,18 +178,15 @@ $URL = "$gBaseURL?type=png&target=$paramtarget"; $URL .= "&dslist=$dslist&range=$paramrange"; - my $desc = "view: "; + my $desc = "$paramtarget $vname"; if ($paraminst ne "") { $URL .= "&inst=$paraminst"; - $desc.="$paraminst $paramtarget $vname"; - } else { - $desc.="$paramtarget $vname"; } Info("Retrieving graph for $desc"); # getURL($URL,"$path/$name-$vname-$rangeLabel.png"); $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y&view=$vname"; - $html{$filename}.="$desc

"; + $html{"$rangeLabel\t$paramtarget"}.="$desc

\n"; } } else { $dslist = $ttRef->{'ds'}; @@ -189,19 +195,16 @@ $URL = "$gBaseURL?type=png&target=$paramtarget"; $URL .= "&dslist=$dslist&range=$paramrange"; - my $desc = "ds: "; + my $desc ="$paraminst $rangeLabel"; if ($paraminst ne "") { $URL .= "&inst=$paraminst"; - $desc.="$paraminst $rangeLabel" - } else { - $desc.="$paramtarget $rangeLabel"; } Info("Retrieving graph for $desc"); # getURL($URL,"$path/$name-$rangeLabel.png"); $tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y"; - $html{$filename}.="$desc:

"; + $html{"$rangeLabel\t$paramtarget"}.="$desc:

"; } } }