X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=web.lisp;h=06f483b8a323637c385deb7e24584a3871eca4d4;hp=135cdb4c424b27aaf366e4ced1a51d9caecebdb1;hb=fc636ef0b61e6018deba9e31e2f9ab3efc381a1e;hpb=761774603f988ef58b11ab22c5bbf862819f9cef

diff --git a/web.lisp b/web.lisp
index 135cdb4..06f483b 100644
--- a/web.lisp
+++ b/web.lisp
@@ -83,14 +83,14 @@
 	     (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