version 1.1, 2007/01/12 15:58:34 |
version 1.3, 2007/01/13 00:04:51 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver$ |
# $RedRiver: make_wireless_client_config,v 1.2 2007/01/12 21:55:08 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 (keys %{ $hosts }) { |
foreach my $host (sort keys %{ $hosts }) { |
next if $when > $hosts->{$host}->{'Checked'}; |
next if $when > $hosts->{$host}->{'Checked'}; |
next if $host =~ /^rr\w{6}\d{4}$/i; |
next if $host =~ /^rr\w{6}\d{4}$/i; |
|
|
|
|
next unless $server && $id; |
next unless $server && $id; |
|
|
|
|
|
my $server_uc = uc($server); |
|
|
#print $host, ": ", $server, "-", $id, ": ", |
#print $host, ": ", $server, "-", $id, ": ", |
# (scalar localtime($hosts->{$host}->{'Checked'})), "\n"; |
# (scalar localtime($hosts->{$host}->{'Checked'})), "\n"; |
|
|
|
|
host_name ${server}-${id} |
host_name ${server}-${id} |
alias $host |
alias $host |
address $name |
address $name |
|
parents $server_uc |
} |
} |
EOL |
EOL |
|
|