Browse code
adding some logging and support utf-8
E L authored on 28/01/2016 06:33:21
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -126,8 +126,8 @@ |
126 | 126 |
(defun get-feed-guid (item) |
127 | 127 |
(with-slots (alimenta:title alimenta:link) item |
128 | 128 |
(let ((hasher (ironclad:make-digest 'ironclad:sha256))) |
129 |
- (ironclad:update-digest hasher (ironclad:ascii-string-to-byte-array alimenta:title)) |
|
130 |
- (ironclad:update-digest hasher (ironclad:ascii-string-to-byte-array alimenta:link)) |
|
129 |
+ (ironclad:update-digest hasher (babel:string-to-octets alimenta:title)) |
|
130 |
+ (ironclad:update-digest hasher (babel:string-to-octets alimenta:link)) |
|
131 | 131 |
(ironclad:byte-array-to-hex-string (ironclad:produce-digest hasher))))) |
132 | 132 |
|
133 | 133 |
;; View Controllers |
... | ... |
@@ -186,7 +186,7 @@ |
186 | 186 |
((ningle:route *app* "/login" :method :GET) #'login-page) |
187 | 187 |
((ningle:route *app* "/curo" :method :POST) #'curate) |
188 | 188 |
((ningle:route *app* "/murmuro" :method :POST) #'murmur) |
189 |
- ((ningle:route *app* "/logout" :method :POST) #'logout)) |
|
189 |
+ ((ningle:route *app* "/logout") #'logout)) |
|
190 | 190 |
|
191 | 191 |
|
192 | 192 |
(cl-oid-connect::setup-oid-connect *app* (userinfo &rest args) |
... | ... |
@@ -216,6 +216,7 @@ |
216 | 216 |
(push (clack:clackup |
217 | 217 |
(funcall clack-errors:*clack-error-middleware* |
218 | 218 |
(lack.builder:builder |
219 |
+ :accesslog |
|
219 | 220 |
:session |
220 | 221 |
(:static :path "/static/" :root #p"./static/") |
221 | 222 |
:backtrace |