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 ;;