diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-25 23:14:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-25 23:14:11 +0000 |
| commit | 57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34 (patch) | |
| tree | 9a7492fc08e0ac197485735ae2e4bc7688286413 /perl-install/standalone/adduserdrake | |
| parent | 7039b28e9cc76fd602016a10c0927b40fc960b58 (diff) | |
| download | drakx-backup-do-not-use-57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34.tar drakx-backup-do-not-use-57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34.tar.gz drakx-backup-do-not-use-57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34.tar.bz2 drakx-backup-do-not-use-57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34.tar.xz drakx-backup-do-not-use-57c9a45c5e54c97a71143cf73da8b9ad7c2e5d34.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/adduserdrake')
| -rwxr-xr-x | perl-install/standalone/adduserdrake | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index 843d6821b..be03ed9f3 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -53,11 +53,11 @@ if ($in->ask_from_entries_refH( } }, complete => sub { - $u->{password} eq $u->{password2} or $o->ask_warn('', [ _("The passwords do not match"), _("Please try again") ]), return (1,3); - $security > 3 && length($u->{password}) < 6 and $o->ask_warn('', _("This password is too simple")), return (1,2); - $u->{name} or $o->ask_warn('', _("Please give a user name")), return (1,0); - $u->{name} =~ /^[a-z0-9_-]+$/ or $o->ask_warn('', _("The user name must contain only lower cased letters, numbers, `-' and `_'")), return (1,0); - member($u->{name}, map { $_->{name} } @users) and $o->ask_warn('', _("This user name is already added")), return (1,0); + $u->{password} eq $u->{password2} or $in->ask_warn('', [ _("The passwords do not match"), _("Please try again") ]), return (1,3); + $security > 3 && length($u->{password}) < 6 and $in->ask_warn('', _("This password is too simple")), return (1,2); + $u->{name} or $in->ask_warn('', _("Please give a user name")), return (1,0); + $u->{name} =~ /^[a-z0-9_-]+$/ or $in->ask_warn('', _("The user name must contain only lower cased letters, numbers, `-' and `_'")), return (1,0); + member($u->{name}, map { $_->{name} } @users) and $in->ask_warn('', _("This user name is already added")), return (1,0); $u->{icon} = untranslate($u->{icon}, @any::users); return 0; }, |