diff options
Diffstat (limited to 'webapps/webapp-loader.lisp')
| -rw-r--r-- | webapps/webapp-loader.lisp | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/webapps/webapp-loader.lisp b/webapps/webapp-loader.lisp index c29da1f..83f1979 100644 --- a/webapps/webapp-loader.lisp +++ b/webapps/webapp-loader.lisp @@ -3,8 +3,6 @@ (in-package #:ldapadmin) -;; ========================================================================== ;; - (defvar *acceptor* nil) (defvar *dispatch-table* '(#'dispatch-easy-handlers #'default-dispatcher)) (defvar *webapps* (make-hash-table :test 'equal)) @@ -12,8 +10,6 @@ (defparameter *port* 3006) (defparameter *session-timeout* 14400) -;; ========================================================================== ;; - (defclass webapp () ((name :initarg :name :initform nil @@ -47,8 +43,6 @@ up in Google.") :accessor ldap)) (:documentation "")) -;; ========================================================================== ;; - (defgeneric get-site-file-path (webapp) (:documentation "Builds a full filesystem path to a webapp's site file.")) @@ -65,8 +59,6 @@ file.")) (remove-if (lambda (x) (equal x "shared")) (shell-wrapper (format nil "find '~a' -maxdepth 1 -type f -iname 'pages*.lisp' |sort" (document-root webapp)))))) -;; ========================================================================== ;; - (defun make-webapp-path (relative-path) "Makes an absolute filesystem path to a location in the webapps folder." @@ -92,8 +84,6 @@ overwritten with the new one." "Gets the webapp object." (gethash key *webapps*)) -;; ========================================================================== ;; - (defun generate-sessionid () "Generates a unique random string to seed the `*session-secret*'. The string is a SHA256 hash." @@ -105,8 +95,6 @@ overwritten with the new one." (ironclad:update-digest digest entropic-value) (ironclad:byte-array-to-hex-string (ironclad:produce-digest digest))))) -;; ========================================================================== ;; - (defun populate-webapps () (loop for options-file in (get-options-files) do (with-open-file (input options-file :direction :input) @@ -119,8 +107,6 @@ overwritten with the new one." :meta-description (getf form :meta-description) :ldap (getf form :ldap))))))) -;; ========================================================================== ;; - (defun ldapadmin () "Call this to start the server." (when (null *acceptor*) @@ -135,8 +121,6 @@ overwritten with the new one." :document-root (make-server-path (format nil "webapps/~a/" package)) :name (format nil "~a-acceptor" package))))))) -;; ========================================================================== ;; - (defmacro with-request-wrapper (uri page-function) ;; Assigning package outside the backquote is necessary because ;; *package* resolves incorrectly to common-lisp-user inside the @@ -150,8 +134,6 @@ overwritten with the new one." (setf (session-value :permissions) "anonymous")) (,page-function)))) -;; ========================================================================== ;; - (defmacro define-endpoint (request-type uri var-list page-function) "Does the grunt work of creating an `easy-handler' for each page you wish to publish." |