|
89
|
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
|
