xref: /PHP-8.3/ext/pdo_dblib/dblib_stmt.c (revision 732d92c0)
1 /*
2   +----------------------------------------------------------------------+
3   | Copyright (c) The PHP Group                                          |
4   +----------------------------------------------------------------------+
5   | This source file is subject to version 3.01 of the PHP license,      |
6   | that is bundled with this package in the file LICENSE, and is        |
7   | available through the world-wide-web at the following url:           |
8   | https://www.php.net/license/3_01.txt                                 |
9   | If you did not receive a copy of the PHP license and are unable to   |
10   | obtain it through the world-wide-web, please send a note to          |
11   | license@php.net so we can mail you a copy immediately.               |
12   +----------------------------------------------------------------------+
13   | Author: Wez Furlong <wez@php.net>                                    |
14   |         Frank M. Kromann <frank@kromann.info>                        |
15   +----------------------------------------------------------------------+
16 */
17 
18 #ifdef HAVE_CONFIG_H
19 # include "config.h"
20 #endif
21 
22 #include "php.h"
23 #include "php_ini.h"
24 #include "ext/standard/info.h"
25 #include "pdo/php_pdo.h"
26 #include "pdo/php_pdo_driver.h"
27 #include "php_pdo_dblib.h"
28 #include "php_pdo_dblib_int.h"
29 #include "zend_exceptions.h"
30 
31 
32 /* {{{ pdo_dblib_get_field_name
33  *
34  * Return the data type name for a given TDS number
35  *
36  */
pdo_dblib_get_field_name(int type)37 static char *pdo_dblib_get_field_name(int type)
38 {
39 	/*
40 	 * I don't return dbprtype(type) because it does not fully describe the type
41 	 * (example: varchar is reported as char by dbprtype)
42 	 *
43 	 * FIX ME: Cache datatypes from server systypes table in pdo_dblib_handle_factory()
44 	 * 		   to make this future-proof.
45 	 */
46 
47 	switch (type) {
48 		case 31: return "nvarchar";
49 		case 34: return "image";
50 		case 35: return "text";
51 		case 36: return "uniqueidentifier";
52 		case 37: return "varbinary"; /* & timestamp - Sybase AS12 */
53 		case 38: return "bigint"; /* & bigintn - Sybase AS12 */
54 		case 39: return "varchar"; /* & sysname & nvarchar - Sybase AS12 */
55 		case 40: return "date";
56 		case 41: return "time";
57 		case 42: return "datetime2";
58 		case 43: return "datetimeoffset";
59 		case 45: return "binary"; /* Sybase AS12 */
60 		case 47: return "char"; /* & nchar & uniqueidentifierstr Sybase AS12 */
61 		case 48: return "tinyint";
62 		case 50: return "bit"; /* Sybase AS12 */
63 		case 52: return "smallint";
64 		case 55: return "decimal"; /* Sybase AS12 */
65 		case 56: return "int";
66 		case 58: return "smalldatetime";
67 		case 59: return "real";
68 		case 60: return "money";
69 		case 61: return "datetime";
70 		case 62: return "float";
71 		case 63: return "numeric"; /* or uint, ubigint, usmallint Sybase AS12 */
72 		case 98: return "sql_variant";
73 		case 99: return "ntext";
74 		case 104: return "bit";
75 		case 106: return "decimal"; /* decimal n on sybase */
76 		case 108: return "numeric"; /* numeric n on sybase */
77 		case 122: return "smallmoney";
78 		case 127: return "bigint";
79 		case 165: return "varbinary";
80 		case 167: return "varchar";
81 		case 173: return "binary";
82 		case 175: return "char";
83 		case 189: return "timestamp";
84 		case 231: return "nvarchar";
85 		case 239: return "nchar";
86 		case 240: return "geometry";
87 		case 241: return "xml";
88 		default: return "unknown";
89 	}
90 }
91 /* }}} */
92 
pdo_dblib_stmt_cursor_closer(pdo_stmt_t * stmt)93 static int pdo_dblib_stmt_cursor_closer(pdo_stmt_t *stmt)
94 {
95 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
96 	pdo_dblib_db_handle *H = S->H;
97 
98 	/* Cancel any pending results */
99 	dbcancel(H->link);
100 
101 	pdo_dblib_err_dtor(&H->err);
102 
103 	return 1;
104 }
105 
pdo_dblib_stmt_dtor(pdo_stmt_t * stmt)106 static int pdo_dblib_stmt_dtor(pdo_stmt_t *stmt)
107 {
108 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
109 
110 	pdo_dblib_err_dtor(&S->err);
111 
112 	efree(S);
113 
114 	return 1;
115 }
116 
pdo_dblib_stmt_next_rowset_no_cancel(pdo_stmt_t * stmt)117 static int pdo_dblib_stmt_next_rowset_no_cancel(pdo_stmt_t *stmt)
118 {
119 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
120 	pdo_dblib_db_handle *H = S->H;
121 	RETCODE ret;
122 	int num_fields;
123 
124 	do {
125 		ret = dbresults(H->link);
126 		num_fields = dbnumcols(H->link);
127 	} while (H->skip_empty_rowsets && num_fields <= 0 && ret == SUCCEED);
128 
129 
130 	if (FAIL == ret) {
131 		pdo_raise_impl_error(stmt->dbh, stmt, "HY000", "PDO_DBLIB: dbresults() returned FAIL");
132 		return 0;
133 	}
134 
135 	if (NO_MORE_RESULTS == ret) {
136 		return 0;
137 	}
138 
139 	if (H->skip_empty_rowsets && num_fields <= 0) {
140 		return 0;
141 	}
142 
143 	stmt->row_count = DBCOUNT(H->link);
144 	stmt->column_count = num_fields;
145 
146 	return 1;
147 }
148 
pdo_dblib_stmt_next_rowset(pdo_stmt_t * stmt)149 static int pdo_dblib_stmt_next_rowset(pdo_stmt_t *stmt)
150 {
151 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
152 	pdo_dblib_db_handle *H = S->H;
153 	RETCODE ret = SUCCESS;
154 
155 	/* Ideally use dbcanquery here, but there is a bug in FreeTDS's implementation of dbcanquery
156 	 * It has been resolved but is currently only available in nightly builds
157 	 */
158 	while (NO_MORE_ROWS != ret) {
159 		ret = dbnextrow(H->link);
160 
161 		if (FAIL == ret) {
162 			pdo_raise_impl_error(stmt->dbh, stmt, "HY000", "PDO_DBLIB: dbnextrow() returned FAIL");
163 			return 0;
164 		}
165 	}
166 
167 	return pdo_dblib_stmt_next_rowset_no_cancel(stmt);
168 }
169 
pdo_dblib_stmt_execute(pdo_stmt_t * stmt)170 static int pdo_dblib_stmt_execute(pdo_stmt_t *stmt)
171 {
172 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
173 	pdo_dblib_db_handle *H = S->H;
174 
175 	dbsetuserdata(H->link, (BYTE*) &S->err);
176 
177 	pdo_dblib_stmt_cursor_closer(stmt);
178 
179 	if (FAIL == dbcmd(H->link, ZSTR_VAL(stmt->active_query_string))) {
180 		return 0;
181 	}
182 
183 	if (FAIL == dbsqlexec(H->link)) {
184 		return 0;
185 	}
186 
187 	pdo_dblib_stmt_next_rowset_no_cancel(stmt);
188 
189 	stmt->row_count = DBCOUNT(H->link);
190 	stmt->column_count = dbnumcols(H->link);
191 
192 	return 1;
193 }
194 
pdo_dblib_stmt_fetch(pdo_stmt_t * stmt,enum pdo_fetch_orientation ori,zend_long offset)195 static int pdo_dblib_stmt_fetch(pdo_stmt_t *stmt,
196 	enum pdo_fetch_orientation ori, zend_long offset)
197 {
198 
199 	RETCODE ret;
200 
201 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
202 	pdo_dblib_db_handle *H = S->H;
203 
204 	ret = dbnextrow(H->link);
205 
206 	if (FAIL == ret) {
207 		pdo_raise_impl_error(stmt->dbh, stmt, "HY000", "PDO_DBLIB: dbnextrow() returned FAIL");
208 		return 0;
209 	}
210 
211 	if(NO_MORE_ROWS == ret) {
212 		return 0;
213 	}
214 
215 	return 1;
216 }
217 
pdo_dblib_stmt_describe(pdo_stmt_t * stmt,int colno)218 static int pdo_dblib_stmt_describe(pdo_stmt_t *stmt, int colno)
219 {
220 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
221 	pdo_dblib_db_handle *H = S->H;
222 	struct pdo_column_data *col;
223 	char *fname;
224 
225 	if(colno >= stmt->column_count || colno < 0)  {
226 		return FAILURE;
227 	}
228 
229 	if (colno == 0) {
230 		S->computed_column_name_count = 0;
231 	}
232 
233 	col = &stmt->columns[colno];
234 	fname = (char*)dbcolname(H->link, colno+1);
235 
236 	if (fname && *fname) {
237 		col->name =  zend_string_init(fname, strlen(fname), 0);
238 	} else {
239 		if (S->computed_column_name_count > 0) {
240 			char buf[16];
241 			int len;
242 
243 			len = snprintf(buf, sizeof(buf), "computed%d", S->computed_column_name_count);
244 			col->name = zend_string_init(buf, len, 0);
245 		} else {
246 			col->name = ZSTR_INIT_LITERAL("computed", 0);
247 		}
248 
249 		S->computed_column_name_count++;
250 	}
251 
252 	col->maxlen = dbcollen(H->link, colno+1);
253 
254 	return 1;
255 }
256 
pdo_dblib_stmt_should_stringify_col(pdo_stmt_t * stmt,int coltype)257 static int pdo_dblib_stmt_should_stringify_col(pdo_stmt_t *stmt, int coltype)
258 {
259 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
260 	pdo_dblib_db_handle *H = S->H;
261 
262 	switch (coltype) {
263 		case SQLDECIMAL:
264 		case SQLNUMERIC:
265 		case SQLMONEY:
266 		case SQLMONEY4:
267 		case SQLMONEYN:
268 		case SQLFLT4:
269 		case SQLFLT8:
270 		case SQLINT4:
271 		case SQLINT2:
272 		case SQLINT1:
273 		case SQLBIT:
274 			if (stmt->dbh->stringify) {
275 				return 1;
276 			}
277 			break;
278 
279 		case SQLINT8:
280 			if (stmt->dbh->stringify) {
281 				return 1;
282 			}
283 
284 			/* force stringify if DBBIGINT won't fit in zend_long */
285 			/* this should only be an issue for 32-bit machines */
286 			if (sizeof(zend_long) < sizeof(DBBIGINT)) {
287 				return 1;
288 			}
289 			break;
290 
291 #ifdef SQLMSDATETIME2
292 		case SQLMSDATETIME2:
293 #endif
294 		case SQLDATETIME:
295 		case SQLDATETIM4:
296 			if (H->datetime_convert) {
297 				return 1;
298 			}
299 			break;
300 	}
301 
302 	return 0;
303 }
304 
pdo_dblib_stmt_stringify_col(int coltype,LPBYTE data,DBINT data_len,zval * zv)305 static void pdo_dblib_stmt_stringify_col(int coltype, LPBYTE data, DBINT data_len, zval *zv)
306 {
307 	DBCHAR *tmp_data;
308 
309 	/* FIXME: We allocate more than we need here */
310 	DBINT tmp_data_len = 32 + (2 * (data_len));
311 
312 	switch (coltype) {
313 		case SQLDATETIME:
314 		case SQLDATETIM4: {
315 			if (tmp_data_len < DATETIME_MAX_LEN) {
316 				tmp_data_len = DATETIME_MAX_LEN;
317 			}
318 			break;
319 		}
320 	}
321 
322 	tmp_data = emalloc(tmp_data_len);
323 	data_len = dbconvert(NULL, coltype, data, data_len, SQLCHAR, (LPBYTE) tmp_data, tmp_data_len);
324 
325 	if (data_len > 0) {
326 		/* to prevent overflows, tmp_data_len is provided as a dest len for dbconvert()
327 		 * this code previously passed a dest len of -1
328 		 * the FreeTDS impl of dbconvert() does an rtrim with that value, so replicate that behavior
329 		 */
330 		while (data_len > 0 && tmp_data[data_len - 1] == ' ') {
331 			data_len--;
332 		}
333 
334 		ZVAL_STRINGL(zv, tmp_data, data_len);
335 	} else {
336 		ZVAL_EMPTY_STRING(zv);
337 	}
338 
339 	efree(tmp_data);
340 }
341 
pdo_dblib_stmt_get_col(pdo_stmt_t * stmt,int colno,zval * zv,enum pdo_param_type * type)342 static int pdo_dblib_stmt_get_col(pdo_stmt_t *stmt, int colno, zval *zv, enum pdo_param_type *type)
343 {
344 
345 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
346 	pdo_dblib_db_handle *H = S->H;
347 
348 	int coltype;
349 	LPBYTE data;
350 	DBCHAR *tmp_data;
351 	DBINT data_len, tmp_data_len;
352 
353 	coltype = dbcoltype(H->link, colno+1);
354 	data = dbdata(H->link, colno+1);
355 	data_len = dbdatlen(H->link, colno+1);
356 
357 	if (data_len != 0 || data != NULL) {
358 		if (pdo_dblib_stmt_should_stringify_col(stmt, coltype) && dbwillconvert(coltype, SQLCHAR)) {
359 			pdo_dblib_stmt_stringify_col(coltype, data, data_len, zv);
360 		} else {
361 			switch (coltype) {
362 				case SQLCHAR:
363 				case SQLVARCHAR:
364 				case SQLTEXT: {
365 #ifdef ilia_0
366 					while (data_len>0 && data[data_len-1] == ' ') { /* nuke trailing whitespace */
367 						data_len--;
368 					}
369 #endif
370 				}
371 				case SQLVARBINARY:
372 				case SQLBINARY:
373 				case SQLIMAGE: {
374 					ZVAL_STRINGL(zv, (DBCHAR *) data, data_len);
375 
376 					break;
377 				}
378 #ifdef SQLMSDATETIME2
379 				case SQLMSDATETIME2:
380 #endif
381 				case SQLDATETIME:
382 				case SQLDATETIM4: {
383 					size_t dl;
384 					DBDATEREC di;
385 					DBDATEREC dt;
386 
387 					dbconvert(H->link, coltype, data, -1, SQLDATETIME, (LPBYTE) &dt, -1);
388 					dbdatecrack(H->link, &di, (DBDATETIME *) &dt);
389 
390 					dl = spprintf(&tmp_data, 20, "%04d-%02d-%02d %02d:%02d:%02d",
391 #if defined(PHP_DBLIB_IS_MSSQL) || defined(MSDBLIB)
392 							di.year,     di.month,       di.day,        di.hour,     di.minute,     di.second
393 #else
394 							di.dateyear, di.datemonth+1, di.datedmonth, di.datehour, di.dateminute, di.datesecond
395 #endif
396 					);
397 
398 					ZVAL_STRINGL(zv, tmp_data, dl);
399 
400 					efree(tmp_data);
401 
402 					break;
403 				}
404 				case SQLFLT4:
405 					ZVAL_DOUBLE(zv, *(DBFLT4 *) data);
406 					break;
407 				case SQLFLT8:
408 					ZVAL_DOUBLE(zv, *(DBFLT8 *) data);
409 					break;
410 				case SQLINT8:
411 					ZVAL_LONG(zv, *(DBBIGINT *) data);
412 					break;
413 				case SQLINT4:
414 					ZVAL_LONG(zv, *(DBINT *) data);
415 					break;
416 				case SQLINT2:
417 					ZVAL_LONG(zv, *(DBSMALLINT *) data);
418 					break;
419 				case SQLINT1:
420 				case SQLBIT:
421 					ZVAL_LONG(zv, *(DBTINYINT *) data);
422 					break;
423 				case SQLDECIMAL:
424 				case SQLNUMERIC:
425 				case SQLMONEY:
426 				case SQLMONEY4:
427 				case SQLMONEYN: {
428 					DBFLT8 float_value;
429 					dbconvert(NULL, coltype, data, 8, SQLFLT8, (LPBYTE) &float_value, -1);
430 					ZVAL_DOUBLE(zv, float_value);
431 					break;
432 				}
433 
434 				case SQLUNIQUE: {
435 					if (H->stringify_uniqueidentifier) {
436 						/* 36-char hex string representation */
437 						tmp_data_len = 36;
438 						tmp_data = safe_emalloc(tmp_data_len, sizeof(char), 1);
439 						data_len = dbconvert(NULL, SQLUNIQUE, data, data_len, SQLCHAR, (LPBYTE) tmp_data, tmp_data_len);
440 						zend_str_toupper(tmp_data, data_len);
441 						ZVAL_STRINGL(zv, tmp_data, data_len);
442 						efree(tmp_data);
443 					} else {
444 						/* 16-byte binary representation */
445 						ZVAL_STRINGL(zv, (DBCHAR *) data, 16);
446 					}
447 					break;
448 				}
449 
450 				default: {
451 					if (dbwillconvert(coltype, SQLCHAR)) {
452 						pdo_dblib_stmt_stringify_col(coltype, data, data_len, zv);
453 					}
454 
455 					break;
456 				}
457 			}
458 		}
459 	}
460 
461 	return 1;
462 }
463 
pdo_dblib_stmt_get_column_meta(pdo_stmt_t * stmt,zend_long colno,zval * return_value)464 static int pdo_dblib_stmt_get_column_meta(pdo_stmt_t *stmt, zend_long colno, zval *return_value)
465 {
466 	pdo_dblib_stmt *S = (pdo_dblib_stmt*)stmt->driver_data;
467 	pdo_dblib_db_handle *H = S->H;
468 	DBTYPEINFO* dbtypeinfo;
469 	int coltype;
470 
471 	if(colno >= stmt->column_count || colno < 0)  {
472 		return FAILURE;
473 	}
474 
475 	array_init(return_value);
476 
477 	dbtypeinfo = dbcoltypeinfo(H->link, colno+1);
478 
479 	if(!dbtypeinfo) return FAILURE;
480 
481 	coltype = dbcoltype(H->link, colno+1);
482 
483 	add_assoc_long(return_value, "max_length", dbcollen(H->link, colno+1) );
484 	add_assoc_long(return_value, "precision", (int) dbtypeinfo->precision );
485 	add_assoc_long(return_value, "scale", (int) dbtypeinfo->scale );
486 	add_assoc_string(return_value, "column_source", dbcolsource(H->link, colno+1));
487 	add_assoc_string(return_value, "native_type", pdo_dblib_get_field_name(coltype));
488 	add_assoc_long(return_value, "native_type_id", coltype);
489 	add_assoc_long(return_value, "native_usertype_id", dbcolutype(H->link, colno+1));
490 
491 	switch (coltype) {
492 		case SQLBIT:
493 		case SQLINT1:
494 		case SQLINT2:
495 		case SQLINT4:
496 			add_assoc_long(return_value, "pdo_type", PDO_PARAM_INT);
497 			break;
498 		default:
499 			add_assoc_long(return_value, "pdo_type", PDO_PARAM_STR);
500 			break;
501 	}
502 
503 	return 1;
504 }
505 
506 
507 const struct pdo_stmt_methods dblib_stmt_methods = {
508 	pdo_dblib_stmt_dtor,
509 	pdo_dblib_stmt_execute,
510 	pdo_dblib_stmt_fetch,
511 	pdo_dblib_stmt_describe,
512 	pdo_dblib_stmt_get_col,
513 	NULL, /* param hook */
514 	NULL, /* set attr */
515 	NULL, /* get attr */
516 	pdo_dblib_stmt_get_column_meta, /* meta */
517 	pdo_dblib_stmt_next_rowset, /* nextrow */
518 	pdo_dblib_stmt_cursor_closer
519 };
520