===================================================================
RCS file: /cvs/nagios/check_rrd/bin/host2rrd,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- nagios/check_rrd/bin/host2rrd	2007/03/20 23:40:20	1.3
+++ nagios/check_rrd/bin/host2rrd	2007/03/20 23:56:29	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-# $RedRiver: host2rrd,v 1.2 2007/01/10 18:05:31 andrew Exp $
+# $RedRiver: host2rrd,v 1.3 2007/03/20 22:40:20 andrew Exp $
 ########################################################################
 # hostalias2filename *** figures out the filename for a wireless 
 #                        customer to pass to a script.
@@ -19,6 +19,7 @@
 my $Host;
 my $Host_Suffix = '';
 my $RRD;
+my $Host_To_Lower;
 
 #Option checking
 my $status = GetOptions(
@@ -26,11 +27,16 @@
     "suffix|S=s" => \$Host_Suffix,
     "rrd|r=s"    => \$RRD,
     "path|p=s"   => \$basedir,
+    "tolower|l"  => \$Host_To_Lower,
 );
 
 
 die "No host passes!" unless $Host;
 die "No RRD passed!"  unless $RRD;
+
+if ($Host_To_Lower) {
+    $Host = lc $Host;
+}
 
 
 my ($server, $client) = split /-/, $Host, 2;