summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-05-16 15:39:43 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-05-16 15:39:43 +0000
commit1af0da3b2f30c11993aaefd4a9271768cb2e1bf3 (patch)
treed8ec06a8e6c2ebe3a573bf87f494889c883d5875 /perl-install
parent82fc18c196bec8367b474dee93051247e0355ebd (diff)
downloaddrakx-1af0da3b2f30c11993aaefd4a9271768cb2e1bf3.tar
drakx-1af0da3b2f30c11993aaefd4a9271768cb2e1bf3.tar.gz
drakx-1af0da3b2f30c11993aaefd4a9271768cb2e1bf3.tar.bz2
drakx-1af0da3b2f30c11993aaefd4a9271768cb2e1bf3.tar.xz
drakx-1af0da3b2f30c11993aaefd4a9271768cb2e1bf3.zip
add a step to warn user before writing settings (bug #852 and so)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 4aee7c068..678748e98 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -187,7 +187,10 @@ If you don't want to use the auto detection, deselect the checkbox.
} elsif ($nb == 1) {
$netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0];
}
-
+
+ eval { $in->ask_yesorno(N("Network configuration"),
+ N("Configuration is complete, do you want to apply settings ?"), 1) or goto step_2 }; $in->exit(0) if $@ =~ /wizcancel/;
+
member($netc->{internet_cnx_choice}, ('adsl', 'isdn')) and $netc->{at_boot} = $in->ask_yesorno(N("Network Configuration Wizard"), N("Do you want to start the connection at boot?"));
if ($netc->{internet_cnx_choice}) {
@@ -219,7 +222,6 @@ If you don't want to use the auto detection, deselect the checkbox.
step_3:
my $m = $success ? N("Congratulations, the network and Internet configuration is finished.
-The configuration will now be applied to your system.
") . if_($::isStandalone && $in->isa('interactive_gtk'),
N("After this is done, we recommend that you restart your X environment to avoid any hostname-related problems.")) :