projects
/
virtual-ldap
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cdf5334
)
remove debug output and limit on objectclass=*person*
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 18 Feb 2010 16:22:32 +0000
(16:22 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 18 Feb 2010 16:22:32 +0000
(16:22 +0000)
lib/LDAP/Koha.pm
patch
|
blob
|
history
diff --git
a/lib/LDAP/Koha.pm
b/lib/LDAP/Koha.pm
index
c1acce5
..
28d0868
100644
(file)
--- a/
lib/LDAP/Koha.pm
+++ b/
lib/LDAP/Koha.pm
@@
-15,6
+15,8
@@
use File::Slurp;
use Data::Dump qw/dump/;
use Data::Dump qw/dump/;
+my $debug = 0; # XXX very slow
+
# XXX test with:
#
# ldapsearch -h localhost -p 2389 -b dc=ffzg,dc=hr -x 'otherPager=200903160021'
# XXX test with:
#
# ldapsearch -h localhost -p 2389 -b dc=ffzg,dc=hr -x 'otherPager=200903160021'
@@
-120,13
+122,13
@@
sub __ldap_search_to_sql {
sub _dn_attributes {
my ($row,$base) = @_;
sub _dn_attributes {
my ($row,$base) = @_;
- warn "## row = ",dump( $row );
+ warn "## row = ",dump( $row )
if $debug
;
die "no objectClass column in ",dump( $row ) unless defined $row->{objectClass};
$row->{objectClass} = [ split(/\s+/, $row->{objectClass}) ] if $row->{objectClass} =~ m{\n};
die "no objectClass column in ",dump( $row ) unless defined $row->{objectClass};
$row->{objectClass} = [ split(/\s+/, $row->{objectClass}) ] if $row->{objectClass} =~ m{\n};
- warn "## row = ",dump( $row );
+ warn "## row = ",dump( $row )
if $debug
;
my $dn = delete( $row->{dn} ) || die "no dn in ",dump( $row );
my $dn = delete( $row->{dn} ) || die "no dn in ",dump( $row );
@@
-202,7
+204,7
@@
sub search {
my $sql
= $sql_select
. $sql_where
my $sql
= $sql_select
. $sql_where
-
. ( $objectclass =~ m{person}i ? " LIMIT $max_results" : '' ) # add limit just for persons
+
#
. ( $objectclass =~ m{person}i ? " LIMIT $max_results" : '' ) # add limit just for persons
;
warn "# SQL:\n$sql\n# DATA: ",dump( @values );
;
warn "# SQL:\n$sql\n# DATA: ",dump( @values );