summaryrefslogtreecommitdiffstats
path: root/urpm/download.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-04-02 20:06:01 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-04-02 20:06:01 +0000
commit545484af10cc2c4bb93435a26ee9a37b8501e216 (patch)
tree5bc049a87bbd63f1c28433dd61ed957ec1a49506 /urpm/download.pm
parentf7207dfe3bb1b855127f86397fe7e7630cae596c (diff)
downloadurpmi-545484af10cc2c4bb93435a26ee9a37b8501e216.tar
urpmi-545484af10cc2c4bb93435a26ee9a37b8501e216.tar.gz
urpmi-545484af10cc2c4bb93435a26ee9a37b8501e216.tar.bz2
urpmi-545484af10cc2c4bb93435a26ee9a37b8501e216.tar.xz
urpmi-545484af10cc2c4bb93435a26ee9a37b8501e216.zip
Patch by Michael Scherer to fix authentication with ssh download method.
(bug #21800)
Diffstat (limited to 'urpm/download.pm')
-rw-r--r--urpm/download.pm20
1 files changed, 11 insertions, 9 deletions
diff --git a/urpm/download.pm b/urpm/download.pm
index d2e2a196..354ab897 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -484,10 +484,11 @@ sub sync_ssh {
my $options = shift;
$options = { dir => $options } if !ref $options;
unless ($options->{'rsync-options'} =~ /(?:-e|--rsh)\b/) {
- my $server = '';
+ my ($server, $user) = ('', getpwuid($<));
$_[0] =~ /((?:\w|\.)*):/ and $server = $1;
+ $_[0] =~ /((?:\w|-)*)@/ and $user = $1;
$SSH_CONTROL_OPTION = "-o 'ControlPath $SSH_CONTROL_DIR/ssh-urpmi-$$-%h_%p_%r' -o 'ControlMaster auto'";
- if (start_ssh_master($server)) {
+ if (start_ssh_master($server, $user)) {
$options->{ssh} = qq("$SSH_PATH $SSH_CONTROL_OPTION");
} else {
#- can't start master, use single connection
@@ -498,27 +499,28 @@ sub sync_ssh {
}
sub start_ssh_master {
- my $server = shift;
+ my ($server, $user) = @_;
$server or return 0;
- if (!check_ssh_master($server)) {
- system(qq($SSH_PATH -f -N $SSH_CONTROL_OPTION -M $server));
+ if (!check_ssh_master($server, $user)) {
+ system(qq($SSH_PATH -f -N $SSH_CONTROL_OPTION -M $user\@$server));
return ! $?;
}
return 1;
}
sub check_ssh_master {
- my $server = shift;
- system(qq($SSH_PATH -q -f -N $SSH_CONTROL_OPTION $server -O check));
+ my ($server, $user) = @_;
+ system(qq($SSH_PATH -q -f -N $SSH_CONTROL_OPTION $user\@$server -O check));
return ! $?;
}
END {
#- remove ssh persistent connections
for my $socket (glob "$SSH_CONTROL_DIR/ssh-urpmi-$$-*") {
- $socket =~ /ssh-urpmi-\d+-([^_]+)_/;
+ $socket =~ /ssh-urpmi-\d+-([^_]+)_\d+_(.*)$/;
my $server = $1 or next;
- system("$SSH_PATH -q -f -N -o 'ControlPath $socket' -O exit $server");
+ my $login = $2 or next;
+ system("$SSH_PATH -q -f -N -o 'ControlPath $socket' -O exit $2\@$server");
}
}