holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Fixup of compiler wrapper

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5478 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-10 02:05:44 +00:00
parent a1c9d60d78
commit 7e0f3c4508
1 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
New/compiler
View File

@ -68,13 +68,9 @@ startup_error()
# #
# Start trace if first arg is "debug" # Start trace if first arg is "debug"
# #
[ $# -gt 1 ] && [ "$1" = "debug" ] && { set -x ; shift ; } debug=
NOLOCK= [ $# -gt 1 ] && [ "$1" = "-D8" ] && { debug="-d" ; shift ; }
[ $# -gt 1 ] && [ "$1" = "nolock" ] && { NOLOCK=Yes; shift ; }
trap "exit 2" 1 2 3 4 5 6 9
SHAREDIR=/usr/share/shorewall SHAREDIR=/usr/share/shorewall
VARDIR=/var/lib/shorewall VARDIR=/var/lib/shorewall
@ -102,24 +98,13 @@ case "$COMMAND" in
check) check)
[ $# -ne 1 ] && usage [ $# -ne 1 ] && usage
do_initialize do_initialize
exec perl /usr/share/shorewall/compiler.perl $1 exec perl $debug /usr/share/shorewall/compiler.pl $1
;; ;;
compile) compile)
[ $# -ne 2 ] && usage [ $# -ne 2 ] && usage
do_initialize do_initialize
exec perl /usr/share/shorewall/compiler.perl $1 exec perl $debug /usr/share/shorewall/compiler.pl $1
;; ;;
call)
#
# Undocumented way to call functions in ${SHAREDIR}/compiler directly
#
shift
do_initialize
EMPTY=
$@
;;
*) *)
usage usage
;; ;;