(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))))
(defun command-action ()
(with-session
- (empire:send-message (connection *empire-session*) (get-parameter "q"))))
+ (empire:command (connection *empire-session*) (get-parameter "q"))))
(defun root-page ()
(with-session