manager/basic_login.lsp

   1 ;;
   2 ;; This script is written with the expectation that it is an embedded
   3 ;; newlisp executable invked via .cgi links from within the
   4 ;; subdirectory www
   5 ;;
   6 ;; Its (main-args 0) has a final path component X.cgi that links to
   7 ;; this file as a packnl embedding that will use that X part of its
   8 ;; name to determine th actual script. That lookup will also use the
   9 ;; "role base" as declared in "roles.txt"
  10
  11 (write-line 2 (string (date-value) " " (main-args)))
  12 (unless (ends-with (main-args 0) ".cgi")
  13   (if (exists file? (list (main-args 1)
  14                           (string (main-args 1) ".lsp")))
  15       (load $it)
  16     (write-line 2 (string "Unknown command " (main-args 1))))
  17   (exit 0))
  18
  19
  20 ;; This script is executed in (protected) subdirectory www
  21 (change-dir "..")
  22
  23 ;; Needs an HTTP_AUTHORIZATION environment variable
  24 (when (empty? (setf AUTH (env "HTTP_AUTHORIZATION")))
  25   (write-line 1 (read-file "tmpl/unauthorized.http"))
  26   (exit 0))
  27
  28 ;; Must find that value in .htpasswd
  29 (unless (ref (6 AUTH) (parse (read-file ".htpasswd") "\n"))
  30   (write-line 1 (read-file "tmpl/unauthorized.http"))
  31   (exit 0))
  32
  33 ;; Determine actual script name respecting given role, if any.
  34 (define (role-script (ROLE "."))
  35   (let ((CMD (and (regex "([^/]*).cgi$" (main-args 0) 0) $1)))
  36     (if (= "." ROLE) (string CMD ".lsp") (format "%s/%s.lsp" ROLE CMD))))
  37
  38 (setf
  39  REMOTE_USER (and (regex "([^:]+):" (base64-dec (6 AUTH)) 0) $1)
  40  SCRIPT (role-script)
  41  )
  42 (env "REMOTE_USER" REMOTE_USER)
  43 (env "ROLE" ROLE)
  44
  45 (unless (file? SCRIPT)
  46   (write 1 "\nBroken.\n")
  47   (exit 0))
  48
  49 (load SCRIPT)
  50 (exit 0)