diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-16 15:39:43 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-16 15:39:43 +0000 |
| commit | 1af0da3b2f30c11993aaefd4a9271768cb2e1bf3 (patch) | |
| tree | d8ec06a8e6c2ebe3a573bf87f494889c883d5875 /perl-install | |
| parent | 82fc18c196bec8367b474dee93051247e0355ebd (diff) | |
| download | drakx-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.pm | 6 |
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.")) : |