34 |
# You need to update this to point to the URL |
# You need to update this to point to the URL |
35 |
# you use to access Cricket. |
# you use to access Cricket. |
36 |
# $gBaseURL = "http://localhost/~cricket/grapher.cgi"; |
# $gBaseURL = "http://localhost/~cricket/grapher.cgi"; |
37 |
$gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi"; |
my $hostname = `hostname -f`; |
38 |
|
chomp($hostname); |
39 |
|
$gBaseURL = "http://$hostname/cgi-bin/cricket/grapher.cgi"; |
40 |
|
|
41 |
# change this to destination directory |
# change this to destination directory |
42 |
$path = "/data/mon/"; |
$path = "/data/mon/"; |
107 |
} |
} |
108 |
Info("Dumping HTML for $key to $filename."); |
Info("Dumping HTML for $key to $filename."); |
109 |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
110 |
print OUT "<html><head><title>$key</title></head><body>"; |
print OUT '<html><head><title>'.$key.'</title> |
111 |
|
<meta content="no-cache" http-equiv="Pragma"> |
112 |
|
<meta content="300" http-equiv="Refresh"> |
113 |
|
</head><body>'; |
114 |
print OUT $html_file{$key}; |
print OUT $html_file{$key}; |
115 |
print OUT "</body></html>"; |
print OUT "</body></html>"; |
116 |
close(OUT); |
close(OUT); |
184 |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
185 |
$URL .= "&dslist=$dslist&range=$paramrange"; |
$URL .= "&dslist=$dslist&range=$paramrange"; |
186 |
my $desc = "$paramtarget $vname"; |
my $desc = "$paramtarget $vname"; |
187 |
|
$desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'}); |
188 |
if ($paraminst ne "") { |
if ($paraminst ne "") { |
189 |
$URL .= "&inst=$paraminst"; |
$URL .= "&inst=$paraminst"; |
190 |
} |
} |
202 |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
203 |
$URL .= "&dslist=$dslist&range=$paramrange"; |
$URL .= "&dslist=$dslist&range=$paramrange"; |
204 |
my $desc ="$paraminst $rangeLabel"; |
my $desc ="$paraminst $rangeLabel"; |
205 |
|
$desc .= " <b>".$target->{'short-desc'}."</b>" if (defined $target->{'short-desc'}); |
206 |
if ($paraminst ne "") { |
if ($paraminst ne "") { |
207 |
$URL .= "&inst=$paraminst"; |
$URL .= "&inst=$paraminst"; |
208 |
} |
} |