summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-17 10:58:47 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-05-20 22:56:23 +0200
commitf33a077282e0277512c6e409c2c3fc5443f0a2f7 (patch)
tree02af96ce536d859460c4c71290626419af9d1fd7 /perl-install/install/steps_interactive.pm
parent6b02f1aef9358a348564ebb075f8927fc5215ba8 (diff)
downloaddrakx-f33a077282e0277512c6e409c2c3fc5443f0a2f7.tar
drakx-f33a077282e0277512c6e409c2c3fc5443f0a2f7.tar.gz
drakx-f33a077282e0277512c6e409c2c3fc5443f0a2f7.tar.bz2
drakx-f33a077282e0277512c6e409c2c3fc5443f0a2f7.tar.xz
drakx-f33a077282e0277512c6e409c2c3fc5443f0a2f7.zip
add online media at installation end (mga#8819)
Diffstat (limited to 'perl-install/install/steps_interactive.pm')
-rw-r--r--perl-install/install/steps_interactive.pm31
1 files changed, 25 insertions, 6 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 3bbfb2699..5e0c2b9b6 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -737,6 +737,30 @@ sub installUpdates {
}
$o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
+N("You now have the opportunity to setup online media.") . "\n\n" .
+N("This allows to install security updates.") . "\n\n" .
+N("To setup those media, you will need to have a working Internet
+connection.
+
+Do you want to setup the update media?")),
+ interactive_help_id => 'installUpdates',
+ }, 1) or do {
+ log::l("installUpdates: skipping since user say no to media setup");
+ return;
+ };
+
+ #- bring all interface up for installing updates packages.
+ install::interactive::upNetwork($o);
+
+ install::pkgs::clean_rpmdb_shared_regions();
+ if (any::urpmi_add_all_media($o, $o->{previous_release})) {
+ log::l("installUpdates: successfully added media");
+ } else {
+ log::l("installUpdates: failed to add media");
+ die "failed to add media"
+ }
+
+ $o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
N("You now have the opportunity to download updated packages. These packages
have been updated after the distribution was released. They may
contain security or bug fixes.
@@ -751,15 +775,10 @@ Do you want to install the updates?")),
return;
};
- #- bring all interface up for installing updates packages.
- install::interactive::upNetwork($o);
-
- install::pkgs::clean_rpmdb_shared_regions();
- if (any::urpmi_add_all_media($o, $o->{previous_release})) {
my $binary = find { whereis_binary($_, $::prefix) } if_(check_for_xserver(), 'gurpmi2'), 'urpmi' or return;
my $log_file = '/root/drakx/updates.log';
run_program::rooted($::prefix, $binary, '>>', $log_file, '2>>', $log_file, '--auto-select');
- }
+
install::pkgs::clean_rpmdb_shared_regions();
#- not downing network, even ppp. We don't care much since it is the end of install :)