summaryrefslogtreecommitdiffstats
path: root/ldap_wizard/Ldap.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ldap_wizard/Ldap.pm')
-rw-r--r--ldap_wizard/Ldap.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index 19d7d5f4..0e434b0d 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -82,7 +82,7 @@ if (-f $conf_file) {
}
my %level = (
- 1 => N("Configure Ldap server"),
+ 1 => N("Show Ldap configuration"),
2 => N("Add user in Ldap server"),
3 => N("Delete Ldap configuration"),
);
@@ -147,6 +147,7 @@ $o->{pages} = {
if (!$o->{var}{sn}) {
$::in->ask_warn(N("Error"), N("You must enter a valid First Name."));
return 1;
+ }
if (!$o->{var}{cn}) {
$::in->ask_warn(N("Error"), N("You must enter a valid Name."));
return 1;
@@ -155,8 +156,8 @@ $o->{pages} = {
$::in->ask_warn(N("Error"), N("You must enter a valid User Name."));
return 1;
}
- }
},
+
next => 'password'
},
password => {
@@ -183,14 +184,15 @@ $o->{pages} = {
data => [
{ label => N(" ") },
{ label => N("LDAP directory tree:"), val => \$o->{var}{suffix}, help => "aide p" },
- { label => N("LDAP Administrator:"), val => \$o->{var}{administrator}, help => "aide p" },
+ { label => N("LDAP Administrator:"), val => \$o->{var}{rootdn}, help => "aide p" },
{ label => N("LDAP Password:"), hidden => 1, val => \$o->{var}{rootpass}, help => "aide p" },
{ label => N("LDAP Password (again):"), hidden => 1, val => \$o->{var}{rootpass2}, help => "aide p" },
],
pre => sub {
- $o->{var}{administrator} = "cn=".N("Adrministrator").",".$o->{var}{suffix};
+ $o->{var}{rootdn} = "cn=".N("Administrator").",".$o->{var}{suffix};
},
complete => sub {
+
if (!$o->{var}{suffix} || $o->{var}{suffix} !~ /dc/) {
$::in->ask_warn(N("Error"), N("You must enter a valid LDAP directory tree ."));
return 1;
@@ -246,18 +248,18 @@ $o->{pages} = {
{ label => N(" ") },
{ label => N("\n"),fixed_val => \$o->{var}{error_user_add} }
],
- next => 'add_userposix',
- end => 1,
+ no_back => '1',
+ next => 'ask_menu',
},
add_user_nogood => {
- name => N("Error for added User"),
+ name => N("Error when adding user in Ldap datase"),
data => [
{ label => N(" ") },
{ label => N("\n"),fixed_val => \$o->{var}{error_user_add} }
],
+ no_back => '1',
next => 'add_userposix',
- end => 1,
},