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

Implement set_action_param

Browse Source 
Export both set_action_params and read_action_param by default

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-06-11 08:33:21 -07:00
parent 8b6a7a7053
commit 3dd363677c
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,6 +51,8 @@ our @EXPORT = qw(
progress_message_nocompress
progress_message2
progress_message3
read_action_param
set_action_param
);
our @EXPORT_OK = qw( $shorewall_dir initialize set_config_path shorewall);
@ -101,7 +103,6 @@ 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
@ -1824,7 +1825,14 @@ sub read_action_param( $ ) {
my $i = shift;
fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
$actparams{$i};
$actparms{$i};
}
sub set_action_param( $$ ) {
my $i = shift;
fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
$actparms{$i} = shift;
}
#