Remove label in summary_set_srv

1 files changed, 9 insertions, 12 deletions

diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index cf5b8b06..6a3bd768 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -47,8 +47,6 @@ my $o = {
                  nom => '',
                  prenom => '',
                 },
-         needed_rpm => [ 'openldap-server' ],
-         defaultimage => "/usr/share/wizards/proxy_wizard/images/proxy.png"
         };
 
 
@@ -57,7 +55,7 @@ my $ldap_suffix=join(',dc=', split(/\./, chomp_(`hostname -f`)));
 $ldap_suffix =~ s/[^,]*,//;
 my $conf_file = "/etc/sysconfig/ldapconf";
 my $LDAPCONF = "/etc/openldap/slapd.conf";
-
+my $rootdn_cn = "Admin";
 ##### Read conf file is exist
 
 my $hostname = `hostname`;
@@ -67,7 +65,6 @@ if (-f $conf_file) {
   my %conf = getVarsFromSh($conf_file);
   $o->{var}{suffix} = $conf{suffix};
   $o->{var}{rootdn} = $conf{rootdn};
-  $o->{var}{rootpass} = $conf{rootpass};
   $o->{var}{srv} = $conf{srv};
   $o->{var}{defou} = $conf{users};
 } else {
@@ -144,11 +141,12 @@ $o->{pages} = {
                            name => N("Configuring LDAP Server"),
                            data => [
 				    { label => N("LDAP Suffix:\n ex: dc=example,dc=com\n"), val => \$o->{var}{suffix}, help => N("aide p") },
-				    { label => N("LDAP Administrator:\n ex: cn=root,dc=example,dc=com"), val => \$o->{var}{rootdn}, help => N("aide p") },
+				    { label => N("LDAP Administrator:\n "), val => \$o->{var}{rootdn}, help => N("aide p") },
 				    { label => N("LDAP Password:"), hidden => 1, val => \$o->{var}{rootpass}, help => N("aide p") },
                                     { label => N("LDAP Password (again):"), hidden => 1, val => \$o->{var}{rootpass2}, help => N("aide p") },
                                    ],
                            complete => sub {
+
 			     if (!$o->{var}{suffix}) {
 			       $::in->ask_warn(N("Error"), N("You must enter a suffix for LDAP."));
 			       return 1;
@@ -161,8 +159,9 @@ $o->{pages} = {
 			       $::in->ask_warn(N("Error"), N("The passwords do not match"));
 			       return 1;
 			     }
+			     #$o->{var}{rootdn} = "cn=".$rootdn_cn.$o->{var}{suffix},
 			   },
-                           next => 'summary_set_srv',
+                           next => 'summary_set_srv'
                           },
                summary_add_user => {
                                     name =>  N("Confirmation of the user to create"),
@@ -181,10 +180,7 @@ $o->{pages} = {
                                             { label => N("Organisation LDAP:"), type => 'field', fixed_val => \$o->{var}{suffix} },
 				            { label => N("Administrator LDAP:"), type => 'field', fixed_val => \$o->{var}{rootdn} },
 #				            { label => N("Arbo LDAP:"), type => 'field', fixed_val => " " },
-				            { label => N(""), type => 'field', fixed_val => $o->{var}{suffix} },
-				            { label => N(""), type => 'field', fixed_val => "   ou=hosts" },
-				            { label => N(""), type => 'field', fixed_val => "   ou=groups" },
-				            { label => N(""), type => 'field', fixed_val => "   ou=users" },
+				            { label => N(""), type => 'field', fixed_val => \$o->{var}{suffix} },
                                            ],
                                    post => \&do_it_setldap,
                                    next => 'end'
@@ -206,6 +202,7 @@ $o->{pages} = {
               };
 
 sub do_it_setldap {
+
   return if $::testing;
   if (!-f $LDAPCONF) {
     die "no $LDAPCONF found";
@@ -242,11 +239,11 @@ sub do_it_setldap {
   my $cryptpass = crypt($o->{var}{rootpass}, "crypt");
   if (any { /^rootpw/ } cat_($LDAPCONF)) {
     substInFile {
-      #s/rootpw.*/rootpw             $cryptpass/;
+	    #s/rootpw.*/rootpw             $cryptpass/;
       s/rootpw.*/rootpw             $o->{var}{rootpass}/;
     } $LDAPCONF;
   } else {
-    #append_to_file($LDAPCONF, "rootpw             {CRYPT}$cryptpass");
+	  #append_to_file($LDAPCONF, "rootpw             {CRYPT}$cryptpass");
     append_to_file($LDAPCONF, "rootpw             $o->{var}{rootpass}");
   }