1 `#'!m4_indir(`_SHELL_')

2 # 愛 - __NOEDIT__

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

4 . $mydir/s4-funcs.sh

5 : ${S4TYPE:?Set \$S4TYPE in s4-config.sh to one of sns/basic1/default}

6

7 cgiinit

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

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

10 contenttype; echo

11 regist $2

12 putfooter

13 exit

14 fi

15

16 dologin

17 fi

18

19 case ${SERVER_SOFTWARE} in

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

21 # two or more arguments.

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

23 ;;

24 esac

25

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

27 stage=`getpar stage`

28 stage=${stage:-$1}

29 . scripts/s4-$S4TYPE.case

30

31 putfooter