From 114ecae4e367f0c9ddce7a54bd15d75867963b92 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 2 Jul 2004 08:12:27 +0000 Subject: pptp support (partial fix for #6515) --- perl-install/network/adsl.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'perl-install/network') 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", -- cgit v1.2.1