From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Sat, 2 Aug 2008 13:49:35 +0000 (+0200)
Subject: Fix handle-data.
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=36b33da8ff346a9085d8459ad0e9dd6609b8f3f4

Fix handle-data.
Parse prompt.
---

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)