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