|
@@ -39,6 +39,9 @@ sub warnOnUser($$$) {
|
|
|
|
|
|
}
|
|
|
|
|
|
+# https://perlmaven.com/trim
|
|
|
+sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
|
|
|
+
|
|
|
sub parseSGConfig($$) {
|
|
|
|
|
|
my $config = shift;
|
|
@@ -55,12 +58,20 @@ sub parseSGConfig($$) {
|
|
|
if ( $line =~ m/^(.*)\ =\ "(.*)"$/ ) {
|
|
|
$configHash{$1} = $2;
|
|
|
}
|
|
|
- }
|
|
|
|
|
|
- if ( defined $configHash{'UserWarn'} ) {
|
|
|
- warnOnUser($configHash{'user.name'},$configHash{'user.email'},$logger);
|
|
|
+ if ( $line =~ m/^(.*)\ =\ \[(.*)\]/ ) {
|
|
|
+ my @trimmedPorts;
|
|
|
+ my @ports = split(",",$2);
|
|
|
+ foreach my $port (@ports) {
|
|
|
+ $port =~ /(\d{1,5})/;
|
|
|
+ push(@trimmedPorts,trim($1));
|
|
|
+ }
|
|
|
+ $configHash{$1} = \@trimmedPorts;
|
|
|
+ }
|
|
|
}
|
|
|
|
|
|
+ return %configHash;
|
|
|
+
|
|
|
}
|
|
|
|
|
|
sub returnConfigPath($$) {
|