#!/bin/sh
# 愛
mydir=`dirname $0`
. $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|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
    ;;
  reload*)	# Dirty workaround for reloading page just after submit
    newurl="$urlbase?replyblog+${stage#*/}#bottom"
    echo "Refresh: 0; $newurl"; echo
    exit 0
    ;;
  lshandout|gethandout)
    if [ x"$stage" = x"lshandout" ]; then
      contenttype; echo
    fi
    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