version 1.3, 2007/01/13 00:04:51 |
version 1.5, 2007/01/22 17:55:04 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: make_wireless_client_config,v 1.2 2007/01/12 21:55:08 andrew Exp $ |
# $RedRiver: make_wireless_client_config,v 1.4 2007/01/22 16:40:52 andrew Exp $ |
######################################################################## |
######################################################################## |
# make_wireless_client_config *** Generate the Nagios config file we |
# make_wireless_client_config *** Generate the Nagios config file we |
# need for wireless clients. |
# need for wireless clients. |
|
|
my $now = time; |
my $now = time; |
my $when = $now - $Only_Generate_Newer_Than; |
my $when = $now - $Only_Generate_Newer_Than; |
|
|
foreach my $host (sort keys %{ $hosts }) { |
my %nagios_hosts; |
next if $when > $hosts->{$host}->{'Checked'}; |
foreach my $AP (sort keys %{ $hosts }) { |
next if $host =~ /^rr\w{6}\d{4}$/i; |
next if $when > $hosts->{$AP}->{'Checked'}; |
|
next unless $AP =~ /^rr\w{6}\d{4}$/i; |
|
|
my $server; |
my @clients; |
my $id; |
push @clients, keys %{ $hosts->{$AP}->{'Info'}->{'suRemarks'} }; |
my $name; |
push @clients, keys %{ $hosts->{$AP}->{'Info'}->{'Wireless_Host_Name'} }; |
my $template; |
|
|
|
if ($hosts->{$host}->{'Host'}->{'Type'} =~ /Trango_Client$/) { |
#print Dumper $AP, \@clients; |
$server = $hosts->{$host}->{'Info'}->{'Wireless_Host_Name'}->{'id_0'}; |
|
$id = 'id_' . $hosts->{$host}->{'Host'}->{'ID'}; |
|
$name = $hosts->{$host}->{'Host'}->{'name'}; |
|
$template = $Trango_Template; |
|
} elsif ($hosts->{$host}->{'Host'}->{'Type'} =~ /TurboCell$/) { |
|
$server = $hosts->{$host}->{'Host'}->{'comment'}; |
|
$id = $host; |
|
$name = $hosts->{$host}->{'Host'}->{'name'}; |
|
$template = $TurboCell_Template; |
|
} else { |
|
next; |
|
} |
|
|
|
next unless $server && $id; |
foreach my $id (@clients) { |
|
my $host; |
|
my $name; |
|
my $template; |
|
my $nagios_host; |
|
|
|
if ($hosts->{$AP}->{'Host'}->{'Type'} =~ /Trango$/) { |
|
$host = $hosts->{$AP}->{'Info'}->{'suRemarks'}->{$id}; |
|
$name = $hosts->{$host}->{'Host'}->{'name'}; |
|
$nagios_host = "${AP}-${id}"; |
|
$template = $Trango_Template; |
|
} elsif ($hosts->{$AP}->{'Host'}->{'Type'} =~ /TurboCell$/) { |
|
$host = $hosts->{$AP}->{'Info'}->{'Wireless_Host_Name'}->{$id}; |
|
$name = $hosts->{$host}->{'Host'}->{'name'}; |
|
$nagios_host = "${AP}-${host}"; |
|
$template = $TurboCell_Template; |
|
} else { |
|
next; |
|
} |
|
|
my $server_uc = uc($server); |
next unless $host; |
|
next if $host =~ /^rr\w{6}\d{4}$/i; |
|
|
#print $host, ": ", $server, "-", $id, ": ", |
next if exists $nagios_hosts{$nagios_host}; |
# (scalar localtime($hosts->{$host}->{'Checked'})), "\n"; |
$nagios_hosts{$nagios_host}++; |
|
|
print <<EOL; |
my $AP_uc = uc($AP); |
|
|
|
#print $host, ": ", $AP, "-", $id, ": ", |
|
# (scalar localtime($hosts->{$host}->{'Checked'})), "\n"; |
|
|
|
print <<EOL; |
define host { |
define host { |
use $template |
use $template |
host_name ${server}-${id} |
host_name $nagios_host; |
alias $host |
alias $host |
address $name |
address $name |
parents $server_uc |
parents $AP_uc |
} |
} |
EOL |
EOL |
|
|
|
} |
|
|
} |
} |