aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Hermes/TODO2
-rw-r--r--Hermes/server.rkt6
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)