+print DEBUG "FHOUT 6: ARGV[0]=" . $ARGV[0] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[1]=" . $ARGV[1] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[2]=" . $ARGV[2] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[3]=" . $ARGV[3] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[4]=" . $ARGV[4] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[5]=" . $ARGV[5] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[6]=" . $ARGV[6] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[7]=" . $ARGV[7] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[8]=" . $ARGV[8] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: ARGV[9]=" . $ARGV[9] . "\n" if ($debug == 1);
+
+$result = &NGetOpt ("config=s", "host=s", "disk=s", "device=s", "level=s", "index=s", "message=s", "collection", "record");
+$result = $result;
+
+print DEBUG "FHOUT 6: config =" . $opt_config . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: disk =" . $opt_disk . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: host =" . $opt_host . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: device =" . $opt_device . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: level =" . $opt_level . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: index =" . $opt_index . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: message =" . $opt_message. "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: collection=" . $opt_collection. "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: record =" . $opt_record . "\n" if ($debug == 1);
+
+print DEBUG "FHOUT 6: A-ARGV[0]=" . $ARGV[0] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[1]=" . $ARGV[1] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[2]=" . $ARGV[2] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[3]=" . $ARGV[3] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[4]=" . $ARGV[4] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[5]=" . $ARGV[5] . "\n" if ($debug == 1);
+print DEBUG "FHOUT 6: A-ARGV[6]=" . $ARGV[6] . "\n" if ($debug == 1);
+
+if (defined $opt_config) {
+ $opt_config =~ /^([\_\.A-Za-z0-9]*)$/;
+ $opt_config = $1;
+}
+
+if (defined $opt_host) {
+ $opt_host =~ /^([\_\.A-Za-z0-9]*)$/;
+ $opt_host = $1;
+}
+
+if (defined $opt_disk) {
+ $opt_disk =~ /^([\/\_\:\.A-Za-z0-9]*)$/;
+ $opt_disk = $1;
+}
+
+if (defined $opt_device) {
+ $opt_device =~ /^([\/\_\:\.A-Za-z0-9]*)$/;
+ $opt_device = $1;
+}
+
+if (defined $opt_level) {
+ $opt_level =~ /^(\d)$/;
+ $opt_level = $1;
+}
+
+# Read tool property