version 1.4, 2007/01/22 16:40:52 |
version 1.5, 2007/01/22 17:55:04 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: make_wireless_client_config,v 1.3 2007/01/13 00:04:51 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. |
|
|
} |
} |
|
|
next unless $host; |
next unless $host; |
|
next if $host =~ /^rr\w{6}\d{4}$/i; |
|
|
next if exists $nagios_hosts{$nagios_host}; |
next if exists $nagios_hosts{$nagios_host}; |
$nagios_hosts{$nagios_host}++; |
$nagios_hosts{$nagios_host}++; |