From e81f5fbb75e3df83e4d01addf6e2c97c40b80ccf Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Thu, 26 Sep 2013 22:38:09 +0100
Subject: [PATCH] Implement logging.

---
 libguestfs_upstream.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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);
 
-- 
1.8.3.1