Add 'strip' utility

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5073 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb

Shorewall/strip

@@ -0,0 +1,108 @@
+#! /bin/sh
+#
+# Script for use from Perl to strip config files and perform shell variable
+# substitution.
+#
+#     This program is under GPL [http://www.gnu.org/copyleft/gpl.htm]
+#
+#     (c) 2000,2001,2002,2003,2004,2005 - Tom Eastep (teastep@shorewall.net)
+#
+#       Shorewall 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., 675 Mass Ave, Cambridge, MA 02139, USA
+#
+#
+# Perform variable substitution on the passed argument and echo the result
+#
+expand() # $@ = contents of variable which may be the name of another variable
+{
+    eval echo \"$@\"
+}
+
+#
+# Read a file and handle "INCLUDE" directives
+#
+
+read_file() # $1 = file name, $2 = nest count
+{
+    local first rest
+
+    if [  -f $1 ]; then
+	while read first rest; do
+	    if [ "x$first"  = "xINCLUDE" ]; then
+		if [ $2 -lt 4 ]; then
+		    read_file $(find_file $(expand ${rest%#*})) $(($2 + 1))
+		else
+		    echo "   WARNING: INCLUDE in $1 ignored (nested too deeply)" >&2
+		fi
+	    else
+		echo "$(expand $first $rest)"
+	    fi
+	done < $1
+    else
+	echo "   WARNING -- No such file: $1" >&2
+    fi
+}
+
+#
+# Split a colon-separated list into a space-separated list
+#
+split() {
+    local ifs=$IFS
+    IFS=:
+    echo $*
+    IFS=$ifs
+}
+
+#
+# Find a File -- For relative file name, look in ${SHOREWALL_DIR} then each ${CONFIG_PATH} then ${CONFDIR}
+#
+find_file()
+{
+    local saveifs= directory
+
+    case $1 in
+	/*)
+	    echo $1
+	    ;;
+	*)
+	    if [ -n "$SHOREWALL_DIR" -a -f $SHOREWALL_DIR/$1 ]; then
+		echo $SHOREWALL_DIR/$1
+	    else
+		for directory in $(split $CONFIG_PATH); do
+		    if [ -f $directory/$1 ]; then
+			echo $directory/$1
+			return
+		    fi
+		done
+
+		echo ${CONFDIR}/$1
+	    fi
+	    ;;
+    esac
+}
+
+#
+# Strip comments and blank lines from a file and place the result in the
+# temporary directory
+#
+if [ ! -f $TMP_DIR/$1 ]; then
+    [ $# = 1 ] && fname=$(find_file $1) || fname=$2
+
+    if [ -f $fname ]; then
+	read_file $fname 0 | cut -d'#' -f1 | grep -v '^[[:space:]]*$' > $TMP_DIR/$1
+    else
+	> $TMP_DIR/$1
+    fi
+fi