From 6846bb8b6986a66c90367eeb1d12d697ec4d39e6 Mon Sep 17 00:00:00 2001 From: Vicent Guardiola Date: Tue, 31 Aug 2004 06:15:50 +0000 Subject: Add ldap.png Clean more print in code Add good needrpm --- ldap_wizard/Ldap.pm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm index 9d8eff23..5ffa5a0d 100644 --- a/ldap_wizard/Ldap.pm +++ b/ldap_wizard/Ldap.pm @@ -7,7 +7,6 @@ package MDK::Wizard::Ldap; use lib qw(/usr/lib/libDrakX); use ugtk2 qw(:create); use strict; -#use MDK::Wizard::ldapdef; use ldapdef; use common; use standalone; @@ -49,7 +48,7 @@ my $o = { nom => '', prenom => '', }, - #needed_rpm => [ 'openldap-server','openldap-clients' ], + needed_rpm => [ 'openldap-servers','openldap-clients' ], defaultimage => "$ENV{__WIZ_HOME__}ldap_wizard/images/ldap.png", }; @@ -299,10 +298,6 @@ sub init_ldap { $o->{var}{rootdn} =~ /cn=(\w+),/ and my $cnadmin = $1; - 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}"); -- cgit v1.2.1