open Printf
open Config
+(* Enable debugging. *)
+let () =
+ Unix.putenv "LIBGUESTFS_DEBUG" "1";
+ Unix.putenv "LIBGUESTFS_TRACE" "1"
+
+(* Log program output. *)
+let from = "rjones@redhat.com"
+let to_ = "rjones@redhat.com"
+let logfile = log_program_output ()
+let () = eprintf "logging to %s\n%!" logfile
+
let package = "libguestfs"
(* Helper object which stores everything about a version. *)
(* Goal: test a commit. *)
and commit_tested branch commit =
+ onfail (
+ fun _ ->
+ let subject = sprintf "goal: %s: FAILED" goalname in
+ mailto ~from ~subject ~attach:[logfile] to_
+ );
+
let key = sprintf "libguestfs_commit_tested_%s" commit in
target (memory_exists key);
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";
);
(* 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";