diff options
| author | Hanketsu <hanketsu@egregore.fun> | 2025-02-26 22:18:46 +0100 |
|---|---|---|
| committer | Hanketsu <hanketsu@egregore.fun> | 2025-02-27 20:09:48 +0100 |
| commit | 2b98519933f970b5856c1c457ea1f8afd9f61178 (patch) | |
| tree | 918567a5090b001a64d5bc79d0fb2b4a94bdd909 | |
| parent | 9d6753daa790c3e0396b1ff12ac1636c79afa342 (diff) | |
battering: services: Change names for opensnitch-rule's fields.opensnitch
* battering/services/opensnitch.scm: Change field names.
| -rw-r--r-- | battering/services/opensnitch.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/battering/services/opensnitch.scm b/battering/services/opensnitch.scm index 84ea4a0..af0ca38 100644 --- a/battering/services/opensnitch.scm +++ b/battering/services/opensnitch.scm @@ -53,19 +53,19 @@ (nolog? (boolean #f) "Should connections with this rule be ignored from logging?") - (precedence? + (priority-rule? (boolean #f) "Should this rule have priority over others?") (regexp-fields (list '("dest.port")) "Opensnich fields with regular expressions.") - (sensitive? + (case-sensitive? (boolean #f) "Are fields case-sensitive") - (process-path + (file-path maybe-file-like "Command-line of the process") - (process-command + (command-line maybe-gexp "Path of the process") (dest-host @@ -73,7 +73,7 @@ "Destination host") (dest-ip maybe-string - "Destination ip") + "Destination IP") (dest-network maybe-string "Destination network") @@ -102,9 +102,9 @@ (name description action - nolog? precedence? sensitive? + nolog? priority-rule? case-sensitive? regexp-fields - process-path process-command + file-path command-line dest-host dest-ip dest-network dest-port dest-iface protocol user hosts-file hosts-regex?) @@ -140,14 +140,14 @@ `((operand . ,name) (data . ,data) (type . ,type) - (sensitive . #$sensitive?)) + (sensitive . #$case-sensitive?)) #f))) (define serialized-fields (filter-map serialize-single-operand - `(("process.path" . ,#$process-path) - ("process.command" . ,#$process-command) + `(("process.path" . ,#$file-path) + ("process.command" . ,#$command-line) ("dest.host" . ,#$dest-host) ("dest.ip" . ,#$dest-ip) ("dest.network" . ,#$dest-network) @@ -169,13 +169,13 @@ ;; "once" would be nonsensical. Plus, Opensnich wouldn't be able to ;; delete them. (duration . "always") - (precedence . #$precedence?) + (precedence . #$priority-rule?) (enabled . #t) (nolog . #$nolog?) (operator ,@(if (= (length serialized-fields) 1) (car serialized-fields) - `((sensitive . #$sensitive?) + `((sensitive . #$case-sensitive?) (list . #(,@serialized-fields)) (operand . "list") (data . "") |