From 524f6d5e74cb463add8ab32e9e3ff4f8ccabe609 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Aug 2008 15:10:41 +0000
Subject: - create any::urpmi_add_all_media() out of finish_install's
 ask_urpmi() - make it installer compliant

---
 perl-install/any.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index ab8a3ea6b..5eff4702f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -837,6 +837,14 @@ sub sessions_with_order() {
     \%h;
 }
 
+sub urpmi_add_all_media {
+    my ($in) = @_;
+
+    return if !network::tools::has_network_connection();
+    my $_wait = $in->wait_message(N("Please wait"), N("Please wait, adding media..."));
+    run_program::rooted($::prefix, 'urpmi.addmedia', '--distrib', '--mirrorlist', '$MIRRORLIST');
+}
+
 sub autologin {
     my ($o, $in) = @_;
 
-- 
cgit v1.2.1