shithub: werc

ref: 6fdcbd3ab200b937449e2781e27077a1a3ae5720
dir: /apps/bridge/app.rc/

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
    }

}