| Rev 1 |
|
Rev 22 |
| Line 22... |
|
Line 22... |
if ($var eq "DEV") { |
|
if ($var eq "DEV") { |
($dev,undef,undef,$descr)=split(/,/,$value); |
|
($dev,undef,undef,$descr)=split(/,/,$value); |
$dev =~ s/SNMP:(.*?):.*:(.*?)/$1:$2/; |
|
$dev =~ s/SNMP:(.*?):.*:(.*?)/$1:$2/; |
$dev =~ s/RRCP:(.*?):.*:(.*?)/$1:$2/; |
|
$dev =~ s/RRCP:(.*?):.*:(.*?)/$1:$2/; |
$DESCR{$dev}=$descr; |
|
$DESCR{$dev}=$descr; |
| |
|
$dev =~ s/\//-/g; |
} |
|
} |
} |
|
} |
@DIAGRAMS=("hour","6h","day","week","month","year"); |
|
@DIAGRAMS=("hour","6h","day","week","month","year"); |
@TIMES=("6h","week"); |
|
@TIMES=("6h","week"); |
|
|
|
| Line 40... |
|
Line 41... |
<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n"; |
|
<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n"; |
} |
|
} |
print FILE "<body>\n<table>\n"; |
|
print FILE "<body>\n<table>\n"; |
foreach $dev (keys %DESCR) { |
|
foreach $dev (keys %DESCR) { |
$descr=$DESCR{$dev}; |
|
$descr=$DESCR{$dev}; |
| |
|
$dev =~ s/\//-/g; |
($page=$dev) =~ s/[.:]/_/g; |
|
($page=$dev) =~ s/[.:]/_/g; |
print FILE " <tr><td><a href=\"",$page,".html\"><img src=\"",$page,"-",$time,".",$IMAGEFORMAT,"\"></a></td> |
|
print FILE " <tr><td><a href=\"",$page,".html\"><img src=\"",$page,"-",$time,".",$IMAGEFORMAT,"\"></a></td> |
<td valign=top><a href=\"",$page,".html\"><h2>",$dev,"</h2></a><br>",$descr,"</td></tr>\n"; |
|
<td valign=top><a href=\"",$page,".html\"><h2>",$dev,"</h2></a><br>",$descr,"</td></tr>\n"; |
} |
|
} |
print FILE "</table>\n</body>\n</html>\n"; |
|
print FILE "</table>\n</body>\n</html>\n"; |
| Line 61... |
|
Line 63... |
$nn=0; |
|
$nn=0; |
foreach $dev (sort keys %DESCR) { |
|
foreach $dev (sort keys %DESCR) { |
$nn++; |
|
$nn++; |
$descr=$DESCR{$dev}; |
|
$descr=$DESCR{$dev}; |
($page=$dev) =~ s/[.:]/_/g; |
|
($page=$dev) =~ s/[.:]/_/g; |
| |
|
$page =~ s/\//-/g; |
print IDXFILE $nn,"## <td><a href=\"",$MODNAME,"/",$page,".html\"><img src=\"",$MODNAME,"/thumb-",$page,".",$IMAGEFORMAT,"\"></a></td> |
|
print IDXFILE $nn,"## <td><a href=\"",$MODNAME,"/",$page,".html\"><img src=\"",$MODNAME,"/thumb-",$page,".",$IMAGEFORMAT,"\"></a></td> |
",$nn,"## <td valign=top><a href=\"",$MODNAME,"/",$page,".html\">",$dev,"</a><br><font size=\"-2\">",$descr,"</font></td>\n"; |
|
",$nn,"## <td valign=top><a href=\"",$MODNAME,"/",$page,".html\">",$dev,"</a><br><font size=\"-2\">",$descr,"</font></td>\n"; |
|
|
|
# build device-based .html |
|
# build device-based .html |
# |
|
# |
