# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1554541141 -32400
# Node ID 9cf0b6b7bb901485a47136c7ea1991ec744a6efe
# Parent  2fe9cb9f3ce077e4c93ac57024f5f34c4395224e
Forget s4.cgi

diff -r 2fe9cb9f3ce0 -r 9cf0b6b7bb90 s4-start.sh
--- a/s4-start.sh	Sat Apr 06 17:58:22 2019 +0900
+++ b/s4-start.sh	Sat Apr 06 17:59:01 2019 +0900
@@ -88,6 +88,7 @@
       casefile=scripts/s4-default.case
     fi
     m4 -P -I scripts -D_SHELL_=`which sh` \
+       -D__NOEDIT__="DO NOT EDIT THIS FILE MANUALLY -> scripts/s4-*.case" \
        -D_CASE_=$casefile s4.cgi.m4 > index.cgi && chmod +x index.cgi
     if [ "$wrap" ]; then
       mv -f index.cgi s4.cgi
diff -r 2fe9cb9f3ce0 -r 9cf0b6b7bb90 s4.cgi.m4
--- 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
diff -r 2fe9cb9f3ce0 -r 9cf0b6b7bb90 scripts/s4-basic1.case
--- a/scripts/s4-basic1.case	Sat Apr 06 17:58:22 2019 +0900
+++ b/scripts/s4-basic1.case	Sat Apr 06 17:59:01 2019 +0900
@@ -1,4 +1,5 @@
-  "home"|"")
+case
+"home"|"")
     rowid=${2%%[!A-Z0-9a-z_]*}
     contenttype; echo
     # func   tbl-deffile	rowidForUpdation
@@ -20,3 +21,4 @@
     showattc "$@"
     exit 0
    ;;
+esac
diff -r 2fe9cb9f3ce0 -r 9cf0b6b7bb90 scripts/s4-sns.case
--- a/scripts/s4-sns.case	Sat Apr 06 17:58:22 2019 +0900
+++ b/scripts/s4-sns.case	Sat Apr 06 17:59:01 2019 +0900
@@ -1,4 +1,5 @@
-  home|"")
+case
+home|"")
     contenttype; echo
     err HOME: just in rowid=`getpar rowid`
     [ -n "`getpar rowid`" ] && par2table $formdir/user.def
@@ -76,3 +77,4 @@
   *)
     exec $0 login
     ;;
+esac