2 +--------------------------------------------------------------------+
4 +--------------------------------------------------------------------+
5 | Redistribution and use in source and binary forms, with or without |
6 | modification, are permitted provided that the conditions mentioned |
7 | in the accompanying LICENSE file are met. |
8 +--------------------------------------------------------------------+
9 | Copyright (c) 2004-2006, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
15 #define HTTP_WANT_SAPI
20 #include "php_variables.h"
21 #include "zend_interfaces.h"
24 # include "ext/standard/url.h"
25 # include "ext/iconv/php_iconv.h"
28 #include "php_http_api.h"
29 #include "php_http_url_api.h"
30 #include "php_http_querystring_object.h"
31 #include "php_http_exception_object.h"
33 #define HTTP_BEGIN_ARGS(method, req_args) HTTP_BEGIN_ARGS_EX(HttpQueryString, method, 0, req_args)
34 #define HTTP_EMPTY_ARGS(method) HTTP_EMPTY_ARGS_EX(HttpQueryString, method, 0)
35 #define HTTP_QUERYSTRING_ME(method, visibility) PHP_ME(HttpQueryString, method, HTTP_ARGS(HttpQueryString, method), visibility)
36 #define HTTP_QUERYSTRING_GME(method, visibility) PHP_ME(HttpQueryString, method, HTTP_ARGS(HttpQueryString, __getter), visibility)
38 HTTP_BEGIN_ARGS(__construct
, 0)
39 HTTP_ARG_VAL(global
, 0)
40 HTTP_ARG_VAL(params
, 0)
44 HTTP_BEGIN_ARGS(getInstance
, 0)
45 HTTP_ARG_VAL(global
, 0)
49 HTTP_EMPTY_ARGS(toArray
);
50 HTTP_EMPTY_ARGS(toString
);
52 HTTP_BEGIN_ARGS(get
, 0)
55 HTTP_ARG_VAL(defval
, 0)
56 HTTP_ARG_VAL(delete, 0)
59 HTTP_BEGIN_ARGS(set
, 1)
60 HTTP_ARG_VAL(params
, 0)
63 HTTP_BEGIN_ARGS(__getter
, 1)
65 HTTP_ARG_VAL(defval
, 0)
66 HTTP_ARG_VAL(delete, 0)
70 HTTP_BEGIN_ARGS(iconv
, 2)
71 HTTP_ARG_VAL(from_encoding
, 0)
72 HTTP_ARG_VAL(to_encoding
, 0)
76 HTTP_EMPTY_ARGS(serialize
);
77 HTTP_BEGIN_ARGS(unserialize
, 1)
78 HTTP_ARG_VAL(serialized
, 0)
81 #define http_querystring_object_declare_default_properties() _http_querystring_object_declare_default_properties(TSRMLS_C)
82 static inline void _http_querystring_object_declare_default_properties(TSRMLS_D
);
84 #define GET_STATIC_PROP(n) *GET_STATIC_PROP_EX(http_querystring_object_ce, n)
85 #define SET_STATIC_PROP(n, v) SET_STATIC_PROP_EX(http_querystring_object_ce, n, v)
86 #define OBJ_PROP_CE http_querystring_object_ce
87 zend_class_entry
*http_querystring_object_ce
;
88 zend_function_entry http_querystring_object_fe
[] = {
89 HTTP_QUERYSTRING_ME(__construct
, ZEND_ACC_PUBLIC
|ZEND_ACC_CTOR
|ZEND_ACC_FINAL
)
91 HTTP_QUERYSTRING_ME(toArray
, ZEND_ACC_PUBLIC
)
92 HTTP_QUERYSTRING_ME(toString
, ZEND_ACC_PUBLIC
)
93 ZEND_MALIAS(HttpQueryString
, __toString
, toString
, HTTP_ARGS(HttpQueryString
, toString
), ZEND_ACC_PUBLIC
)
95 HTTP_QUERYSTRING_ME(get
, ZEND_ACC_PUBLIC
)
96 HTTP_QUERYSTRING_ME(set
, ZEND_ACC_PUBLIC
)
99 HTTP_QUERYSTRING_ME(getInstance
, ZEND_ACC_PUBLIC
|ZEND_ACC_STATIC
)
102 HTTP_QUERYSTRING_GME(getBool
, ZEND_ACC_PUBLIC
)
103 HTTP_QUERYSTRING_GME(getInt
, ZEND_ACC_PUBLIC
)
104 HTTP_QUERYSTRING_GME(getFloat
, ZEND_ACC_PUBLIC
)
105 HTTP_QUERYSTRING_GME(getString
, ZEND_ACC_PUBLIC
)
106 HTTP_QUERYSTRING_GME(getArray
, ZEND_ACC_PUBLIC
)
107 HTTP_QUERYSTRING_GME(getObject
, ZEND_ACC_PUBLIC
)
110 HTTP_QUERYSTRING_ME(iconv
, ZEND_ACC_PUBLIC
)
113 /* Implements Serializable */
114 HTTP_QUERYSTRING_ME(serialize
, ZEND_ACC_PUBLIC
)
115 HTTP_QUERYSTRING_ME(unserialize
, ZEND_ACC_PUBLIC
)
119 static zend_object_handlers http_querystring_object_handlers
;
121 PHP_MINIT_FUNCTION(http_querystring_object
)
123 HTTP_REGISTER_CLASS_EX(HttpQueryString
, http_querystring_object
, NULL
, 0);
126 zend_class_implements(http_querystring_object_ce TSRMLS_CC
, 1, zend_ce_serializable
);
129 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_BOOL", HTTP_QUERYSTRING_TYPE_BOOL
);
130 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_INT", HTTP_QUERYSTRING_TYPE_INT
);
131 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_FLOAT", HTTP_QUERYSTRING_TYPE_FLOAT
);
132 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_STRING", HTTP_QUERYSTRING_TYPE_STRING
);
133 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_ARRAY", HTTP_QUERYSTRING_TYPE_ARRAY
);
134 HTTP_LONG_CONSTANT("HTTP_QUERYSTRING_TYPE_OBJECT", HTTP_QUERYSTRING_TYPE_OBJECT
);
139 zend_object_value
_http_querystring_object_new(zend_class_entry
*ce TSRMLS_DC
)
141 return http_querystring_object_new_ex(ce
, NULL
);
144 zend_object_value
_http_querystring_object_new_ex(zend_class_entry
*ce
, http_querystring_object
**ptr TSRMLS_DC
)
146 zend_object_value ov
;
147 http_querystring_object
*o
;
149 o
= ecalloc(1, sizeof(http_querystring_object
));
156 ALLOC_HASHTABLE(OBJ_PROP(o
));
157 zend_hash_init(OBJ_PROP(o
), 0, NULL
, ZVAL_PTR_DTOR
, 0);
158 zend_hash_copy(OBJ_PROP(o
), &ce
->default_properties
, (copy_ctor_func_t
) zval_add_ref
, NULL
, sizeof(zval
*));
160 ov
.handle
= putObject(http_querystring_object
, o
);
161 ov
.handlers
= &http_querystring_object_handlers
;
166 static inline void _http_querystring_object_declare_default_properties(TSRMLS_D
)
168 zend_class_entry
*ce
= http_querystring_object_ce
;
170 DCL_STATIC_PROP_N(PRIVATE
, instance
);
172 DCL_PROP_N(PRIVATE
, queryArray
);
173 DCL_PROP(PRIVATE
, string
, queryString
, "");
176 DCL_CONST(long, "TYPE_BOOL", HTTP_QUERYSTRING_TYPE_BOOL
);
177 DCL_CONST(long, "TYPE_INT", HTTP_QUERYSTRING_TYPE_INT
);
178 DCL_CONST(long, "TYPE_FLOAT", HTTP_QUERYSTRING_TYPE_FLOAT
);
179 DCL_CONST(long, "TYPE_STRING", HTTP_QUERYSTRING_TYPE_STRING
);
180 DCL_CONST(long, "TYPE_ARRAY", HTTP_QUERYSTRING_TYPE_ARRAY
);
181 DCL_CONST(long, "TYPE_OBJECT", HTTP_QUERYSTRING_TYPE_OBJECT
);
185 void _http_querystring_object_free(zend_object
*object TSRMLS_DC
)
187 http_querystring_object
*o
= (http_querystring_object
*) object
;
190 zend_hash_destroy(OBJ_PROP(o
));
191 FREE_HASHTABLE(OBJ_PROP(o
));
196 /* {{{ querystring helpers */
197 #define http_querystring_update(qa, qs) _http_querystring_update((qa), (qs) TSRMLS_CC)
198 static inline void _http_querystring_update(zval
*qarray
, zval
*qstring TSRMLS_DC
);
199 #define http_querystring_modify_ex(a, k, l, v) _http_querystring_modify_ex((a), (k), (l), (v) TSRMLS_CC)
200 static inline int _http_querystring_modify_ex(zval
*qarray
, char *key
, uint keylen
, zval
*data TSRMLS_DC
);
201 #define http_querystring_modify_array_ex(q, k, kl, pe) _http_querystring_modify_array_ex((q), (k), (kl), (pe) TSRMLS_CC)
202 static inline int _http_querystring_modify_array_ex(zval
*qarray
, char *key
, int keylen
, zval
*params_entry TSRMLS_DC
);
203 #define http_querystring_modify_array(q, p) _http_querystring_modify_array((q), (p) TSRMLS_CC)
204 static inline int _http_querystring_modify_array(zval
*qarray
, zval
*params TSRMLS_DC
);
205 #define http_querystring_modify(q, p) _http_querystring_modify((q), (p) TSRMLS_CC)
206 static inline int _http_querystring_modify(zval
*qarray
, zval
*params TSRMLS_DC
);
207 #define http_querystring_get(o, t, n, l, def, del, r) _http_querystring_get((o), (t), (n), (l), (def), (del), (r) TSRMLS_CC)
208 static inline void _http_querystring_get(zval
*this_ptr
, int type
, char *name
, uint name_len
, zval
*defval
, zend_bool del
, zval
*return_value TSRMLS_DC
);
210 #define http_querystring_instantiate(g) _http_querystring_instantiate((g) TSRMLS_CC)
211 static inline zval
*_http_querystring_instantiate(zend_bool global TSRMLS_DC
)
213 zval
*zobj
, *zglobal
;
215 MAKE_STD_ZVAL(zglobal
);
216 ZVAL_BOOL(zglobal
, global
);
219 Z_TYPE_P(zobj
) = IS_OBJECT
;
220 Z_OBJVAL_P(zobj
) = http_querystring_object_new(http_querystring_object_ce
);
221 zend_call_method_with_1_params(&zobj
, Z_OBJCE_P(zobj
), NULL
, "__construct", NULL
, zglobal
);
223 zval_ptr_dtor(&zglobal
);
228 static inline void _http_querystring_update(zval
*qarray
, zval
*qstring TSRMLS_DC
)
233 if (Z_TYPE_P(qarray
) != IS_ARRAY
) {
234 convert_to_array(qarray
);
236 if (SUCCESS
== http_urlencode_hash_ex(Z_ARRVAL_P(qarray
), 0, NULL
, 0, &s
, &l
)) {
238 ZVAL_STRINGL(qstring
, s
, l
, 0);
240 http_error(HE_WARNING
, HTTP_E_QUERYSTRING
, "Failed to update query string");
243 static inline int _http_querystring_modify_ex(zval
*qarray
, char *key
, uint keylen
, zval
*data TSRMLS_DC
)
245 if (Z_TYPE_P(data
) == IS_NULL
) {
246 if (SUCCESS
!= zend_hash_del(Z_ARRVAL_P(qarray
), key
, keylen
)) {
251 add_assoc_zval(qarray
, key
, data
);
255 static inline int _http_querystring_modify_array_ex(zval
*qarray
, char *key
, int keylen
, zval
*params_entry TSRMLS_DC
)
259 if ( (Z_TYPE_P(params_entry
) == IS_ARRAY
) &&
260 (SUCCESS
== zend_hash_find(Z_ARRVAL_P(qarray
), key
, keylen
, (void**) &qarray_entry
))) {
261 if (http_querystring_modify_array(*qarray_entry
, params_entry
)) {
265 if (http_querystring_modify_ex(qarray
, key
, keylen
, params_entry
)) {
271 static inline int _http_querystring_modify_array(zval
*qarray
, zval
*params TSRMLS_DC
)
280 FOREACH_KEYLENVAL(pos
, params
, key
, keylen
, idx
, params_entry
) {
282 if (http_querystring_modify_array_ex(qarray
, key
, keylen
, *params_entry
)) {
286 keylen
= spprintf(&key
, 0, "%lu", idx
);
287 if (http_querystring_modify_array_ex(qarray
, key
, keylen
, *params_entry
)) {
297 static inline int _http_querystring_modify(zval
*qarray
, zval
*params TSRMLS_DC
)
299 if (Z_TYPE_P(params
) == IS_ARRAY
) {
300 return http_querystring_modify_array(qarray
, params
);
301 } else if (Z_TYPE_P(params
) == IS_OBJECT
) {
302 if (!instanceof_function(Z_OBJCE_P(params
), http_querystring_object_ce TSRMLS_CC
)) {
304 INIT_ZARR(temp_array
, HASH_OF(params
));
305 return http_querystring_modify_array(qarray
, &temp_array
);
307 return http_querystring_modify_array(qarray
, GET_PROP_EX(params
, queryArray
));
316 convert_to_string_ex(¶ms
);
317 sapi_module
.treat_data(PARSE_STRING
, estrdup(Z_STRVAL_P(params
)), &array TSRMLS_CC
);
318 zval_ptr_dtor(¶ms
);
319 rv
= http_querystring_modify_array(qarray
, &array
);
324 static inline void _http_querystring_get(zval
*this_ptr
, int type
, char *name
, uint name_len
, zval
*defval
, zend_bool del
, zval
*return_value TSRMLS_DC
)
326 zval
**arrval
, *qarray
= GET_PROP(queryArray
);
328 if ((Z_TYPE_P(qarray
) == IS_ARRAY
) && (SUCCESS
== zend_hash_find(Z_ARRVAL_P(qarray
), name
, name_len
+ 1, (void **) &arrval
))) {
329 RETVAL_ZVAL(*arrval
, 1, 0);
332 convert_to_type(type
, return_value
);
335 if (del
&& (SUCCESS
== zend_hash_del(Z_ARRVAL_P(qarray
), name
, name_len
+ 1))) {
336 http_querystring_update(qarray
, GET_PROP(queryString
));
339 RETURN_ZVAL(defval
, 1, 0);
344 /* {{{ proto final void HttpQueryString::__construct([bool global = true[, mixed add])
346 * Creates a new HttpQueryString object instance.
347 * Operates on and modifies $_GET and $_SERVER['QUERY_STRING'] if global is TRUE.
349 PHP_METHOD(HttpQueryString
, __construct
)
351 zend_bool global
= 1;
352 zval
*params
= NULL
, *qarray
= NULL
, *qstring
= NULL
, **_GET
, **_SERVER
, **QUERY_STRING
;
355 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|bz", &global
, ¶ms
)) {
357 if ( (SUCCESS
== zend_hash_find(&EG(symbol_table
), "_SERVER", sizeof("_SERVER"), (void **) &_SERVER
)) &&
358 (Z_TYPE_PP(_SERVER
) == IS_ARRAY
) &&
359 (SUCCESS
== zend_hash_find(Z_ARRVAL_PP(_SERVER
), "QUERY_STRING", sizeof("QUERY_STRING"), (void **) &QUERY_STRING
))) {
361 qstring
= *QUERY_STRING
;
363 if ((SUCCESS
== zend_hash_find(&EG(symbol_table
), "_GET", sizeof("_GET"), (void **) &_GET
)) && (Z_TYPE_PP(_GET
) == IS_ARRAY
)) {
366 http_error(HE_WARNING
, HTTP_E_QUERYSTRING
, "Could not acquire reference to superglobal GET array");
369 http_error(HE_WARNING
, HTTP_E_QUERYSTRING
, "Could not acquire reference to QUERY_STRING");
372 if (qarray
&& qstring
) {
373 if (Z_TYPE_P(qstring
) != IS_STRING
) {
374 convert_to_string(qstring
);
377 SET_PROP(queryArray
, qarray
);
378 SET_PROP(queryString
, qstring
);
379 GET_PROP(queryArray
)->is_ref
= 1;
380 GET_PROP(queryString
)->is_ref
= 1;
382 if (params
&& http_querystring_modify(GET_PROP(queryArray
), params
)) {
383 http_querystring_update(GET_PROP(queryArray
), GET_PROP(queryString
));
387 qarray
= ecalloc(1, sizeof(zval
));
390 SET_PROP(queryArray
, qarray
);
391 UPD_STRL(queryString
, "", 0);
393 if (params
&& http_querystring_modify(qarray
, params
)) {
394 http_querystring_update(qarray
, GET_PROP(queryString
));
402 /* {{{ proto string HttpQueryString::toString()
404 * Returns the string representation.
406 PHP_METHOD(HttpQueryString
, toString
)
409 RETURN_PROP(queryString
);
413 /* {{{ proto array HttpQueryString::toArray()
415 * Returns the array representation.
417 PHP_METHOD(HttpQueryString
, toArray
)
420 RETURN_PROP(queryArray
);
424 /* {{{ proto mixed HttpQueryString::get([string key[, mixed type = 0[, mixed defval = NULL[, bool delete = false]]]])
426 * Get (part of) the query string.
428 * The type parameter is either one of the HttpQueryString::TYPE_* constants or a type abbreviation like
429 * "b" for bool, "i" for int, "f" for float, "s" for string, "a" for array and "o" for a stdClass object.
431 PHP_METHOD(HttpQueryString
, get
)
437 zval
*ztype
= NULL
, *defval
= NULL
;
439 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|szzb", &name
, &name_len
, &ztype
, &defval
, &del
)) {
440 if (name
&& name_len
) {
442 if (Z_TYPE_P(ztype
) == IS_LONG
) {
443 type
= Z_LVAL_P(ztype
);
444 } else if(Z_TYPE_P(ztype
) == IS_STRING
) {
445 switch (tolower(Z_STRVAL_P(ztype
)[0]))
447 case 'b': type
= HTTP_QUERYSTRING_TYPE_BOOL
; break;
448 case 'i': type
= HTTP_QUERYSTRING_TYPE_INT
; break;
449 case 'f': type
= HTTP_QUERYSTRING_TYPE_FLOAT
; break;
450 case 's': type
= HTTP_QUERYSTRING_TYPE_STRING
; break;
451 case 'a': type
= HTTP_QUERYSTRING_TYPE_ARRAY
; break;
452 case 'o': type
= HTTP_QUERYSTRING_TYPE_OBJECT
; break;
456 http_querystring_get(getThis(), type
, name
, name_len
, defval
, del
, return_value
);
458 RETURN_PROP(queryString
);
464 /* {{{ proto string HttpQueryString::set(mixed params)
466 * Set query string entry/entries. NULL values will unset the variable.
468 PHP_METHOD(HttpQueryString
, set
)
472 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "z", ¶ms
)) {
473 zval
*qarray
= GET_PROP(queryArray
);
474 if (http_querystring_modify(qarray
, params
)) {
475 http_querystring_update(qarray
, GET_PROP(queryString
));
480 RETURN_PROP(queryString
);
486 /* {{{ proto HttpQueryString HttpQueryString::getInstance([bool global = true])
488 * Get a single instance (differentiates between the global setting).
490 PHP_METHOD(HttpQueryString
, getInstance
)
492 zend_bool global
= 1;
493 zval
*instance
= GET_STATIC_PROP(instance
);
496 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|b", &global
)) {
497 zval
**zobj_ptr
= NULL
, *zobj
= NULL
;
499 if (Z_TYPE_P(instance
) == IS_ARRAY
) {
500 if (SUCCESS
== zend_hash_index_find(Z_ARRVAL_P(instance
), global
, (void **) &zobj_ptr
)) {
501 RETVAL_ZVAL(*zobj_ptr
, 1, 0);
503 zobj
= http_querystring_instantiate(global
);
504 add_index_zval(instance
, global
, zobj
);
505 RETVAL_OBJECT(zobj
, 1);
508 MAKE_STD_ZVAL(instance
);
509 array_init(instance
);
511 zobj
= http_querystring_instantiate(global
);
512 add_index_zval(instance
, global
, zobj
);
513 RETVAL_OBJECT(zobj
, 1);
515 SET_STATIC_PROP(instance
, instance
);
516 zval_ptr_dtor(&instance
);
524 /* {{{ Getters by type */
525 #define HTTP_QUERYSTRING_GETTER(method, TYPE) \
526 PHP_METHOD(HttpQueryString, method) \
530 zval *defval = NULL; \
532 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|zb", &name, &name_len, &defval, &del)) { \
533 http_querystring_get(getThis(), TYPE, name, name_len, defval, del, return_value); \
536 HTTP_QUERYSTRING_GETTER(getBool
, IS_BOOL
);
537 HTTP_QUERYSTRING_GETTER(getInt
, IS_LONG
);
538 HTTP_QUERYSTRING_GETTER(getFloat
, IS_DOUBLE
);
539 HTTP_QUERYSTRING_GETTER(getString
, IS_STRING
);
540 HTTP_QUERYSTRING_GETTER(getArray
, IS_ARRAY
);
541 HTTP_QUERYSTRING_GETTER(getObject
, IS_OBJECT
);
545 /* {{{ proto bool HttpQueryString::iconv(string ie, string oe)
547 * Converts the query string from the source encoding ie to the target encoding oe.
549 * Returns TRUE on success or FALSE on failure.
551 PHP_METHOD(HttpQueryString
, iconv
)
553 char *ie
, *oe
, *er
= NULL
;
558 if (SUCCESS
!= zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "ss", &ie
, &ie_len
, &oe
, &oe_len
)) {
562 qa
= GET_PROP(queryArray
);
563 qs
= GET_PROP(queryString
);
564 Z_STRLEN_P(qs
) = php_url_decode(Z_STRVAL_P(qs
), Z_STRLEN_P(qs
));
565 if (PHP_ICONV_ERR_SUCCESS
== php_iconv_string(Z_STRVAL_P(qs
), (size_t) Z_STRLEN_P(qs
), &er
, &er_len
, oe
, ie
)) {
566 efree(Z_STRVAL_P(qs
));
567 ZVAL_STRINGL(qs
, er
, er_len
, 0);
568 http_querystring_modify(qa
, qs
);
571 http_error_ex(HE_WARNING
, HTTP_E_QUERYSTRING
, "Failed to convert '%.*s' from '%s' to '%s'", Z_STRLEN_P(qs
), Z_STRVAL_P(qs
), ie
, oe
);
574 http_querystring_update(qa
, qs
);
577 #endif /* HAVE_ICONV */
579 /* {{{ proto string HttpQueryString::serialize()
581 * Implements Serializable.
583 PHP_METHOD(HttpQueryString
, serialize
)
586 RETURN_PROP(queryString
);
590 /* {{{ proto void HttpQueryString::unserialize(string serialized)
592 * Implements Serializable.
594 PHP_METHOD(HttpQueryString
, unserialize
)
599 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "z", &serialized
)) {
600 if (Z_TYPE_P(serialized
) == IS_STRING
) {
601 zval
*qa
= GET_PROP(queryArray
);
603 zend_hash_clean(Z_ARRVAL_P(qa
));
604 http_querystring_modify(qa
, serialized
);
605 http_querystring_update(qa
, GET_PROP(queryString
));
607 http_error(HE_WARNING
, HTTP_E_QUERYSTRING
, "Expected a string as parameter");
614 #endif /* ZEND_ENGINE_2 */
621 * vim600: noet sw=4 ts=4 fdm=marker
622 * vim<600: noet sw=4 ts=4