# HG changeset patch # User Rob Hoes CA-35467: Added FIST point to reduce period FIST-point "reduce_grace_retry_period" to reduce the period from 1h to 5min. Signed-off-by: Rob Hoes diff -r 30071cacdf8e ocaml/license/grace_retry.ml --- a/ocaml/license/grace_retry.ml Tue Dec 08 14:20:32 2009 +0000 +++ b/ocaml/license/grace_retry.ml Tue Dec 08 14:35:14 2009 +0000 @@ -20,7 +20,12 @@ * Note: the LPE already does a similar thing, but does not notify the product (xapi) * if it succeeds to check out a "real" license! *) let retry_periodically host edition = - let period = 3600. in + let period = + if Xapi_fist.reduce_grace_retry_period () then + 300. (* 1h *) + else + 3600. (* 5min *) + in let schedule = Xapi_periodic_scheduler.OneShot in let retry_fn () = Server_helpers.exec_with_new_task "grace_retry" (fun __context -> diff -r 30071cacdf8e ocaml/xapi/xapi_fist.ml --- a/ocaml/xapi/xapi_fist.ml Tue Dec 08 14:20:32 2009 +0000 +++ b/ocaml/xapi/xapi_fist.ml Tue Dec 08 14:35:14 2009 +0000 @@ -94,3 +94,6 @@ (** 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" +