diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 06:45:19 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-11 06:45:19 +0000 |
| commit | a498ed71ed0b041723508836a455464e624f5d5f (patch) | |
| tree | a56a1c55b05f9b936865dace578a26883aafdc52 /ldap_wizard/Ldap.pm | |
| parent | 57af37b5bafec6faac52b780f4908e77c44c82b8 (diff) | |
| download | drakwizard-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.pm | 12 |
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 { |