286/376: build-remote.pl.in: Add some more trace messages

[Ludovic Courtès]

civodul pushed a commit to tag 1.8
in repository guix.

commit 5ef245313939b9e35ba977869700658201949d3a
Author: Eelco Dolstra <address@hidden>
Date:   Wed Nov 12 13:56:01 2014 +0100

    build-remote.pl.in: Add some more trace messages
    
    This allows hydra-build to keep track of the actual build time (so
    excluding time required to copy closures around).
---
 scripts/build-remote.pl.in |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in
index 5f0c72b..dcf245d 100755
--- a/scripts/build-remote.pl.in
+++ b/scripts/build-remote.pl.in
@@ -259,11 +259,13 @@ close UPLOADLOCK;
 
 # Perform the build.
 print STDERR "building ‘$drvPath’ on ‘$hostName’\n";
+print STDERR "@ build-remote-start $drvPath $hostName\n" if $printBuildTrace;
 writeInt(6, $to) or die; # == cmdBuildPaths
 writeStrings([$drvPath], $to);
 writeInt($maxSilentTime, $to);
 writeInt($buildTimeout, $to);
 my $res = readInt($from);
+print STDERR "@ build-remote-done $drvPath $hostName\n" if $printBuildTrace;
 if ($res != 0) {
     my $msg = decode("utf-8", readString($from));
     print STDERR "error: $msg on ‘$hostName’\n";