iskm/Hermes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hermes is fully functional

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-23 17:30:14 -04:00
parent 58cff4f1b8
commit bd7b3bb531
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hermes/TODO
View File

@ -14,3 +14,5 @@ additionally save user details and prompt user to use defaults or create
new ones new ones
10. authentication for databases - to avoid dependencies this is left out 10. authentication for databases - to avoid dependencies this is left out
** whispers aren't currently logged - its on purpose ** whispers aren't currently logged - its on purpose
automated test sets for networking and client code
encryption over SSL using root certificates

6
Hermes/server.rkt
View File

@ -103,7 +103,7 @@
(displayln-safe "Listener successfully started." error-out-s error-out) (displayln-safe "Listener successfully started." error-out-s error-out)
;; Create a thread whose job is to simply call broadcast iteratively ;; Create a thread whose job is to simply call broadcast iteratively
(thread (lambda () (thread (lambda ()
(displayln-safe "Broadcast thread started!\n") (displayln-safe "Broadcast thread started!")
(let loopb [] (let loopb []
(sleep sleep-t) ;; wait 0.5 secs before beginning to broadcast (sleep sleep-t) ;; wait 0.5 secs before beginning to broadcast
(broadcast) (broadcast)
@ -211,7 +211,7 @@
(displayln "User is unavailable. /color blue" out) (displayln "User is unavailable. /color blue" out)
(flush-output out)) (flush-output out))
(begin (begin
(displayln (string-append "(whisper)" (displayln (string-append "(whisper) "
(whisper-info whisper) (whisper-message whisper)) (whisper-info whisper) (whisper-message whisper))
(get-output-port (car that-user-ports))) (get-output-port (car that-user-ports)))
(flush-output (get-output-port (car that-user-ports))))) (flush-output (get-output-port (car that-user-ports)))))
@ -291,4 +291,4 @@
(semaphore-post messages-s))) (semaphore-post messages-s)))
(define stop-server (serve 4321)) ;; start server then close with stop (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)