git.fiddlerwoaroof.com
Browse code

adding some logging and support utf-8

E L authored on 28/01/2016 06:33:21
Showing 2 changed files
... ...
@@ -11,6 +11,7 @@
11 11
                 #:alexandria
12 12
                 #:anaphora
13 13
                 #:ironclad
14
+                #:babel
14 15
                 #:clack-errors
15 16
                 #:postmodern
16 17
                 #:local-time
... ...
@@ -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