|
89
|
1 `#'!m4_indir(`_SHELL_')
|
|
524
|
2 # 愛 - __NOEDIT__
|
|
89
|
3 m4_changequote(``,'')mydir=`dirname $0`
|
|
|
4 . $mydir/s4-funcs.sh
|
|
524
|
5 : ${S4TYPE:?Set \$S4TYPE in s4-config.sh to one of sns/basic1/default}
|
|
89
|
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}
|
|
524
|
29 . scripts/s4-$S4TYPE.case
|
|
89
|
30
|
|
|
31 putfooter
|
