summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-08-28 15:10:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-08-28 15:10:41 +0000
commit524f6d5e74cb463add8ab32e9e3ff4f8ccabe609 (patch)
tree2d284690886ca168bf78245d2ed93ab3b62ae1b2 /perl-install/any.pm
parent443bf8e673acc4d83fb3f710bc341fb0dcfe9513 (diff)
downloaddrakx-524f6d5e74cb463add8ab32e9e3ff4f8ccabe609.tar
drakx-524f6d5e74cb463add8ab32e9e3ff4f8ccabe609.tar.gz
drakx-524f6d5e74cb463add8ab32e9e3ff4f8ccabe609.tar.bz2
drakx-524f6d5e74cb463add8ab32e9e3ff4f8ccabe609.tar.xz
drakx-524f6d5e74cb463add8ab32e9e3ff4f8ccabe609.zip
- create any::urpmi_add_all_media() out of finish_install's ask_urpmi()
- make it installer compliant
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 8 insertions, 0 deletions
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) = @_;