holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Allow setting action parameters

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-01-18 15:05:14 -08:00
parent 95aab78c0d
commit 1307770178
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2272,11 +2272,20 @@ sub process_compiler_directive( $$$$ ) {
unless ( $omitting ) { unless ( $omitting ) {
directive_error( "Missing SET variable", $filename, $linenumber ) unless supplied $expression; directive_error( "Missing SET variable", $filename, $linenumber ) unless supplied $expression;
( my $var , $expression ) = split ' ', $expression, 2; ( my $var , $expression ) = split ' ', $expression, 2;
directive_error( "Invalid SET variable ($var)", $filename, $linenumber) unless $var =~ /^\$?([a-zA-Z]\w*)$/; directive_error( "Invalid SET variable ($var)", $filename, $linenumber) unless $var =~ /^([$@])?([a-zA-Z]\w*)$/;
directive_error( "Missing SET expression" , $filename, $linenumber) unless supplied $expression; directive_error( "Missing SET expression" , $filename, $linenumber) unless supplied $expression;
$variables{$1} = evaluate_expression( $expression,
$filename, if ( ( $1 || '' ) eq '@' ) {
$linenumber ); directive_error( "Invalid SET variable", $filename, $linenumber ) unless exists $actparms{$2};
$actparms{$2} = evaluate_expression ( $expression,
$filename,
$linenumber );
$paramsmodified = 1;
} else {
$variables{$1} = evaluate_expression( $expression,
$filename,
$linenumber );
}
} }
} , } ,