1 /*
2    +----------------------------------------------------------------------+
3    | PHP Version 7                                                        |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1997-2018 The PHP Group                                |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 3.01 of the PHP license,      |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.php.net/license/3_01.txt                                  |
11    | If you did not receive a copy of the PHP license and are unable to   |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@php.net so we can mail you a copy immediately.               |
14    +----------------------------------------------------------------------+
15    | Authors: Stig Sæther Bakken <ssb@php.net>                            |
16    |          Thies C. Arntzen <thies@thieso.net>                         |
17    |                                                                      |
18    | Collection support by Andy Sautins <asautins@veripost.net>           |
19    | Temporary LOB support by David Benson <dbenson@mancala.com>          |
20    | ZTS per process OCIPLogon by Harald Radi <harald.radi@nme.at>        |
21    |                                                                      |
22    | Redesigned by: Antony Dovgal <antony@zend.com>                       |
23    |                Andi Gutmans <andi@php.net>                           |
24    |                Wez Furlong <wez@omniti.com>                          |
25    +----------------------------------------------------------------------+
26 */
27 
28 #ifdef HAVE_CONFIG_H
29 #include "config.h"
30 #endif
31 
32 #include "php.h"
33 #include "ext/standard/info.h"
34 #include "php_ini.h"
35 
36 #if HAVE_OCI8
37 
38 #include "php_oci8.h"
39 #include "php_oci8_int.h"
40 
41 /* {{{ php_oci_collection_create()
42  Create and return connection handle */
php_oci_collection_create(php_oci_connection * connection,char * tdo,int tdo_len,char * schema,int schema_len)43 php_oci_collection *php_oci_collection_create(php_oci_connection *connection, char *tdo, int tdo_len, char *schema, int schema_len)
44 {
45 	dvoid *dschp1 = NULL;
46 	dvoid *parmp1;
47 	dvoid *parmp2;
48 	php_oci_collection *collection;
49 	sword errstatus;
50 
51 	collection = emalloc(sizeof(php_oci_collection));
52 
53 	collection->connection = connection;
54 	collection->collection = NULL;
55 #if PHP_VERSION_ID < 70300
56 	++GC_REFCOUNT(collection->connection->id);
57 #else
58 	GC_ADDREF(collection->connection->id);
59 #endif
60 
61 	/* get type handle by name */
62 	PHP_OCI_CALL_RETURN(errstatus, OCITypeByName,
63 			(
64 			 connection->env,
65 			 connection->err,
66 			 connection->svc,
67 			 (text *) schema,
68 			 (ub4) schema_len,
69 			 (text *) tdo,
70 			 (ub4) tdo_len,
71 			 (CONST text *) 0,
72 			 (ub4) 0,
73 			 OCI_DURATION_SESSION,
74 			 OCI_TYPEGET_ALL,
75 			 &(collection->tdo)
76 			)
77 	);
78 
79 	if (errstatus != OCI_SUCCESS) {
80 		goto CLEANUP;
81 	}
82 
83 	/* allocate describe handle */
84 	PHP_OCI_CALL_RETURN(errstatus, OCIHandleAlloc, (connection->env, (dvoid **) &dschp1, (ub4) OCI_HTYPE_DESCRIBE, (size_t) 0, (dvoid **) 0));
85 
86 	if (errstatus != OCI_SUCCESS) {
87 		goto CLEANUP;
88 	}
89 
90 	/* describe TDO */
91 	PHP_OCI_CALL_RETURN(errstatus, OCIDescribeAny,
92 			(
93 			 connection->svc,
94 			 connection->err,
95 			 (dvoid *) collection->tdo,
96 			 (ub4) 0,
97 			 OCI_OTYPE_PTR,
98 			 (ub1) OCI_DEFAULT,
99 			 (ub1) OCI_PTYPE_TYPE,
100 			 dschp1
101 			)
102 	);
103 
104 	if (errstatus != OCI_SUCCESS) {
105 		goto CLEANUP;
106 	}
107 
108 	/* get first parameter handle */
109 	PHP_OCI_CALL_RETURN(errstatus, OCIAttrGet, ((dvoid *) dschp1, (ub4) OCI_HTYPE_DESCRIBE, (dvoid *)&parmp1, (ub4 *)0, (ub4)OCI_ATTR_PARAM, connection->err));
110 
111 	if (errstatus != OCI_SUCCESS) {
112 		goto CLEANUP;
113 	}
114 
115 	/* get the collection type code of the attribute */
116 	PHP_OCI_CALL_RETURN(errstatus, OCIAttrGet,
117 			(
118 			 (dvoid*) parmp1,
119 			 (ub4) OCI_DTYPE_PARAM,
120 			 (dvoid*) &(collection->coll_typecode),
121 			 (ub4 *) 0,
122 			 (ub4) OCI_ATTR_COLLECTION_TYPECODE,
123 			 connection->err
124 			)
125 	);
126 
127 	if (errstatus != OCI_SUCCESS) {
128 		goto CLEANUP;
129 	}
130 
131 	switch(collection->coll_typecode) {
132 		case OCI_TYPECODE_TABLE:
133 		case OCI_TYPECODE_VARRAY:
134 			/* get collection element handle */
135 			PHP_OCI_CALL_RETURN(errstatus, OCIAttrGet,
136 					(
137 					 (dvoid*) parmp1,
138 					 (ub4) OCI_DTYPE_PARAM,
139 					 (dvoid*) &parmp2,
140 					 (ub4 *) 0,
141 					 (ub4) OCI_ATTR_COLLECTION_ELEMENT,
142 					 connection->err
143 					)
144 			);
145 
146 			if (errstatus != OCI_SUCCESS) {
147 				goto CLEANUP;
148 			}
149 
150 			/* get REF of the TDO for the type */
151 			PHP_OCI_CALL_RETURN(errstatus, OCIAttrGet,
152 					(
153 					 (dvoid*) parmp2,
154 					 (ub4) OCI_DTYPE_PARAM,
155 					 (dvoid*) &(collection->elem_ref),
156 					 (ub4 *) 0,
157 					 (ub4) OCI_ATTR_REF_TDO,
158 					 connection->err
159 					)
160 			);
161 
162 			if (errstatus != OCI_SUCCESS) {
163 				goto CLEANUP;
164 			}
165 
166 			/* get the TDO (only header) */
167 			PHP_OCI_CALL_RETURN(errstatus, OCITypeByRef,
168 					(
169 					 connection->env,
170 					 connection->err,
171 					 collection->elem_ref,
172 					 OCI_DURATION_SESSION,
173 					 OCI_TYPEGET_HEADER,
174 					 &(collection->element_type)
175 					)
176 			);
177 
178 			if (errstatus != OCI_SUCCESS) {
179 				goto CLEANUP;
180 			}
181 
182 			/* get typecode */
183 			PHP_OCI_CALL_RETURN(errstatus, OCIAttrGet,
184 					(
185 					 (dvoid*) parmp2,
186 					 (ub4) OCI_DTYPE_PARAM,
187 					 (dvoid*) &(collection->element_typecode),
188 					 (ub4 *) 0,
189 					 (ub4) OCI_ATTR_TYPECODE,
190 					 connection->err
191 					)
192 			);
193 
194 			if (errstatus != OCI_SUCCESS) {
195 				goto CLEANUP;
196 			}
197 			break;
198 			/* we only support VARRAYs and TABLEs */
199 		default:
200 			php_error_docref(NULL, E_WARNING, "unknown collection type %d", collection->coll_typecode);
201 			break;
202 	}
203 
204 	/* Create object to hold return table */
205 	PHP_OCI_CALL_RETURN(errstatus, OCIObjectNew,
206 		(
207 			connection->env,
208 			connection->err,
209 			connection->svc,
210 			OCI_TYPECODE_TABLE,
211 			collection->tdo,
212 			(dvoid *)0,
213 			OCI_DURATION_DEFAULT,
214 			TRUE,
215 			(dvoid **) &(collection->collection)
216 		)
217 	);
218 
219 	if (errstatus != OCI_SUCCESS) {
220 		goto CLEANUP;
221 	}
222 
223 	/* free the describe handle (Bug #44113) */
224 	PHP_OCI_CALL(OCIHandleFree, ((dvoid *) dschp1, OCI_HTYPE_DESCRIBE));
225 	PHP_OCI_REGISTER_RESOURCE(collection, le_collection);
226 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
227 	return collection;
228 
229 CLEANUP:
230 
231 	if (dschp1) {
232 		/* free the describe handle (Bug #44113) */
233 		PHP_OCI_CALL(OCIHandleFree, ((dvoid *) dschp1, OCI_HTYPE_DESCRIBE));
234 	}
235 	connection->errcode = php_oci_error(connection->err, errstatus);
236 	PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
237 	php_oci_collection_close(collection);
238 	return NULL;
239 }
240 /* }}} */
241 
242 /* {{{ php_oci_collection_size()
243  Return size of the collection */
php_oci_collection_size(php_oci_collection * collection,sb4 * size)244 int php_oci_collection_size(php_oci_collection *collection, sb4 *size)
245 {
246 	php_oci_connection *connection = collection->connection;
247 	sword errstatus;
248 
249 	PHP_OCI_CALL_RETURN(errstatus, OCICollSize, (connection->env, connection->err, collection->collection, (sb4 *)size));
250 
251 	if (errstatus != OCI_SUCCESS) {
252 		connection->errcode = php_oci_error(connection->err, errstatus);
253 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
254 		return 1;
255 	}
256 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
257 	return 0;
258 }
259 /* }}} */
260 
261 /* {{{ php_oci_collection_max()
262  Return max number of elements in the collection */
php_oci_collection_max(php_oci_collection * collection,zend_long * max)263 int php_oci_collection_max(php_oci_collection *collection, zend_long *max)
264 {
265 	php_oci_connection *connection = collection->connection;
266 
267 	PHP_OCI_CALL_RETURN(*max, OCICollMax, (connection->env, collection->collection));
268 
269 	/* error handling is not necessary here? */
270 	return 0;
271 }
272 /* }}} */
273 
274 /* {{{ php_oci_collection_trim()
275  Trim collection to the given number of elements */
php_oci_collection_trim(php_oci_collection * collection,zend_long trim_size)276 int php_oci_collection_trim(php_oci_collection *collection, zend_long trim_size)
277 {
278 	php_oci_connection *connection = collection->connection;
279 	sword errstatus;
280 
281 	PHP_OCI_CALL_RETURN(errstatus, OCICollTrim, (connection->env, connection->err, (sb4) trim_size, collection->collection));
282 
283 	if (errstatus != OCI_SUCCESS) {
284 		errstatus = php_oci_error(connection->err, errstatus);
285 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
286 		return 1;
287 	}
288 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
289 	return 0;
290 }
291 /* }}} */
292 
293 /* {{{ php_oci_collection_append_null()
294  Append NULL element to the end of the collection */
php_oci_collection_append_null(php_oci_collection * collection)295 int php_oci_collection_append_null(php_oci_collection *collection)
296 {
297 	OCIInd null_index = OCI_IND_NULL;
298 	php_oci_connection *connection = collection->connection;
299 	sword errstatus;
300 
301 	/* append NULL element */
302 	PHP_OCI_CALL_RETURN(errstatus, OCICollAppend, (connection->env, connection->err, (dvoid *)0, &null_index, collection->collection));
303 
304 	if (errstatus != OCI_SUCCESS) {
305 		errstatus = php_oci_error(connection->err, errstatus);
306 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
307 		return 1;
308 	}
309 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
310 	return 0;
311 }
312 /* }}} */
313 
314 /* {{{ php_oci_collection_append_date()
315  Append DATE element to the end of the collection (use "DD-MON-YY" format) */
php_oci_collection_append_date(php_oci_collection * collection,char * date,int date_len)316 int php_oci_collection_append_date(php_oci_collection *collection, char *date, int date_len)
317 {
318 	OCIInd new_index = OCI_IND_NOTNULL;
319 	OCIDate oci_date;
320 	php_oci_connection *connection = collection->connection;
321 	sword errstatus;
322 
323 	/* format and language are NULLs, so format is "DD-MON-YY" and language is the default language of the session */
324 	PHP_OCI_CALL_RETURN(errstatus, OCIDateFromText, (connection->err, (CONST text *)date, date_len, NULL, 0, NULL, 0, &oci_date));
325 
326 	if (errstatus != OCI_SUCCESS) {
327 		/* failed to convert string to date */
328 		connection->errcode = php_oci_error(connection->err, errstatus);
329 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
330 		return 1;
331 	}
332 
333 	PHP_OCI_CALL_RETURN(errstatus, OCICollAppend,
334 			(
335 			 connection->env,
336 			 connection->err,
337 			 (dvoid *) &oci_date,
338 			 (dvoid *) &new_index,
339 			 (OCIColl *) collection->collection
340 			)
341 	);
342 
343 	if (errstatus != OCI_SUCCESS) {
344 		connection->errcode = php_oci_error(connection->err, errstatus);
345 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
346 		return 1;
347 	}
348 
349 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
350 	return 0;
351 }
352 /* }}} */
353 
354 /* {{{ php_oci_collection_append_number()
355  Append NUMBER to the end of the collection */
php_oci_collection_append_number(php_oci_collection * collection,char * number,int number_len)356 int php_oci_collection_append_number(php_oci_collection *collection, char *number, int number_len)
357 {
358 	OCIInd new_index = OCI_IND_NOTNULL;
359 	double element_double;
360 	OCINumber oci_number;
361 	php_oci_connection *connection = collection->connection;
362 	sword errstatus;
363 
364 	element_double = zend_strtod(number, NULL);
365 
366 	PHP_OCI_CALL_RETURN(errstatus, OCINumberFromReal, (connection->err, &element_double, sizeof(double), &oci_number));
367 
368 	if (errstatus != OCI_SUCCESS) {
369 		connection->errcode = php_oci_error(connection->err, errstatus);
370 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
371 		return 1;
372 	}
373 
374 	PHP_OCI_CALL_RETURN(errstatus, OCICollAppend,
375 			(
376 			 connection->env,
377 			 connection->err,
378 			 (dvoid *) &oci_number,
379 			 (dvoid *) &new_index,
380 			 (OCIColl *) collection->collection
381 			)
382 	);
383 
384 	if (errstatus != OCI_SUCCESS) {
385 		connection->errcode = php_oci_error(connection->err, errstatus);
386 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
387 		return 1;
388 	}
389 
390 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
391 	return 0;
392 }
393 /* }}} */
394 
395 /* {{{ php_oci_collection_append_string()
396  Append STRING to the end of the collection */
php_oci_collection_append_string(php_oci_collection * collection,char * element,int element_len)397 int php_oci_collection_append_string(php_oci_collection *collection, char *element, int element_len)
398 {
399 	OCIInd new_index = OCI_IND_NOTNULL;
400 	OCIString *ocistr = (OCIString *)0;
401 	php_oci_connection *connection = collection->connection;
402 	sword errstatus;
403 
404 	PHP_OCI_CALL_RETURN(errstatus, OCIStringAssignText, (connection->env, connection->err, (CONST oratext *)element, element_len, &ocistr));
405 
406 	if (errstatus != OCI_SUCCESS) {
407 		connection->errcode = php_oci_error(connection->err, errstatus);
408 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
409 		return 1;
410 	}
411 
412 	PHP_OCI_CALL_RETURN(errstatus, OCICollAppend,
413 			(
414 			 connection->env,
415 			 connection->err,
416 			 (dvoid *) ocistr,
417 			 (dvoid *) &new_index,
418 			 (OCIColl *) collection->collection
419 			)
420 	);
421 
422 	if (errstatus != OCI_SUCCESS) {
423 		connection->errcode = php_oci_error(connection->err, errstatus);
424 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
425 		return 1;
426 	}
427 
428 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
429 	return 0;
430 }
431 /* }}} */
432 
433 /* {{{ php_oci_collection_append()
434  Append wrapper. Appends any supported element to the end of the collection */
php_oci_collection_append(php_oci_collection * collection,char * element,int element_len)435 int php_oci_collection_append(php_oci_collection *collection, char *element, int element_len)
436 {
437 	if (element_len == 0) {
438 		return php_oci_collection_append_null(collection);
439 	}
440 
441 	switch(collection->element_typecode) {
442 		case OCI_TYPECODE_DATE:
443 			return php_oci_collection_append_date(collection, element, element_len);
444 			break;
445 
446 		case OCI_TYPECODE_VARCHAR2 :
447 			return php_oci_collection_append_string(collection, element, element_len);
448 			break;
449 
450 		case OCI_TYPECODE_UNSIGNED16 :						 /* UNSIGNED SHORT	*/
451 		case OCI_TYPECODE_UNSIGNED32 :						  /* UNSIGNED LONG	*/
452 		case OCI_TYPECODE_REAL :									 /* REAL	*/
453 		case OCI_TYPECODE_DOUBLE :									 /* DOUBLE	*/
454 		case OCI_TYPECODE_INTEGER :										/* INT	*/
455 		case OCI_TYPECODE_SIGNED16 :								  /* SHORT	*/
456 		case OCI_TYPECODE_SIGNED32 :								   /* LONG	*/
457 		case OCI_TYPECODE_DECIMAL :									/* DECIMAL	*/
458 		case OCI_TYPECODE_FLOAT :									/* FLOAT	*/
459 		case OCI_TYPECODE_NUMBER :									/* NUMBER	*/
460 		case OCI_TYPECODE_SMALLINT :								/* SMALLINT */
461 			return php_oci_collection_append_number(collection, element, element_len);
462 			break;
463 
464 		default:
465 			php_error_docref(NULL, E_NOTICE, "Unknown or unsupported type of element: %d", collection->element_typecode);
466 			return 1;
467 			break;
468 	}
469 	/* never reached */
470 	return 1;
471 }
472 /* }}} */
473 
474 /* {{{ php_oci_collection_element_get()
475  Get the element with the given index */
php_oci_collection_element_get(php_oci_collection * collection,zend_long index,zval * result_element)476 int php_oci_collection_element_get(php_oci_collection *collection, zend_long index, zval *result_element)
477 {
478 	php_oci_connection *connection = collection->connection;
479 	dvoid *element;
480 	OCIInd *element_index;
481 	boolean exists;
482 	oratext buff[1024];
483 	ub4 buff_len = 1024;
484 	sword errstatus;
485 
486 	ZVAL_NULL(result_element);
487 
488 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
489 
490 	PHP_OCI_CALL_RETURN(errstatus, OCICollGetElem,
491 			(
492 			 connection->env,
493 			 connection->err,
494 			 collection->collection,
495 			 (ub4)index,
496 			 &exists,
497 			 &element,
498 			 (dvoid **)&element_index
499 			)
500 	);
501 
502 	if (errstatus != OCI_SUCCESS) {
503 		connection->errcode = php_oci_error(connection->err, errstatus);
504 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
505 		return 1;
506 	}
507 
508 	if (exists == 0) {
509 		/* element doesn't exist */
510 		return 1;
511 	}
512 
513 	if (*element_index == OCI_IND_NULL) {
514 		/* this is not an error, we're returning NULL here */
515 		return 0;
516 	}
517 
518 	switch (collection->element_typecode) {
519 		case OCI_TYPECODE_DATE:
520 			PHP_OCI_CALL_RETURN(errstatus, OCIDateToText, (connection->err, element, 0, 0, 0, 0, &buff_len, buff));
521 
522 			if (errstatus != OCI_SUCCESS) {
523 				connection->errcode = php_oci_error(connection->err, errstatus);
524 				PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
525 				return 1;
526 			}
527 
528 			ZVAL_STRINGL(result_element, (char *)buff, buff_len);
529 			Z_STRVAL_P(result_element)[buff_len] = '\0';
530 
531 			return 0;
532 			break;
533 
534 		case OCI_TYPECODE_VARCHAR2:
535 		{
536 			OCIString *oci_string = *(OCIString **)element;
537 			text *str;
538 
539 			PHP_OCI_CALL_RETURN(str, OCIStringPtr, (connection->env, oci_string));
540 
541 			if (str) {
542 				ZVAL_STRING(result_element, (char *)str);
543 			}
544 			return 0;
545 		}
546 			break;
547 
548 		case OCI_TYPECODE_UNSIGNED16:						/* UNSIGNED SHORT  */
549 		case OCI_TYPECODE_UNSIGNED32:						/* UNSIGNED LONG  */
550 		case OCI_TYPECODE_REAL:								/* REAL	   */
551 		case OCI_TYPECODE_DOUBLE:							/* DOUBLE  */
552 		case OCI_TYPECODE_INTEGER:							/* INT	*/
553 		case OCI_TYPECODE_SIGNED16:							/* SHORT  */
554 		case OCI_TYPECODE_SIGNED32:							/* LONG	 */
555 		case OCI_TYPECODE_DECIMAL:							/* DECIMAL	*/
556 		case OCI_TYPECODE_FLOAT:							/* FLOAT	*/
557 		case OCI_TYPECODE_NUMBER:							/* NUMBER	*/
558 		case OCI_TYPECODE_SMALLINT:							/* SMALLINT */
559 		{
560 			double double_number;
561 
562 			PHP_OCI_CALL_RETURN(errstatus, OCINumberToReal, (connection->err, (CONST OCINumber *) element, (uword) sizeof(double), (dvoid *) &double_number));
563 
564 			if (errstatus != OCI_SUCCESS) {
565 				connection->errcode = php_oci_error(connection->err, errstatus);
566 				PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
567 				return 1;
568 			}
569 
570 			ZVAL_DOUBLE(result_element, double_number);
571 
572 			return 0;
573 		}
574 			break;
575 		default:
576 			php_error_docref(NULL, E_NOTICE, "Unknown or unsupported type of element: %d", collection->element_typecode);
577 			return 1;
578 			break;
579 	}
580 	/* never reached */
581 	return 1;
582 }
583 /* }}} */
584 
585 /* {{{ php_oci_collection_element_set_null()
586  Set the element with the given index to NULL */
php_oci_collection_element_set_null(php_oci_collection * collection,zend_long index)587 int php_oci_collection_element_set_null(php_oci_collection *collection, zend_long index)
588 {
589 	OCIInd null_index = OCI_IND_NULL;
590 	php_oci_connection *connection = collection->connection;
591 	sword errstatus;
592 
593 	/* set NULL element */
594 	PHP_OCI_CALL_RETURN(errstatus, OCICollAssignElem, (connection->env, connection->err, (ub4) index, (dvoid *)"", &null_index, collection->collection));
595 
596 	if (errstatus != OCI_SUCCESS) {
597 		connection->errcode = php_oci_error(connection->err, errstatus);
598 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
599 		return 1;
600 	}
601 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
602 	return 0;
603 }
604 /* }}} */
605 
606 /* {{{ php_oci_collection_element_set_date()
607  Change element's value to the given DATE */
php_oci_collection_element_set_date(php_oci_collection * collection,zend_long index,char * date,int date_len)608 int php_oci_collection_element_set_date(php_oci_collection *collection, zend_long index, char *date, int date_len)
609 {
610 	OCIInd new_index = OCI_IND_NOTNULL;
611 	OCIDate oci_date;
612 	php_oci_connection *connection = collection->connection;
613 	sword errstatus;
614 
615 	/* format and language are NULLs, so format is "DD-MON-YY" and language is the default language of the session */
616 	PHP_OCI_CALL_RETURN(errstatus, OCIDateFromText, (connection->err, (CONST text *)date, date_len, NULL, 0, NULL, 0, &oci_date));
617 
618 	if (errstatus != OCI_SUCCESS) {
619 		/* failed to convert string to date */
620 		connection->errcode = php_oci_error(connection->err, errstatus);
621 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
622 		return 1;
623 	}
624 
625 	PHP_OCI_CALL_RETURN(errstatus, OCICollAssignElem,
626 			(
627 			 connection->env,
628 			 connection->err,
629 			 (ub4)index,
630 			 (dvoid *) &oci_date,
631 			 (dvoid *) &new_index,
632 			 (OCIColl *) collection->collection
633 			 )
634 	);
635 
636 	if (errstatus != OCI_SUCCESS) {
637 		connection->errcode = php_oci_error(connection->err, errstatus);
638 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
639 		return 1;
640 	}
641 
642 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
643 	return 0;
644 }
645 /* }}} */
646 
647 /* {{{ php_oci_collection_element_set_number()
648  Change element's value to the given NUMBER */
php_oci_collection_element_set_number(php_oci_collection * collection,zend_long index,char * number,int number_len)649 int php_oci_collection_element_set_number(php_oci_collection *collection, zend_long index, char *number, int number_len)
650 {
651 	OCIInd new_index = OCI_IND_NOTNULL;
652 	double element_double;
653 	OCINumber oci_number;
654 	php_oci_connection *connection = collection->connection;
655 	sword errstatus;
656 
657 	element_double = zend_strtod(number, NULL);
658 
659 	PHP_OCI_CALL_RETURN(errstatus, OCINumberFromReal, (connection->err, &element_double, sizeof(double), &oci_number));
660 
661 	if (errstatus != OCI_SUCCESS) {
662 		connection->errcode = php_oci_error(connection->err, errstatus);
663 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
664 		return 1;
665 	}
666 
667 	PHP_OCI_CALL_RETURN(errstatus, OCICollAssignElem,
668 			(
669 			 connection->env,
670 			 connection->err,
671 			 (ub4) index,
672 			 (dvoid *) &oci_number,
673 			 (dvoid *) &new_index,
674 			 (OCIColl *) collection->collection
675 			 )
676 	);
677 
678 	if (errstatus != OCI_SUCCESS) {
679 		connection->errcode = php_oci_error(connection->err, errstatus);
680 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
681 		return 1;
682 	}
683 
684 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
685 	return 0;
686 }
687 /* }}} */
688 
689 /* {{{ php_oci_collection_element_set_string()
690  Change element's value to the given string */
php_oci_collection_element_set_string(php_oci_collection * collection,zend_long index,char * element,int element_len)691 int php_oci_collection_element_set_string(php_oci_collection *collection, zend_long index, char *element, int element_len)
692 {
693 	OCIInd new_index = OCI_IND_NOTNULL;
694 	OCIString *ocistr = (OCIString *)0;
695 	php_oci_connection *connection = collection->connection;
696 	sword errstatus;
697 
698 	PHP_OCI_CALL_RETURN(errstatus, OCIStringAssignText, (connection->env, connection->err, (CONST oratext *)element, element_len, &ocistr));
699 
700 	if (errstatus != OCI_SUCCESS) {
701 		connection->errcode = php_oci_error(connection->err, errstatus);
702 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
703 		return 1;
704 	}
705 
706 	PHP_OCI_CALL_RETURN(errstatus, OCICollAssignElem,
707 			(
708 			 connection->env,
709 			 connection->err,
710 			 (ub4)index,
711 			 (dvoid *) ocistr,
712 			 (dvoid *) &new_index,
713 			 (OCIColl *) collection->collection
714 			 )
715 	);
716 
717 	if (errstatus != OCI_SUCCESS) {
718 		connection->errcode = php_oci_error(connection->err, errstatus);
719 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
720 		return 1;
721 	}
722 
723 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
724 	return 0;
725 }
726 /* }}} */
727 
728 /* {{{ php_oci_collection_element_set()
729  Collection element setter */
php_oci_collection_element_set(php_oci_collection * collection,zend_long index,char * value,int value_len)730 int php_oci_collection_element_set(php_oci_collection *collection, zend_long index, char *value, int value_len)
731 {
732 	if (value_len == 0) {
733 		return php_oci_collection_element_set_null(collection, index);
734 	}
735 
736 	switch(collection->element_typecode) {
737 		case OCI_TYPECODE_DATE:
738 			return php_oci_collection_element_set_date(collection, index, value, value_len);
739 			break;
740 
741 		case OCI_TYPECODE_VARCHAR2 :
742 			return php_oci_collection_element_set_string(collection, index, value, value_len);
743 			break;
744 
745 		case OCI_TYPECODE_UNSIGNED16 :						 /* UNSIGNED SHORT	*/
746 		case OCI_TYPECODE_UNSIGNED32 :						  /* UNSIGNED LONG	*/
747 		case OCI_TYPECODE_REAL :									 /* REAL	*/
748 		case OCI_TYPECODE_DOUBLE :									 /* DOUBLE	*/
749 		case OCI_TYPECODE_INTEGER :										/* INT	*/
750 		case OCI_TYPECODE_SIGNED16 :								  /* SHORT	*/
751 		case OCI_TYPECODE_SIGNED32 :								   /* LONG	*/
752 		case OCI_TYPECODE_DECIMAL :									/* DECIMAL	*/
753 		case OCI_TYPECODE_FLOAT :									/* FLOAT	*/
754 		case OCI_TYPECODE_NUMBER :									/* NUMBER	*/
755 		case OCI_TYPECODE_SMALLINT :								/* SMALLINT */
756 			return php_oci_collection_element_set_number(collection, index, value, value_len);
757 			break;
758 
759 		default:
760 			php_error_docref(NULL, E_NOTICE, "Unknown or unsupported type of element: %d", collection->element_typecode);
761 			return 1;
762 			break;
763 	}
764 	/* never reached */
765 	return 1;
766 }
767 /* }}} */
768 
769 /* {{{ php_oci_collection_assign()
770  Assigns a value to the collection from another collection */
php_oci_collection_assign(php_oci_collection * collection_dest,php_oci_collection * collection_from)771 int php_oci_collection_assign(php_oci_collection *collection_dest, php_oci_collection *collection_from)
772 {
773 	php_oci_connection *connection = collection_dest->connection;
774 	sword errstatus;
775 
776 	PHP_OCI_CALL_RETURN(errstatus, OCICollAssign, (connection->env, connection->err, collection_from->collection, collection_dest->collection));
777 
778 	if (errstatus != OCI_SUCCESS) {
779 		connection->errcode = php_oci_error(connection->err, errstatus);
780 		PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
781 		return 1;
782 	}
783 	connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
784 	return 0;
785 }
786 /* }}} */
787 
788 /* {{{ php_oci_collection_close()
789  Destroy collection and all associated resources */
php_oci_collection_close(php_oci_collection * collection)790 void php_oci_collection_close(php_oci_collection *collection)
791 {
792 	php_oci_connection *connection = collection->connection;
793 	sword errstatus;
794 
795 	if (collection->collection) {
796 		PHP_OCI_CALL_RETURN(errstatus, OCIObjectFree, (connection->env, connection->err, (dvoid *)collection->collection, (ub2)OCI_OBJECTFREE_FORCE));
797 
798 		if (errstatus != OCI_SUCCESS) {
799 			connection->errcode = php_oci_error(connection->err, errstatus);
800 			PHP_OCI_HANDLE_ERROR(connection, connection->errcode);
801 		} else {
802 			connection->errcode = 0; /* retain backwards compat with OCI8 1.4 */
803 		}
804 	}
805 
806 	zend_list_delete(collection->connection->id);
807 	efree(collection);
808 	return;
809 }
810 /* }}} */
811 
812 #endif /* HAVE_OCI8 */
813 
814 /*
815  * Local variables:
816  * tab-width: 4
817  * c-basic-offset: 4
818  * End:
819  * vim600: noet sw=4 ts=4 fdm=marker
820  * vim<600: noet sw=4 ts=4
821  */
822