(pass (post-parameter "password"))
(session (make-session user pass)))
(setf (session-value 'session) session)
- (empire-log:info "User ~a logging in. Session ~a" user session)
+ (empire-log:info "~a: User ~a logging in." session user)
(redirect +root-url+))
(usocket:connection-refused-error (e)
(format nil "Connection error: ~a~%" e))))