X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=empire.lisp;h=4797ac71e4817e424e26ad250c26ffab57d82ad5;hp=417a0e45d98e60c2eb0b292ce9e54ce1aa87de28;hb=b3185daf3e8bc16cba79f6562694decf722dbde7;hpb=3557de51cb0395a2b46f870fec44f6bbc193fcf2

diff --git a/empire.lisp b/empire.lisp
index 417a0e4..4797ac7 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -136,7 +136,7 @@ this stream.")
 	  (setf play-sent-p t))
 	(set-new-mode m 'play-mode))))
 
-(defmethod handle-prompt ((m play-mode) message)
+(defmethod handle-data ((m play-mode) message)
   (let* ((c (connection m))
 	 (log (logging-stream c)))
     (format log "handle-data ~a~%" message)))
@@ -144,7 +144,10 @@ this stream.")
 (defmethod handle-prompt ((m play-mode) message)
   (let* ((c (connection m))
 	 (log (logging-stream c)))
-    (format log "handle-prompt ~a~%" message)))
+    (with-input-from-string (s message)
+      (let* ((minutes (read s))
+	     (btus (read s)))
+	(format log "[~a:~a]: ~%" minutes btus)))))
 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)