yuuji@89: `#'!m4_indir(`_SHELL_')
yuuji@524: # 愛 - __NOEDIT__
yuuji@89: m4_changequote(``,'')mydir=`dirname $0`
yuuji@89: . $mydir/s4-funcs.sh
yuuji@524: : ${S4TYPE:?Set \$S4TYPE in s4-config.sh to one of sns/basic1/default}
yuuji@89: 
yuuji@89: cgiinit
yuuji@89: if [ -z "$guestonlymode" ]; then
yuuji@89:   if [ x"$1" = x"reg" ]; then
yuuji@89:     contenttype; echo
yuuji@89:     regist $2
yuuji@89:     putfooter
yuuji@89:     exit
yuuji@89:   fi
yuuji@89: 
yuuji@89:   dologin
yuuji@89: fi
yuuji@89: 
yuuji@89: case ${SERVER_SOFTWARE} in
yuuji@89:   bozohttp*)	# Ugly workaround for bozohttpd, which can't send
yuuji@89:     		# two or more arguments.
yuuji@89:     set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`
yuuji@89:     ;;
yuuji@89: esac
yuuji@89: 
yuuji@89: # err 1=$1 2=$2 3=$3 4=$4
yuuji@89: stage=`getpar stage`
yuuji@89: stage=${stage:-$1}
yuuji@524: . scripts/s4-$S4TYPE.case
yuuji@89: 
yuuji@89: putfooter