--- generate-overview.pl 2002/07/24 15:14:08 1.5
+++ generate-overview.pl 2003/05/18 11:54:28 1.8
@@ -34,7 +34,9 @@
# You need to update this to point to the URL
# you use to access Cricket.
# $gBaseURL = "http://localhost/~cricket/grapher.cgi";
- $gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi";
+ my $hostname = `hostname -f`;
+ chomp($hostname);
+ $gBaseURL = "http://$hostname/cgi-bin/cricket/grapher.cgi";
# change this to destination directory
$path = "/data/mon/";
@@ -105,7 +107,10 @@
}
Info("Dumping HTML for $key to $filename.");
open(OUT,"> $filename") || die "can't open output html '$filename': $!";
- print OUT "
$key";
+ print OUT ''.$key.'
+
+
+ ';
print OUT $html_file{$key};
print OUT "";
close(OUT);
@@ -179,6 +184,7 @@
$URL = "$gBaseURL?type=png&target=$paramtarget";
$URL .= "&dslist=$dslist&range=$paramrange";
my $desc = "$paramtarget $vname";
+ $desc .= " ".$target->{'short-desc'}."" if (defined $target->{'short-desc'});
if ($paraminst ne "") {
$URL .= "&inst=$paraminst";
}
@@ -196,6 +202,7 @@
$URL = "$gBaseURL?type=png&target=$paramtarget";
$URL .= "&dslist=$dslist&range=$paramrange";
my $desc ="$paraminst $rangeLabel";
+ $desc .= " ".$target->{'short-desc'}."" if (defined $target->{'short-desc'});
if ($paraminst ne "") {
$URL .= "&inst=$paraminst";
}