CP-40753 host.set_https_only updates firewall using firewall_port_config_script helper

Signed-off-by: jameshensmancitrix <james.hensman@citrix.com>

Author: jameshensmancitrix

ocaml/xapi/xapi_host.ml

@@ -2927,4 +2927,7 @@ let apply_updates ~__context ~self ~hash =
   warnings
 
 let set_https_only ~__context ~self ~value =
-  Db.Host.set_https_only ~__context ~self ~value
+  Db.Host.set_https_only ~__context ~self ~value ;
+  let state = match value with true -> "close" | false -> "open" in
+  ignore
+  @@ Helpers.call_script !Xapi_globs.firewall_port_config_script [state; "80"]