From: Richard W.M. Jones <rjones@redhat.com>
Date: Mon, 23 Sep 2013 20:36:27 +0000 (+0100)
Subject: libguestfs: Make 'every' git query period configurable.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=7948877db13807dbc83a6de6aecd34218aae014a;p=goaljobs-goals.git

libguestfs: Make 'every' git query period configurable.
---

diff --git a/config.ml b/config.ml
index 6db20f5..251bfa8 100644
--- 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
--- 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";