From 478a36482072904543037d2dd3afe7b70071accc Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Wed, 4 Dec 2002 15:46:13 +0000
Subject: More data are now fetched from system instead of drakconnect conf
 file

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

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

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 0c65bb854..f25e00c72 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -33,6 +33,22 @@ sub write_secret_backend {
     }
 }
 
+sub read_secret_backend {
+    my $conf;
+    foreach my $i ("pap-secrets", "chap-secrets") {
+	foreach (cat_("$prefix/etc/ppp/$i")) {
+	    my ($login, $server, $passwd) = split(' ');
+	    ($a, $b, $c) = $passwd =~ /"(.*)"|'(.*)'|(.*)/;
+	    $passwd = $a ? $a : $b ? $b : $c;
+	    push @$conf, {login => $login,
+			  passwd => $passwd,
+			  server => $server };
+	}
+    }
+    $conf;
+}
+
+
 sub ask_connect_now {
     my ($type) = @_;
     $::Wizard_no_previous = 1;
-- 
cgit v1.2.1