+ my $request_filter;
+ if (
+ exists $request->{searchRequest} &&
+ exists $request->{searchRequest}->{filter}
+ ) {
+ my $filter = dump($request->{searchRequest}->{filter});
+ $filter =~ s/\s\s+/ /gs;
+
+ warn "# FILTER $filter";
+ if ( $filter =~ m/(attributeDesc => "uid")/ ) { # mark uid serach from roundcube for new_user_identity
+ warn "filter uid $1";
+ $request_filter->{uid} = 1;
+ }
+ if ( $filter =~ m/(present => "jpegphoto")/ ) {
+ warn "hard-coded response for $1";
+ print $clientsocket $LDAPResponse->encode( {
+ messageID => $request->{messageID},
+ searchResDone => { errorMessage => "", matchedDN => "", resultCode => 0 },
+ } ) || return 0;
+ return 1;
+ }
+ }
+