+ if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z/|z/lz", &z_old_url, &z_new_url, &flags, &z_composed_url) != SUCCESS) {
+ RETURN_FALSE;
+ }
+
+ if (z_new_url) {
+ if (Z_TYPE_P(z_new_url) == IS_ARRAY || Z_TYPE_P(z_new_url) == IS_OBJECT) {
+ new_url = array2url(HASH_OF(z_new_url));
+ } else {
+ convert_to_string(z_new_url);
+ if (!(new_url = php_url_parse_ex(Z_STRVAL_P(z_new_url), Z_STRLEN_P(z_new_url)))) {
+ http_error_ex(HE_WARNING, HTTP_E_URL, "Could not parse URL (%s)", Z_STRVAL_P(z_new_url));
+ RETURN_FALSE;
+ }
+ }
+ }
+
+ if (Z_TYPE_P(z_old_url) == IS_ARRAY || Z_TYPE_P(z_old_url) == IS_OBJECT) {
+ old_url = array2url(HASH_OF(z_old_url));
+ } else {
+ convert_to_string(z_old_url);
+ if (!(old_url = php_url_parse_ex(Z_STRVAL_P(z_old_url), Z_STRLEN_P(z_old_url)))) {
+ if (new_url) {
+ php_url_free(new_url);
+ }
+ http_error_ex(HE_WARNING, HTTP_E_URL, "Could not parse URL (%s)", Z_STRVAL_P(z_old_url));
+ RETURN_FALSE;
+ }
+ }
+
+ if (z_composed_url) {
+ http_build_url(flags, old_url, new_url, &composed_url, &url_str, &url_len);
+
+ zval_dtor(z_composed_url);
+ array_init(z_composed_url);
+ if (composed_url->scheme) {
+ add_assoc_string(z_composed_url, "scheme", composed_url->scheme, 1);
+ }
+ if (composed_url->user) {
+ add_assoc_string(z_composed_url, "user", composed_url->user, 1);
+ }
+ if (composed_url->pass) {
+ add_assoc_string(z_composed_url, "pass", composed_url->pass, 1);
+ }
+ if (composed_url->host) {
+ add_assoc_string(z_composed_url, "host", composed_url->host, 1);
+ }
+ if (composed_url->port) {
+ add_assoc_long(z_composed_url, "port", composed_url->port);
+ }
+ if (composed_url->path) {
+ add_assoc_string(z_composed_url, "path", composed_url->path, 1);
+ }
+ if (composed_url->query) {
+ add_assoc_string(z_composed_url, "query", composed_url->query, 1);
+ }
+ if (composed_url->fragment) {
+ add_assoc_string(z_composed_url, "fragment", composed_url->fragment, 1);
+ }
+ php_url_free(composed_url);
+ } else {
+ http_build_url(flags, old_url, new_url, NULL, &url_str, &url_len);
+ }
+
+ if (new_url) {
+ php_url_free(new_url);
+ }
+ php_url_free(old_url);
+
+ RETURN_STRINGL(url_str, url_len, 0);
+}
+/* }}} */
+
+/* {{{ proto string http_build_str(array query [, string prefix[, string arg_separator]])
+ *
+ * Opponent to parse_str().
+ *
+ * Expects an array as first argument which represents the parts of the query string to build.
+ * Accepts a string as optional second parameter containing a top-level prefix to use.
+ * The optional third parameter should specify an argument separator to use (by default the
+ * INI setting arg_separator.output will be used, or "&" if neither is set).
+ *
+ * Returns the built query as string on success or FALSE on failure.
+ */
+PHP_FUNCTION(http_build_str)
+{
+ zval *formdata;
+ char *prefix = NULL, *arg_sep = INI_STR("arg_separator.output");
+ int prefix_len = 0, arg_sep_len = strlen(arg_sep);
+ phpstr formstr;
+
+ if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a|ss", &formdata, &prefix, &prefix_len, &arg_sep, &arg_sep_len) != SUCCESS) {
+ RETURN_FALSE;
+ }
+
+ if (!arg_sep_len) {
+ arg_sep = HTTP_URL_ARGSEP;
+ arg_sep_len = lenof(HTTP_URL_ARGSEP);
+ }
+
+ phpstr_init(&formstr);
+ if (SUCCESS != http_urlencode_hash_recursive(HASH_OF(formdata), &formstr, arg_sep, arg_sep_len, prefix, prefix_len)) {