38 |
|
|
39 |
# change this to destination directory |
# change this to destination directory |
40 |
$path = "/data/mon/"; |
$path = "/data/mon/"; |
|
# this is basename of all html files |
|
|
$name = "overview"; |
|
41 |
} |
} |
42 |
|
|
43 |
#use lib "$gInstallRoot/../lib"; |
#use lib "$gInstallRoot/../lib"; |
85 |
} |
} |
86 |
} |
} |
87 |
|
|
88 |
foreach my $filename (keys %html) { |
my %html_file; |
89 |
|
|
90 |
|
foreach my $item (sort keys %html) { |
91 |
|
my ($range,$target) = split(/\t/,$item,2); |
92 |
|
my (undef,$service,$arg) = split(/\//,$target,3); |
93 |
|
|
94 |
|
$html_file{"$range/$service"} .= $html{$item}; |
95 |
|
$html_file{"overview-$range"} .= $html{$item}; |
96 |
|
} |
97 |
|
|
98 |
|
foreach my $key (keys %html_file) { |
99 |
|
|
100 |
|
my $filename = "$path/$key.html"; |
101 |
|
my($dir) = dirname($filename); |
102 |
|
if (! -d $dir) { |
103 |
|
Info("Making directory $dir to hold file $filename."); |
104 |
|
Common::Util::MkDir($dir); |
105 |
|
} |
106 |
|
Info("Dumping HTML for $key to $filename."); |
107 |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
open(OUT,"> $filename") || die "can't open output html '$filename': $!"; |
108 |
print OUT $html{$filename},"</body></html>"; |
print OUT "<html><head><title>$key</title></head><body>"; |
109 |
|
print OUT $html_file{$key}; |
110 |
|
print OUT "</body></html>"; |
111 |
close(OUT); |
close(OUT); |
112 |
|
|
113 |
} |
} |
114 |
|
|
115 |
exit; |
exit; |
164 |
|
|
165 |
my($dslist); |
my($dslist); |
166 |
|
|
|
my($filename)="$path/$name-$rangeLabel.html"; |
|
|
if (! defined $html{$filename}) { |
|
|
$html{$filename}="<html><head><title>$rangeLabel</title></head><body>"; |
|
|
} |
|
|
my($dir) = dirname($filename); |
|
|
if (! -d $dir) { |
|
|
Info("Making directory $dir to hold file $filename."); |
|
|
Common::Util::MkDir($dir); |
|
|
} |
|
|
|
|
167 |
if (defined($ttRef->{'view'})) |
if (defined($ttRef->{'view'})) |
168 |
{ |
{ |
169 |
my($v); |
my($v); |
178 |
|
|
179 |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
180 |
$URL .= "&dslist=$dslist&range=$paramrange"; |
$URL .= "&dslist=$dslist&range=$paramrange"; |
181 |
my $desc = "view: "; |
my $desc = "$paramtarget $vname"; |
182 |
if ($paraminst ne "") { |
if ($paraminst ne "") { |
183 |
$URL .= "&inst=$paraminst"; |
$URL .= "&inst=$paraminst"; |
|
$desc.="$paraminst $paramtarget $vname"; |
|
|
} else { |
|
|
$desc.="$paramtarget $vname"; |
|
184 |
} |
} |
185 |
|
|
186 |
Info("Retrieving graph for $desc"); |
Info("Retrieving graph for $desc"); |
187 |
# getURL($URL,"$path/$name-$vname-$rangeLabel.png"); |
# getURL($URL,"$path/$name-$vname-$rangeLabel.png"); |
188 |
$tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y&view=$vname"; |
$tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y&view=$vname"; |
189 |
$html{$filename}.="$desc<br><a href=\"$tmp_URL\"><img src=$URL></a><br>"; |
$html{"$rangeLabel\t$paramtarget"}.="$desc<br><a href=\"$tmp_URL\"><img src=$URL></a><br>\n"; |
190 |
} |
} |
191 |
} else { |
} else { |
192 |
$dslist = $ttRef->{'ds'}; |
$dslist = $ttRef->{'ds'}; |
195 |
|
|
196 |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
$URL = "$gBaseURL?type=png&target=$paramtarget"; |
197 |
$URL .= "&dslist=$dslist&range=$paramrange"; |
$URL .= "&dslist=$dslist&range=$paramrange"; |
198 |
my $desc = "ds: "; |
my $desc ="$paraminst $rangeLabel"; |
199 |
if ($paraminst ne "") { |
if ($paraminst ne "") { |
200 |
$URL .= "&inst=$paraminst"; |
$URL .= "&inst=$paraminst"; |
|
$desc.="$paraminst $rangeLabel" |
|
|
} else { |
|
|
$desc.="$paramtarget $rangeLabel"; |
|
201 |
} |
} |
202 |
|
|
203 |
Info("Retrieving graph for $desc"); |
Info("Retrieving graph for $desc"); |
204 |
|
|
205 |
# getURL($URL,"$path/$name-$rangeLabel.png"); |
# getURL($URL,"$path/$name-$rangeLabel.png"); |
206 |
$tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y"; |
$tmp_URL = "$gBaseURL?target=$paramtarget&range=d:w:m:y"; |
207 |
$html{$filename}.="$desc:<br><a href=\"$tmp_URL\"><img src=$URL><a/><br>"; |
$html{"$rangeLabel\t$paramtarget"}.="$desc:<br><a href=\"$tmp_URL\"><img src=$URL><a/><br>"; |
208 |
} |
} |
209 |
} |
} |
210 |
} |
} |