From b7502e5e77ecef893ddb0033f4b84abf522fae47 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 4 Jul 2024 11:35:17 +0200 Subject: [PATCH] logging: use customized pattern layout --- logging.lisp | 5 +++-- test/etc/config-web.lisp | 2 +- web/server.lisp | 2 +- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/logging.lisp b/logging.lisp index 293f7ec..f132535 100644 --- a/logging.lisp +++ b/logging.lisp @@ -17,6 +17,7 @@ (defun setup(cfg) (let ((loglevel (config:from-env :loglevel (loglevel cfg))) (logfile (config:from-env :logfile (logfile cfg))) + (pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}%:; ;F%2.2N - %:_%m%>%n") params) (if (stringp loglevel) (setf loglevel (util:to-keyword loglevel))) @@ -24,7 +25,7 @@ (setf logfile (util:path-from-string logfile))) (util:ensure-dir logfile) ;(format t "~&loglevel: ~s, logfile: ~s~%" loglevel logfile) - (setf params (list :sane loglevel :daily logfile)) + (setf params (list :sane loglevel :daily logfile :pattern pat)) (if (console cfg) (setf params (cons :console params))) - (apply #'log4cl:log-config params))) + (apply #'log:config params))) diff --git a/test/etc/config-web.lisp b/test/etc/config-web.lisp index 71695f2..609aaeb 100644 --- a/test/etc/config-web.lisp +++ b/test/etc/config-web.lisp @@ -7,7 +7,7 @@ (config:add :logger :class 'logging:config :loglevel :info :logfile (t:test-path "scopes-test.log" "log") - :console nil) + :console t) (config:add :server :class 'server:config :port "8899" diff --git a/web/server.lisp b/web/server.lisp index 3546732..d6aca87 100644 --- a/web/server.lisp +++ b/web/server.lisp @@ -33,7 +33,7 @@ :address (address cfg) ;:server :woo :silent t)) - (log:info "server started on port ~s." (port cfg)))) + (log:info "server started on port ~a." (port cfg)))) (defun stop (ctx) (clack:stop (listener ctx)))