From 7948877db13807dbc83a6de6aecd34218aae014a Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Mon, 23 Sep 2013 21:36:27 +0100 Subject: [PATCH] libguestfs: Make 'every' git query period configurable. --- config.ml | 2 ++ libguestfs_upstream.ml | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) 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"; -- 1.8.3.1