|
|
@@ -39,9 +39,12 @@
|
|
|
|
|
|
(defun handle-update (update)
|
|
|
(log:info update)
|
|
|
- (loop for (key . value) in update
|
|
|
- unless (equal "update_id" key)
|
|
|
- do (run-hooks (keyify (format nil "update-~A" key)) value)))
|
|
|
+ (let ((reply-to (aget "id" (aget "from" (aget "reply_to_message" (aget "message" update))))))
|
|
|
+ (if (and reply-to (not (equal reply-to (parse-integer *telegram-token* :end (position #\: *telegram-token*)))))
|
|
|
+ (log:info "Reply not to bot")
|
|
|
+ (loop for (key . value) in update
|
|
|
+ unless (equal "update_id" key)
|
|
|
+ do (run-hooks (keyify (format nil "update-~A" key)) value)))))
|
|
|
|
|
|
(def-message-admin-cmd-handler handle-admin-settings (:settings)
|
|
|
(send-response chat-id
|
