Revision b5758d6e
Added by Hamish Coleman almost 17 years ago
- ID b5758d6ebc578dd67e0c48d8c56f6c6bdf4efa3e
mrtg.cgi | ||
---|---|---|
}
|
||
|
||
$db->{target}->{$name}->{_hosttype} = $hosttype;
|
||
$db->{hosttype}->{$hosttype}->{$name}++;
|
||
$db->{hosttype}->{$hosttype}->{$host}++;
|
||
}
|
||
|
||
#for my $hosttype (keys %{$db->{hosttype}}) {
|
||
# if ((keys %{$db->{hosttype}->{$hosttype}})<2) {
|
||
# delete $db->{hosttype}->{$hosttype};
|
||
# }
|
||
#}
|
||
|
||
# a valid hosttype is:
|
||
# defined($db->{target}->{$name}->{hosttype}) &&
|
||
# defined($db->{hosttype}->{$hosttype})
|
||
for my $hosttype (keys %{$db->{hosttype}}) {
|
||
if ((keys %{$db->{hosttype}->{$hosttype}})<2) {
|
||
delete $db->{hosttype}->{$hosttype};
|
||
}
|
||
}
|
||
}
|
||
|
||
sub maketree_grouphosttest($$) {
|
||
... | ... | |
return;
|
||
}
|
||
|
||
#my $hosttype = $db->{target}->{$name}->{_hosttype};
|
||
#if (!defined($db->{hosttype}->{$hosttype})) {
|
||
# $hosttype=undef;
|
||
#}
|
||
my $hosttype;
|
||
# TODO - this needs to have a better way...
|
||
# hosttype is the non digit hostname prefix - thus
|
||
# "proxy-1" and "proxy-2" would both end up in the
|
||
# "proxy-" hosttype
|
||
if ($host =~ m/^(.*[^0-9])(\d+)$/) {
|
||
$hosttype = $1.'*';
|
||
# a valid hosttype both:
|
||
# defined($db->{target}->{$name}->{hosttype}) &&
|
||
# defined($db->{hosttype}->{$hosttype})
|
||
my $hosttype = $db->{target}->{$name}->{_hosttype};
|
||
if (!defined($db->{hosttype}->{$hosttype})) {
|
||
$hosttype=undef;
|
||
}
|
||
|
||
# TODO - determine a better description for this tree leaf
|
Also available in: Unified diff
Add code to prune hosttypes based on number of members in the group