summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-06 09:10:11 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-06 09:10:11 +0000
commit152b0b998e117a4a79dd77d401df8cfc234574a5 (patch)
tree142ed19b54273ede98330a2b878e8e9a27567120 /perl-install/install_steps_interactive.pm
parent07021694c8d96ab2205c9398a68d177e2d185f2a (diff)
downloaddrakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.gz
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.bz2
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.xz
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm50
1 files changed, 50 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e74c78b3c..75bf2a715 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -253,6 +253,7 @@ sub configureNetwork($) {
$r ||= "Don't";
}
} else {
+# $r = $o->ask_from_list(_("Network Configuration"),)
$o->ask_yesorno(_("Network Configuration"),
_("Do you want to configure LAN (not dialup) networking for your system?")) or $r = "Don't";
}
@@ -332,6 +333,55 @@ You may also enter the IP address of the gateway if you have one"),
}
#------------------------------------------------------------------------------
+sub modemConfig {
+ my ($o, $clicked) = @_;
+ return unless $clicked;
+
+ if ($o->ask_yesorno('', _("Do you have a modem?"), 0)) {
+ my ($device, $desc) = '';
+ unless ($::expert && $o->ask_yesorno('', _("Skip modem autodetection?"), 1)) {
+ foreach (0..3) {
+ next if readlink("$o->{prefix}/dev/mouse") =~ /ttyS$_/;
+ $desc = detect_devices::hasModem("$o->{prefix}/dev/ttyS$_");
+ $device = "ttyS$_" if $desc;
+ last if $device;
+ }
+ }
+ $device = mouse::serial_ports_names2dev($o->ask_from_list('', _("Which serial port is your modem connected to?"),
+ [ mouse::serial_ports_names() ])) unless $device;
+ log::l("using modem at /dev/$device");
+ $o->{modem}{device} = $device;
+ } else {
+ $o->{modem} = undef;
+ }
+
+ install_steps::modemConfig($o);
+
+ $o->pppConfig() if $o->{modem};
+}
+
+sub pppConfig {
+ my ($o) = @_;
+
+ my @l = (
+_("Connection name") => \$o->{modem}{connection},
+_("Phone number") => \$o->{modem}{phone},
+_("Login ID") => \$o->{modem}{login},
+_("Password") => { val => \$o->{modem}{passwd}, hidden => 1 },
+_("Authentication") => { val => \$o->{modem}{auth}, list => [ __("PAP"), __("CHAP"), __("Terminal-based"), __("Script-based") ] },
+_("Domain name") => \$o->{modem}{domain},
+_("First DNS Server") => \$o->{modem}{dns1},
+_("Second DNS Server") => \$o->{modem}{dns2},
+_("Disable existing DNS servers during connection") => { val => \$o->{modem}{exdnsdisabled}, type => 'bool', },
+ );
+
+ install_steps::pppConfig($o) if $o->ask_from_entries_ref('',
+ _("Dial-in options"),
+ [ grep_index { even($::i) } @l ],
+ [ grep_index { odd($::i) } @l ]);
+}
+
+#------------------------------------------------------------------------------
sub timeConfig {
my ($o, $f, $clicked) = @_;