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

preliminary work on adding sessions stickiness

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-15 20:32:26 -04:00
parent 83911cc5f7
commit 11bcec1052
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Hermes/TODO
View File

@ -1,6 +1,5 @@
FEATURES FEATURES
1. Create a racket module for commonly used functions 1. Create a racket module for commonly used functions
2. Log error messages and channel conservations to proper files on server
4. message parsable? 4. message parsable?
5. command parsable? 5. command parsable?
7. maybe fiddle around with irc library 7. maybe fiddle around with irc library
@ -10,7 +9,9 @@ FEATURES
e e
12. Hide user's own input in command line 12. Hide user's own input in command line
14. bye message prompt for clients 14. bye message prompt for clients
15. Session stickiness for clients *15. Session stickiness for clients. Log received comms to a local file.
additionally save user details and prompt user to use defaults or create
new ones
16. plain tcp -> ssl based 16. plain tcp -> ssl based
17. fix breaks for improper disconnects from clients 17. fix breaks for improper disconnects from clients
18. Add topics after project completion 18. Add topics after project completion

17
Hermes/client.rkt
View File

@ -1,14 +1,26 @@
#lang racket #lang racket
(require math/base) ;; for random number generation (require math/base) ;; for random number generation
;; TODO clean up string message output and alignment ;; TODO clean up string message output and alignment
;; i.e. seconds and minutes hours specifically
;; author: Ibrahim Mkusa ;; author: Ibrahim Mkusa
;; about: print and read concurrently ;; about: print and read concurrently
;; notes: output may need to be aligned and formatted nicely ;; notes: output may need to be aligned and formatted nicely
(define host "10.0.0.160") ; internal home (define host "10.0.0.160") ; internal home
(define host2 "67.186.191.81") (define host2 "67.186.191.81")
(define host3 "localhost") (define host3 "localhost")
(define port-num 4321) (define port-num 4321)
(define hermes-conf (open-output-file "./hermes.conf" 'append))
(define hermes-conf-s (make-semaphore 1))
(define convs-out (open-output-file "./convs.out" 'append))
(define convs-out-s (make-semaphore 1))
(define error-out (open-output-file "./error.out" 'append))
(define error-out-s (make-semaphore 1))
; custodian for client connections ; custodian for client connections
(define main-client-cust (make-custodian)) (define main-client-cust (make-custodian))
@ -17,9 +29,10 @@
(parameterize ([current-custodian main-client-cust]) (parameterize ([current-custodian main-client-cust])
;; connect to server at port 8080 ;; connect to server at port 8080
(define-values (in out) (tcp-connect host3 port-no)) ;; define values (define-values (in out) (tcp-connect host3 port-no)) ;; define values
(display in)
(displayln out)
;; binds to multiple values akin to unpacking tuples in python ;; binds to multiple values akin to unpacking tuples in python
; store username to a file for later retrieval along with relevent
; info used for authentication with server
(displayln "What's your name?") (displayln "What's your name?")
(define username (read-line)) (define username (read-line))