From f6687e7d62ea9139f403c3c8d7c3ffa797aa3583 Mon Sep 17 00:00:00 2001
From: Ibrahim Mkusa <ibrahimmkusa@gmail.com>
Date: Thu, 13 Apr 2017 15:20:47 -0400
Subject: timestamps added to messages

---
 Hermes/TODO       |  7 +++++--
 Hermes/client.rkt | 10 +++++++++-
 Hermes/server.rkt |  1 -
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/Hermes/TODO b/Hermes/TODO
index c1f17fa..5a357fc 100644
--- a/Hermes/TODO
+++ b/Hermes/TODO
@@ -1,6 +1,5 @@
 1. Create a racket module for commonly used functions
 2. Log messages to proper file on server
-3. add timestamps to clients messages
 4. message parsable?
 5. command parsable?
 6. keep count of connected clients using object orientation
@@ -10,4 +9,8 @@
    like make-account
 make own count to deal with closures
 10. authentication for databases
-11. user can ask for no of logged in users. Server has to parse
+11. user can ask for no of logged in users. Server has to pars
+e
+12. Hide user's own input in command line
+13. Need to gracefully handle disconnected clients by removing from list
+of connections
diff --git a/Hermes/client.rkt b/Hermes/client.rkt
index 11e2041..86813ac 100644
--- a/Hermes/client.rkt
+++ b/Hermes/client.rkt
@@ -46,13 +46,21 @@
   ;; intelligent read, quits when user types in "quit"
   (define input (read-line))
   (cond ((string=? input "quit") (exit)))
-  (displayln (string-append username ": " input) out)
+  ; get current time
+  (define date-today (seconds->date (current-seconds) #t))
+  ;TODO pad the second if its only 1 character
+  (define date-print (string-append (number->string (date-hour date-today))
+                                    ":"
+                                    (number->string (date-second date-today))
+                                    "| "))
+  (displayln (string-append date-print username ": " input) out)
   (flush-output out))
 
 ; receives input from server and displays it to stdout
 (define (receive-messages in)
   ; retrieve a message from server
   (define evt (sync/timeout 60 (read-line-evt in)))
+  
   (cond [(eof-object? evt)
          (displayln "Server connection closed.")
          (custodian-shutdown-all main-client-cust)
diff --git a/Hermes/server.rkt b/Hermes/server.rkt
index a672c2b..20a83bb 100644
--- a/Hermes/server.rkt
+++ b/Hermes/server.rkt
@@ -107,7 +107,6 @@
     (displayln welcome-message out)
     (flush-output out)
     (semaphore-wait connections-s)
-    ; (set! connections (append connections (list (list in out))))
     ((c-connections 'add) in out)
     (semaphore-post connections-s)
 
-- 
cgit v1.2.3