search for: firewall_rules_perform

Displaying 7 results from an estimated 7 matches for "firewall_rules_perform".

[PATCH V2] sysprep: remove firewall rules
2013 Sep 05
1
[PATCH V2] sysprep: remove firewall rules
...ou should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + *) + +open Sysprep_operation +open Common_gettext.Gettext + +module G = Guestfs + +let firewall_rules_perform g root = + let typ = g#inspect_get_type root in + if typ <> "windows" then ( + let paths = [ "/etc/sysconfig/iptables"; + "/etc/firewalld/services/*"; + "/etc/firewalld/zones/*"; ] in + List.iter ( + fun pa...
Re: [PATCH 1/3] sysprep, get-kernel: explicit the Guestfs parameter
2016 Feb 03
0
Re: [PATCH 1/3] sysprep, get-kernel: explicit the Guestfs parameter
...rules.ml b/sysprep/sysprep_operation_firewall_rules.ml > index f5967fc..0a70169 100644 > --- a/sysprep/sysprep_operation_firewall_rules.ml > +++ b/sysprep/sysprep_operation_firewall_rules.ml > @@ -21,7 +21,7 @@ open Common_gettext.Gettext > > module G = Guestfs > > -let firewall_rules_perform g root side_effects = > +let firewall_rules_perform (g : Guestfs.guestfs) root side_effects = > let typ = g#inspect_get_type root in > if typ <> "windows" then ( > let paths = [ "/etc/sysconfig/iptables"; > diff --git a/sysprep/sysprep_operation_k...
[PATCH 1/3] sysprep, get-kernel: explicit the Guestfs parameter
2016 Feb 03
6
[PATCH 1/3] sysprep, get-kernel: explicit the Guestfs parameter
...it a/sysprep/sysprep_operation_firewall_rules.ml b/sysprep/sysprep_operation_firewall_rules.ml index f5967fc..0a70169 100644 --- a/sysprep/sysprep_operation_firewall_rules.ml +++ b/sysprep/sysprep_operation_firewall_rules.ml @@ -21,7 +21,7 @@ open Common_gettext.Gettext module G = Guestfs -let firewall_rules_perform g root side_effects = +let firewall_rules_perform (g : Guestfs.guestfs) root side_effects = let typ = g#inspect_get_type root in if typ <> "windows" then ( let paths = [ "/etc/sysconfig/iptables"; diff --git a/sysprep/sysprep_operation_kerberos_data.ml b/sysprep...
[PATCH 1/2] sysprep: Update comments.
2014 Jan 21
1
[PATCH 1/2] sysprep: Update comments.
--- sysprep/sysprep_operation.mli | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sysprep/sysprep_operation.mli b/sysprep/sysprep_operation.mli index 61dde72..eb89db4 100644 --- a/sysprep/sysprep_operation.mli +++ b/sysprep/sysprep_operation.mli @@ -16,14 +16,16 @@ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *) -(** Structure used to describe sysprep
[PATCH 3/4] ocaml tools: Use global variables to store trace (-x) and verbose (-v) flags.
2015 May 15
0
[PATCH 3/4] ocaml tools: Use global variables to store trace (-x) and verbose (-v) flags.
...it a/sysprep/sysprep_operation_firewall_rules.ml b/sysprep/sysprep_operation_firewall_rules.ml index 22dd5e8..5c97648 100644 --- a/sysprep/sysprep_operation_firewall_rules.ml +++ b/sysprep/sysprep_operation_firewall_rules.ml @@ -21,7 +21,7 @@ open Common_gettext.Gettext module G = Guestfs -let firewall_rules_perform ~verbose ~quiet g root side_effects = +let firewall_rules_perform ~quiet g root side_effects = let typ = g#inspect_get_type root in if typ <> "windows" then ( let paths = [ "/etc/sysconfig/iptables"; diff --git a/sysprep/sysprep_operation_flag_reconfiguration.ml...
[PATCH 0/4] Only tell people to use -v -x when reporting bugs if they're not using those flags.
2015 May 15
5
[PATCH 0/4] Only tell people to use -v -x when reporting bugs if they're not using those flags.
.. and a lot of refactoring. https://bugzilla.redhat.com/show_bug.cgi?id=1167623 Rich.
[PATCH v2 0/4] Only tell people to use -v -x when reporting bugs if they're not using those flags.
2015 May 15
6
[PATCH v2 0/4] Only tell people to use -v -x when reporting bugs if they're not using those flags.
https://bugzilla.redhat.com/show_bug.cgi?id=1167623