git.annexia.org
/
goaljobs-goals.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b63bcef
)
Implement logging.
author
Richard W.M. Jones
<rjones@redhat.com>
Thu, 26 Sep 2013 21:38:09 +0000
(22:38 +0100)
committer
Richard W.M. Jones
<rjones@redhat.com>
Thu, 26 Sep 2013 21:38:09 +0000
(22:38 +0100)
libguestfs_upstream.ml
patch
|
blob
|
history
diff --git
a/libguestfs_upstream.ml
b/libguestfs_upstream.ml
index
8272fff
..
be939ae
100644
(file)
--- a/
libguestfs_upstream.ml
+++ b/
libguestfs_upstream.ml
@@
-17,6
+17,12
@@
let () =
Unix.putenv "LIBGUESTFS_DEBUG" "1";
Unix.putenv "LIBGUESTFS_TRACE" "1"
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. *)
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 =
(* 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 key = sprintf "libguestfs_commit_tested_%s" commit in
target (memory_exists key);