diff options
Diffstat (limited to 'ulri')
| -rwxr-xr-x | ulri | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -306,6 +306,14 @@ sub done_func { } } +sub exclude_machine { + my ($host) = @_; + plog('INFO', "Excluding build host $host"); + foreach my $arch (keys %{$config->{bot}}) { + delete $config->{bot}{$arch}{$host}; + } +} + check_upload_tree($todo, \&todo_func); # getting already compiled packages @@ -626,7 +634,10 @@ foreach my $prefix (sort keys %pkg_tree) { # Copy packages to build node # # create also the log dir for botcmd.log - next if ssh($remote, "mkdir -p $prefix_dir/log"); + if (ssh($remote, "mkdir -p $prefix_dir/log")) { + exclude_machine($host); + next; + } my $pkgs; my $ok = 1; foreach my $srpm (@$srpms) { @@ -635,7 +646,10 @@ foreach my $prefix (sort keys %pkg_tree) { "$prefix_dir/$srpm"); $pkgs .= " $prefix_dir/$srpm"; } - next unless $ok; + if (!$ok) { + exclude_machine($host); + next; + } # Register that the package is building $run{bot}{$host}{$bot} = $prefix; |