mirror of
https://git.openldap.org/openldap/openldap.git
synced 2024-12-21 03:10:25 +08:00
05348c5fc5
- now all write operations appear to work correctly with PostgeSQL 7.0 - all write operations have been made transactional (atomic writes to entries are committed separately only in case of complete^1 success while all other operations are rolled-back by default) - more cleanup and handling of exceptional conditions TODO: - deen to check with different databases and more up to date versions of both unixODBC and PostgreSQL. ^1: attribute add/modify/delete operations silently succeed if the appropriate add/delete proc does not exist for each attribute; this may be correct to hide undesired/unimplemented correspondence between LDAP and SQL databases; however, a more appropriate LDAP behavior would be a failure with LDAP_UNAVAILABLE if a single write operation cannot be executed for such reason
252 lines
5.8 KiB
C
252 lines
5.8 KiB
C
/*
|
|
* Copyright 1999, Dmitry Kovalev <mit@openldap.org>, 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"
|
|
|
|
#ifdef SLAPD_SQL
|
|
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include "ac/string.h"
|
|
#include "ac/ctype.h"
|
|
#include "ac/stdarg.h"
|
|
#include "slap.h"
|
|
#include "lber_pvt.h"
|
|
#include "ldap_pvt.h"
|
|
#include "back-sql.h"
|
|
#include "schema-map.h"
|
|
#include "util.h"
|
|
|
|
|
|
char backsql_def_oc_query[] =
|
|
"SELECT id,name,keytbl,keycol,create_proc,delete_proc,expect_return "
|
|
"FROM ldap_oc_mappings";
|
|
char backsql_def_at_query[] =
|
|
"SELECT name,sel_expr,from_tbls,join_where,add_proc,delete_proc,"
|
|
"param_order,expect_return,sel_expr_u FROM ldap_attr_mappings "
|
|
"WHERE oc_map_id=?";
|
|
char backsql_def_delentry_query[] = "DELETE FROM ldap_entries WHERE id=?";
|
|
char backsql_def_insentry_query[] =
|
|
"INSERT INTO ldap_entries (dn,oc_map_id,parent,keyval) "
|
|
"VALUES (?,?,?,?)";
|
|
char backsql_def_subtree_cond[] = "ldap_entries.dn LIKE CONCAT('%',?)";
|
|
char backsql_def_upper_subtree_cond[] = "(ldap_entries.dn) LIKE CONCAT('%',?)";
|
|
char backsql_id_query[] = "SELECT id,keyval,oc_map_id FROM ldap_entries WHERE ";
|
|
|
|
/* TimesTen */
|
|
char backsql_check_dn_ru_query[] = "SELECT dn_ru from ldap_entries";
|
|
|
|
/*
|
|
* Frequently used constants
|
|
*/
|
|
struct berval
|
|
bv_n_objectclass = BER_BVC("objectclass"),
|
|
bv_n_0_10 = BER_BVC("0.10");
|
|
|
|
struct berval *
|
|
backsql_strcat( struct berval *dest, int *buflen, ... )
|
|
{
|
|
va_list strs;
|
|
int cdlen, cslen, grow;
|
|
char *cstr;
|
|
|
|
assert( dest );
|
|
assert( dest->bv_val == NULL
|
|
|| dest->bv_len == strlen( dest->bv_val ) );
|
|
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "==>backsql_strcat()\n" );
|
|
#endif
|
|
|
|
va_start( strs, buflen );
|
|
if ( dest->bv_val == NULL || *buflen <= 0 ) {
|
|
dest->bv_val = (char *)ch_calloc( BACKSQL_STR_GROW,
|
|
sizeof( char ) );
|
|
dest->bv_len = 0;
|
|
*buflen = BACKSQL_STR_GROW;
|
|
}
|
|
cdlen = dest->bv_len;
|
|
while ( ( cstr = va_arg( strs, char * ) ) != NULL ) {
|
|
cslen = strlen( cstr );
|
|
grow = BACKSQL_MAX( BACKSQL_STR_GROW, cslen );
|
|
if ( *buflen - cdlen <= cslen ) {
|
|
char *tmp_dest;
|
|
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_strcat(): "
|
|
"buflen=%d, cdlen=%d, cslen=%d "
|
|
"-- reallocating dest\n",
|
|
*buflen, cdlen + 1, cslen );
|
|
#endif
|
|
tmp_dest = (char *)ch_realloc( dest->bv_val,
|
|
( *buflen ) + grow * sizeof( char ) );
|
|
if ( tmp_dest == NULL ) {
|
|
Debug( LDAP_DEBUG_ANY, "backsql_strcat(): "
|
|
"could not reallocate string buffer.\n",
|
|
0, 0, 0 );
|
|
return NULL;
|
|
}
|
|
dest->bv_val = tmp_dest;
|
|
*buflen += grow;
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_strcat(): "
|
|
"new buflen=%d, dest=%p\n", *buflen, dest, 0 );
|
|
#endif
|
|
}
|
|
AC_MEMCPY( dest->bv_val + cdlen, cstr, cslen + 1 );
|
|
cdlen += cslen;
|
|
}
|
|
va_end( strs );
|
|
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "<==backsql_strcat() (dest='%s')\n",
|
|
dest, 0, 0 );
|
|
#endif
|
|
|
|
dest->bv_len = cdlen;
|
|
|
|
return dest;
|
|
}
|
|
|
|
int
|
|
backsql_entry_addattr(
|
|
Entry *e,
|
|
struct berval *at_name,
|
|
struct berval *at_val )
|
|
{
|
|
struct berval add_val[ 2 ];
|
|
AttributeDescription *ad;
|
|
int rc;
|
|
const char *text;
|
|
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_entry_addattr(): "
|
|
"at_name='%s', at_val='%s'\n",
|
|
at_name->bv_val, at_val->bv_val, 0 );
|
|
add_val[ 0 ] = *at_val;
|
|
add_val[ 1 ].bv_val = NULL;
|
|
add_val[ 1 ].bv_len = 0;
|
|
|
|
ad = NULL;
|
|
rc = slap_bv2ad( at_name, &ad, &text );
|
|
if ( rc != LDAP_SUCCESS ) {
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_entry_addattr(): "
|
|
"failed to find AttributeDescription for '%s'\n",
|
|
at_name->bv_val, 0, 0 );
|
|
return 0;
|
|
}
|
|
|
|
rc = attr_merge( e, ad, add_val );
|
|
|
|
if ( rc != 0 ) {
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_entry_addattr(): "
|
|
"failed to merge value '%s' for attribute '%s'\n",
|
|
at_val->bv_val, at_name->bv_val, 0 );
|
|
return 0;
|
|
}
|
|
|
|
Debug( LDAP_DEBUG_TRACE, "<==backsql_query_addattr()\n", 0, 0, 0 );
|
|
return 1;
|
|
}
|
|
|
|
char *
|
|
backsql_get_table_spec( char **p )
|
|
{
|
|
char *s, *q;
|
|
struct berval res = { 0, NULL };
|
|
int res_len = 0;
|
|
|
|
s = *p;
|
|
while ( **p && **p != ',' ) {
|
|
(*p)++;
|
|
}
|
|
|
|
if ( **p ) {
|
|
*(*p)++ = '\0';
|
|
}
|
|
|
|
#define BACKSQL_NEXT_WORD { \
|
|
while ( *s && isspace( (unsigned char)*s ) ) s++; \
|
|
if ( !*s ) return res.bv_val; \
|
|
q = s; \
|
|
while ( *q && !isspace( (unsigned char)*q ) ) q++; \
|
|
if ( *q ) *q++='\0'; \
|
|
}
|
|
|
|
BACKSQL_NEXT_WORD;
|
|
/* table name */
|
|
backsql_strcat( &res, &res_len, s, NULL );
|
|
s = q;
|
|
|
|
BACKSQL_NEXT_WORD;
|
|
if ( !strcasecmp( s, "as" ) ) {
|
|
s = q;
|
|
BACKSQL_NEXT_WORD;
|
|
}
|
|
#if 0
|
|
backsql_strcat( &res, &res_len, " AS ", s, NULL );
|
|
/* oracle doesn't understand AS :( */
|
|
#endif
|
|
/* table alias */
|
|
backsql_strcat( &res, &res_len, " ", s, NULL);
|
|
return res.bv_val;
|
|
}
|
|
|
|
int
|
|
backsql_merge_from_clause( char **dest_from, int *dest_len, char *src_from )
|
|
{
|
|
char *s, *p, *srcc, *pos, e;
|
|
struct berval res = { 0 , NULL };
|
|
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "==>backsql_merge_from_clause(): "
|
|
"dest_from='%s',src_from='%s'\n",
|
|
dest_from, src_from, 0 );
|
|
#endif
|
|
srcc = ch_strdup( src_from );
|
|
p = srcc;
|
|
|
|
if ( *dest_from != NULL ) {
|
|
res.bv_val = *dest_from;
|
|
res.bv_len = strlen( *dest_from );
|
|
}
|
|
|
|
while ( *p ) {
|
|
s = backsql_get_table_spec( &p );
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "backsql_merge_from_clause(): "
|
|
"p='%s' s='%s'\n", p, s, 0 );
|
|
#endif
|
|
if ( res.bv_val == NULL ) {
|
|
backsql_strcat( &res, dest_len, s, NULL );
|
|
|
|
} else {
|
|
pos = strstr( res.bv_val, s );
|
|
if ( pos == NULL ) {
|
|
backsql_strcat( &res, dest_len, ",", s, NULL );
|
|
} else if ( ( e = pos[ strlen( s ) ] ) != '\0' && e != ',' ) {
|
|
backsql_strcat( &res, dest_len, ",", s, NULL );
|
|
}
|
|
}
|
|
|
|
if ( s ) {
|
|
ch_free( s );
|
|
}
|
|
}
|
|
#if 0
|
|
Debug( LDAP_DEBUG_TRACE, "<==backsql_merge_from_clause()\n", 0, 0, 0 );
|
|
#endif
|
|
free( srcc );
|
|
*dest_from = res.bv_val;
|
|
|
|
return 1;
|
|
}
|
|
|
|
#endif /* SLAPD_SQL */
|
|
|