Mercurial > hgrepos > hgweb.cgi > s4

changeset 524:9cf0b6b7bb90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Forget s4.cgi
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 06 Apr 2019 17:59:01 +0900
parents 2fe9cb9f3ce0
children dd7bedb6a83c
files s4-start.sh s4.cgi.m4 scripts/s4-basic1.case scripts/s4-sns.case
diffstat 4 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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
--- 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
--- 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

yatex.org