From 9a9961b6cf1ad884564dc3dca7e7e8447f2321e0 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Mon, 2 Dec 2002 17:07:29 +0000
Subject: Some data are now fetched from system instead of drakconnect conf
 file (adsl, ppp, ifcfg-eth)

---
 perl-install/network/modem.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index a6eabf170..9478acf9f 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -8,17 +8,19 @@ use mouse;
 use network::tools;
 use vars qw(@ISA @EXPORT);
 use MDK::Common::Globals "network", qw($in $prefix);
+use Data::Dumper;
 
 @ISA = qw(Exporter);
 @EXPORT = qw(pppConfig);
 
 sub configure {
-    my ($netcnx, $mouse, $netc) = @_;
+    my ($netcnx, $mouse, $netc, $intf) = @_;
     $netcnx->{type} = 'modem';
-    $netcnx->{$netcnx->{type}} = {};
-    $netcnx->{modem}{device} = $netc->{autodetect}{modem};
-  modem_step_1:
-    pppConfig($netcnx->{$netcnx->{type}}, $mouse, $netc) or return;
+#    $netcnx->{$netcnx->{type}} = {};
+#    $netcnx->{modem}{device} = $netc->{autodetect}{modem};
+#  modem_step_1:
+    $netcnx->{$netcnx->{type}}->{login} = ($netcnx->{$netcnx->{type}}->{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}->{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME};
+    pppConfig($netcnx->{$netcnx->{type}}, $mouse, $netc, $intf) or return;
     write_cnx_script($netc, "modem",
 q(
 /sbin/route del default
@@ -31,7 +33,7 @@ killall pppd
 }
 
 sub pppConfig {
-    my ($modem, $mouse, $netc) = @_;
+    my ($modem, $mouse, $netc, $intf) = @_;
 
     $mouse ||= {};
     $mouse->{device} ||= readlink "$prefix/dev/mouse";
-- 
cgit v1.2.1