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 |
|
print OUT '<meta content="no-cache" http-equiv="Pragma"> |
112 |
|
<meta content="300" http-equiv="Refresh">' if ($filename =~ m/Daily/i); |
113 |
|
print OUT "</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); |