From 9cb56dabb676391a9382731347e8d2b07b9437a5 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sun, 7 Apr 2024 13:25:49 +0200
Subject: big cleanup

---
 apps/bridge/app.rc | 103 -----------------------------------------------------
 1 file changed, 103 deletions(-)
 delete mode 100755 apps/bridge/app.rc

(limited to 'apps/bridge/app.rc')

diff --git a/apps/bridge/app.rc b/apps/bridge/app.rc
deleted file mode 100755
index 40477ba..0000000
--- a/apps/bridge/app.rc
+++ /dev/null
@@ -1,103 +0,0 @@
-comment_file_types=(md html)
-
-fn conf_enable_comments {
-    if(~ $1 -n) {
-        allow_new_user_comments=yes
-        shift
-    }
-    if not if(~ $1 -a) {
-        bridge_anon_comments=yes 
-    }
-    enable_comments=yes
-    groups_allowed_comments=$*
-    conf_enable_app bridge
-}
-
-fn bridge_init {
-    if(~ $#enable_comments 1 && ! ~ `{ls $local_path.$comment_file_types >[2]/dev/null|wc -l} 0) {
-
-        comments_dir=$sitedir$req_path'_werc/comments'
-        if(~ $REQUEST_METHOD GET && test -d $comments_dir)
-            ll_add handlers_body_foot template apps/bridge/comments_list.tpl
-
-        if(check_user $groups_allowed_comments || {~ $#logged_user 0 && ~ 1 $#allow_new_user_comments $#bridge_anon_comments}) {
-
-            if(~ $#post_arg_bridge_post 1) {
-                ll_add handlers_body_foot template apps/bridge/foot.tpl
-
-                if(mk_new_comment $comments_dir)
-                    post_redirect $base_url^$req_path
-                if not
-                    saved_comment_text=$post_arg_comment_text
-            }
-            if not if(~ $REQUEST_METHOD GET)
-                ll_add handlers_body_foot template apps/bridge/foot.tpl
-        }
-        if not if(~ $REQUEST_METHOD GET)
-            ll_add handlers_body_foot echo '<hr><p>To post a comment you need to <a href="/_users/login">login</a> first.</p>'
-    }
-}
-
-fn validate_new_user {
-    usr=$1; pass=$2; pass2=$3
-    _status=()
-
-    if(~ $"usr '' || ! echo $usr |sed 1q|grep -s '^'$allowed_user_chars'+$')
-        _status='Requested user name is invalid, must match: '^$allowed_user_chars^'+'
-    if not if(test -d etc/users/$usr)
-        _status='Sorry, user name '''^$usr^''' already taken, please pick a different one.'
-
-    if(~ $"pass '' || ! ~ $"pass $"pass2)
-        _status=($_status 'Provided passwords don''t match.')
-
-    status=$_status
-}
-
-
-fn mk_new_comment {
-    _status=()
-    dir=$1
-    if(~ $"post_arg_comment_text '')
-        _status='Provide a comment!'
-    if not if(~ $#logged_user 0) {
-        if(! ~ $#allow_new_user_comments 0) {
-            if(validate_new_user $"post_arg_comment_user $post_arg_comment_passwd $post_arg_comment_passwd2) {
-                u=$post_arg_comment_user':'$post_arg_comment_passwd
-                dir=$comments_dir^'_pending'
-                # XXX: This doesn't work because we then do a redirect. 
-                notify_notes='Saved comment and registration info, they will be enabled when approved by an admin.'
-            }
-            if not
-                _status=$status
-        }
-        if not if(! ~ $#bridge_anon_comments 0) {
-            if(~ $"post_arg_ima_robot 'not')
-                u='Glenda' # Anonymous
-            if not
-                _status='You are a robot!'
-        }
-        if not
-            _status='You need to log in to comment.'
-    }
-    if not if(check_user $groups_allowed_comments)
-        u=$logged_user
-    if not
-        _status='You are not a member of a group allowed to comment.'
-
-    if(~ $#_status 0) {
-        umask 002
-
-        dir=$dir'/'`{date -n} # FIXME Obvious race
-        mkdir -m 775 -p $dir &&
-            echo $u > $dir/user &&
-            echo $current_date_time > $dir/posted &&
-            echo $post_arg_comment_text > $dir/body
-        _s=$status
-        if(! ~ $"_s '') {
-           dprint 'ERROR XXX: Could not create comment: ' $_s 
-            _status='Could not post comment due internal error, sorry.'
-        }
-    }
-    notify_errors=$_status
-    status=$_status
-}
-- 
cgit v1.2.3