[Xen-API] [PATCH] CA-35467: Added FIST point to reduce period

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
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 <rob.hoes@xxxxxxxxxx>

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"
+

ca-35467-fist-point
Description: Text document

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api