[Xen-API] [PATCH] CA-35038: Grace period should not be rounded to days

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
CA-35038: Grace period should not be rounded to days

Reverted the behaviour that rounds the expiry dates for grace licenses to day 
boundaries (expiry on midnight).

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r dc7320fcfd37 ocaml/license/v6client.ml
--- a/ocaml/license/v6client.ml Thu Nov 12 15:31:27 2009 +0000
+++ b/ocaml/license/v6client.ml Tue Nov 17 14:47:38 2009 +0000
@@ -35,11 +35,6 @@
 
 (* conversion to v6 edition codes *)
 let editions = ["enterprise", "ENT"; "platinum", "PLT"]
-
-(* round a date, given by Unix.time, to days *)
-let round_to_days d =
-       let days = (int_of_float d) / (24 * 3600) in
-       (float_of_int days) *. 24. *. 3600.
        
 (* reset to not-licensed state *)
 let reset_state () =
@@ -112,7 +107,7 @@
                                (* set expiry date *)
                                let now = Unix.time () in
                                if days_to_expire > -1 then
-                                       expires := (round_to_days now +. 
(float_of_int (days_to_expire * 24 * 3600)))
+                                       expires := now +. (float_of_int 
(days_to_expire * 24 * 3600))
                                else
                                        expires := never;
                                (* check fist point *)

v6-no-rounding
Description: Text document

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