From 1b62853315d9ebc45cbedbcecb60e5520cd49e3d Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 2 Jan 2022 12:51:01 +1100
Subject: [PATCH] take out the "roles" setup

---
 manager/basic_login.lsp |  3 +--
 manager/basic_login.sh  | 42 -----------------------------------------
 siteconfig.lsp          |  1 -
 3 files changed, 1 insertion(+), 45 deletions(-)
 delete mode 100755 manager/basic_login.sh

diff --git a/manager/basic_login.lsp b/manager/basic_login.lsp
index 8ca9920..38b7ac4 100644
--- a/manager/basic_login.lsp
+++ b/manager/basic_login.lsp
@@ -5,8 +5,7 @@
 ;;
 ;; Its (main-args 0) has a final path component X.cgi that links to
 ;; this file as a packnl embedding that will use that X part of its
-;; name to determine th actual script. That lookup will also use the
-;; "role base" as declared in "roles.txt"
+;; name to determine th actual script.
 
 (load "siteconfig.lsp")
 
diff --git a/manager/basic_login.sh b/manager/basic_login.sh
deleted file mode 100755
index 54fbcb1..0000000
--- a/manager/basic_login.sh
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/bin/bash
-#
-# Ensure there is an HTTP_AUTHORIZATION environment variable
-# with appropriate content
-
-# root user:password
-login_check() {
-    D=$(pwd)
-    while [ ! -f $D/.htpasswd ] ; do
-	[ "$D" = "$1" ] && return 0
-	if [ "$D" = / ] ; then
-	    logger BAD FAILURE
-	    return 1
-	fi
-	D=$(dirname $D)
-    done
-    if [ -z "$2" ] || ! grep -q "$2" $D/.htpasswd ; then
-	cat <<EOF
-Status: 401 Unauthorized
-WWW-Authenticate: Basic realm="Hourglass"
-EOF
-	return 1
-    fi
-}
-#logger "HTTP_AUTHORIZATION=$HTTP_AUTHORIZATION"
-if login_check "$(dirname $(dirname $0))" "${HTTP_AUTHORIZATION#Basic }" ; then
-
-    cd ..
-    REMOTE_USER="$(echo -n "${HTTP_AUTHORIZATION#Basic }" | base64 -d)"
-    REMOTE_USER="${REMOTE_USER%%:*}"
-    export REMOTE_USER
-    ROLE="$(grep "^${REMOTE_USER}": roles.txt)"
-    export ROLE="${ROLE#*:}"
-    if [ -f "$ROLE/$1" ] ; then
-	echo
-	exec  /usr/local/bin/newlisp newlisp $ROLE/$1
-    fi
-fi
-cat <<EOF
-
-Broken.
-EOF
diff --git a/siteconfig.lsp b/siteconfig.lsp
index a3bb7b6..6c229c9 100644
--- a/siteconfig.lsp
+++ b/siteconfig.lsp
@@ -23,7 +23,6 @@
          ("control.usage.tmp" set)
 
          ("wui.port" set-int)
-         ("wui.roles" set)
          ("wui.passwd" set)
          )
  )
-- 
2.39.2