From 130b922265d45448f5d45791d7fde4ae567b14d6 Mon Sep 17 00:00:00 2001 From: Jon Ludlam Date: Thu, 28 Mar 2013 01:53:19 +0000 Subject: [PATCH] Revert patch 91e03ab1a0718c6caf5a18bfc25c99d374dcc337 It broke the build. Signed-off-by: Jon Ludlam --- ocaml/xapi/xapi_fist.ml | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ocaml/xapi/xapi_fist.ml b/ocaml/xapi/xapi_fist.ml index a28d726223..a8c2d36b97 100644 --- a/ocaml/xapi/xapi_fist.ml +++ b/ocaml/xapi/xapi_fist.ml @@ -85,6 +85,20 @@ let reduce_blob_sync_interval = fistpoint "reduce_blob_sync_interval" let reduce_rrd_backup_interval = fistpoint "reduce_rrd_backup_interval" let reduce_rra_times = fistpoint "reduce_rra_times" +(** {2 Licensing fist points} *) + +(** Reduce the v6-licensing grace period from 30 days to 15 minutes *) +let reduce_grace_period () = fistpoint "reduce_grace_period" + +(** Reduce the v6-licensing upgrade grace period from 4 days to 15 minutes *) +let reduce_upgrade_grace_period () = fistpoint "reduce_upgrade_grace_period" + +(** Set the expiry date of a v6-license to the one in the file *) +let set_expiry_date () = fistpoint_read "set_expiry_date" + +(** Reduce the retry period after obtaining a grace license from 1h to 5min *) +let reduce_grace_retry_period () = fistpoint "reduce_grace_retry_period" + (** Forces synchronous lifecycle path to defer to the event thread *) let disable_sync_lifecycle_path () = fistpoint "disable_sync_lifecycle_path"