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