37 |
$gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi"; |
$gBaseURL = "http://romul.pliva.hr/cgi-bin/cricket/grapher.cgi"; |
38 |
|
|
39 |
# change this to destination directory |
# change this to destination directory |
40 |
$path = "/home/dpavlin/public_html"; |
$path = "/data/mon/"; |
41 |
# this is basename of all html files |
# this is basename of all html files |
42 |
$name = "overview"; |
$name = "overview"; |
43 |
} |
} |
89 |
|
|
90 |
foreach my $filename (keys %html) { |
foreach my $filename (keys %html) { |
91 |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
92 |
print OUT $html{$filename}; |
print OUT $html{$filename},"</body></html>"; |
93 |
close(OUT); |
close(OUT); |
94 |
} |
} |
95 |
|
|
146 |
my($dslist); |
my($dslist); |
147 |
|
|
148 |
my($filename)="$path/$name-$rangeLabel.html"; |
my($filename)="$path/$name-$rangeLabel.html"; |
149 |
|
if (! defined $html{$filename}) { |
150 |
|
$html{$filename}="<html><head><title>$rangeLabel</title></head><body>"; |
151 |
|
} |
152 |
my($dir) = dirname($filename); |
my($dir) = dirname($filename); |
153 |
if (! -d $dir) { |
if (! -d $dir) { |
154 |
Info("Making directory $dir to hold file $filename."); |
Info("Making directory $dir to hold file $filename."); |
172 |
my $desc = "view: "; |
my $desc = "view: "; |
173 |
if ($paraminst ne "") { |
if ($paraminst ne "") { |
174 |
$URL .= "&inst=$paraminst"; |
$URL .= "&inst=$paraminst"; |
175 |
$desc.="$paraminst $vname"; |
$desc.="$paraminst $paramtarget $vname"; |
176 |
} else { |
} else { |
177 |
$desc.="$paramtarget $vname"; |
$desc.="$paramtarget $vname"; |
178 |
} |
} |