From 70b30041f278c33ec79a8c9d96c65768a42844ba Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 27 Jun 2002 14:42:47 +0000
Subject: 3.6-2mdk

---
 urpm.pm    | 39 ++++++++++++++++++++++++++++++++++++---
 urpmi.spec |  5 ++++-
 2 files changed, 40 insertions(+), 4 deletions(-)

diff --git a/urpm.pm b/urpm.pm
index 64925093..9e1382de 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -135,9 +135,34 @@ sub unquotespace { local $_ = $_[0]; s/\\(\s)/$1/g; $_ }
 #- syncing algorithms, currently is implemented wget and curl methods,
 #- webfetch is trying to find the best (and one which will work :-)
 sub sync_webfetch {
-    -x "/usr/bin/curl" and return &sync_curl;
-    -x "/usr/bin/wget" and return &sync_wget;
-    die _("no webfetch (curl or wget currently) found\n");
+    my $options = shift @_;
+    my %files;
+    #- extract files according to protocol supported.
+    #- currently ftp and http protocol are managed by curl or wget,
+    #- ssh and rsync protocol are managed by rsync *AND* ssh.
+    foreach (@_) {
+	/^([^:]*):/ or die _("unknown protocol defined for %s", $_);
+	push @{$files{$1}}, $_;
+    }
+    if ($files{ftp} || $files{http}) {
+	if (-x "/usr/bin/curl") {
+	    sync_curl($options, @{$files{ftp} || []}, @{$files{http} || []});
+	} elsif (-x "/usr/bin/wget") {
+	    sync_wget($options, @{$files{ftp} || []}, @{$files{http} || []});
+	} else {
+	    die _("no webfetch (curl or wget currently) found\n");
+	}
+	delete @files{qw(ftp http)};
+    }
+    if ($files{rsync} || $files{ssh}) {
+	my @rsync_files = @{$files{rsync} || []};
+	foreach (@{$files{ssh} || []}) {
+	    /^ssh:\/\/([^\/]*)(.*)/ and push @rsync_files, "$1:$2";
+	}
+	sync_rsync($options, @rsync_files);
+	delete @files{qw(rsync ssh)};
+    }
+    %files and die _("unable to handle protocol: %s", join ', ', keys %files);
 }
 sub sync_wget {
     -x "/usr/bin/wget" or die _("wget is missing\n");
@@ -201,6 +226,14 @@ sub sync_curl {
 	$? == 0 or die _("curl failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
     }
 }
+sub sync_rsync {
+    -x "/usr/bin/rsync" or die _("rsync is missing\n");
+    -x "/usr/bin/ssh" or die _("ssh is missing\n");
+    my $options = shift @_;
+    system "/usr/bin/rsync", (ref $options && $options->{quiet} ? ("-q") : ("--progress", "-v")), "--partial", "-e", "ssh",
+      @_, (ref $options ? $options->{dir} : $options);
+    $? == 0 or die _("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127);
+}
 
 #- read /etc/urpmi/urpmi.cfg as config file, keep compability with older
 #- configuration file by examining if one entry is of the form
diff --git a/urpmi.spec b/urpmi.spec
index 6f202027..17a0a340 100644
--- a/urpmi.spec
+++ b/urpmi.spec
@@ -2,7 +2,7 @@
 
 Name: urpmi
 Version: 3.6
-Release: 1mdk
+Release: 2mdk
 License: GPL
 Source0: %{name}.tar.bz2
 Source1: %{name}.logrotate
@@ -144,6 +144,9 @@ fi
 
 
 %changelog
+* Thu Jun 27 2002 François Pons <fpons@mandrakesoft.com> 3.6-2mdk
+- added rsync:// and ssh:// protocol to urpmi.
+
 * Thu Jun 27 2002 François Pons <fpons@mandrakesoft.com> 3.6-1mdk
 - removed no more used methods in urpm module.
 - make sure absent synthesis force synthesis regeneration.
-- 
cgit v1.2.1