X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fbasic_login.lsp;h=8ca9920882219ae4895b247b59b63097403d375a;hb=3feeffd680a6d4abfb63b15a40e5246e4969ddf4;hp=f491a9eee47ead9952defe603dd782c9f6792e76;hpb=45a86f2b3e502e41dda26426e6e1e60ba088006f;p=rrq%2Fhourglass.git diff --git a/manager/basic_login.lsp b/manager/basic_login.lsp index f491a9e..8ca9920 100644 --- a/manager/basic_login.lsp +++ b/manager/basic_login.lsp @@ -8,6 +8,8 @@ ;; name to determine th actual script. That lookup will also use the ;; "role base" as declared in "roles.txt" +(load "siteconfig.lsp") + (write-line 2 (string (date-value) " " (main-args))) (unless (ends-with (main-args 0) ".cgi") (if (exists file? (list (main-args 1)