--- a/s4.cgi.m4	Sat Apr 06 17:58:22 2019 +0900
+++ b/s4.cgi.m4	Sat Apr 06 17:59:01 2019 +0900
@@ -1,7 +1,8 @@
 `#'!m4_indir(`_SHELL_')
-# 愛
+# 愛 - __NOEDIT__
 m4_changequote(``,'')mydir=`dirname $0`
 . $mydir/s4-funcs.sh
+: ${S4TYPE:?Set \$S4TYPE in s4-config.sh to one of sns/basic1/default}
 
 cgiinit
 if [ -z "$guestonlymode" ]; then
@@ -25,7 +26,6 @@
 # err 1=$1 2=$2 3=$3 4=$4
 stage=`getpar stage`
 stage=${stage:-$1}
-case ${stage} in
-m4_sinclude(_CASE_)esac
+. scripts/s4-$S4TYPE.case
 
 putfooter