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.pm31
1 files changed, 11 insertions, 20 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index 52db1766..d3604ebd 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -93,10 +93,11 @@ $o->{pages} = {
}
if ($o->{var}{wiz_level} == 1) {
- ! -f $conf_file and $::in->ask_yesorno(N("Information "), N("would you like save an existing OpenLDAP configuration ?")) and return 'sav_old_conf';
+ ! -f $conf_file and $::in->ask_yesorno(N("Information "), N("Would you like save an existing OpenLDAP configuration ?")) and return 'sav_old_conf';
return 'set_srv';
}
},
+
data => [
{ label => N("Your choice:") . "\n\n", val => \$o->{var}{wiz_level}, type => 'list', list => [ keys %level ], format => sub { $level{$_[0]} } },
],
@@ -183,21 +184,8 @@ $o->{pages} = {
{ label => N("Create in:"), type => 'field', fixed_val => \$o->{var}{defou} }, #. \$o->{var}{suffix} },
],
post => \&do_it_user_add,
- next => 'addnext'
+ next => 'endadd'
},
-
- addnext => {
- name => N("test"),
- data => [
- { label => N("OP:"), type => 'field', fixed_val => \$o->{var}{suffix} },
- { label => N("AP:"), type => 'field', fixed_val => \$o->{var}{rootdn} },
- { label => N("Add Kerberos"), type => 'field', fixed_val => \$o->{var}{suffix} },
- ],
- post => \&do_it_modif,
- next => 'end'
- },
-
-
summary_set_srv => {
name => N("Confirmation Information for create LDAP server"),
data => [
@@ -294,12 +282,14 @@ sub init_ldap {
$o->{var}{rootdn} =~ /cn=(\w+),/ and my $cnadmin = $1;
-print "$o->{var}{rootdn}\n";
-print "$o->{var}{rootpass}\n";
- my $LDAP;
- open($LDAP, "| ldapadd -x -h $o->{var}{srv} -D '$o->{var}{rootdn}' -w $o->{var}{rootpass}");
+ print "$o->{var}{rootdn}\n";
+ print "$o->{var}{rootpass}\n";
+ print "$o->{var}{srv}\n";
+
+ my $LDAP;
+ open($LDAP, "| ldapadd -x -D '$o->{var}{rootdn}' -w $o->{var}{rootpass}");
- print $LDAP <<RootLdif;
+ print $LDAP <<RootLdif;
dn: $o->{var}{suffix}
dc: $ldap_dc
objectClass: dcObject
@@ -332,6 +322,7 @@ objectClass: organizationalUnit
RootLdif
close($LDAP)
+
}
sub do_it_user_add {