From e2032a122931b45b8ee2d49d22fe3cfd7f381ee4 Mon Sep 17 00:00:00 2001
From: Alexei Znamensky <russoz@cpan.org>
Date: Sun, 21 Nov 2010 14:54:21 -0200
Subject: [PATCH] created search method

---
 lib/Net/LDAP/SimpleServer/ProtocolHandler.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/Net/LDAP/SimpleServer/ProtocolHandler.pm b/lib/Net/LDAP/SimpleServer/ProtocolHandler.pm
index d849f1e..ef49786 100644
--- a/lib/Net/LDAP/SimpleServer/ProtocolHandler.pm
+++ b/lib/Net/LDAP/SimpleServer/ProtocolHandler.pm
@@ -106,6 +106,15 @@ sub bind {
     return $ok;
 }
 
+sub search {
+    my ( $self, $request ) = @_;
+
+    print STDERR '=' x 70 . "\n";
+    print STDERR Dumper($request);
+
+    return _make_result(qw/LDAP_SUCCESS/);
+}
+
 1;    # Magic true value required at end of module
 __END__
 
@@ -151,6 +160,10 @@ as in the L<Net::LDAP::Server> module.
 
 Handles a bind REQUEST from the LDAP client.
 
+=item search( REQUEST )
+
+Performs a search in the data store
+
 =back
 
 =for head1 DIAGNOSTICS