From f77ffd4bdb813e729576aeba0a332a45ac347561 Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Fri, 16 Jan 2026 15:56:58 +0200 Subject: Make /msginfo be a restricted command --- src/main.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index f435bf3..e146b47 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -1,5 +1,5 @@ ;; SPDX-License-Identifier: EUPL-1.2 -;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs +;; SPDX-FileCopyrightText: 2025-2026 Uko Kokņevičs (defpackage :ukkoclot/src/main (:documentation "Main package of Ukkoclot") (:nicknames :ukkoclot) @@ -270,10 +270,15 @@ #f"{(message-chat-id msg)}" :parse-mode html)) - ((equal simple-cmd "msginfo") + ((and (equal simple-cmd "msginfo") + (message-from msg) + (= (user-id (message-from msg)) (conf:owner))) (when-let (replied (message-reply-to-message msg)) (reply-message replied (let ((*print-pretty* t)) (fixup-value replied))))) + ((equal simple-cmd "msginfo") + (reply-message msg "Nuh-uh")) + ((equal simple-cmd "ping") (let* ((start-time (get-internal-real-time)) (reply (reply-message msg #f"Pong!{;~2%}Send time: ...")) -- cgit v1.2.3