From e3805b0ada3f50131ceb2545feb43f6a023290c3 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 21 May 2015 09:00:11 -0700
Subject: [PATCH] Implement 'call' in the compiled script

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

diff --git a/Shorewall/Perl/prog.footer b/Shorewall/Perl/prog.footer
index b468fb4b1..3c62c2dcc 100644
--- a/Shorewall/Perl/prog.footer
+++ b/Shorewall/Perl/prog.footer
@@ -22,6 +22,7 @@ usage() {
     echo "   status"
     echo "   up <interface>"
     echo "   savesets <file>"
+    echo "   call <function> [ <parameter> ... ]"
     echo "   version"
     echo
     echo "Options are:"
@@ -426,6 +427,14 @@ case "$COMMAND" in
 	    usage 2
 	fi
 	;;
+    call)
+	#
+	# Undocumented way to call functions in the libraries directly
+	#
+	detect_configuration
+	shift
+	$@
+	;;
     version)
 	[ $# -ne 1 ] && usage 2
 	echo $SHOREWALL_VERSION