From a498ed71ed0b041723508836a455464e624f5d5f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 11 Aug 2004 06:45:19 +0000 Subject: perl_checker fixes --- ldap_wizard/Ldap.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'ldap_wizard/Ldap.pm') diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm index ccbe1b49..c43e2b46 100644 --- a/ldap_wizard/Ldap.pm +++ b/ldap_wizard/Ldap.pm @@ -55,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"; +#my $rootdn_cn = "Admin"; ##### Read conf file is exist my $hostname = `hostname`; @@ -249,7 +249,7 @@ sub do_it_setldap { } # set rootpass - my $cryptpass = crypt($o->{var}{rootpass}, "crypt"); + my $_cryptpass = crypt($o->{var}{rootpass}, "crypt"); if (any { /^rootpw/ } cat_($LDAPCONF)) { substInFile { #s/rootpw.*/rootpw $cryptpass/; @@ -279,7 +279,7 @@ EOF sub init_ldap { - my $root_cn = (split('=', (split(/,/, $o->{var}{rootdn}))[0]))[1]; + my $_root_cn = (split('=', (split(/,/, $o->{var}{rootdn}))[0]))[1]; my $ldap_dc = (split('=', (split(/,/, $o->{var}{suffix}))[0]))[1]; $o->{var}{rootdn} =~ /cn=(\w+),/ and my $cnadmin = $1; @@ -327,12 +327,12 @@ RootLdif sub do_it_user_add { return if $::testing; - my $ldap = ldap_connect($o); - my $mesg = add_user($o); + my $_ldap = ldap_connect($o); + my $_mesg = add_user($o); } sub do_it_modif { - my $mesg = modif_krb5($o); + modif_krb5($o); } sub new { -- cgit v1.2.1