Permalink
Browse files

Added access log

  • Loading branch information...
1 parent e43810d commit 8141976cf45d4fad03ea8cf3054883d41f769006 @vsedach committed Sep 1, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/start.lisp
View
@@ -30,13 +30,15 @@
wikis)
(sleep (* 60 60 24)))))
- (let ((error-log (merge-pathnames "error-log" homedir)))
- (open error-log :direction :probe :if-does-not-exist :create)
+ (let ((error-log (merge-pathnames "error-log" homedir))
+ (access-log (merge-pathnames "access-log" homedir)))
+ (open error-log :direction :probe :if-does-not-exist :create)
+ (open access-log :direction :probe :if-does-not-exist :create)
(let ((acceptor
(make-instance
'cliki2-acceptor
:port port
- :access-log-destination nil
+ :access-log-destination access-log
:message-log-destination error-log
:wikis wikis
:dispatch-table

0 comments on commit 8141976

Please sign in to comment.