Implement 'call' in the compiled script

Signed-off-by: Tom Eastep <teastep@shorewall.net>

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