diff options
Diffstat (limited to 'urpm/parallel_ssh.pm')
| -rw-r--r-- | urpm/parallel_ssh.pm | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index ed49dc29..0fdb0dd7 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -89,39 +89,6 @@ sub run_urpm_command { } } -#- parallel install. -sub parallel_install { - my ($parallel, $urpm, undef, $install, $upgrade, %options) = @_; - - copy_to_dir($parallel, $urpm, values %$install, values %$upgrade, "$urpm->{cachedir}/rpms"); - - my (%bad_nodes, @good_nodes); - $parallel->urpm_popen($urpm, 'urpmi', "--pre-clean --test --no-verify-rpm --auto --synthesis $parallel->{synthesis} $parallel->{line}", sub { - my ($node, $s) = @_; - $s =~ /^\s*$/ and return; - $bad_nodes{$node} .= $s; - $s =~ /Installation failed/ and $bad_nodes{$node} = ''; - $s =~ /Installation is possible/ and push @good_nodes, $node; - undef; - }); - delete $bad_nodes{$_} foreach @good_nodes; - - foreach (keys %{$parallel->{nodes}}) { - exists $bad_nodes{$_} or next; - $urpm->{error}(N("Installation failed on node %s", $_) . ":\n" . $bad_nodes{$_}); - } - %bad_nodes and return; - - if ($options{test}) { - $urpm->{error}(N("Installation is possible")); - 1; - } else { - my $line = $parallel->{line} . ($options{excludepath} ? " --excludepath '$options{excludepath}'" : ""); - #- continue installation. - run_urpm_command($parallel, $urpm, 'urpmi', "--no-verify-rpm --auto --synthesis $parallel->{synthesis} $line"); - } -} - #- allow to bootstrap from urpmi code directly (namespace is urpm). package urpm; |