From 3dd363677c04bddbad691d1065c075cac09467ad Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 11 Jun 2011 08:33:21 -0700
Subject: [PATCH] Implement set_action_param

Export both set_action_params and read_action_param by default

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Config.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 45d23608c..c0c230b45 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -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;
 }
 
 #