diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-08 17:31:36 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-08 17:31:36 +0000 |
commit | 6887bb46366245ba10c35d907dc6a3f206d804b1 (patch) | |
tree | ef66e7dcc4f74ebac72ed8574365e8807136e0a3 /perl-install/standalone | |
parent | 85f7d9cca33fdfb0688789e4116db9f0b1c88fa5 (diff) | |
download | drakx-6887bb46366245ba10c35d907dc6a3f206d804b1.tar drakx-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.gz drakx-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.bz2 drakx-6887bb46366245ba10c35d907dc6a3f206d804b1.tar.xz drakx-6887bb46366245ba10c35d907dc6a3f206d804b1.zip |
- integrate chkauth (which is now deprecated)
- new module authentication
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakauth | 13 |
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; |