callback-section fixes

crypto.lisp

@@ -21,7 +21,7 @@
   (when (find #\: data)
     (error "Bad data."))
   (let* ((message (format nil "~A:~A:~A:~A"
-                          (base64:integer-to-base64-string chat-id)
+                          chat-id
                           (base64:integer-to-base64-string
                            (+ ttl (local-time:timestamp-to-universal (local-time:now))))
                           section data))
@@ -35,7 +35,7 @@
       (split-sequence:split-sequence #\$ raw-data :from-end t :count 2)
     (destructuring-bind (cid expire section data)
         (split-sequence:split-sequence #\: message :count 4)
-      (unless (= chat-id (base64:base64-string-to-integer cid))
+      (unless (= chat-id (parse-integer cid))
         (error "Wrong chat id."))
       (unless (>= (base64:base64-string-to-integer expire)
                   (local-time:timestamp-to-universal (local-time:now)))

utils.lisp

@@ -75,7 +75,11 @@
 (defun run-hooks (event &rest arguments)
   (let ((hooks (gethash event *hooks*)))
     (labels ((try-handle (func)
-               (apply func arguments)))
+               (handler-case
+                   (apply func arguments)
+                 (error (e)
+                   (log:error "Error processing event ~A: ~A" event e)
+                   nil))))
       (unless (some #'try-handle hooks)
         (log:info "unhandled" event arguments)))))