| 
														
															@@ -22,13 +22,12 @@ sub parse_gsg_config($$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my $cat_cmd = findBin("cat",$logger); 
														 | 
														
														 | 
														
															 	my $cat_cmd = findBin("cat",$logger); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my @config_lines = split("\n",shellex("$cat_cmd $config_path",$logger)); 
														 | 
														
														 | 
														
															 	my @config_lines = split("\n",shellex("$cat_cmd $config_path",$logger)); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	my %config_hash; 
														 | 
														
														 | 
														
															 	my %config_hash; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+	my $line_counter = 1; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 	foreach my $line ( @config_lines ) { 
														 | 
														
														 | 
														
															 	foreach my $line ( @config_lines ) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 		chomp $line; 
														 | 
														
														 | 
														
															 		chomp $line; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 		if ( $line =~ m/^(.*)\ =\ "(.*)"$/ ) { 
														 | 
														
														 | 
														
															 		if ( $line =~ m/^(.*)\ =\ "(.*)"$/ ) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			$config_hash{$1} = $2; 
														 | 
														
														 | 
														
															 			$config_hash{$1} = $2; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-		} 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															- 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-		if ( $line =~ m/^(.*)\ =\ \[(.*)\]/ ) { 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+		} elsif ( $line =~ m/^(.*)\ =\ \[(.*)\]/ ) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			my @trimmed_vals; 
														 | 
														
														 | 
														
															 			my @trimmed_vals; 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			my @vals = split(",",$2); 
														 | 
														
														 | 
														
															 			my @vals = split(",",$2); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			foreach my $val (@vals) { 
														 | 
														
														 | 
														
															 			foreach my $val (@vals) { 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -36,7 +35,14 @@ sub parse_gsg_config($$) { 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 				push(@trimmed_vals,trim($1)); 
														 | 
														
														 | 
														
															 				push(@trimmed_vals,trim($1)); 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			} 
														 | 
														
														 | 
														
															 			} 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 			$config_hash{$1} = \@trimmed_vals; 
														 | 
														
														 | 
														
															 			$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; 
														 | 
														
														 | 
														
															 	return %config_hash; 
														 |