Use new command dispatcher
[eow] / web.lisp
index f97b18da710f536d792f98d3ea321b59194ec59a..06f483b8a323637c385deb7e24584a3871eca4d4 100644 (file)
--- a/web.lisp
+++ b/web.lisp
@@ -90,7 +90,7 @@
 
 (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