created search method

russoz · Nov 21, 2010 · e2032a1 · e2032a1
1 parent bf18ae0
commit e2032a1
Showing 1 changed file with 13 additions and 0 deletions.
diff --git 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