1 `#'!m4_indir(`_SHELL_')

2 # 愛

3 m4_changequote(``,'')mydir=`dirname $0`

4 . $mydir/s4-funcs.sh

5

6 cgiinit

7 if [ -z "$guestonlymode" ]; then

8 if [ x"$1" = x"reg" ]; then

9 contenttype; echo

10 regist $2

11 putfooter

12 exit

13 fi

14

15 dologin

16 fi

17

18 case ${SERVER_SOFTWARE} in

19 bozohttp*) # Ugly workaround for bozohttpd, which can't send

20 # two or more arguments.

21 set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`

22 ;;

23 esac

24

25 # err 1=$1 2=$2 3=$3 4=$4

26 stage=`getpar stage`

27 stage=${stage:-$1}

28 case ${stage} in

29 m4_sinclude(_CASE_)esac

30

31 putfooter