extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-03 20:19:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

More parameter processing improvements

Browse Source
This commit is contained in:
Tom Eastep 2010-12-01 10:11:02 -08:00
parent 901a986b18
commit 22580c5be0
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Shorewall/Perl/Shorewall/Config.pm
View File

@ -2905,9 +2905,24 @@ sub get_params() {
fatal_error "Processing of $fn failed" if $?;
my $variable;
for ( @params ) {
if ( /^export (.*?)='(.*)'$/ ) {
$params{$1} = $2 unless $1 eq '_';
} elsif ( /^export (.*?)='(.*)$/ ) {
$params{$variable=$1}="${2}\n";
} else {
assert($variable);
$params{$variable} .= $_;
}
}
if ( $debug ) {
print "PARAMS:\n";
my $value;
while ( ($variable, $value ) = each %params ) {
print " $variable='$value'\n";
}
}
}