- integrate chkauth (which is now deprecated)

- new module authentication

1 files changed, 8 insertions, 5 deletions

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;