From f6be2128ee5d3c31c278194bd2e185bcf7acb9f3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 4 Mar 2009 15:33:03 +0000
Subject: (install,select_only_some_media) honor 'selected_names' for
 auto_install

---
 perl-install/install/NEWS     |  1 +
 perl-install/install/media.pm | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 81f5f7358..e00f9d30e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- honor 'selected_names' for auto_install
 - make sure we don't try to reslect already selected packages
 
 Version 12.2 - 3 March 2009
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 50b22fcab..5b6441b4c 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -477,6 +477,20 @@ sub _parse_media_cfg {
     $distribconf, \@hdlists;
 }
 
+sub select_only_some_media {
+    my ($packages, $selected_names) = @_;
+    my @names = split(',', $selected_names);
+    foreach my $m (@{$packages->{media}}) {
+        my $bool = !member($m->{name}, @names);
+        # workaround urpmi transforming "ignore => ''" or "ignore => 0" into "ignore => 1":
+        undef $bool if !$bool;
+        log::l "disabling '$m->{name}' medium: " . to_bool($bool);
+        urpm::media::_tempignore($m, $bool);
+        # make sure we update un-ignored media (eg: */Testing and the like):
+        $m->{modified} = 1 if !$bool;
+    }
+}
+
 sub get_media {
     my ($o, $media, $packages) = @_;
 
@@ -488,6 +502,11 @@ sub get_media {
               $phys_m->{method} =~ m!^(ftp|http)://! && $phys_m->{method}
               || $phys_m->{real_mntpoint} || $phys_m->{url};
             urpm::media::add_distrib_media($packages, undef, $uri, ask_media => undef); #allmedia => 1
+
+            if (defined $_->{selected_names}) {
+                select_only_some_media($packages, $_->{selected_names});
+            }
+
             _get_compsUsers_pl($phys_m, $_->{force_rpmsrate});
             ($suppl_CDs, $copy_rpms_on_disk) = eval { _get_media_cfg_options($o, $phys_m) };
 	} elsif ($_->{type} eq 'media') {
-- 
cgit v1.2.1