/* $OpenLDAP$ */ /* compare.c - tcl compare routines * * Copyright 1999, Ben Collins , All rights reserved. * * Redistribution and use in source and binary forms are permitted only * as authorized by the OpenLDAP Public License. A copy of this * license is available at http://www.OpenLDAP.org/license.html or * in file LICENSE in the top-level directory of the distribution. */ #include "portable.h" #include #include "slap.h" #include "tcl_back.h" int tcl_back_compare ( Backend * be, Connection * conn, Operation * op, struct berval *dn, struct berval *ndn, AttributeAssertion * ava ) { char *command, *results; struct berval suf_tcl; int code, err = 0; struct tclinfo *ti = (struct tclinfo *) be->be_private; if (ti->ti_compare.bv_len == 0) { send_ldap_result (conn, op, LDAP_UNWILLING_TO_PERFORM, NULL, "compare not implemented", NULL, NULL ); return (-1); } if (tcl_merge_bvlist (be->be_suffix, &suf_tcl) == NULL) { send_ldap_result (conn, op, LDAP_OPERATIONS_ERROR, NULL, NULL, NULL, NULL ); return (-1); } command = (char *) ch_malloc (ti->ti_compare.bv_len + suf_tcl.bv_len + dn->bv_len + ava->aa_desc->ad_cname.bv_len + ava->aa_value.bv_len + 84); sprintf (command, "%s COMPARE {%ld/%ld} {%s} {%s} {%s: %s}", ti->ti_compare.bv_val, op->o_connid, (long) op->o_msgid, suf_tcl.bv_val, dn->bv_val, ava->aa_desc->ad_cname.bv_val, ava->aa_value.bv_val); Tcl_Free (suf_tcl.bv_val); ldap_pvt_thread_mutex_lock (&tcl_interpreter_mutex); code = Tcl_GlobalEval (ti->ti_ii->interp, command); results = (char *) ch_strdup (ti->ti_ii->interp->result); ldap_pvt_thread_mutex_unlock (&tcl_interpreter_mutex); free (command); if (code != TCL_OK) { err = LDAP_OPERATIONS_ERROR; Debug (LDAP_DEBUG_SHELL, "tcl_compare_error: %s\n", results, 0, 0); } else { interp_send_results (be, conn, op, results, NULL, 0); } if (err != LDAP_SUCCESS) send_ldap_result (conn, op, err, NULL, "internal backend error", NULL, NULL ); free (results); return (err); }