| Rev 29 |
|
Rev 30 |
| Line 18... |
|
Line 18... |
# |
|
# |
undef %DEVS; |
|
undef %DEVS; |
foreach (HotSaNICparser::read_settings(".")) { |
|
foreach (HotSaNICparser::read_settings(".")) { |
($var,$value)=HotSaNICparser::parse_line($_); |
|
($var,$value)=HotSaNICparser::parse_line($_); |
if ($var eq "IP") { |
|
if ($var eq "IP") { |
($ip,$oid,$name)=split(/,/,$value); |
|
my ($ip,$oid,$name)=split(/,/,$value); |
$DEVS{$name}=$name."-<a href=\"http://".$ip."\">".$ip."</a>"; |
|
$DEVS{$name}=$name."-<a href=\"http://".$ip."\">".$ip."</a>"; |
} |
|
} |
} |
|
} |
@DIAGRAMS=("hour","6h","day","week","month","year"); |
|
@DIAGRAMS=("hour","6h","day","week","month","year"); |
|
|
|
