use relative paths when opening files
This commit is contained in:
parent
ed029f7906
commit
684f172537
1
.gitignore
vendored
1
.gitignore
vendored
@ -1,5 +1,6 @@
|
|||||||
# ignore temporary files
|
# ignore temporary files
|
||||||
*~
|
*~
|
||||||
|
*.txt
|
||||||
|
|
||||||
# ignore logs and configuration files
|
# ignore logs and configuration files
|
||||||
*.out
|
*.out
|
||||||
|
@ -1,3 +1,3 @@
|
|||||||
# Remove temporary files
|
# Remove temporary files
|
||||||
clean:
|
clean:
|
||||||
rm -rf *~ *.out *.conf
|
rm -rf *~ *.out *.conf *.txt
|
||||||
|
@ -77,8 +77,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_server.txt" #:exists 'append))
|
(define error-out (open-output-file "./error_server.txt" #:exists 'append))
|
||||||
(define convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations_server.txt" #:exists 'append))
|
(define convs-out (open-output-file "./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
|
||||||
|
Loading…
Reference in New Issue
Block a user