Make /msginfo be a restricted commandHEADmain

1 files 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 <perkontevs@gmail.com>
+;; SPDX-FileCopyrightText: 2025-2026 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/src/main
   (:documentation "Main package of Ukkoclot")
   (:nicknames :ukkoclot)
@@ -270,10 +270,15 @@
                       #f"<code>{(message-chat-id msg)}</code>"
                       :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: ..."))