1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 5 |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1997-2013 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: Sara Golemon <pollita@php.net> |
16 +----------------------------------------------------------------------+
17 */
18
19 /* $Id$ */
20
21 #include "php_http.h"
22 #include "php_ini.h"
23 #include "url.h"
24
25 #define URL_DEFAULT_ARG_SEP "&"
26
27 /* {{{ php_url_encode_hash */
php_url_encode_hash_ex(HashTable * ht,smart_str * formstr,const char * num_prefix,int num_prefix_len,const char * key_prefix,int key_prefix_len,const char * key_suffix,int key_suffix_len,zval * type,char * arg_sep TSRMLS_DC)28 PHPAPI int php_url_encode_hash_ex(HashTable *ht, smart_str *formstr,
29 const char *num_prefix, int num_prefix_len,
30 const char *key_prefix, int key_prefix_len,
31 const char *key_suffix, int key_suffix_len,
32 zval *type, char *arg_sep TSRMLS_DC)
33 {
34 char *key = NULL, *ekey, *newprefix, *p;
35 int arg_sep_len, key_len, ekey_len, key_type, newprefix_len;
36 ulong idx;
37 zval **zdata = NULL, *copyzval;
38
39 if (!ht) {
40 return FAILURE;
41 }
42
43 if (ht->nApplyCount > 0) {
44 /* Prevent recursion */
45 return SUCCESS;
46 }
47
48 if (!arg_sep) {
49 arg_sep = INI_STR("arg_separator.output");
50 if (!arg_sep || !strlen(arg_sep)) {
51 arg_sep = URL_DEFAULT_ARG_SEP;
52 }
53 }
54 arg_sep_len = strlen(arg_sep);
55
56 for (zend_hash_internal_pointer_reset(ht);
57 (key_type = zend_hash_get_current_key_ex(ht, &key, &key_len, &idx, 0, NULL)) != HASH_KEY_NON_EXISTANT;
58 zend_hash_move_forward(ht)
59 ) {
60 if (key_type == HASH_KEY_IS_STRING && key_len && key[key_len-1] == '\0') {
61 /* We don't want that trailing NULL */
62 key_len -= 1;
63 }
64
65 /* handling for private & protected object properties */
66 if (key && *key == '\0' && type != NULL) {
67 char *tmp;
68
69 zend_object *zobj = zend_objects_get_address(type TSRMLS_CC);
70 if (zend_check_property_access(zobj, key, key_len-1 TSRMLS_CC) != SUCCESS) {
71 /* private or protected property access outside of the class */
72 continue;
73 }
74 zend_unmangle_property_name(key, key_len-1, &tmp, &key);
75 key_len = strlen(key);
76 }
77
78 if (zend_hash_get_current_data_ex(ht, (void **)&zdata, NULL) == FAILURE || !zdata || !(*zdata)) {
79 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Error traversing form data array");
80 return FAILURE;
81 }
82 if (Z_TYPE_PP(zdata) == IS_ARRAY || Z_TYPE_PP(zdata) == IS_OBJECT) {
83 if (key_type == HASH_KEY_IS_STRING) {
84 ekey = php_url_encode(key, key_len, &ekey_len);
85 newprefix_len = key_suffix_len + ekey_len + key_prefix_len + 3 /* %5B */;
86 newprefix = emalloc(newprefix_len + 1);
87 p = newprefix;
88
89 if (key_prefix) {
90 memcpy(p, key_prefix, key_prefix_len);
91 p += key_prefix_len;
92 }
93
94 memcpy(p, ekey, ekey_len);
95 p += ekey_len;
96 efree(ekey);
97
98 if (key_suffix) {
99 memcpy(p, key_suffix, key_suffix_len);
100 p += key_suffix_len;
101 }
102 *(p++) = '%';
103 *(p++) = '5';
104 *(p++) = 'B';
105 *p = '\0';
106 } else {
107 /* Is an integer key */
108 ekey_len = spprintf(&ekey, 0, "%ld", idx);
109 newprefix_len = key_prefix_len + num_prefix_len + ekey_len + key_suffix_len + 3 /* %5B */;
110 newprefix = emalloc(newprefix_len + 1);
111 p = newprefix;
112
113 if (key_prefix) {
114 memcpy(p, key_prefix, key_prefix_len);
115 p += key_prefix_len;
116 }
117
118 memcpy(p, num_prefix, num_prefix_len);
119 p += num_prefix_len;
120
121 memcpy(p, ekey, ekey_len);
122 p += ekey_len;
123 efree(ekey);
124
125 if (key_suffix) {
126 memcpy(p, key_suffix, key_suffix_len);
127 p += key_suffix_len;
128 }
129 *(p++) = '%';
130 *(p++) = '5';
131 *(p++) = 'B';
132 *p = '\0';
133 }
134 ht->nApplyCount++;
135 php_url_encode_hash_ex(HASH_OF(*zdata), formstr, NULL, 0, newprefix, newprefix_len, "%5D", 3, (Z_TYPE_PP(zdata) == IS_OBJECT ? *zdata : NULL), arg_sep TSRMLS_CC);
136 ht->nApplyCount--;
137 efree(newprefix);
138 } else if (Z_TYPE_PP(zdata) == IS_NULL || Z_TYPE_PP(zdata) == IS_RESOURCE) {
139 /* Skip these types */
140 continue;
141 } else {
142 if (formstr->len) {
143 smart_str_appendl(formstr, arg_sep, arg_sep_len);
144 }
145 /* Simple key=value */
146 smart_str_appendl(formstr, key_prefix, key_prefix_len);
147 if (key_type == HASH_KEY_IS_STRING) {
148 ekey = php_url_encode(key, key_len, &ekey_len);
149 smart_str_appendl(formstr, ekey, ekey_len);
150 efree(ekey);
151 } else {
152 /* Numeric key */
153 if (num_prefix) {
154 smart_str_appendl(formstr, num_prefix, num_prefix_len);
155 }
156 ekey_len = spprintf(&ekey, 0, "%ld", idx);
157 smart_str_appendl(formstr, ekey, ekey_len);
158 efree(ekey);
159 }
160 smart_str_appendl(formstr, key_suffix, key_suffix_len);
161 smart_str_appendl(formstr, "=", 1);
162 switch (Z_TYPE_PP(zdata)) {
163 case IS_STRING:
164 ekey = php_url_encode(Z_STRVAL_PP(zdata), Z_STRLEN_PP(zdata), &ekey_len);
165 break;
166 case IS_LONG:
167 case IS_BOOL:
168 ekey_len = spprintf(&ekey, 0, "%ld", Z_LVAL_PP(zdata));
169 break;
170 case IS_DOUBLE:
171 ekey_len = spprintf(&ekey, 0, "%.*G", (int) EG(precision), Z_DVAL_PP(zdata));
172 break;
173 default:
174 /* fall back on convert to string */
175 MAKE_STD_ZVAL(copyzval);
176 *copyzval = **zdata;
177 zval_copy_ctor(copyzval);
178 convert_to_string_ex(©zval);
179 ekey = php_url_encode(Z_STRVAL_P(copyzval), Z_STRLEN_P(copyzval), &ekey_len);
180 zval_ptr_dtor(©zval);
181 }
182 smart_str_appendl(formstr, ekey, ekey_len);
183 efree(ekey);
184 }
185 }
186
187 return SUCCESS;
188 }
189 /* }}} */
190
191 /* {{{ proto string http_build_query(mixed formdata [, string prefix [, string arg_separator]])
192 Generates a form-encoded query string from an associative array or object. */
PHP_FUNCTION(http_build_query)193 PHP_FUNCTION(http_build_query)
194 {
195 zval *formdata;
196 char *prefix = NULL, *arg_sep=NULL;
197 int arg_sep_len = 0, prefix_len = 0;
198 smart_str formstr = {0};
199
200
201 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|ss", &formdata, &prefix, &prefix_len, &arg_sep, &arg_sep_len) != SUCCESS) {
202 RETURN_FALSE;
203 }
204
205 if (Z_TYPE_P(formdata) != IS_ARRAY && Z_TYPE_P(formdata) != IS_OBJECT) {
206 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Parameter 1 expected to be Array or Object. Incorrect value given");
207 RETURN_FALSE;
208 }
209
210 if (php_url_encode_hash_ex(HASH_OF(formdata), &formstr, prefix, prefix_len, NULL, 0, NULL, 0, (Z_TYPE_P(formdata) == IS_OBJECT ? formdata : NULL), arg_sep TSRMLS_CC) == FAILURE) {
211 if (formstr.c) {
212 efree(formstr.c);
213 }
214 RETURN_FALSE;
215 }
216
217 if (!formstr.c) {
218 RETURN_EMPTY_STRING();
219 }
220
221 smart_str_0(&formstr);
222
223 RETURN_STRINGL(formstr.c, formstr.len, 0);
224 }
225 /* }}} */
226
227 /*
228 * Local variables:
229 * tab-width: 4
230 * c-basic-offset: 4
231 * End:
232 * vim600: sw=4 ts=4 fdm=marker
233 * vim<600: sw=4 ts=4
234 */
235
236
