--- generate-overview.pl 2003/05/23 07:41:26 1.9
+++ generate-overview.pl 2003/05/24 12:21:42 1.10
@@ -57,6 +57,12 @@
use Common::Options;
use Common::Log;
+#
+# Set this option to 0 if you don't want JavaScript roll-up/roll-down
+# of images to be created
+#
+my $dynamic_js = 1;
+
Common::Options::commonOptions( 'baseURL=s' => \$gBaseURL );
initConst();
@@ -110,8 +116,130 @@
print OUT "
$key";
print OUT '
' if ($filename =~ m/Daily/i);
+ print OUT <<'HTMLEND' if ($dynamic_js);
+
+
+
+
+
+HTMLEND
print OUT "";
print OUT $html_file{$key};
+ print OUT <<'HTMLEND' if ($dynamic_js);
+
+
+
+HTMLEND
+
print OUT "";
close(OUT);
@@ -119,6 +247,28 @@
exit;
+sub do_html {
+ my ($desc,$url,$img) = @_;
+ if ($dynamic_js) {
+ my $html =<<'HTMLEND';
+
+##desc## |
+
+
+
+ |
+HTMLEND
+ $html =~ s/##desc##/$desc/;
+ $html =~ s/##url##/$url/;
+ $html =~ s/##img##/$img/;
+ $html =~ s/##id##/$dynamic_js/g;
+ $dynamic_js++; # increment usage counter
+ return $html;
+ } else {
+ return "$desc
\n";
+ }
+}
+
sub localHandleTargetInstance {
my($Name, $target) = @_;
@@ -192,7 +342,7 @@
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{"$rangeLabel\t$paramtarget"}.="$desc
\n";
+ $html{"$rangeLabel\t$paramtarget"}.=do_html($desc,$tmp_URL,$URL);
}
} else {
$dslist = $ttRef->{'ds'};
@@ -211,7 +361,7 @@
# getURL($URL,"$path/$name-$rangeLabel.png");
$tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y";
- $html{"$rangeLabel\t$paramtarget"}.="$desc:
";
+ $html{"$rangeLabel\t$paramtarget"}.=do_html($desc,$tmp_URL,$URL);
}
}
}