libguestfs: Make 'every' git query period configurable.

diff --git a/config.ml b/config.ml
index 6db20f5..251bfa8 100644 (file)
--- a/config.ml
+++ b/config.ml
@@ -9,6 +9,8 @@ open Printf
 let buildtmp = sprintf "%s/tmp/builds" (Sys.getenv "HOME")
 
 (* libguestfs *)
+let libguestfs_query_mins = 5
+
 let libguestfs_website_cvs =
   sprintf "%s/d/redhat/websites/libguestfs" (Sys.getenv "HOME")
 

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index 1ea64a1..825029a 100644 (file)
--- a/libguestfs_upstream.ml
+++ b/libguestfs_upstream.ml
@@ -252,7 +252,7 @@ let git_force url branch =
 
 let () =
   (* Add a periodic job to check for new git commits and test them. *)
-  every 5 minutes ~name:"new libguestfs commit" (
+  every libguestfs_query_mins minutes ~name:"new libguestfs commit" (
     fun () ->
       git_force "https://github.com/libguestfs/libguestfs.git" "master";
 
@@ -261,7 +261,7 @@ let () =
   );
 
   (* Periodic job to build new tarballs. *)
-  every 5 minutes ~name:"new libguestfs version" (
+  every libguestfs_query_mins minutes ~name:"new libguestfs version" (
     fun () ->
       git_force "https://github.com/libguestfs/libguestfs.git" "master";