Function to check license expiry

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

diff --git a/ocaml/license/license.ml b/ocaml/license/license.ml
index 7811678cccd22b633d3c9ff397f38b18d71ae0b3..078ac055f58b6fb2d91992e213398ecd3f789e74 100644 (file)
--- a/ocaml/license/license.ml
+++ b/ocaml/license/license.ml
@@ -154,6 +154,6 @@ let license : license ref = ref (default ())
 
 (* Calls to obtain info about license *)
 
-let check_expiry l = true
-(*     Unix.time () < l.expiry *)
+let check_expiry l = 
+       Unix.time () < l.expiry