qbit/werc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update comments code to use new comment dir format and the new user auth system

Browse Source
This commit is contained in:
uriel 2008-10-22 09:17:08 +02:00
parent ebddb34a4e
commit 29e035ec53
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
bin/controller.rc
View File

@ -140,16 +140,28 @@ fn select_handler {
set_handler blog_post_handler $body.md
if not
set_handler md_handler $body.md
if (! ~ $#allowComments 0 && ~ $REQUEST_METHOD POST) {
get_post_args comment_user_name comment_text
ddir = $body.md_werc/comments/
get_post_args comment_text
d = `{date -n} # FIXME Obvious race
d = $body.md_werc/comments/$d/
u = $logged_user
if (~ $#logged_user 0) {
get_post_args comment_user_name comment_user_password
# TODO Should take this path too if the user can login but doesn't
# belong to required group
if (! login_user $comment_user_name $comment_user_password) {
u = $comment_user_name ':' $comment_user_password
d = $d^'_pending'
}
if not
u = $logged_user
}
umask 002
mkdir -m 775 -p $ddir
d = `{date -n} # Obvious race
{ echo '% user_name='^$comment_user_name'
'^$comment_text } > $ddir/$d.rec
mkdir -m 775 -p $d
echo $u > $d/user
echo $comment_text > $d/body
}
}
if not if (test -f $body.tpl)