Mercurial > hgrepos > hgweb.cgi > s4
changeset 138:130114486d8c
Blog of moderated group cannot be read by outsider.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Mon, 05 Oct 2015 09:12:34 +0859 |
parents | 1731efcb74c7 |
children | 3590c50e0cbd |
files | s4-blog.sh |
diffstat | 1 files changed, 20 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/s4-blog.sh Fri Sep 25 18:30:23 2015 +0859 +++ b/s4-blog.sh Mon Oct 05 09:12:34 2015 +0859 @@ -11,6 +11,10 @@ blogowner=`getvalbyid blog owner "$1"` [ x"$blogowner" = x"$2" ] || isuser "$blogowner" || ismember "$2" "$blogowner" ) +blog_readable() { + # $1=articleid $2=user + mode=`getgroupattr $grp regmode` +} blog_notify_reply() ( # $1=articleid $2=ReplyingUser $3=WrittenText $4(optional)=Action blogowner=`getvalbyid blog owner "$1"` @@ -63,6 +67,22 @@ # blog_s: title,ctime,heading # blog_m: *article + # 2015-10-05 check readable + if ! $iswritable; then + blogowner=`getvalbyid blog owner "$2"` + # err blogowner=$blogowner + if isgroup $blogowner; then + regmode=`getgroupattr $blogowner regmode` + # err regmode=$regmode + if [ x"$regmode" = x"moderated" ]; then + if ! ismember $user $blogowner; then + echo "加入してからどうぞ" | html p + return + fi + fi + fi + fi + err "SELECT id from $tbl where rowid=$rowid" id=`query "select id from $tbl where rowid=$rowid;"` err id=$id