case $stage in
  home|"")
    contenttype; echo
    [ -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|migrategrp)
    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_]*}
    . ./s4-blog.sh
    blog_reply $rowid "$3"
    ;;
  aid[1-9]*)
    arid=${1#aid}
    arid=${arid%%[!0-9]*}
    . ./s4-blog.sh
    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|getteamcsv|blog_setfrozen|blog_fetch)
    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
    shift; shift
    $stage $rowid "$@"
    ;;
  lsmyfile)
    contenttype; echo
    . ./s4-blog.sh
    shift
    $stage "$@"
    ;;
  "searchart")			# $2=blogowner
    contenttype; echo
    . ./s4-blog.sh
    searchart $2
    ;;
  *)
    exec $0 login
    ;;
esac