Test build progress

This commit is contained in:
David Brown 2016-06-30 19:41:14 +01:00
parent d97668a209
commit 3cd3376139
3 changed files with 107 additions and 6 deletions

View file

@ -50,5 +50,35 @@ for my $machine (sort keys %machines) {
}
while ((my $pid = wait) > 0) {print "Child pid $pid completed.\n";}
print "Buildall complete.\n";
exit;
# # All builds have completed. Now scan the logs for pass/fail and build the passing report.
#
# my %status = ();
# open(my $logs, "/tmp/buildall.log") // die "Couldn't open combined build log.";
# while (<$logs>) {
# if (/^([^ ]+) ([^ ]+) --- Branch ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) confidence tests passed ---/) {
# $status{$1} = [$2, $3, $4, $5, $6];
# }
# }
# close(my $logs);
#
#
# sub svgtext {
# my ($f, $x, $y, $msg) = @_;
# print($f "<text x=\"$x\" y=\"$y\" font-family=\"Verdana\" font-size=\"18\" font-fill=\"black\">";
# print($f $msg);
# print($f "</text>\n");
# }
#
#
# open(my $svg, ">passing.svg") // dir "Could not create passing.svg.");
# print $svg '<svg width="10cm" height="3cm" viewBox="0 0 1000 300" xmlns="http://www.w3.org/2000/svg" version="1.1">\n';
#
# my $i=1;
# for my $host (sort keys %status) {
# svgtext($svg, 10, $i*20, $host);
# $i++;
# }
#
# print $svg '</svg>\n';