summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorVicent Guardiola <vguardiola@mandriva.com>2004-09-20 13:06:18 +0000
committerVicent Guardiola <vguardiola@mandriva.com>2004-09-20 13:06:18 +0000
commitfeec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592 (patch)
tree5fd2e3e2a05800704a5ebbdd084eb9b6d9c8975a
parent9c54e5de562e4aac447dc782e261d6498a71f8cc (diff)
downloaddrakwizard-feec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592.tar
drakwizard-feec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592.tar.gz
drakwizard-feec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592.tar.bz2
drakwizard-feec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592.tar.xz
drakwizard-feec8a1ca5ba1a3ec82087e56b6ce9ab55c5c592.zip
change example by dc=eample,dc=com in do_it_setldap
create conf_file after ou=
-rw-r--r--ldap_wizard/Ldap.pm32
1 files changed, 16 insertions, 16 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index ddda4e37..9518a2c8 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# version 0.1
# GPL like
-# aginies@mandrakesoft.com
+# vguardiola@mandrakesoft.com
package MDK::Wizard::Ldap;
use lib qw(/usr/lib/libDrakX);
@@ -52,7 +52,7 @@ my $o = {
},
needed_rpm => [ 'openldap-servers','openldap-clients' ],
defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png",
- };
+ };
my $wiz = new MDK::Wizard::Wizcommon;
@@ -181,7 +181,7 @@ $o->{pages} = {
next => 'summary_add_user'
},
set_srv => {
- name => "\n". N("Configuring LDAP Server") ."\n\n" . N("LDAP directory tree") . "\n" . N("The DNS naming is used for LDAP directory tree definition") . "\n" . N("Domain name: ") . $wiz_domain_name . "\n" . ("LDAP Diretory Tree: " . $o->{var}{suffix} ) . "\n\n" . N("LDAP Administrator") . "\n" . N("Administrator is a power user with grant access on LDAP database") . "\n" . "cn=".N("Administrator").",".$o->{var}{suffix} . "\n\n",
+ name => "\n". N("Configuring LDAP Server") ."\n\n" . N("LDAP directory tree") . "\n" . N("The DNS naming is used for LDAP directory tree definition") . "\n" . N("Domain name: ") . $wiz_domain_name . "\n" . ("LDAP Diretory Tree: " . $o->{var}{suffix} ) . "\n\n" . N("LDAP Administrator") . "\n" . N("Administrator is a power user with grant access on LDAP database") . "\n" . "cn=".N("Adrministrator").",".$o->{var}{suffix} . "\n\n",
data => [
{ label => " " },
{ label => N("LDAP directory tree:"), val => \$o->{var}{suffix}, help => "aide p" },
@@ -302,7 +302,7 @@ sub do_it_setldap {
# s/example/$dcall
substInFile {
- s/example/$o->{var}{suffix}/g;
+ s/dc=example,dc=com/$o->{var}{suffix}/g;
} $LDAPCONF;
# set rootdn
@@ -327,19 +327,8 @@ sub do_it_setldap {
}
- # create config file in /etc/sysconfig/ldapconf
-
- output($conf_file, <<EOF);
-srv=$o->{var}{srv}
-suffix=$o->{var}{suffix}
-rootdn=$o->{var}{rootdn}
-rootpass=$o->{var}{rootpass}
-users=$o->{var}{defou}
-EOF
-
# reset premisions
system("chown -R root.ldap /etc/openldap");
- # better use status, maybe ?
services::restart('ldap');
sleep(4);
init_ldap();
@@ -387,7 +376,18 @@ objectClass: organizationalUnit
RootLdif
- close($LDAP)
+ close($LDAP);
+
+ # create config file in /etc/sysconfig/ldapwiz
+ output($conf_file, <<EOF);
+srv=$o->{var}{srv}
+suffix=$o->{var}{suffix}
+rootdn=$o->{var}{rootdn}
+rootpass=$o->{var}{rootpass}
+users=$o->{var}{defou}
+EOF
+
+
}