--- generate-overview.pl 2002/06/11 19:27:37 1.1
+++ generate-overview.pl 2002/07/24 15:14:08 1.5
@@ -37,9 +37,7 @@
$gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi";
# change this to destination directory
- $path = "/home/dpavlin/public_html";
- # this is basename of all html files
- $name = "overview";
+ $path = "/data/mon/";
}
#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,13 +164,6 @@
my($dslist);
- my($filename)="$path/$name-$rangeLabel.html";
- 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);
@@ -166,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 $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'};
@@ -186,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:
";
}
}
}