projects
/
candle
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use utils logging
[candle]
/
src
/
main
/
server.lisp
diff --git
a/src/main/server.lisp
b/src/main/server.lisp
index 3df97f820b7236be8543f1d75680b4a3d496acdc..bdf8d77c4e3c31fc27f427581cb64717bf4beb7c 100644
(file)
--- a/
src/main/server.lisp
+++ b/
src/main/server.lisp
@@
-3,17
+3,22
@@
(defun server (port &optional (background t))
(when (not *candle-dir*) (error "Need a candle dir"))
(let*
(defun server (port &optional (background t))
(when (not *candle-dir*) (error "Need a candle dir"))
(let*
- ((data-dir (format nil "~Adata" *candle-dir*)))
+ ((data-dir (format nil "~Adata" *candle-dir*))
+ (log-dir (format nil "~Alogs/" *candle-dir*)))
(ensure-directories-exist *candle-dir*)
(ensure-directories-exist data-dir)
(ensure-directories-exist *candle-dir*)
(ensure-directories-exist data-dir)
+ (ensure-directories-exist log-dir)
+ (setf log-utils:*log-dir* log-dir)
+ (log:add-appender #'log-utils:file-appender)
+ (log:info "Starting server on port ~A" port)
(lame-db:load-known-dbs data-dir)
(lame-db:load-known-dbs data-dir)
- (
format t "Starting processor in ~(~A~) mode~%
" *job-system*)
+ (
log:info "Starting processor in ~(~A~) mode
" *job-system*)
(start-save-thread data-dir)
(start-processor-thread)
(communication:start-listener port background)))
(defun start-save-thread (data-dir)
(start-save-thread data-dir)
(start-processor-thread)
(communication:start-listener port background)))
(defun start-save-thread (data-dir)
- (
format t "Starting Save Thread~%
")
+ (
log:info "Starting Save Thread
")
(let*
((mutex (sb-thread:make-mutex))
(waitq (sb-thread:make-waitqueue))
(let*
((mutex (sb-thread:make-mutex))
(waitq (sb-thread:make-waitqueue))
@@
-37,7
+42,7
@@
:name "Save Thread Trigger")
(push
(lambda ()
:name "Save Thread Trigger")
(push
(lambda ()
- (
format t "Shutting down save thread~%
")
+ (
log:info "Shutting down save thread
")
(sb-thread:with-mutex (mutex)
(setf active nil)
(sb-thread:condition-broadcast waitq))
(sb-thread:with-mutex (mutex)
(setf active nil)
(sb-thread:condition-broadcast waitq))