From f5b6bbae101eebdeb0799a64e6bb09bd15f49f12 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 15 Sep 2004 05:49:23 +0000 Subject: (adsl_conf_backend) don't create empty pppoe.conf if the package isn't installed --- perl-install/network/adsl.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 05c320f20..f3fb6b050 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -319,13 +319,17 @@ user "$adsl->{login}" } if ($adsl_type eq 'pppoe') { - my $net_device = $modems{$adsl_device}{get_intf} ? "`$modems{$adsl_device}{get_intf}`" : $netc->{NET_DEVICE}; - substInFile { - s/ETH=.*\n/ETH=$net_device\n/; - s/USER=.*\n/USER=$adsl->{login}\n/; - s/DNS1=.*\n/DNS1=$netc->{dnsServer2}\n/; - s/DNS2=.*\n/DNS2=$netc->{dnsServer3}\n/; - } "$::prefix/etc/ppp/pppoe.conf"; + if (-f "$::prefix/etc/ppp/pppoe.conf") { + my $net_device = $modems{$adsl_device}{get_intf} ? "`$modems{$adsl_device}{get_intf}`" : $netc->{NET_DEVICE}; + substInFile { + s/ETH=.*\n/ETH=$net_device\n/; + s/USER=.*\n/USER=$adsl->{login}\n/; + s/DNS1=.*\n/DNS1=$netc->{dnsServer2}\n/; + s/DNS2=.*\n/DNS2=$netc->{dnsServer3}\n/; + } "$::prefix/etc/ppp/pppoe.conf"; + } else { + log::l("can't find pppoe.conf, make sure the rp-pppoe package is installed"); + } } # pppoe => { -- cgit v1.2.1