# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1554541102 -32400
# Node ID 2fe9cb9f3ce077e4c93ac57024f5f34c4395224e
# Parent  9060df7f079b76df3c96d194058c50634a197d47
s4.cgi is generated from s4.cgi.m4

diff -r 9060df7f079b -r 2fe9cb9f3ce0 s4.cgi
--- a/s4.cgi	Sat Apr 06 17:42:41 2019 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,111 +0,0 @@
-#!/bin/sh
-#!/bin/ksh
-# 愛 - Do not EDIT this file manually.  GENERATE from scripts/s4-*.case.
-mydir=`dirname $0`
-echo "1=[$1]" >> tmp/debug.out
-. $mydir/s4-funcs.sh
-
-cgiinit
-if [ -z "$guestonlymode" ]; then
-  if [ x"$1" = x"reg" ]; then
-    contenttype; echo
-    regist $2
-    putfooter
-    exit
-  fi
-
-  dologin
-fi
-
-case ${SERVER_SOFTWARE} in
-  bozohttp*)	# Ugly workaround for bozohttpd, which can't send
-    		# two or more arguments.
-    set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`
-    ;;
-esac
-
-err "1=$1 2=$2 3=$3 4=$4"
-stage=`getpar stage`
-stage=${stage:-$1}
-case ${stage} in
-  home|"")
-    contenttype; echo
-    err HOME: just in rowid=`getpar rowid`
-    [ -n "`getpar rowid`" ] && par2table $formdir/user.def
-    showhome ${2:-$user}
-    ;;
-  login)
-    contenttype; echo
-    myargs=""
-    showlogin
-    ;;
-  # "edittable")
-  #   contenttype; echo
-  #   m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
-  #   edittable "$formdir/$2.def" "$2" "$3"
-  #   ;;
-  "showattc")
-    shift
-    showattc "$@"
-    exit 0			# Do not output further chunks
-    ;;
-  invite|groupman|userconf|groupconf|mems|grps|grp|groupupdate|groupclone|grpaction|joingrpadmit|commission|editheading|editart|showattc|send2mem|mvart)
-    contenttype; echo
-    [ -n "$1" ] && shift
-    $stage "$@"
-    ;;
-  "blog")	# $2=grpID
-    contenttype; echo
-    . ./s4-blog.sh
-    blog_addentry $2
-    ;;
-  "replyblog")
-    contenttype; echo
-    rowid=${2%%[!A-Z0-9a-z_]*}
-    ## err ROWid=$rowid, '$2'=$2
-    . ./s4-blog.sh
-err blog_reply2 $rowid
-    blog_reply $rowid
-    ;;
-  aid[1-9]*)
-    arid=${1#aid}
-    arid=${arid%%[!0-9]*}
-    . ./s4-blog.sh
-err b_r_a "$arid"
-    blog_reply_article "$arid"
-    ;;
-  reload*)	# Dirty workaround for reloading page just after submit
-    newurl="$urlbase?replyblog+${stage#*/}#bottom"
-    echo "Refresh: 0; $newurl"; echo
-    exit 0
-    ;;
-  lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen)
-    case "$stage" in
-      lshandout*|blogseen*) contenttype; echo ;;
-    esac
-    rowid=${2%%[!A-Z0-9a-z_]*}
-    if [ -z "$rowid" ]; then
-      echo "話題番号が未指定です。" | html p
-      return
-    fi
-    . ./s4-blog.sh
-    $stage $rowid
-    ;;
-  lsmyfile)
-    contenttype; echo
-    . ./s4-blog.sh
-    shift
-    $stage "$@"
-    ;;
-  "searchart")			# $2=blogowner
-    contenttype; echo
-    m4 -D_TITLE_="検索結果" $layout/html.m4.html
-    . ./s4-blog.sh
-    searchart $2
-    ;;
-  *)
-    exec $0 login
-    ;;
-esac
-
-putfooter