extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-26 12:42:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement read_action_param()

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-06-11 07:49:57 -07:00
parent f278d05637
commit 8b6a7a7053
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,6 +101,7 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
push_action_params push_action_params
pop_action_params pop_action_params
default_action_params default_action_params
read_action_param
read_a_line read_a_line
validate_level validate_level
which which
@ -1819,6 +1820,13 @@ sub default_action_params {
} }
} }
sub read_action_param( $ ) {
my $i = shift;
fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
$actparams{$i};
}
# #
# Read a line from the current include stack. # Read a line from the current include stack.
# #