#!/bin/sh
#!/bin/ksh
# 愛
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