summary refs log tree commit diff
path: root/scripts/build-remote.pl.in
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2009-03-28 16:12:46 +0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2009-03-28 16:12:46 +0000
commit7fb548aa2621375559f980b4627955dbc6fe9914 (patch)
tree202283669f13ecac8d5fa8fc8661f7f933241f93 /scripts/build-remote.pl.in
parentf54e800366b3c8540c60f0a35c407ad701e2f622 (diff)
downloadguix-7fb548aa2621375559f980b4627955dbc6fe9914.tar.gz
* Clean up the output a bit.
Diffstat (limited to 'scripts/build-remote.pl.in')
-rwxr-xr-xscripts/build-remote.pl.in10
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in
index 53ad8fa20f..1c4f974406 100755
--- a/scripts/build-remote.pl.in
+++ b/scripts/build-remote.pl.in
@@ -134,7 +134,7 @@ if ($x ne "okay") {
 
 # Do the actual job.
 my $hostName = $machine->{hostName};
-print "BUILDING REMOTE: $drvPath on $hostName\n";
+print STDERR "building `$drvPath' on `$hostName'\n";
 
 # Make sure that we don't get any SSH passphrase or host key popups -
 # if there is any problem it should fail, not do something
@@ -175,7 +175,7 @@ $inputs =~ s/\n/ /g;
 my $outputs = `cat outputs`; die if ($? != 0);
 $outputs =~ s/\n/ /g;
 
-print "COPYING INPUTS...\n";
+print "copying inputs...\n";
 
 my $maybeSign = "";
 $maybeSign = "--sign" if -e "/nix/etc/nix/signing-key.sec";
@@ -183,7 +183,7 @@ $maybeSign = "--sign" if -e "/nix/etc/nix/signing-key.sec";
 system("NIX_SSHOPTS=\"$sshOpts\" nix-copy-closure --gzip $hostName $maybeSign $drvPath $inputs") == 0
     or die "cannot copy inputs to $hostName: $?";
 
-print "BUILDING...\n";
+print "building...\n";
 
 my $buildFlags = "--max-silent-time $maxSilentTime";
 
@@ -199,11 +199,11 @@ if (system("ssh -tt $sshOpts $hostName 'nix-store --realise -K $buildFlags $drvP
     # code 100.  It's important to distinguish between the two because
     # the first is a transient failure and the latter is permanent.
     my $res = $? == -1 || ($? >> 8) == 255 ? 1 : 100;
-    print STDERR "remote build on $hostName failed: $?";
+    print STDERR "build of `$drvPath' on `$hostName' failed with exit code $?\n";
     exit $res;
 }
 
-print "REMOTE BUILD DONE: $drvPath on $hostName\n";
+print "build of `$drvPath' on `$hostName' succeeded\n";
 
 foreach my $output (split '\n', $outputs) {
     my $maybeSignRemote = "";