summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-09 11:49:42 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-09 11:49:42 +0000
commit844cead8bad8e2e4d7619abd39cf0351f9b97bc6 (patch)
tree153f8ac4b13f174a5b02dcb7d8bd36e6a5dcad8b /perl-install/install_steps_interactive.pm
parent950fe7395621dc21885ac3e1280e007248646608 (diff)
downloaddrakx-backup-do-not-use-844cead8bad8e2e4d7619abd39cf0351f9b97bc6.tar
drakx-backup-do-not-use-844cead8bad8e2e4d7619abd39cf0351f9b97bc6.tar.gz
drakx-backup-do-not-use-844cead8bad8e2e4d7619abd39cf0351f9b97bc6.tar.bz2
drakx-backup-do-not-use-844cead8bad8e2e4d7619abd39cf0351f9b97bc6.tar.xz
drakx-backup-do-not-use-844cead8bad8e2e4d7619abd39cf0351f9b97bc6.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c5f1a4526..7cd0d2ae2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -244,7 +244,7 @@ sub choosePackages {
sub configureNetwork($) {
my ($o, $first_time) = @_;
local $_;
- if ($o->{intf}) {
+ if ($o->{intf} && $o->{netc}{NETWORKING} ne 'false') {
if (!$::beginner && $first_time) {
my @l = (
__("Keep the current IP configuration"),
@@ -345,7 +345,7 @@ sub pppConfig {
my ($o) = @_;
my $m = $o->{modem} ||= {};
- unless ($m->{device} || $::expert && $o->ask_yesorno('', _("Skip modem autodetection?"), 1)) {
+ unless ($m->{device} || $::expert && $o->ask_yesorno('', _("Try to find a modem?"), 1)) {
foreach (0..3) {
next if readlink("$o->{prefix}/dev/mouse") =~ /ttyS$_/;
detect_devices::hasModem("$o->{prefix}/dev/ttyS$_")
@@ -358,7 +358,7 @@ sub pppConfig {
[ mouse::serial_ports_names ]));
install_steps::pppConfig($o) if $o->ask_from_entries_refH('',
- _("Dialup options"), [
+ _("Dialup options"), [
_("Connection name") => \$m->{connection},
_("Phone number") => \$m->{phone},
_("Login ID") => \$m->{login},
@@ -583,7 +583,7 @@ sub setRootPassword($) {
return if $o->{security} < 1 && !$clicked;
- $o->ask_from_entries_refH([_("Set root password"), _("Ok"), $o->{security} > 3 ? () : _("No password")],
+ $o->ask_from_entries_refH([_("Set root password"), _("Ok"), $o->{security} > 2 ? () : _("No password")],
_("Set root password"), [
_("Password") => { val => \$sup->{password}, hidden => 1 },
_("Password (again)") => { val => \$sup->{password2}, hidden => 1 },
@@ -808,12 +808,12 @@ _("Default") => { val => \$default, type => 'bool' },
sub miscellaneous {
my ($o, $clicked) = @_;
my %l = (
- 0 => _("Windows(TM)"),
- 1 => _("Poor"),
+ #- abusive 0 => _("Windows(TM)"),
+ #- unused 1 => _("Poor"),
2 => _("Low"),
3 => _("Medium"),
4 => _("High"),
- 5 => _("Paranoid"),
+ #- unused 5 => _("Paranoid"),
);
my $u = $o->{miscellaneous} ||= {};
exists $u->{LAPTOP} or $u->{LAPTOP} = 1;