Use new command dispatcher
[eow] / web.lisp
index 135cdb4c424b27aaf366e4ced1a51d9caecebdb1..06f483b8a323637c385deb7e24584a3871eca4d4 100644 (file)
--- a/web.lisp
+++ b/web.lisp
             (pass (post-parameter "password"))
             (session (make-session user pass)))
        (setf (session-value 'session) session)
-       (empire-log:info "User ~a logging in. Session ~a" user session)
+       (empire-log:info "~a: User ~a logging in." session user)
        (redirect +root-url+))
     (usocket:connection-refused-error (e)
       (format nil "Connection error: ~a~%" e))))
 
 (defun command-action ()
   (with-session
-      (empire:send-message (connection *empire-session*) (get-parameter "q"))))
+      (empire:command (connection *empire-session*) (get-parameter "q"))))
 
 (defun root-page ()
   (with-session