From 8e690ad57bb02fe2bd838aa60b80774149971047 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 25 Sep 2000 16:08:24 +0000 Subject: stc --- perl-install/ChangeLog | 6 ++++++ perl-install/network.pm | 1 + 2 files changed, 7 insertions(+) (limited to 'perl-install') diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index b4a7f7d0c..178c4be46 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,7 +1,13 @@ 2000-09-25 dam's + * network.pm (write_resolv_conf): write '# ppp temp entry adsl' in + /etc/resolv.conf if needed. + + * netconnect.pm : adsl connection does'nt need any dns anymore. + * netconnect.pm (read_net_conf): created. draknet now stores and reload the config. + * netconnect.pm (main): if the user is french and uses french keyboard, don't ask his country. diff --git a/perl-install/network.pm b/perl-install/network.pm index 0471cc5e3..765888c82 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -99,6 +99,7 @@ sub write_resolv_conf { print F "search $netc->{DOMAINNAME} $netc->{DOMAINNAME2}\n\n" if ($netc->{DOMAINNAME} || $netc->{DOMAINNAME2}); print F "# nameserver $_\n" foreach grep { ! exists $used_dns{$_} } sort { $dns{$a} <=> $dns{$b} } keys %dns; print F "nameserver $_\n" foreach sort { $used_dns{$a} <=> $used_dns{$b} } grep { $_ } keys %used_dns; + $netc->{NET_DEVICE} =~ /ppp/ and print F "# ppp temp entry\n"; print F "\n"; print F "# $_\n" foreach @unknown; -- cgit v1.2.1