Mercurial > hgrepos > hgweb.cgi > s4
view scripts/s4-sns.case @ 981:eb51a80f73c2 draft
Divide task of ReplyHover()
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Tue, 31 May 2022 11:59:33 +0900 |
parents | 411ce55c0dae |
children |
line wrap: on
line source
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