diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-20 17:31:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-20 17:31:33 +0000 |
| commit | 3895ef7fbf69ba44c45be95848539601cfba0591 (patch) | |
| tree | cafcb4abb28910d094bc5b6eb69b329d350c73b0 /urpm/parallel_ssh.pm | |
| parent | 49005594db7e2ec0436e64da7df89d8e5d987685 (diff) | |
| download | urpmi-3895ef7fbf69ba44c45be95848539601cfba0591.tar urpmi-3895ef7fbf69ba44c45be95848539601cfba0591.tar.gz urpmi-3895ef7fbf69ba44c45be95848539601cfba0591.tar.bz2 urpmi-3895ef7fbf69ba44c45be95848539601cfba0591.tar.xz urpmi-3895ef7fbf69ba44c45be95848539601cfba0591.zip | |
Report remote commands exit codes
Diffstat (limited to 'urpm/parallel_ssh.pm')
| -rw-r--r-- | urpm/parallel_ssh.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/parallel_ssh.pm b/urpm/parallel_ssh.pm index 845f6c77..89f44d67 100644 --- a/urpm/parallel_ssh.pm +++ b/urpm/parallel_ssh.pm @@ -9,7 +9,7 @@ sub parallel_register_rpms { my $sources = join ' ', map { "'$_'" } @files; $urpm->{log}("parallel_ssh: scp $sources $_:$urpm->{cachedir}/rpms"); system "scp $sources $_:$urpm->{cachedir}/rpms"; - $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s", $_)); + $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s (%d)", $_, $? >> 8)); } #- keep trace of direct files. @@ -106,7 +106,7 @@ sub parallel_resolve_dependencies { foreach (keys %{$parallel->{nodes}}) { $urpm->{ui_msg}("parallel_ssh: scp -q '$synthesis' '$_:$synthesis'", urpm::N("Propagating synthesis to %s...", $_)); system "scp -q '$synthesis' '$_:$synthesis'"; - $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s", $_)); + $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s (%d)", $_, $? >> 8)); } $parallel->{synthesis} = $synthesis; @@ -186,7 +186,7 @@ sub parallel_resolve_dependencies { $state->{selected}{$pkg->id}{$node} = $_; } } - close F or $urpm->{fatal}(1, urpm::N("host %s does not have a good version of urpmi", $node)); + close F or $urpm->{fatal}(1, urpm::N("host %s does not have a good version of urpmi (%d)", $node, $? >> 8)); } #- check for internal error of resolution. $cont == 1 and die "internal distant urpmq error on choice not taken"; @@ -204,7 +204,7 @@ sub parallel_install { my $sources = join ' ', map { "'$_'" } values %$install, values %$upgrade; $urpm->{ui_msg}("parallel_ssh: scp $sources $_:$urpm->{cachedir}/rpms", urpm::N("Distributing files to %s...", $_)); system "scp $sources $_:$urpm->{cachedir}/rpms"; - $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s", $_)); + $? == 0 or $urpm->{fatal}(1, urpm::N("scp failed on host %s (%d)", $_, $? >> 8)); } my %bad_nodes; |