Newer
Older
s4 / scripts / s4-sns.case
@HIROSE Yuuji HIROSE Yuuji on 11 Aug 2015 1 KB Fix content-type header
  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|grpaction|commission|editheading|editart|showattc|send2mem)
    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_reply $rowid
    blog_reply $rowid
    ;;
  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
    ;;