svnno****@sourc*****
svnno****@sourc*****
2007年 10月 24日 (水) 18:25:55 JST
スラドRevision: 216
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=216
Author: tach
Date: 2007-10-24 18:25:55 +0900 (Wed, 24 Oct 2007)
Log Message:
-----------
Typo fix
Modified Paths:
--------------
slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm
slashjp/trunk/debian/changelog
-------------- next part --------------
Modified: slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm
===================================================================
--- slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-10-24 08:27:43 UTC (rev 215)
+++ slashjp/trunk/Slash/LDAPDB/lib/Slash/LDAPDB.pm 2007-10-24 09:25:55 UTC (rev 216)
@@ -65,7 +65,7 @@
sub bind {
my $self = shift;
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
return 1 if defined $self->{_bind_p};
$self->{_bind_p} = 1;
my @args = ();
@@ -86,7 +86,7 @@
my $matchname = shift;
my $pass = shift;
__debug(8, "LDAP::authUser: start auth for $matchname");
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $userinfo = $self->getUser($matchname);
if ($userinfo->{passwd} eq md5_hex($pass)) {
@@ -103,7 +103,7 @@
my $val = shift;
__debug(8, "LDAP::createUser called for user '$user'");
__debug(9, "LDAP::createUser called with ". Data::Dumper->Dump([$val], [qw($val)]));
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
$val->{matchname} = $user;
unless ($self->getUser($val->{matchname})) {
@@ -141,7 +141,7 @@
my $self = shift;
my $uid = shift;
__debug(8, "LDAP::deleteUser called for uid '$uid'");
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $userent = $self->getUserByUid($uid);
$userent && $self->deleteUser($userent->{matchname});
}
@@ -150,7 +150,7 @@
my $self = shift;
my $user = shift;
__debug(8, "LDAP::deleteUser called for user '$user'");
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $mesg = $self->_timeout(sub { $self->{_ldap}->delete("cn=${user},".$self->{base_dn}) });
$mesg->code && __debug(3, "LDAP Error when deleteUser: ". $mesg->error);
!$mesg->code;
@@ -162,7 +162,7 @@
my $val = shift;
__debug(8, "LDAP::setUser called for user '$user'");
__debug(9, "LDAP::setUser called with ". Data::Dumper->Dump([$val], [qw($val)]));
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $changes = $self->_s2lop($val);
return -1 unless @$changes;
@@ -181,7 +181,7 @@
my $val = shift;
__debug(8, "LDAP::setUserByUid called for uid '$uid'");
__debug(9, "LDAP::setUserByUid called with ". Data::Dumper->Dump([$val], [qw($val)]));
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $changes = $self->_s2lop($val);
return -1 unless @$changes;
@@ -193,7 +193,7 @@
sub getUser() {
my $self = shift;
my $user = shift;
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $entry = $self->_get_userent("(cn=$user)");
unless ($entry) {
__debug(5, "LDAP::getUser: Can't find user cn=$user");
@@ -205,7 +205,7 @@
sub getUserByUid() {
my $self = shift;
my $uid = shift;
- $self->_check_diabled and return undef;
+ $self->_check_disabled and return undef;
my $entry = $self->_get_userent("($self->{attrib_prefix}UidNumber=$uid)");
unless ($entry) {
__debug(5, "LDAP::getUser: Can't find user uid=$uid");
@@ -311,7 +311,7 @@
Slash::Utility::Environment::getCurrentStatic();
}
-sub _check_diabled {
+sub _check_disabled {
my $self = shift;
$self->{_disabled} and
__debug(1, "Slash::LDAP has been disabled: ($self->{_disabled})");
Modified: slashjp/trunk/debian/changelog
===================================================================
--- slashjp/trunk/debian/changelog 2007-10-24 08:27:43 UTC (rev 215)
+++ slashjp/trunk/debian/changelog 2007-10-24 09:25:55 UTC (rev 216)
@@ -8,8 +8,9 @@
- for Ajax plugin
* Fix: password notification email send fail: plugins/Messages/Messages.pm
* Fix: remove filter failed: plugins/Admin/admin.pl
+ * Typo fix at Slash/LDAPDB/lib/Slash/LDAPDB.pm
- -- Taku YASUI <tach****@osdn*****> Wed, 24 Oct 2007 17:23:13 +0900
+ -- Taku YASUI <tach****@osdn*****> Wed, 24 Oct 2007 18:25:21 +0900
slash (2.5.0.119-17) unstable; urgency=low