shorewall_code/Shorewall/Perl/getparams

#!/bin/sh
#
#     The Shoreline Firewall Packet Filtering Firewall Param File Helper - V4.4
#
#     This program is under GPL [http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt]
#
#     (c) 2010,2011 - Tom Eastep (teastep@shorewall.net)
#
#	Complete documentation is available at http://shorewall.net
#
#	This program is free software; you can redistribute it and/or modify
#	it under the terms of Version 2 of the GNU General Public License
#	as published by the Free Software Foundation.
#
#	This program is distributed in the hope that it will be useful,
#	but WITHOUT ANY WARRANTY; without even the implied warranty of
#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#	GNU General Public License for more details.
#
#	You should have received a copy of the GNU General Public License
#	along with this program; if not, write to the Free Software
#	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
#
#  Parameters:
#
#      $1 = Path name of params file
#      $2 = $CONFIG_PATH
#      $3 = Address family (4 o4 6)
#
if [ "$3" = 6 ]; then
    g_program=shorewall6
else
    g_program=shorewall
fi

if [ -f ~/.shorewallrc ]; then
    . ~/.shorewallrc || exit 1
else
    SHAREDIR=/usr/share
    CONFDIR=${CONFDIR}
    SBINDIR=/sbin
    VARDIR=/var/lib
    LIBEXECDIR=/usr/share
fi

g_libexec="$LIBEXECDIR"
g_sharedir="$SHAREDIR"
g_sbindir="$SBINDIR"
g_readrc=1

. $g_sharedir/shorewall/lib.cli

CONFIG_PATH="$2"

set -a

. $1 >&2 # Avoid spurious output on STDOUT

set +a

export -p