From 8b6a7a70537659c6806c831177b17dd471505bd8 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 11 Jun 2011 07:49:57 -0700
Subject: [PATCH] Implement read_action_param()

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

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