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 */
28PHPAPI 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(&copyzval);
179                    ekey = php_url_encode(Z_STRVAL_P(copyzval), Z_STRLEN_P(copyzval), &ekey_len);
180                    zval_ptr_dtor(&copyzval);
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. */
193PHP_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