diff options
| -rw-r--r-- | perl-install/network/adsl.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index c0d406dd9..5c8f8e9f0 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -100,6 +100,7 @@ sub adsl_conf_backend { # FIXME: should not be needed: defined $o_netcnx and $netc->{adsltype} = $o_netcnx->{type}; $netc->{adsltype} ||= "adsl_$adsl_type"; + $adsl_type eq 'pptp' and $adsl_device = 'pptp_modem'; my $bewan_module; $bewan_module = $o_netcnx->{bus} eq 'PCI' ? 'unicorn_pci_atm' : 'unicorn_usb_atm' if $adsl_device eq "bewan"; @@ -189,6 +190,12 @@ linkname eciadsl noauth lcp-echo-interval 0) }, + pptp_modem => + { + server => { + pptp => qq("pty "/usr/sbin/pptp 10.0.0.138 --nolaunchpppd"), + }, + }, ); @@ -198,7 +205,7 @@ lcp-echo-interval 0) my %packages = ( pppoa => [ qw(ppp-pppoatm) ], pppoe => [ qw(ppp-pppoe rp-pppoe) ], - pptp => [ qw(pptp-linux pptp-adsl) ], + pptp => [ qw(pptp-linux) ], ); $in->do_pkgs->install(@{$packages{$adsl_type}}) if !$>; output("$::prefix/etc/ppp/options", |