extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-22 18:51:24 +02:00
Code Issues Packages Projects Releases Wiki 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_message_nocompress
progress_message2 progress_message2
progress_message3 progress_message3
read_action_param
set_action_param
); );
our @EXPORT_OK = qw( $shorewall_dir initialize set_config_path shorewall); 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 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
@ -1824,7 +1825,14 @@ sub read_action_param( $ ) {
my $i = shift; my $i = shift;
fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/; 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;
} }
# #