summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakauth
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-08 17:31:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-08 17:31:36 +0000
commit6887bb46366245ba10c35d907dc6a3f206d804b1 (patch)
treeef66e7dcc4f74ebac72ed8574365e8807136e0a3 /perl-install/standalone/drakauth
parent85f7d9cca33fdfb0688789e4116db9f0b1c88fa5 (diff)
downloaddrakx-backup-do-not-use-6887bb46366245ba10c35d907dc6a3f206d804b1.tar
drakx-backup-do-not-use-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.gz
drakx-backup-do-not-use-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.bz2
drakx-backup-do-not-use-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.xz
drakx-backup-do-not-use-6887bb46366245ba10c35d907dc6a3f206d804b1.zip
- integrate chkauth (which is now deprecated)
- new module authentication
Diffstat (limited to 'perl-install/standalone/drakauth')
-rwxr-xr-xperl-install/standalone/drakauth13
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;