diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-29 13:34:46 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-01 11:42:11 -0700 |
commit | 5dfa44689b8cf469bd0311378718eb2d52d54996 (patch) | |
tree | 01158810bac9f0d123f295cbe3c318ebc9f6d0ce | |
parent | 6c58519f7c03a8e59092a738b65d5ace07a8eac1 (diff) | |
download | consfigurator-5dfa44689b8cf469bd0311378718eb2d52d54996.tar.gz |
FIREWALLD:HAS-ZONE: reload after adding zone
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/firewalld.lisp | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/property/firewalld.lisp b/src/property/firewalld.lisp index 1c93653..7b1ec10 100644 --- a/src/property/firewalld.lisp +++ b/src/property/firewalld.lisp @@ -149,13 +149,14 @@ FIREWALLD:POLICY.)" You will not usually need to call this property directly; it is applied by properties which add services, interfaces etc. to zones." (:desc #?"firewalld zone ${zone} exists") - (with-unapply - (%firewall-cmd nil :check `(,#?"--zone=${zone}" "--get-target") - :apply #?"--new-zone=${zone}") - :unapply - (%firewall-cmd nil :complement-check t - :check `(,#?"--zone=${zone}" "--get-target") - :apply #?"--delete-zone=${zone}"))) + (on-change (with-unapply + (%firewall-cmd nil :check `(,#?"--zone=${zone}" "--get-target") + :apply #?"--new-zone=${zone}") + :unapply + (%firewall-cmd nil :complement-check t + :check `(,#?"--zone=${zone}" "--get-target") + :apply #?"--delete-zone=${zone}")) + (%reloaded))) (defproplist zone-target :posix (zone target) (:desc #?"firewalld zone ${zone} has target ${target}") |