werc/apps/bridge/app.rc

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
            }
        }
    }

}