From a518e3fbcf08a40ff97d4a63fd855e77767c70a6 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 17 Jan 2005 18:42:27 +0000
Subject: In the software manager, to add media, add the ability to choose
 between the whole distribution or the official updates (for official
 distributions; this does not make sense for the other ones)

---
 edit-urpm-sources.pl | 46 +++++++++++++++++++++++++++++++++-------------
 1 file changed, 33 insertions(+), 13 deletions(-)

(limited to 'edit-urpm-sources.pl')

diff --git a/edit-urpm-sources.pl b/edit-urpm-sources.pl
index 1639c37a..f199945b 100755
--- a/edit-urpm-sources.pl
+++ b/edit-urpm-sources.pl
@@ -61,6 +61,13 @@ sub remove_row {
 }
 
 sub easy_add_callback {
+    #- cooker and community don't have update sources
+    my $want_base_distro = distro_type(0) eq 'updates' ? interactive_msg(
+	N("Choose media type"),
+	N("You can choose to add sources that correspond to your distribution"),
+	transient => $mainw->{rwindow},
+	yesno => 1, text => { yes => N("Distribution sources"), no => N("Official updates") },
+    ) : 1;
     my $m = choose_mirror(message =>
 N("This will attempt to install all official sources corresponding to your
 distribution (%s).
@@ -69,23 +76,36 @@ I need to contact the Mandrakesoft website to get the mirror list.
 Please check that your network is currently running.
 
 Is it ok to continue?", $rpmdrake::mandrake_release),
-	want_base_distro => 1,
+	want_base_distro => $want_base_distro,
     ) or return 0;
     my $wait = wait_msg(N("Please wait, adding media..."));
-    my $url = make_url_mirror_dist($m);
+    my $url = $want_base_distro ? make_url_mirror_dist($m) : make_url_mirror($m);
+    warn "$want_base_distro $m $url\n";
     my $medium_name;
-    if ($rpmdrake::mandrake_release =~ /(\d+\.\d+) \((\w+)\)/) {
-	$medium_name = $2 . $1 . '-';
+    if ($want_base_distro) {
+	if ($rpmdrake::mandrake_release =~ /(\d+\.\d+) \((\w+)\)/) {
+	    $medium_name = $2 . $1 . '-';
+	} else {
+	    $medium_name = 'distrib';
+	}
+	#- ensure a unique medium name
+	my $initial_number = 1 + max map { $_->{name} =~ /\(\Q$medium_name\E(\d+)\b/ ? $1 : 0 } @{$urpm->{media}};
+	add_medium_and_check(
+	    $urpm,
+	    { nolock => 1, distrib => 1 },
+	    $medium_name, $url, probe_with => 'synthesis', initial_number => $initial_number,
+	);
     } else {
-	$medium_name = 'distrib';
+	$medium_name = 'update_source';
+	#- ensure a unique medium name
+	my $nb_sources = max map { $_->{name} =~ /^\Q$medium_name\E(\d*)$/ ? ($1 || 1) : 0 } @{$urpm->{media}};
+	if ($nb_sources) { $medium_name .= $nb_sources + 1 }
+	add_medium_and_check(
+	    $urpm,
+	    { nolock => 1, probe_with => 1 },
+	    $medium_name, $url, '', update => 1,
+	);
     }
-    #- ensure a unique medium name
-    my $initial_number = 1 + max map { $_->{name} =~ /\(\Q$medium_name\E(\d+)\b/ ? $1 : 0 } @{$urpm->{media}};
-    add_medium_and_check(
-	$urpm,
-	{ nolock => 1, distrib => 1 },
-	$medium_name, $url, probe_with => 'synthesis', initial_number => $initial_number,
-    );
     remove_wait_msg($wait);
     return 1;
 }
@@ -256,7 +276,7 @@ really want to replace it?"), yesno => 1) or return 0;
 	    add_medium_and_check(
 		$urpm,
 		{ nolock => 1, distrib => 1 },
-		$i{name}, $make_url{$type}, $i{hdlist}, probe_with => 'synthesis',
+		$i{name}, $make_url{$type}, probe_with => 'synthesis',
 	    );
 	} else {
 	    if (member($i{name}, map { $_->{name} } @{$urpm->{media}})) {
-- 
cgit v1.2.1