From ca94eb40aee8646057284488d950b08d38498229 Mon Sep 17 00:00:00 2001
From: Hanketsu <hanketsu@egregore.fun>
Date: Sat, 15 Mar 2025 00:49:24 +0100
Subject: battering: services: Handle user by names

* battering/services/opensnitch.scm: User user name instead of uid for the
user field.
---
 battering/services/opensnitch.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'battering')

diff --git a/battering/services/opensnitch.scm b/battering/services/opensnitch.scm
index af0ca38..300f1fe 100644
--- a/battering/services/opensnitch.scm
+++ b/battering/services/opensnitch.scm
@@ -85,10 +85,10 @@
    "Outside interface")
   (protocol
    maybe-string
-   "Protocol")
+   "Transport Layer protocol")
   (user
    maybe-string
-   "User ID")
+   "User")
   (hosts-file
    maybe-string
    "List of domains")
@@ -154,7 +154,10 @@
                  ("dest.port" . ,#$(parse-port dest-port))
                  ("iface.out" . ,#$dest-iface)
                  ("protocol" . ,#$protocol)
-                 ("user.id" . ,#$user)
+                 ("user.id" .
+                  #$(if (eq? user '%unset-marker%)
+                        user
+                        (number->string (passwd:uid (getpw user)))))
                  (#$(if hosts-regex?
                         "lists.domain_regexp"
                         "lists.domain") . ,#$hosts-file))))
-- 
cgit v1.2.3