summaryrefslogtreecommitdiffstats
path: root/ldap_wizard/Ldap.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-11 06:45:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-11 06:45:19 +0000
commita498ed71ed0b041723508836a455464e624f5d5f (patch)
treea56a1c55b05f9b936865dace578a26883aafdc52 /ldap_wizard/Ldap.pm
parent57af37b5bafec6faac52b780f4908e77c44c82b8 (diff)
downloaddrakwizard-a498ed71ed0b041723508836a455464e624f5d5f.tar
drakwizard-a498ed71ed0b041723508836a455464e624f5d5f.tar.gz
drakwizard-a498ed71ed0b041723508836a455464e624f5d5f.tar.bz2
drakwizard-a498ed71ed0b041723508836a455464e624f5d5f.tar.xz
drakwizard-a498ed71ed0b041723508836a455464e624f5d5f.zip
perl_checker fixes
Diffstat (limited to 'ldap_wizard/Ldap.pm')
-rw-r--r--ldap_wizard/Ldap.pm12
1 files changed, 6 insertions, 6 deletions
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 {