|
@@ -22,13 +22,12 @@ sub parse_gsg_config($$) {
|
|
|
my $cat_cmd = findBin("cat",$logger);
|
|
|
my @config_lines = split("\n",shellex("$cat_cmd $config_path",$logger));
|
|
|
my %config_hash;
|
|
|
+ my $line_counter = 1;
|
|
|
foreach my $line ( @config_lines ) {
|
|
|
chomp $line;
|
|
|
if ( $line =~ m/^(.*)\ =\ "(.*)"$/ ) {
|
|
|
$config_hash{$1} = $2;
|
|
|
- }
|
|
|
-
|
|
|
- if ( $line =~ m/^(.*)\ =\ \[(.*)\]/ ) {
|
|
|
+ } elsif ( $line =~ m/^(.*)\ =\ \[(.*)\]/ ) {
|
|
|
my @trimmed_vals;
|
|
|
my @vals = split(",",$2);
|
|
|
foreach my $val (@vals) {
|
|
@@ -36,7 +35,14 @@ sub parse_gsg_config($$) {
|
|
|
push(@trimmed_vals,trim($1));
|
|
|
}
|
|
|
$config_hash{$1} = \@trimmed_vals;
|
|
|
+ } elsif ( $line =~ m/^\#/ ) {
|
|
|
+ next;
|
|
|
+ } else {
|
|
|
+ $logger->error("Couldn't parse config line $line_counter : $line : exiting");
|
|
|
+ exit 1;
|
|
|
}
|
|
|
+
|
|
|
+ $line_counter++;
|
|
|
}
|
|
|
|
|
|
return %config_hash;
|