24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(include "db_records.scm")
(define (server:run hostn)
(debug:print 0 "Attempting to start the server ...")
(let ((host:port (open-run-close db:get-var #f "SERVER"))) ;; do whe already have a server running?
(if host:port
(begin
(debug:print 0 "WARNING: server already running.")
(if (server:client-setup)
(begin
(debug:print-info 0 "Server is alive, not starting another")
;;(exit)
)
(begin
(debug:print-info 0 "Server is dead, removing flag and trying again")
|
|
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(include "db_records.scm")
(define (server:run hostn)
(debug:print 0 "Attempting to start the server ...")
(let ((host:port (open-run-close db:get-var #f "SERVER"))) ;; do whe already have a server running?
(if host:port
(begin
(debug:print 0 "NOTE: server already running.")
(if (server:client-setup)
(begin
(debug:print-info 0 "Server is alive, not starting another")
;;(exit)
)
(begin
(debug:print-info 0 "Server is dead, removing flag and trying again")
|