and hide all debuging messages without DEBUG enviroment variable
use lib 'lib';
use LDAP::Koha;
use lib 'lib';
use LDAP::Koha;
+my $debug = $ENV{DEBUG} || 0;
+
+BEGIN {
+ $SIG{'__WARN__'} = sub {
+ my $level = $1 if $_[0] =~ m/^(#+)/;
+ return if defined($level) && length($level) > $debug;
+
+ warn join("\n", @_);
+ };
+}
my $listen = shift @ARGV || 'localhost:2389';
my $sock = IO::Socket::INET->new(
my $listen = shift @ARGV || 'localhost:2389';
my $sock = IO::Socket::INET->new(
sub new {
my ($class, $sock) = @_;
my $self = $class->SUPER::new($sock);
sub new {
my ($class, $sock) = @_;
my $self = $class->SUPER::new($sock);
- print "connection from: ", $sock->peerhost(), "\n";
+ warn "# connection from: ", $sock->peerhost();
sub search {
my $self = shift;
my $reqData = shift;
sub search {
my $self = shift;
my $reqData = shift;
- print "searching...\n";
warn "# " . localtime() . " request = ", dump($reqData);
warn "# " . localtime() . " request = ", dump($reqData);
$sth->execute( @values );
warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );
$sth->execute( @values );
warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );
+ my $dump = dump( $reqData->{'filter'} );
+ $dump =~ s/[\r\n\s]+/ /gm;
+ print $sth->rows, " results for $dump\n";
my $last_dn = '?';
my $entry;
my $last_dn = '?';
my $entry;