Log warning on invalid message

[tt.git] / tt

diff --git a/tt b/tt
index a8c8419..e8f1010 100755 (executable)
--- a/tt
+++ b/tt
@@ -70,7 +70,9 @@
                   (define toks (string-split line (regexp "\t+")))
                   (if (= 2 (length toks))
                     (msg<-toks nick toks)
-                    #f)
+                    (begin
+                      (log-warning "Invalid msg from nick:~a, msg:~a" nick line)
+                      #f))
                   )
                msg_lines))])
     msgs))