From 6887bb46366245ba10c35d907dc6a3f206d804b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jan 2004 17:31:36 +0000
Subject: - integrate chkauth (which is now deprecated) - new module
 authentication

---
 perl-install/standalone/drakauth | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
index 6f2dfe236..f091a3000 100755
--- a/perl-install/standalone/drakauth
+++ b/perl-install/standalone/drakauth
@@ -6,7 +6,7 @@ use standalone;     #- warning, standalone must be loaded very first, for 'expla
 
 use common;
 use interactive;
-use any;
+use authentication;
 use network::network;
 
 my $netc = {};
@@ -18,17 +18,20 @@ my $in = 'interactive'->vnew('su');
 
 my $authentication = {}; # TODO
 
-my $authentication_kind = any::authentication2authentication_kind($authentication);
+my $kind = authentication::to_kind($authentication);
 
 main:
 $in->ask_from('', '', 
 	      [ 
-	       { label => N("Authentication"), val => \$authentication_kind, list => [ any::authentication_kinds() ], format => \&any::authentication_kind2description },
+	       { label => N("Authentication"), val => \$kind, list => [ authentication::kinds() ], format => \&authentication::kind2description },
 	      ]) or $in->exit;
 
-any::ask_authentification_parameters($in, $netc, $authentication, $authentication_kind) or goto main;
+authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main;
 
-eval { any::set_authentication($in, $netc, $authentication, sub { my ($f) = @_; $f->() }) };
+eval { 
+    authentication::set($in, $netc, $authentication, sub { my ($f) = @_; $f->() });
+    network::network::write_conf("$::prefix/etc/sysconfig/network", $netc);
+};
 if (my $err = $@) {
     $in->ask_warn(N("Error"), formatError($err));
     goto main;
-- 
cgit v1.2.1