| Rev 19 |
|
Rev 22 |
| Line 71... |
|
Line 71... |
if (index ($device,"SNMP")>=0) { |
|
if (index ($device,"SNMP")>=0) { |
my (undef,$host,$comm,$oid)=split /:/,$device; |
|
my (undef,$host,$comm,$oid)=split /:/,$device; |
($name=$host."_".$oid) =~ s/\./_/g; |
|
($name=$host."_".$oid) =~ s/\./_/g; |
$device=$host.":".$oid; |
|
$device=$host.":".$oid; |
$dbfile=$host."_".$oid; |
|
$dbfile=$host."_".$oid; |
| |
|
$name =~ s/\//-/g; |
| |
|
$device =~ s/\//-/g; |
| |
|
$dbfile =~ s/\//-/g; |
} else { |
|
} else { |
if (index ($device,"RRCP")>=0) { |
|
if (index ($device,"RRCP")>=0) { |
my (undef,$host,$comm,$port)=split /:/,$device; |
|
my (undef,$host,$comm,$port)=split /:/,$device; |
$host =~ s/\./:/g; |
|
$host =~ s/\./:/g; |
($name=$host."_".$port) =~ s/\./_/g; |
|
($name=$host."_".$port) =~ s/\./_/g; |
| Line 259... |
|
Line 262... |
my ($dbname, $logdir, $outdir) = @_; |
|
my ($dbname, $logdir, $outdir) = @_; |
|
|
|
my $dbnameweb = $dbname; |
|
my $dbnameweb = $dbname; |
$dbnameweb =~ s/:/_/g; |
|
$dbnameweb =~ s/:/_/g; |
$dbnameweb =~ s/\./_/g; |
|
$dbnameweb =~ s/\./_/g; |
| |
|
$dbnameweb =~ s/\//-/g; |
|
|
|
my $file = $outdir."/".$dbnameweb."_wm.html"; |
|
my $file = $outdir."/".$dbnameweb."_wm.html"; |
|
|
|
|
|
|
open (WMFILE,">$file"); |
|
open (WMFILE,">$file"); |
