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