27 lines
798 B
Plaintext
27 lines
798 B
Plaintext
|
fn bridge_init {
|
||
|
|
if(! ~ $#allowComments 0 && ~ $REQUEST_METHOD POST) {
|
||
|
|
get_post_args comment_text
|
||
|
|
d=`{date -n} # FIXME Obvious race
|
||
|
|
d=$local_path.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 $d
|
||
|
|
echo $u > $d/user
|
||
|
|
echo $comment_text > $d/body
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|