2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4 * Copyright 1999-2004 The OpenLDAP Foundation.
5 * Portions Copyright 1999 Dmitry Kovalev.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted only as authorized by the OpenLDAP
12 * A copy of this license is available in the file LICENSE in the
13 * top-level directory of the distribution or, alternatively, at
14 * <http://www.OpenLDAP.org/license.html>.
17 * This work was initially developed by Dmitry Kovalev for inclusion
18 * by OpenLDAP Software.
26 #include <sys/types.h>
27 #include "ac/string.h"
32 #include "proto-sql.h"
35 backsql_free_entryID( backsql_entryID *id, int freeit )
37 backsql_entryID *next;
43 if ( id->dn.bv_val != NULL ) {
44 free( id->dn.bv_val );
67 char upperdn[ BACKSQL_MAX_DN_LEN + 1 ];
71 Debug( LDAP_DEBUG_TRACE, "==>backsql_dn2id(): dn='%s'\n",
76 if ( dn->bv_len > BACKSQL_MAX_DN_LEN ) {
77 Debug( LDAP_DEBUG_TRACE,
78 "backsql_dn2id(): DN \"%s\" (%ld bytes) "
79 "exceeds max DN length (%d):\n",
80 dn->bv_val, dn->bv_len, BACKSQL_MAX_DN_LEN );
85 Debug(LDAP_DEBUG_TRACE, "id_query '%s'\n", bi->id_query, 0, 0);
86 assert( bi->id_query );
87 rc = backsql_Prepare( dbh, &sth, bi->id_query, 0 );
88 if ( rc != SQL_SUCCESS ) {
89 Debug( LDAP_DEBUG_TRACE,
90 "backsql_dn2id(): error preparing SQL:\n%s",
92 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
93 SQLFreeStmt( sth, SQL_DROP );
97 if ( BACKSQL_HAS_LDAPINFO_DN_RU( bi ) ) {
99 * Prepare an upper cased, byte reversed version
100 * that can be searched using indexes
103 for ( i = 0, j = dn->bv_len - 1; dn->bv_val[ i ]; i++, j--) {
104 upperdn[ i ] = dn->bv_val[ j ];
107 ldap_pvt_str2upper( upperdn );
109 Debug( LDAP_DEBUG_TRACE, "==>backsql_dn2id(): upperdn='%s'\n",
113 if ( BACKSQL_USE_REVERSE_DN( bi ) ) {
114 AC_MEMCPY( upperdn, dn->bv_val, dn->bv_len + 1 );
115 ldap_pvt_str2upper( upperdn );
116 Debug( LDAP_DEBUG_TRACE,
117 "==>backsql_dn2id(): upperdn='%s'\n",
126 rc = backsql_BindParamStr( sth, 1, toBind, BACKSQL_MAX_DN_LEN );
127 if ( rc != SQL_SUCCESS) {
129 Debug( LDAP_DEBUG_TRACE, "backsql_dn2id(): "
130 "error binding dn=\"%s\" parameter:\n",
132 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
133 SQLFreeStmt( sth, SQL_DROP );
137 rc = SQLExecute( sth );
138 if ( rc != SQL_SUCCESS ) {
139 Debug( LDAP_DEBUG_TRACE, "backsql_dn2id(): "
140 "error executing query (\"%s\", \"%s\"):\n",
141 bi->id_query, toBind, 0 );
142 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
143 SQLFreeStmt( sth, SQL_DROP );
147 backsql_BindRowAsStrings( sth, &row );
148 rc = SQLFetch( sth );
149 if ( BACKSQL_SUCCESS( rc ) ) {
150 id->id = strtol( row.cols[ 0 ], NULL, 0 );
151 id->keyval = strtol( row.cols[ 1 ], NULL, 0 );
152 id->oc_id = strtol( row.cols[ 2 ], NULL, 0 );
153 ber_dupbv( &id->dn, dn );
159 res = LDAP_NO_SUCH_OBJECT;
161 backsql_FreeRow( &row );
163 SQLFreeStmt( sth, SQL_DROP );
164 if ( res == LDAP_SUCCESS ) {
165 Debug( LDAP_DEBUG_TRACE, "<==backsql_dn2id(): id=%ld\n",
168 Debug( LDAP_DEBUG_TRACE, "<==backsql_dn2id(): no match\n",
175 backsql_count_children(
179 unsigned long *nchildren )
184 int res = LDAP_SUCCESS;
186 Debug( LDAP_DEBUG_TRACE, "==>backsql_count_children(): dn='%s'\n",
189 if ( dn->bv_len > BACKSQL_MAX_DN_LEN ) {
190 Debug( LDAP_DEBUG_TRACE,
191 "backsql_count_children(): DN \"%s\" (%ld bytes) "
192 "exceeds max DN length (%d):\n",
193 dn->bv_val, dn->bv_len, BACKSQL_MAX_DN_LEN );
198 Debug(LDAP_DEBUG_TRACE, "children id query '%s'\n",
199 bi->has_children_query, 0, 0);
200 assert( bi->has_children_query );
201 rc = backsql_Prepare( dbh, &sth, bi->has_children_query, 0 );
202 if ( rc != SQL_SUCCESS ) {
203 Debug( LDAP_DEBUG_TRACE,
204 "backsql_count_children(): error preparing SQL:\n%s",
205 bi->has_children_query, 0, 0);
206 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
207 SQLFreeStmt( sth, SQL_DROP );
211 rc = backsql_BindParamStr( sth, 1, dn->bv_val, BACKSQL_MAX_DN_LEN );
212 if ( rc != SQL_SUCCESS) {
214 Debug( LDAP_DEBUG_TRACE, "backsql_count_children(): "
215 "error binding dn=\"%s\" parameter:\n",
217 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
218 SQLFreeStmt( sth, SQL_DROP );
222 rc = SQLExecute( sth );
223 if ( rc != SQL_SUCCESS ) {
224 Debug( LDAP_DEBUG_TRACE, "backsql_count_children(): "
225 "error executing query (\"%s\", \"%s\"):\n",
226 bi->has_children_query, dn->bv_val, 0 );
227 backsql_PrintErrors( SQL_NULL_HENV, dbh, sth, rc );
228 SQLFreeStmt( sth, SQL_DROP );
232 backsql_BindRowAsStrings( sth, &row );
234 rc = SQLFetch( sth );
235 if ( BACKSQL_SUCCESS( rc ) ) {
238 *nchildren = strtol( row.cols[ 0 ], &end, 0 );
239 if ( end[ 0 ] != '\0' && end[0] != '.' ) {
240 /* FIXME: braindead RDBMSes return
241 * a fractional number from COUNT!
249 backsql_FreeRow( &row );
251 SQLFreeStmt( sth, SQL_DROP );
253 Debug( LDAP_DEBUG_TRACE, "<==backsql_count_children(): %lu\n",
260 backsql_has_children(
265 unsigned long nchildren;
268 rc = backsql_count_children( bi, dbh, dn, &nchildren );
270 if ( rc == LDAP_SUCCESS ) {
271 return nchildren > 0 ? LDAP_COMPARE_TRUE : LDAP_COMPARE_FALSE;
278 backsql_get_attr_vals( void *v_at, void *v_bsi )
280 backsql_at_map_rec *at = v_at;
281 backsql_srch_info *bsi = v_bsi;
282 backsql_info *bi = (backsql_info *)bsi->bsi_op->o_bd->be_private;
291 Debug( LDAP_DEBUG_TRACE, "==>backsql_get_attr_vals(): "
292 "oc='%s' attr='%s' keyval=%ld\n",
293 BACKSQL_OC_NAME( bsi->bsi_oc ), at->bam_ad->ad_cname.bv_val,
294 bsi->bsi_c_eid->keyval );
296 rc = backsql_Prepare( bsi->bsi_dbh, &sth, at->bam_query, 0 );
297 if ( rc != SQL_SUCCESS ) {
298 Debug( LDAP_DEBUG_TRACE, "backsql_get_attr_values(): "
299 "error preparing query: %s\n", at->bam_query, 0, 0 );
300 backsql_PrintErrors( bi->db_env, bsi->bsi_dbh, sth, rc );
304 rc = backsql_BindParamID( sth, 1, &bsi->bsi_c_eid->keyval );
305 if ( rc != SQL_SUCCESS ) {
306 Debug( LDAP_DEBUG_TRACE, "backsql_get_attr_values(): "
307 "error binding key value parameter\n", 0, 0, 0 );
311 rc = SQLExecute( sth );
312 if ( ! BACKSQL_SUCCESS( rc ) ) {
313 Debug( LDAP_DEBUG_TRACE, "backsql_get_attr_values(): "
314 "error executing attribute query '%s'\n",
315 at->bam_query, 0, 0 );
316 backsql_PrintErrors( bi->db_env, bsi->bsi_dbh, sth, rc );
317 SQLFreeStmt( sth, SQL_DROP );
321 backsql_BindRowAsStrings( sth, &row );
323 rc = SQLFetch( sth );
324 for ( ; BACKSQL_SUCCESS( rc ); rc = SQLFetch( sth ) ) {
325 for ( i = 0; i < row.ncols; i++ ) {
326 if ( row.value_len[ i ] > 0 ) {
329 bv.bv_val = row.cols[ i ];
331 bv.bv_len = row.col_prec[ i ];
334 * FIXME: what if a binary
337 bv.bv_len = strlen( row.cols[ i ] );
339 backsql_entry_addattr( bsi->bsi_e,
340 &row.col_names[ i ], &bv,
341 bsi->bsi_op->o_tmpmemctx );
344 Debug( LDAP_DEBUG_TRACE, "prec=%d\n",
345 (int)row.col_prec[ i ], 0, 0 );
347 Debug( LDAP_DEBUG_TRACE, "NULL value "
348 "in this row for attribute '%s'\n",
349 row.col_names[ i ].bv_val, 0, 0 );
350 #endif /* BACKSQL_TRACE */
355 backsql_FreeRow( &row );
356 SQLFreeStmt( sth, SQL_DROP );
357 Debug( LDAP_DEBUG_TRACE, "<==backsql_get_attr_vals()\n", 0, 0, 0 );
359 if ( at->bam_next ) {
360 return backsql_get_attr_vals( at->bam_next, v_bsi );
367 backsql_id2entry( backsql_srch_info *bsi, Entry *e, backsql_entryID *eid )
371 AttributeDescription *ad_oc = slap_schema.si_ad_objectClass;
373 Debug( LDAP_DEBUG_TRACE, "==>backsql_id2entry()\n", 0, 0, 0 );
375 rc = dnPrettyNormal( NULL, &eid->dn, &e->e_name, &e->e_nname,
376 bsi->bsi_op->o_tmpmemctx );
377 if ( rc != LDAP_SUCCESS ) {
381 bsi->bsi_oc = backsql_id2oc( bsi->bsi_op->o_bd->be_private, eid->oc_id );
383 bsi->bsi_c_eid = eid;
389 if ( bsi->bsi_attrs != NULL ) {
390 Debug( LDAP_DEBUG_TRACE, "backsql_id2entry(): "
391 "custom attribute list\n", 0, 0, 0 );
392 for ( i = 0; bsi->bsi_attrs[ i ].an_name.bv_val; i++ ) {
393 backsql_at_map_rec **vat;
394 AttributeName *attr = &bsi->bsi_attrs[ i ];
397 if ( attr->an_desc == ad_oc ) {
401 rc = backsql_supad2at( bsi->bsi_oc, attr->an_desc, &vat );
402 if ( rc != 0 || vat == NULL ) {
403 Debug( LDAP_DEBUG_TRACE, "backsql_id2entry(): "
404 "attribute '%s' is not defined "
405 "for objectlass '%s'\n",
406 attr->an_name.bv_val,
407 BACKSQL_OC_NAME( bsi->bsi_oc ), 0 );
411 for ( j = 0; vat[j]; j++ ) {
412 backsql_get_attr_vals( vat[j], bsi );
419 Debug( LDAP_DEBUG_TRACE, "backsql_id2entry(): "
420 "retrieving all attributes\n", 0, 0, 0 );
421 avl_apply( bsi->bsi_oc->bom_attrs, backsql_get_attr_vals,
422 bsi, 0, AVL_INORDER );
425 if ( attr_merge_normalize_one( bsi->bsi_e, ad_oc,
426 &bsi->bsi_oc->bom_oc->soc_cname,
427 bsi->bsi_op->o_tmpmemctx ) ) {
432 if ( global_schemacheck ) {
433 const char *text = NULL;
434 char textbuf[ 1024 ];
435 size_t textlen = sizeof( textbuf );
436 struct berval bv[ 2 ];
440 bv[ 0 ] = bsi->bsi_oc->bom_oc->soc_cname;
441 bv[ 1 ].bv_val = NULL;
443 rc = structural_class( bv, &soc, NULL,
444 &text, textbuf, textlen );
445 if ( rc != LDAP_SUCCESS ) {
450 if ( ( bsi->bsi_flags | BSQL_SF_ALL_OPER )
451 || an_find( bsi->bsi_attrs, &AllOper ) ) {
452 rc = attr_merge_normalize_one( bsi->bsi_e,
453 slap_schema.si_ad_structuralObjectClass,
454 &soc, bsi->bsi_op->o_tmpmemctx );
455 if ( rc != LDAP_SUCCESS ) {
462 Debug( LDAP_DEBUG_TRACE, "<==backsql_id2entry()\n", 0, 0, 0 );
467 #endif /* SLAPD_SQL */