Forward prompt to browser

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 4797ac71e4817e424e26ad250c26ffab57d82ad5..7685f5582a7ff93d4ed2acf5d5a1713c690566fe 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -145,9 +145,10 @@ this stream.")
   (let* ((c (connection m))
         (log (logging-stream c)))
     (with-input-from-string (s message)
-      (let* ((minutes (read s))
+      (let* ((minutes (read s)) ;;FIXME DANGEROUS
             (btus (read s)))
-       (format log "[~a:~a]: ~%" minutes btus)))))
+       (format log "[~a:~a]: ~%" minutes btus)
+       (empire-web:prompt minutes btus)))))
 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)