diff options
| author | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-23 17:30:14 -0400 |
|---|---|---|
| committer | Ibrahim Mkusa <ibrahimmkusa@gmail.com> | 2017-04-23 17:30:14 -0400 |
| commit | bd7b3bb531d49233807b3e9c29db8f929f29c434 (patch) | |
| tree | 5fb89b84be0a4c98a08acd1e54e6599404075761 | |
| parent | 58cff4f1b8c1d5085121384221adcff4b5273fdf (diff) | |
Hermes is fully functional
| -rw-r--r-- | Hermes/TODO | 2 | ||||
| -rw-r--r-- | Hermes/server.rkt | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/Hermes/TODO b/Hermes/TODO index 9243681..256997a 100644 --- a/Hermes/TODO +++ b/Hermes/TODO @@ -14,3 +14,5 @@ additionally save user details and prompt user to use defaults or create new ones 10. authentication for databases - to avoid dependencies this is left out ** whispers aren't currently logged - its on purpose +automated test sets for networking and client code +encryption over SSL using root certificates diff --git a/Hermes/server.rkt b/Hermes/server.rkt index ae23494..024fa8f 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -103,7 +103,7 @@ (displayln-safe "Listener successfully started." error-out-s error-out) ;; Create a thread whose job is to simply call broadcast iteratively (thread (lambda () - (displayln-safe "Broadcast thread started!\n") + (displayln-safe "Broadcast thread started!") (let loopb [] (sleep sleep-t) ;; wait 0.5 secs before beginning to broadcast (broadcast) @@ -211,7 +211,7 @@ (displayln "User is unavailable. /color blue" out) (flush-output out)) (begin - (displayln (string-append "(whisper)" + (displayln (string-append "(whisper) " (whisper-info whisper) (whisper-message whisper)) (get-output-port (car that-user-ports))) (flush-output (get-output-port (car that-user-ports))))) @@ -291,4 +291,4 @@ (semaphore-post messages-s))) (define stop-server (serve 4321)) ;; start server then close with stop -(displayln-safe "Server process started\n" error-out-s error-out) +(displayln-safe "Server process started." error-out-s error-out) |