From: Richard W.M. Jones <rjones@redhat.com>
Date: Thu, 26 Sep 2013 21:38:09 +0000 (+0100)
Subject: Implement logging.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=e81f5fbb75e3df83e4d01addf6e2c97c40b80ccf;hp=b63bcefe6f27357e18c4b567287b8ac67fb9b839;p=goaljobs-goals.git

Implement logging.
---

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index 8272fff..be939ae 100644
--- a/libguestfs_upstream.ml
+++ b/libguestfs_upstream.ml
@@ -17,6 +17,12 @@ 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. *)
@@ -165,6 +171,12 @@ and tarball_created 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);