diff options
Diffstat (limited to 'battering/services/opensnitch.scm')
| -rw-r--r-- | battering/services/opensnitch.scm | 9 |
1 files changed, 6 insertions, 3 deletions
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)))) |