summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps.pm6
-rw-r--r--perl-install/install_steps_interactive.pm4
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 4ed27fb1e..49d6ff677 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -928,6 +928,8 @@ sub upNetwork {
if ($o->{intf} && $o->{netc}{NETWORKING} ne 'false') {
network::up_it($o->{prefix}, $o->{intf});
} elsif (!$pppAvoided && $o->{modem} && !$o->{modem}{isUp}) {
+ eval { modules::load_multi(qw(serial ppp)) };
+ run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "start");
run_program::rooted($o->{prefix}, "ifup", "ppp0");
$o->{modem}{isUp} = 1;
} else {
@@ -944,7 +946,9 @@ sub downNetwork {
if (!$pppOnly && $o->{intf} && $o->{netc}{NETWORKING} ne 'false') {
network::down_it($o->{prefix}, $o->{intf});
} elsif ($o->{modem} && $o->{modem}{isUp}) {
- run_program::rooted($o->{prefix}, "ifup", "ppp0");
+ run_program::rooted($o->{prefix}, "ifdown", "ppp0");
+ run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/syslog", "stop");
+ eval { modules::unload($_) foreach qw(ppp serial) };
$o->{modem}{isUp} = 0;
} else {
$::testing or return;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 6df194793..f35ab94a4 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -514,10 +514,10 @@ _("Login ID") => \$m->{login},
_("Password") => { val => \$m->{passwd}, hidden => 1 },
_("Authentication") => { val => \$m->{auth}, list => [ __("PAP"), __("CHAP"), __("Terminal-based"), __("Script-based") ] },
_("Domain name") => \$m->{domain},
-$::expert ? (
+#-$::expert ? ( #- It is not apropriate to remove DNS as kppp need them! only available for "ifup ppp0"
_("First DNS Server") => \$m->{dns1},
_("Second DNS Server") => \$m->{dns2},
-) : (),
+#-) : (),
]);
}