Also send a line from the queue on c_flush

[eow] / web.lisp

diff --git a/web.lisp b/web.lisp
index f97b18da710f536d792f98d3ea321b59194ec59a..556fbf4e24889ef15f4d553b62a0fa847d498f94 100644 (file)
--- a/web.lisp
+++ b/web.lisp
@@ -90,7 +90,8 @@
 
 (defun command-action ()
   (with-session
-      (empire:send-message (connection *empire-session*) (get-parameter "q"))))
+      (empire:command (connection *empire-session*) (get-parameter "q"))
+      "ok"))
 
 (defun root-page ()
   (with-session