holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests 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
pop_action_params
default_action_params
read_action_param
read_a_line
validate_level
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.
#