version 1.2, 2007/01/12 21:55:08 |
version 1.3, 2007/01/13 00:04:51 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: make_wireless_client_config,v 1.1 2007/01/12 15:58:34 andrew Exp $ |
# $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; |
|
|