1.1 --- a/s4.cgi	Sat Apr 06 17:42:41 2019 +0900
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,111 +0,0 @@
     1.4 -#!/bin/sh
     1.5 -#!/bin/ksh
     1.6 -# 愛 - Do not EDIT this file manually.  GENERATE from scripts/s4-*.case.
     1.7 -mydir=`dirname $0`
     1.8 -echo "1=[$1]" >> tmp/debug.out
     1.9 -. $mydir/s4-funcs.sh
    1.10 -
    1.11 -cgiinit
    1.12 -if [ -z "$guestonlymode" ]; then
    1.13 -  if [ x"$1" = x"reg" ]; then
    1.14 -    contenttype; echo
    1.15 -    regist $2
    1.16 -    putfooter
    1.17 -    exit
    1.18 -  fi
    1.19 -
    1.20 -  dologin
    1.21 -fi
    1.22 -
    1.23 -case ${SERVER_SOFTWARE} in
    1.24 -  bozohttp*)	# Ugly workaround for bozohttpd, which can't send
    1.25 -    		# two or more arguments.
    1.26 -    set -- `echo "$@"|(IFS=+ read a b c d e f g; echo $a $b $c $d $e $f $g)`
    1.27 -    ;;
    1.28 -esac
    1.29 -
    1.30 -err "1=$1 2=$2 3=$3 4=$4"
    1.31 -stage=`getpar stage`
    1.32 -stage=${stage:-$1}
    1.33 -case ${stage} in
    1.34 -  home|"")
    1.35 -    contenttype; echo
    1.36 -    err HOME: just in rowid=`getpar rowid`
    1.37 -    [ -n "`getpar rowid`" ] && par2table $formdir/user.def
    1.38 -    showhome ${2:-$user}
    1.39 -    ;;
    1.40 -  login)
    1.41 -    contenttype; echo
    1.42 -    myargs=""
    1.43 -    showlogin
    1.44 -    ;;
    1.45 -  # "edittable")
    1.46 -  #   contenttype; echo
    1.47 -  #   m4 -D_TITLE_="グループ編集/削除" $layout/html.m4.html
    1.48 -  #   edittable "$formdir/$2.def" "$2" "$3"
    1.49 -  #   ;;
    1.50 -  "showattc")
    1.51 -    shift
    1.52 -    showattc "$@"
    1.53 -    exit 0			# Do not output further chunks
    1.54 -    ;;
    1.55 -  invite|groupman|userconf|groupconf|mems|grps|grp|groupupdate|groupclone|grpaction|joingrpadmit|commission|editheading|editart|showattc|send2mem|mvart)
    1.56 -    contenttype; echo
    1.57 -    [ -n "$1" ] && shift
    1.58 -    $stage "$@"
    1.59 -    ;;
    1.60 -  "blog")	# $2=grpID
    1.61 -    contenttype; echo
    1.62 -    . ./s4-blog.sh
    1.63 -    blog_addentry $2
    1.64 -    ;;
    1.65 -  "replyblog")
    1.66 -    contenttype; echo
    1.67 -    rowid=${2%%[!A-Z0-9a-z_]*}
    1.68 -    ## err ROWid=$rowid, '$2'=$2
    1.69 -    . ./s4-blog.sh
    1.70 -err blog_reply2 $rowid
    1.71 -    blog_reply $rowid
    1.72 -    ;;
    1.73 -  aid[1-9]*)
    1.74 -    arid=${1#aid}
    1.75 -    arid=${arid%%[!0-9]*}
    1.76 -    . ./s4-blog.sh
    1.77 -err b_r_a "$arid"
    1.78 -    blog_reply_article "$arid"
    1.79 -    ;;
    1.80 -  reload*)	# Dirty workaround for reloading page just after submit
    1.81 -    newurl="$urlbase?replyblog+${stage#*/}#bottom"
    1.82 -    echo "Refresh: 0; $newurl"; echo
    1.83 -    exit 0
    1.84 -    ;;
    1.85 -  lshandout|lshandoutall|gethandout|gethandoutcsv|gethandoutcsv2|blogseen)
    1.86 -    case "$stage" in
    1.87 -      lshandout*|blogseen*) contenttype; echo ;;
    1.88 -    esac
    1.89 -    rowid=${2%%[!A-Z0-9a-z_]*}
    1.90 -    if [ -z "$rowid" ]; then
    1.91 -      echo "話題番号が未指定です。" | html p
    1.92 -      return
    1.93 -    fi
    1.94 -    . ./s4-blog.sh
    1.95 -    $stage $rowid
    1.96 -    ;;
    1.97 -  lsmyfile)
    1.98 -    contenttype; echo
    1.99 -    . ./s4-blog.sh
   1.100 -    shift
   1.101 -    $stage "$@"
   1.102 -    ;;
   1.103 -  "searchart")			# $2=blogowner
   1.104 -    contenttype; echo
   1.105 -    m4 -D_TITLE_="検索結果" $layout/html.m4.html
   1.106 -    . ./s4-blog.sh
   1.107 -    searchart $2
   1.108 -    ;;
   1.109 -  *)
   1.110 -    exec $0 login
   1.111 -    ;;
   1.112 -esac
   1.113 -
   1.114 -putfooter