mirror of
https://github.com/php/php-src.git
synced 2024-09-22 18:37:25 +00:00
236 lines
7.1 KiB
C
236 lines
7.1 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 5 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2006 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available through the world-wide-web at the following url: |
|
|
| http://www.php.net/license/3_01.txt |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Sara Golemon <pollita@php.net> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include "php_http.h"
|
|
#include "php_ini.h"
|
|
#include "url.h"
|
|
|
|
#define URL_DEFAULT_ARG_SEP "&"
|
|
|
|
/* {{{ php_url_encode_hash */
|
|
PHPAPI int 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)
|
|
{
|
|
char *key = NULL, *ekey, *newprefix, *p;
|
|
int arg_sep_len, key_len, ekey_len, key_type, newprefix_len;
|
|
ulong idx;
|
|
zval **zdata = NULL, *copyzval;
|
|
|
|
if (!ht) {
|
|
return FAILURE;
|
|
}
|
|
|
|
if (ht->nApplyCount > 0) {
|
|
/* Prevent recursion */
|
|
return SUCCESS;
|
|
}
|
|
|
|
if (!arg_sep) {
|
|
arg_sep = INI_STR("arg_separator.output");
|
|
if (!arg_sep || !strlen(arg_sep)) {
|
|
arg_sep = URL_DEFAULT_ARG_SEP;
|
|
}
|
|
}
|
|
arg_sep_len = strlen(arg_sep);
|
|
|
|
for (zend_hash_internal_pointer_reset(ht);
|
|
(key_type = zend_hash_get_current_key_ex(ht, &key, &key_len, &idx, 0, NULL)) != HASH_KEY_NON_EXISTANT;
|
|
zend_hash_move_forward(ht)
|
|
) {
|
|
if (key_type == HASH_KEY_IS_STRING && key_len && key[key_len-1] == '\0') {
|
|
/* We don't want that trailing NULL */
|
|
key_len -= 1;
|
|
}
|
|
|
|
/* handling for private & protected object properties */
|
|
if (key && *key == '\0' && type != NULL) {
|
|
char *tmp;
|
|
|
|
zend_object *zobj = zend_objects_get_address(type TSRMLS_CC);
|
|
if (zend_check_property_access(zobj, key, key_len-1 TSRMLS_CC) != SUCCESS) {
|
|
/* private or protected property access outside of the class */
|
|
continue;
|
|
}
|
|
zend_unmangle_property_name(key, key_len-1, &tmp, &key);
|
|
key_len = strlen(key);
|
|
}
|
|
|
|
if (zend_hash_get_current_data_ex(ht, (void **)&zdata, NULL) == FAILURE || !zdata || !(*zdata)) {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Error traversing form data array.");
|
|
return FAILURE;
|
|
}
|
|
if (Z_TYPE_PP(zdata) == IS_ARRAY || Z_TYPE_PP(zdata) == IS_OBJECT) {
|
|
if (key_type == HASH_KEY_IS_STRING) {
|
|
ekey = php_url_encode(key, key_len, &ekey_len);
|
|
newprefix_len = key_suffix_len + ekey_len + key_prefix_len + 3 /* %5B */;
|
|
newprefix = emalloc(newprefix_len + 1);
|
|
p = newprefix;
|
|
|
|
if (key_prefix) {
|
|
memcpy(p, key_prefix, key_prefix_len);
|
|
p += key_prefix_len;
|
|
}
|
|
|
|
memcpy(p, ekey, ekey_len);
|
|
p += ekey_len;
|
|
efree(ekey);
|
|
|
|
if (key_suffix) {
|
|
memcpy(p, key_suffix, key_suffix_len);
|
|
p += key_suffix_len;
|
|
}
|
|
*(p++) = '%';
|
|
*(p++) = '5';
|
|
*(p++) = 'B';
|
|
*p = '\0';
|
|
} else {
|
|
/* Is an integer key */
|
|
ekey_len = spprintf(&ekey, 12, "%ld", idx);
|
|
newprefix_len = key_prefix_len + num_prefix_len + ekey_len + key_suffix_len + 3 /* %5B */;
|
|
newprefix = emalloc(newprefix_len + 1);
|
|
p = newprefix;
|
|
|
|
if (key_prefix) {
|
|
memcpy(p, key_prefix, key_prefix_len);
|
|
p += key_prefix_len;
|
|
}
|
|
|
|
memcpy(p, num_prefix, num_prefix_len);
|
|
p += num_prefix_len;
|
|
|
|
memcpy(p, ekey, ekey_len);
|
|
p += ekey_len;
|
|
efree(ekey);
|
|
|
|
if (key_suffix) {
|
|
memcpy(p, key_suffix, key_suffix_len);
|
|
p += key_suffix_len;
|
|
}
|
|
*(p++) = '%';
|
|
*(p++) = '5';
|
|
*(p++) = 'B';
|
|
*p = '\0';
|
|
}
|
|
ht->nApplyCount++;
|
|
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);
|
|
ht->nApplyCount--;
|
|
efree(newprefix);
|
|
} else if (Z_TYPE_PP(zdata) == IS_NULL || Z_TYPE_PP(zdata) == IS_RESOURCE) {
|
|
/* Skip these types */
|
|
continue;
|
|
} else {
|
|
if (formstr->len) {
|
|
smart_str_appendl(formstr, arg_sep, arg_sep_len);
|
|
}
|
|
/* Simple key=value */
|
|
smart_str_appendl(formstr, key_prefix, key_prefix_len);
|
|
if (key_type == HASH_KEY_IS_STRING) {
|
|
ekey = php_url_encode(key, key_len, &ekey_len);
|
|
smart_str_appendl(formstr, ekey, ekey_len);
|
|
efree(ekey);
|
|
} else {
|
|
/* Numeric key */
|
|
if (num_prefix) {
|
|
smart_str_appendl(formstr, num_prefix, num_prefix_len);
|
|
}
|
|
ekey_len = spprintf(&ekey, 12, "%ld", idx);
|
|
smart_str_appendl(formstr, ekey, ekey_len);
|
|
efree(ekey);
|
|
}
|
|
smart_str_appendl(formstr, key_suffix, key_suffix_len);
|
|
smart_str_appendl(formstr, "=", 1);
|
|
switch (Z_TYPE_PP(zdata)) {
|
|
case IS_STRING:
|
|
ekey = php_url_encode(Z_STRVAL_PP(zdata), Z_STRLEN_PP(zdata), &ekey_len);
|
|
break;
|
|
case IS_LONG:
|
|
case IS_BOOL:
|
|
ekey_len = spprintf(&ekey, 12, "%ld", Z_LVAL_PP(zdata));
|
|
break;
|
|
case IS_DOUBLE:
|
|
ekey_len = spprintf(&ekey, 48, "%.*G", (int) EG(precision), Z_DVAL_PP(zdata));
|
|
break;
|
|
default:
|
|
/* fall back on convert to string */
|
|
MAKE_STD_ZVAL(copyzval);
|
|
*copyzval = **zdata;
|
|
zval_copy_ctor(copyzval);
|
|
convert_to_string_ex(©zval);
|
|
ekey = php_url_encode(Z_STRVAL_P(copyzval), Z_STRLEN_P(copyzval), &ekey_len);
|
|
zval_ptr_dtor(©zval);
|
|
}
|
|
smart_str_appendl(formstr, ekey, ekey_len);
|
|
efree(ekey);
|
|
}
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string http_build_query(mixed formdata [, string prefix [, string arg_separator]])
|
|
Generates a form-encoded query string from an associative array or object. */
|
|
PHP_FUNCTION(http_build_query)
|
|
{
|
|
zval *formdata;
|
|
char *prefix = NULL, *arg_sep=NULL;
|
|
int arg_sep_len, prefix_len = 0;
|
|
smart_str formstr = {0};
|
|
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|ss", &formdata, &prefix, &prefix_len, &arg_sep, &arg_sep_len) != SUCCESS) {
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
if (Z_TYPE_P(formdata) != IS_ARRAY && Z_TYPE_P(formdata) != IS_OBJECT) {
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Parameter 1 expected to be Array or Object. Incorrect value given.");
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
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) {
|
|
if (formstr.c) {
|
|
efree(formstr.c);
|
|
}
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
if (!formstr.c) {
|
|
RETURN_NULL();
|
|
}
|
|
|
|
smart_str_0(&formstr);
|
|
|
|
RETURN_STRINGL(formstr.c, formstr.len, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
* vim<600: sw=4 ts=4
|
|
*/
|
|
|