From faf9340a2e7086406a55707202de9f5d898e59f5 Mon Sep 17 00:00:00 2001 From: Thomas Sanders Date: Mon, 13 Jun 2016 10:26:33 +0100 Subject: [PATCH] CA-213035: feature-flag for ssl_legacy control switch Add a feature to indicate the availability of this functionality. Signed-off-by: Thomas Sanders --- ocaml/xapi/features.ml | 2 ++ ocaml/xapi/features.mli | 1 + 2 files changed, 3 insertions(+) diff --git a/ocaml/xapi/features.ml b/ocaml/xapi/features.ml index bdd9d91b43..1cc48dbbd4 100644 --- a/ocaml/xapi/features.ml +++ b/ocaml/xapi/features.ml @@ -49,6 +49,7 @@ type feature = | Xen_motion | Guest_ip_setting | AD + | Ssl_legacy_switch with rpc type orientation = Positive | Negative @@ -87,6 +88,7 @@ let keys_of_features = Xen_motion, ("restrict_xen_motion", Negative, "XenMotion"); Guest_ip_setting, ("restrict_guest_ip_setting", Negative, "GuestIP"); AD, ("restrict_ad", Negative, "AD"); + Ssl_legacy_switch, ("disable_ssl_legacy_switch", Negative, "Ssl_legacy_switch"); ] let name_of_feature f = diff --git a/ocaml/xapi/features.mli b/ocaml/xapi/features.mli index e887a7cc36..d114621c7b 100644 --- a/ocaml/xapi/features.mli +++ b/ocaml/xapi/features.mli @@ -49,6 +49,7 @@ type feature = | Xen_motion (** Enable XenMotion feature *) | Guest_ip_setting (** Enable use of Guest ip seting *) | AD (** Enable use of Active Directory *) + | Ssl_legacy_switch (** Enable the control switch for SSL/TLS legacy-mode. *) (** Convert RPC into {!feature}s *) val feature_of_rpc : Rpc.t -> feature