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

client logs end with _client and server logs end with _server

Browse Source
This commit is contained in:
Ibrahim Mkusa 2017-04-15 21:06:14 -04:00
parent 413d13d7a6
commit 63c4e2e185
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Hermes/TODO
View File

@ -1,5 +1,4 @@
FEATURES FEATURES
1. Create a racket module for commonly used functions
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
@ -7,8 +6,7 @@ FEATURES
10. authentication for databases 10. authentication for databases
11. user can ask for no of logged in users. Server has to pars 11. user can ask for no of logged in users. Server has to pars
e e
12. Hide user's own input in command line *14. bye message prompt for clients part of session stickiness
14. bye message prompt for clients
*15. Session stickiness for clients. Log received comms to a local file. *15. Session stickiness for clients. Log received comms to a local file.
additionally save user details and prompt user to use defaults or create additionally save user details and prompt user to use defaults or create
new ones new ones

10
Hermes/client.rkt
View File

@ -1,4 +1,6 @@
#lang racket #lang racket
(require "modules/general.rkt")
(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 ;; i.e. seconds and minutes hours specifically
@ -7,19 +9,19 @@
;; notes: output may need to be aligned and formatted nicely ;; notes: output may need to be aligned and formatted nicely
; i could prompt for these instead
(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" #:exists'append)) (define hermes-conf (open-output-file "./hermes_client.conf" #:exists'append))
(define hermes-conf-s (make-semaphore 1)) (define hermes-conf-s (make-semaphore 1))
(define convs-out (open-output-file "./convs.out" #:exists 'append)) (define convs-out (open-output-file "./convs_client.out" #:exists 'append))
(define convs-out-s (make-semaphore 1)) (define convs-out-s (make-semaphore 1))
(define error-out (open-output-file "./error.out" #:exists 'append)) (define error-out (open-output-file "./error_client.out" #:exists 'append))
(define error-out-s (make-semaphore 1)) (define error-out-s (make-semaphore 1))
; custodian for client connections ; custodian for client connections

4
Hermes/server.rkt
View File

@ -76,8 +76,8 @@
(define messages-s (make-semaphore 1)) ;; control access to messages (define messages-s (make-semaphore 1)) ;; control access to messages
; two files to store error messages, and channel conversations ; two files to store error messages, and channel conversations
(define error-out (open-output-file "/home/pcuser/Hermes/Hermes/error.txt" #:exists 'append)) (define error-out (open-output-file "/home/pcuser/Hermes/Hermes/error_server.txt" #:exists 'append))
(define convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations.txt" #:exists 'append)) (define convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations_server.txt" #:exists 'append))
(define error-out-s (make-semaphore 1)) (define error-out-s (make-semaphore 1))
(define convs-out-s (make-semaphore 1)) (define convs-out-s (make-semaphore 1))
; TODO finish logging all error related messages to ; TODO finish logging all error related messages to