upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2026-01-07 07:30:57 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Finished compare implementation

Browse source
This commit is contained in:
Howard Chu 2002-02-02 10:37:25 +00:00
parent 8755c4e067
commit 6f8cc0d72c
2 changed files with 22 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
servers/slapd/back-perl/SampleLDAP.pm
View file

@ -67,6 +67,7 @@ Its arguments are as follows.
* obj reference
* dn
* attribute assertion string
RETURN:
@ -186,9 +187,16 @@ sub search
sub compare
{
my $this = shift;
my ( $dn ) = @_;
my ( $dn, $avaStr ) = @_;
my $rc = 0;
return 1;
$avaStr =~ s/=/: /;
if ( $this->{ $dn } =~ /$avaStr/im ) {
$rc = 1;
}
return $rc;
}
sub modify

23
servers/slapd/back-perl/compare.c
View file

@ -38,13 +38,17 @@ perl_back_compare(
{
int return_code;
int count;
char *avastr, *ptr;
PerlBackend *perl_back = (PerlBackend *)be->be_private;
send_ldap_result( conn, op, LDAP_UNWILLING_TO_PERFORM,
NULL, "not supported", NULL, NULL );
avastr = ch_malloc( ava->aa_desc->ad_cname.bv_len + 1 +
ava->aa_value.bv_len + 1 );
slap_strcopy( slap_strcopy( slap_strcopy( avastr,
ava->aa_desc->ad_cname.bv_val ), "=" ),
ava->aa_value.bv_val );
#ifdef notdef
ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );
{
@ -52,8 +56,8 @@ perl_back_compare(
PUSHMARK(sp);
XPUSHs( perl_back->pb_obj_ref );
XPUSHs(sv_2mortal(newSVpv( dn , 0)));
/* XPUSHs(sv_2mortal(newSVpv( cred->bv_val , cred->bv_len))); */
XPUSHs(sv_2mortal(newSVpv( dn->bv_val , 0)));
XPUSHs(sv_2mortal(newSVpv( avastr , 0)));
PUTBACK;
count = perl_call_method("compare", G_SCALAR);
@ -71,13 +75,10 @@ perl_back_compare(
ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );
if( return_code != 0 ) {
send_ldap_result( conn, op, LDAP_COMPARE_TRUE, NULL, NULL );
ch_free( avastr );
} else {
send_ldap_result( conn, op, LDAP_COMPARE_FALSE, NULL, NULL );
}
#endif
send_ldap_result( conn, op, return_code ? LDAP_COMPARE_TRUE :
LDAP_COMPARE_FALSE, NULL, NULL, NULL, NULL );
Debug( LDAP_DEBUG_ANY, "Perl COMPARE\n", 0, 0, 0 );