build-remote.pl: Indicate if remote machine is refusing builds

Fixes #120.
This commit is contained in:
Eelco Dolstra 2013-05-23 14:04:46 -04:00
parent 18a48d80a0
commit 72d8209548

View file

@ -197,10 +197,11 @@ REQ: while (1) {
$hostName = $machine->{hostName};
if (openSSHConnection($hostName)) {
last REQ if system("ssh $hostName @sshOpts nix-builds-inhibited < /dev/null > /dev/null 2>&1") != 0;
warn "machine `$hostName' is refusing builds, trying other available machines...\n";
closeSSHConnection;
} else {
warn "unable to open SSH connection to `$hostName', trying other available machines...\n";
}
warn "unable to open SSH connection to $hostName, trying other available machines...\n";
$machine->{enabled} = 0;
}
}