svnno****@sourc*****
svnno****@sourc*****
2007年 12月 26日 (水) 14:08:09 JST
スラドRevision: 374
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=374
Author: caesar
Date: 2007-12-26 14:08:09 +0900 (Wed, 26 Dec 2007)
Log Message:
-----------
fix declaring
Modified Paths:
--------------
slashjp/branches/deluser/Slash/LDAPDB/lib/Slash/LDAPDB.pm
-------------- next part --------------
Modified: slashjp/branches/deluser/Slash/LDAPDB/lib/Slash/LDAPDB.pm
===================================================================
--- slashjp/branches/deluser/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-12-26 05:03:30 UTC (rev 373)
+++ slashjp/branches/deluser/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-12-26 05:08:09 UTC (rev 374)
@@ -155,9 +155,10 @@
$self->_check_disabled and return undef;
my $userinfo = $self->getUser($user);
+ my $mesg;
if (grep('otpUserInfo', $userinfo->{objectClass})) {
__debug(8, "LDAP::deleteUser: User $user is also OTP's. The LDAP entry is only modified.");
- my $mesg = $self->_timeout(sub { $self->{_ldap}->modify("cn=$user,$self->{base_dn}",
+ $mesg = $self->_timeout(sub { $self->{_ldap}->modify("cn=$user,$self->{base_dn}",
changes => [
delete => [
objectClass => 'slashdotUserInfo',
@@ -168,7 +169,7 @@
]
]) });
} else {
- my $mesg = $self->_timeout(sub { $self->{_ldap}->delete("cn=${user},".$self->{base_dn}) });
+ $mesg = $self->_timeout(sub { $self->{_ldap}->delete("cn=${user},".$self->{base_dn}) });
}
$mesg->code && __debug(3, "LDAP Error when deleteUser: ". $mesg->error);
!$mesg->code;