From fa1f3e2eea888ae47917d73740ce552f6beba24b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 13 Dec 2012 10:42:36 +0000
Subject: (media_screen) use media.cfg keywords in order to white list the
 media we want

needs urpmi-7.14
---
 perl-install/install/any.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 65a31a54d..a3389580a 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -374,7 +374,11 @@ sub media_screen {
                 disabled => sub { $medium->{name} eq 'Core Release' },
                 format => sub { $descriptions{$_[0]} || translate(%descriptions) },
             };
-        } grep { $_->{name} !~ /Debug|Testing|Sources|Backports/ } @{$urpm->{media}},
+        } grep {
+	    my ($distribconf, $medium_path) = @{$_->{mediacfg}};
+	    my @media_types = split(':', $distribconf->getvalue($medium_path, 'media_type'));
+	    !intersection(\@media_types, [ qw(backports debug source testing) ]);
+	} @{$urpm->{media}},
     ]);
 
 
-- 
cgit v1.2.1