s4

changeset 524:9cf0b6b7bb90

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 diff
     1.1 --- a/s4-start.sh	Sat Apr 06 17:58:22 2019 +0900
     1.2 +++ b/s4-start.sh	Sat Apr 06 17:59:01 2019 +0900
     1.3 @@ -88,6 +88,7 @@
     1.4        casefile=scripts/s4-default.case
     1.5      fi
     1.6      m4 -P -I scripts -D_SHELL_=`which sh` \
     1.7 +       -D__NOEDIT__="DO NOT EDIT THIS FILE MANUALLY -> scripts/s4-*.case" \
     1.8         -D_CASE_=$casefile s4.cgi.m4 > index.cgi && chmod +x index.cgi
     1.9      if [ "$wrap" ]; then
    1.10        mv -f index.cgi s4.cgi
     2.1 --- a/s4.cgi.m4	Sat Apr 06 17:58:22 2019 +0900
     2.2 +++ b/s4.cgi.m4	Sat Apr 06 17:59:01 2019 +0900
     2.3 @@ -1,7 +1,8 @@
     2.4  `#'!m4_indir(`_SHELL_')
     2.5 -# 愛
     2.6 +# 愛 - __NOEDIT__
     2.7  m4_changequote(``,'')mydir=`dirname $0`
     2.8  . $mydir/s4-funcs.sh
     2.9 +: ${S4TYPE:?Set \$S4TYPE in s4-config.sh to one of sns/basic1/default}
    2.10  
    2.11  cgiinit
    2.12  if [ -z "$guestonlymode" ]; then
    2.13 @@ -25,7 +26,6 @@
    2.14  # err 1=$1 2=$2 3=$3 4=$4
    2.15  stage=`getpar stage`
    2.16  stage=${stage:-$1}
    2.17 -case ${stage} in
    2.18 -m4_sinclude(_CASE_)esac
    2.19 +. scripts/s4-$S4TYPE.case
    2.20  
    2.21  putfooter
     3.1 --- a/scripts/s4-basic1.case	Sat Apr 06 17:58:22 2019 +0900
     3.2 +++ b/scripts/s4-basic1.case	Sat Apr 06 17:59:01 2019 +0900
     3.3 @@ -1,4 +1,5 @@
     3.4 -  "home"|"")
     3.5 +case
     3.6 +"home"|"")
     3.7      rowid=${2%%[!A-Z0-9a-z_]*}
     3.8      contenttype; echo
     3.9      # func   tbl-deffile	rowidForUpdation
    3.10 @@ -20,3 +21,4 @@
    3.11      showattc "$@"
    3.12      exit 0
    3.13     ;;
    3.14 +esac
     4.1 --- a/scripts/s4-sns.case	Sat Apr 06 17:58:22 2019 +0900
     4.2 +++ b/scripts/s4-sns.case	Sat Apr 06 17:59:01 2019 +0900
     4.3 @@ -1,4 +1,5 @@
     4.4 -  home|"")
     4.5 +case
     4.6 +home|"")
     4.7      contenttype; echo
     4.8      err HOME: just in rowid=`getpar rowid`
     4.9      [ -n "`getpar rowid`" ] && par2table $formdir/user.def
    4.10 @@ -76,3 +77,4 @@
    4.11    *)
    4.12      exec $0 login
    4.13      ;;
    4.14 +esac