From aec2c4dcb3386c10c4d49b56aaf83e3c1922e49d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 23:25:42 +0000
Subject: config some stuff about adsl protocol

---
 perl-install/network/netconnect.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 02ad412f5..39670d9d5 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -621,6 +621,20 @@ If you don't know, choose 'use pppoe'"),
                                 list => [ values %adsl_types ],
                               },
                              ],
+                    post => sub {
+                        my $adsl_type = find { $adsl_types{$_} eq $adsl_protocol } keys %adsl_devices;
+                        find 
+                        if ($adsl_type eq 'dhcp') {
+                            $auto_ip = 1;
+                            return 'lan_intf';
+                        } elsif ($adsl_type eq 'manual') {
+                            $auto_ip = 0;
+                            return 'lan_intf';
+                        } elsif ($adsl_type eq 'pppoe') {
+                            $netc->{NET_DEVICE} = $ntf_name;
+                        }
+                        return 'hw_account';
+                    },
                    },
                     
                     adsl_unsupported_eci => 
-- 
cgit v1.2.1