diff options
| -rw-r--r-- | logikorr.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/logikorr.lisp b/logikorr.lisp index a6d6fa4..594e140 100644 --- a/logikorr.lisp +++ b/logikorr.lisp @@ -16,6 +16,11 @@ (defvar *database* (merge-pathnames "blatt3.txt" *directory*)) (defvar *lock* (merge-pathnames #p".mulk-db-lock" *database*)) +(defvar *password-file* (merge-pathnames #p"password.txt" *directory*)) +(defvar *password* + (with-open-file (in *password-file* :direction :input) + (read-line in))) + (setq *hunchentoot-default-external-format* (flexi-streams:make-external-format :utf-8)) @@ -25,7 +30,7 @@ (defun call-with-authentication (thunk) (multiple-value-bind (name password) (authorization) - (if (and (string= name "test") (string= password "test")) + (if (and (string= name "logik") (string= password *password*)) (funcall thunk) (progn (require-authorization "Logik-Ergebniseingabe"))))) |