From 92365d501cc5309477b03b4b3b62eabfb302125e Mon Sep 17 00:00:00 2001
From: David C W Brown <dave@brownsmeet.com>
Date: Mon, 27 Jun 2016 21:01:56 +0100
Subject: [PATCH] Add passing build extraction script.

---
 src/tools/testcoordinator/buildall.pl |  0
 src/tools/testcoordinator/passes.pl   | 17 +++++++++++++++++
 src/tools/testcoordinator/postpush.pl |  0
 3 files changed, 17 insertions(+)
 mode change 100644 => 100755 src/tools/testcoordinator/buildall.pl
 create mode 100755 src/tools/testcoordinator/passes.pl
 mode change 100644 => 100755 src/tools/testcoordinator/postpush.pl

diff --git a/src/tools/testcoordinator/buildall.pl b/src/tools/testcoordinator/buildall.pl
old mode 100644
new mode 100755
diff --git a/src/tools/testcoordinator/passes.pl b/src/tools/testcoordinator/passes.pl
new file mode 100755
index 00000000..c7ca9bde
--- /dev/null
+++ b/src/tools/testcoordinator/passes.pl
@@ -0,0 +1,17 @@
+#!perl -w
+use strict;
+use warnings;
+use POSIX "strftime";
+
+# Now parse the combined logs extracting build pass messages
+# lub32 20.47.55 --- Branch v2docs ubuntu gcc ILP32 confidence tests passed ---
+
+open(my $buildlog, "</tmp/buildall.log") // die "Could not read buildall.log.";
+open(my $passes,   ">log/buildpasses.log") // die "Could not create buildpasses.log.";
+while (<$buildlog>) {
+  if (/ --- Branch .* confidence tests passed ---/) {
+    print $passes $_;
+  }
+}
+close($buildlog);
+close($passes);
diff --git a/src/tools/testcoordinator/postpush.pl b/src/tools/testcoordinator/postpush.pl
old mode 100644
new mode 100755