31 lines
1023 B
Plaintext
31 lines
1023 B
Plaintext
comment_file_types=(md html)
|
|
fn bridge_init {
|
|
if(! ~ $#enable_comments 0 && ! ~ `{ls $local_path.$comment_file_types >[2]/dev/null|wc -l} 0) {
|
|
ll_add handlers_body_foot template apps/bridge/foot.tpl
|
|
if(get_post_args comment_text) {
|
|
d=`{date -n} # FIXME Obvious race
|
|
d=$local_path^'_werc/comments/'^$d/
|
|
|
|
u=$logged_user
|
|
if(~ $#logged_user 0) {
|
|
get_post_args comment_user_name comment_user_password
|
|
# XXX Should do this too if user not in 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
|
|
if(mkdir -m 775 -p $d) { # Rudimentary perm checking
|
|
echo $u > $d/user
|
|
echo $comment_text > $d/body
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|
|
|