2 * Copyright 1999, Dmitry Kovalev <mit@openldap.org>, All rights reserved.
4 * Redistribution and use in source and binary forms are permitted only
5 * as authorized by the OpenLDAP Public License. A copy of this
6 * license is available at http://www.OpenLDAP.org/license.html or
7 * in file LICENSE in the top-level directory of the distribution.
16 #include <sys/types.h>
19 #include "sql-types.h"
21 #include "schema-map.h"
23 #define MAX_ATTR_LEN 16384
25 typedef struct backsql_conn
31 int backsql_dummy(void *,void *);
33 void backsql_PrintErrors(SQLHENV henv, SQLHDBC hdbc, SQLHSTMT sth,int rc)
35 SQLCHAR msg[SQL_MAX_MESSAGE_LENGTH]; /* msg. buffer */
36 SQLCHAR state[SQL_SQLSTATE_SIZE]; /* statement buf. */
37 SDWORD iSqlCode; /* return code */
38 SWORD len=SQL_MAX_MESSAGE_LENGTH-1; /* return length */
41 Debug(LDAP_DEBUG_TRACE,"Return code: %d\n", rc,0,0);
43 while((rc=SQLError(henv,hdbc,sth,state,&iSqlCode,msg,
44 SQL_MAX_MESSAGE_LENGTH - 1, &len)) == SQL_SUCCESS
45 || rc == SQL_SUCCESS_WITH_INFO
48 Debug(LDAP_DEBUG_TRACE,"SQL engine state: %s\n", state,0,0);
49 Debug(LDAP_DEBUG_TRACE,"Native error code: %d\n",(int) iSqlCode,0,0);
50 Debug(LDAP_DEBUG_TRACE,"Message: %s\n",msg,0,0);
54 RETCODE backsql_Prepare(SQLHDBC dbh,SQLHSTMT *sth,char* query,int timeout)
61 rc=SQLAllocStmt(dbh,sth);
62 if (rc != SQL_SUCCESS)
65 //Debug(LDAP_DEBUG_TRACE,"==>_SQLPrepare()\n", 0,0,0);
66 SQLGetInfo(dbh,SQL_DRIVER_NAME,drv_name,30,&len);
67 //Debug(LDAP_DEBUG_TRACE,"_SQLPrepare(): driver name='%s'\n", drv_name,0,0);
68 for (i=0;i<30 && drv_name[i];i++)
69 drv_name[i]=toupper(drv_name[i]);
70 if (!strncmp(drv_name,"SQLSRV32.DLL",30))
72 //stupid default result set in MS SQL Server does not support multiple active statements
73 //on the same connection -- so we are trying to make it not to use default result set...
74 Debug(LDAP_DEBUG_TRACE,"_SQLprepare(): enabling MS SQL Server default result set workaround\n", 0,0,0);
75 rc=SQLSetStmtOption(*sth,SQL_CONCURRENCY,SQL_CONCUR_ROWVER);
76 if (rc != SQL_SUCCESS && rc != SQL_SUCCESS_WITH_INFO)
78 Debug(LDAP_DEBUG_TRACE,"_SQLPrepare(): SQLSetStmtOption(SQL_CONCURRENCY,SQL_CONCUR_ROWVER) failed:\n", 0,0,0);
79 backsql_PrintErrors(SQL_NULL_HENV,dbh,sth,rc);
84 Debug(LDAP_DEBUG_TRACE,"_SQLprepare(): setting query timeout to %d sec.\n", timeout,0,0);
85 if ((rc=SQLSetStmtOption(*sth,SQL_QUERY_TIMEOUT,timeout)) != SQL_SUCCESS)
87 backsql_PrintErrors(SQL_NULL_HENV,dbh,sth,rc);
91 //Debug(LDAP_DEBUG_TRACE,"<==_SQLPrepare() calling SQLPrepare()\n", 0,0,0);
92 return SQLPrepare(*sth,query,SQL_NTS);
95 RETCODE backsql_BindParamStr(SQLHSTMT sth,int par_ind,char *str,int maxlen)
98 SQLINTEGER len=SQL_NTS;
100 rc=SQLBindParameter(sth,(SQLUSMALLINT)par_ind,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_VARCHAR,
101 (SQLUINTEGER)maxlen,0,(SQLPOINTER)str,(SQLUINTEGER)maxlen,NULL);
105 RETCODE backsql_BindParamID(SQLHSTMT sth,int par_ind,unsigned long *id)
108 return SQLBindParameter(sth,(SQLUSMALLINT)par_ind,SQL_PARAM_INPUT,SQL_C_ULONG,SQL_INTEGER,
109 0,0,(SQLPOINTER)id,0,(SQLINTEGER*)NULL);
112 RETCODE backsql_BindRowAsStrings(SQLHSTMT sth,BACKSQL_ROW_NTS *row)
116 SQLSMALLINT name_len,col_type,col_scale,col_null;
123 //Debug(LDAP_DEBUG_TRACE,"==> backsql_BindRowAsStrings()\n",0,0,0);
124 rc=SQLNumResultCols(sth,&row->ncols);
125 if (rc != SQL_SUCCESS)
127 //Debug(LDAP_DEBUG_TRACE,"_SQLBindRowAsStrings(): SQLNumResultCols() failed:\n",0,0,0);
128 backsql_PrintErrors(SQL_NULL_HENV,SQL_NULL_HDBC,sth,rc);
132 //Debug(LDAP_DEBUG_TRACE,"backsql_BindRowAsStrings: ncols=%d\n",(int)row->ncols,0,0);
133 row->col_names=(char**)ch_calloc(row->ncols,sizeof(char*));
134 row->cols=(char**)ch_calloc(row->ncols,sizeof(char*));
135 row->col_prec=(UDWORD*)ch_calloc(row->ncols,sizeof(UDWORD));
136 row->is_null=(SQLINTEGER*)ch_calloc(row->ncols,sizeof(SQLINTEGER));
137 for (i=1;i<=row->ncols;i++)
139 rc=SQLDescribeCol(sth,(SQLSMALLINT)i,&colname[0],(SQLUINTEGER)sizeof(colname)-1,&name_len,&col_type,
140 (UDWORD*) &col_prec,&col_scale,&col_null);
141 row->col_names[i-1]=ch_strdup(colname);
142 //Debug(LDAP_DEBUG_TRACE,"backsql_BindRowAsStrings: col_name=%s, col_prec[%d]=%d\n",colname,(int)i,(int)col_prec);
143 if (col_type == SQL_LONGVARCHAR || col_type== SQL_LONGVARBINARY)
145 //row->cols[i-1]=NULL;
146 //row->col_prec[i-1]=-1;
147 //such fields must be handled in some other way since they return 2G
148 //as their precision (at least it does so with MS SQL Server w/native driver)
149 //for now, we just set fixed precision for such fields - dirty hack, but...
150 //no time to deal with SQLGetData()
151 col_prec=MAX_ATTR_LEN;
152 row->cols[i-1]=(char*)ch_calloc((col_prec+1),sizeof(char));
153 row->col_prec[i-1]=col_prec;
154 rc=SQLBindCol(sth,(SQLUSMALLINT)i,SQL_C_CHAR,(SQLPOINTER)row->cols[i-1],col_prec+1,
159 row->cols[i-1]=(char*)ch_calloc((col_prec+1),sizeof(char));
160 row->col_prec[i-1]=col_prec;
161 rc=SQLBindCol(sth,(SQLUSMALLINT)i,SQL_C_CHAR,(SQLPOINTER)row->cols[i-1],col_prec+1,
166 //Debug(LDAP_DEBUG_TRACE,"<== backsql_BindRowAsStrings()\n",0,0,0);
170 RETCODE backsql_FreeRow(BACKSQL_ROW_NTS *row)
174 if (row->cols == NULL)
176 for(i=0;i<row->ncols;i++)
180 free(row->col_names);
187 int backsql_cmp_connid(backsql_db_conn *c1,backsql_db_conn *c2)
189 if (c1->ldap_cid > c2->ldap_cid)
191 if (c1->ldap_cid < c2->ldap_cid)
197 int backsql_close_db_conn(backsql_db_conn *conn)
199 Debug(LDAP_DEBUG_TRACE,"==>backsql_close_db_conn()\n",0,0,0);
200 SQLDisconnect(conn->dbh);
201 SQLFreeConnect(conn->dbh);
202 Debug(LDAP_DEBUG_TRACE,"<==backsql_close_db_conn()\n",0,0,0);
206 int backsql_init_db_env(backsql_info *si)
209 Debug(LDAP_DEBUG_TRACE,"==>backsql_init_db_env()\n",0,0,0);
210 if ((rc=SQLAllocEnv(&si->db_env)) != SQL_SUCCESS)
212 Debug(LDAP_DEBUG_TRACE,"init_db_env: SQLAllocEnv failed:\n",0,0,0);
213 backsql_PrintErrors(SQL_NULL_HENV,SQL_NULL_HDBC,SQL_NULL_HENV,rc);
215 Debug(LDAP_DEBUG_TRACE,"<==backsql_init_db_env()\n",0,0,0);
219 int backsql_free_db_env(backsql_info *si)
221 Debug(LDAP_DEBUG_TRACE,"==>backsql_free_db_env()\n",0,0,0);
222 //Debug(LDAP_DEBUG_TRACE,"free_db_env(): delete AVL tree here!!!\n",0,0,0);
224 //stop, if frontend waits for all threads to shutdown before calling this --
225 //then what we are going to delete?? everything is deleted already...
226 Debug(LDAP_DEBUG_TRACE,"<==backsql_free_db_env()\n",0,0,0);
230 backsql_db_conn* backsql_open_db_conn(backsql_info *si,int ldap_cid)
232 backsql_db_conn *dbc=(backsql_db_conn*)ch_calloc(1,sizeof(backsql_db_conn));
235 Debug(LDAP_DEBUG_TRACE,"==>backsql_open_db_conn()\n",0,0,0);
236 dbc->ldap_cid=ldap_cid;
237 if ((rc=SQLAllocConnect(si->db_env,&dbc->dbh)) != SQL_SUCCESS && rc != SQL_SUCCESS_WITH_INFO)
239 Debug(LDAP_DEBUG_TRACE,"backsql_open_db_conn: SQLAllocConnect() failed:\n",0,0,0);
240 backsql_PrintErrors(si->db_env,SQL_NULL_HDBC,SQL_NULL_HENV,rc);
243 if ((rc=SQLConnect(dbc->dbh,si->dbname,SQL_NTS,si->dbuser,SQL_NTS,
244 si->dbpasswd,SQL_NTS) != SQL_SUCCESS))
246 if (rc != SQL_SUCCESS_WITH_INFO)
247 Debug(LDAP_DEBUG_TRACE,"backsql_open_db_conn: SQLConnect() failed:\n",0,0,0);
249 Debug(LDAP_DEBUG_TRACE,"backsql_open_db_conn: SQLConnect() succeeded with info:\n",0,0,0);
250 backsql_PrintErrors(si->db_env,dbc->dbh,SQL_NULL_HENV,rc);
251 if (rc != SQL_SUCCESS_WITH_INFO)
255 Debug(LDAP_DEBUG_TRACE,"backsql_open_db_conn(): connected, adding to tree\n",0,0,0);
256 ldap_pvt_thread_mutex_lock(&si->dbconn_mutex);
257 avl_insert(&si->db_conns,dbc,(AVL_CMP)backsql_cmp_connid,backsql_dummy);
258 ldap_pvt_thread_mutex_unlock(&si->dbconn_mutex);
259 Debug(LDAP_DEBUG_TRACE,"<==backsql_open_db_conn()\n",0,0,0);
263 int backsql_free_db_conn(Backend *be,Connection *ldapc)
265 backsql_info *si=(backsql_info*)be->be_private;
266 backsql_db_conn tmp,*conn;
268 Debug(LDAP_DEBUG_TRACE,"==>backsql_free_db_conn()\n",0,0,0);
269 tmp.ldap_cid=ldapc->c_connid;
270 ldap_pvt_thread_mutex_lock(&si->dbconn_mutex);
271 conn=(backsql_db_conn*)avl_delete(&si->db_conns,&tmp,(AVL_CMP)backsql_cmp_connid);
272 ldap_pvt_thread_mutex_unlock(&si->dbconn_mutex);
273 //we have one thread per connection, as I understand -- so we can
274 //get this out of critical section
277 Debug(LDAP_DEBUG_TRACE,"backsql_free_db_conn(): closing db connection\n",0,0,0);
278 backsql_close_db_conn(conn);
280 Debug(LDAP_DEBUG_TRACE,"<==backsql_free_db_conn()\n",0,0,0);
284 SQLHDBC backsql_get_db_conn(Backend *be,Connection *ldapc)
286 backsql_info *si=(backsql_info*)be->be_private;
287 backsql_db_conn *dbc;
290 Debug(LDAP_DEBUG_TRACE,"==>backsql_get_db_conn()\n",0,0,0);
292 tmp.ldap_cid=ldapc->c_connid;
293 //we have one thread per connection, as I understand -- so we do not need
295 dbc=(backsql_db_conn*)avl_find(si->db_conns,&tmp,(AVL_CMP)backsql_cmp_connid);
297 dbc=backsql_open_db_conn(si,ldapc->c_connid);
301 Debug(LDAP_DEBUG_TRACE,"backsql_get_db_conn(): could not get connection handle -- returning NULL\n",0,0,0);
304 ldap_pvt_thread_mutex_lock(&si->schema_mutex);
305 if (!si->schema_loaded)
307 Debug(LDAP_DEBUG_TRACE,"backsql_get_db_conn(): first call -- reading schema map\n",0,0,0);
308 backsql_load_schema_map(si,dbc->dbh);
310 ldap_pvt_thread_mutex_unlock(&si->schema_mutex);
312 Debug(LDAP_DEBUG_TRACE,"<==backsql_get_db_conn()\n",0,0,0);
316 #endif /* SLAPD_SQL */