===================================================================
RCS file: /cvs/nagios/check_rrd/bin/make_wireless_client_config,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -r1.1 -r1.3
--- nagios/check_rrd/bin/make_wireless_client_config	2007/01/12 15:58:34	1.1
+++ nagios/check_rrd/bin/make_wireless_client_config	2007/01/13 00:04:51	1.3
@@ -1,5 +1,5 @@
 #!/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 
 #                                 need for wireless clients.
@@ -26,7 +26,7 @@
 my $now  = time;
 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 $host =~ /^rr\w{6}\d{4}$/i;
 
@@ -52,6 +52,8 @@
 	next unless $server && $id;
 
 
+	my $server_uc = uc($server);
+
 	#print $host, ": ", $server, "-", $id, ": ", 
 	#	(scalar localtime($hosts->{$host}->{'Checked'})), "\n";
 
@@ -61,6 +63,7 @@
 	host_name  ${server}-${id}
 	alias      $host
 	address    $name
+	parents    $server_uc
 }
 EOL