X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-http;a=blobdiff_plain;f=php_http_url.c;h=c8fe62e85e37819f5db7dcb2504ec08efa669a14;hp=b55b7d7028d109532fe25d5f13e8da9751b20423;hb=bd80b17b026a00a254ee8693cd7bacf1ebdec4cf;hpb=aacbe6aa75ca07853bf88d5b3647f67f107d1af7

diff --git a/php_http_url.c b/php_http_url.c
index b55b7d7..c8fe62e 100644
--- a/php_http_url.c
+++ b/php_http_url.c
@@ -42,35 +42,98 @@ static inline char *localhostname(void)
 	return estrndup("localhost", lenof("localhost"));
 }
 
-PHP_HTTP_API char *php_http_url_absolute(const char *url, int flags TSRMLS_DC)
+static php_url *php_http_url_from_env(php_url *url TSRMLS_DC)
 {
-	char *abs = NULL;
-	php_url *purl = NULL;
-	
-	if (url) {
-		purl = php_url_parse(abs = estrdup(url));
-		STR_SET(abs, NULL);
-		if (!purl) {
-			php_http_error(HE_WARNING, PHP_HTTP_E_URL, "Could not parse URL (%s)", url);
-			return NULL;
+	zval *https, *zhost, *zport;
+	long port;
+#ifdef HAVE_GETSERVBYPORT
+	struct servent *se;
+#endif
+
+	if (!url) {
+		url = ecalloc(1, sizeof(*url));
+	}
+
+	/* port */
+	zport = php_http_env_get_server_var(ZEND_STRL("SERVER_PORT"), 1 TSRMLS_CC);
+	if (zport && IS_LONG == is_numeric_string(Z_STRVAL_P(zport), Z_STRLEN_P(zport), &port, NULL, 0)) {
+		url->port = port;
+	}
+
+	/* scheme */
+	https = php_http_env_get_server_var(ZEND_STRL("HTTPS"), 1 TSRMLS_CC);
+	if (https && !strcasecmp(Z_STRVAL_P(https), "ON")) {
+		url->scheme = estrndup("https", lenof("https"));
+	} else switch (url->port) {
+		case 443:
+			url->scheme = estrndup("https", lenof("https"));
+			break;
+
+#ifndef HAVE_GETSERVBYPORT
+		default:
+#endif
+		case 80:
+		case 0:
+			url->scheme = estrndup("http", lenof("http"));
+			break;
+
+#ifdef HAVE_GETSERVBYPORT
+		default:
+			if ((se = getservbyport(htons(url->port), "tcp")) && se->s_name) {
+				url->scheme = estrdup(se->s_name);
+			} else {
+				url->scheme = estrndup("http", lenof("http"));
+			}
+			break;
+#endif
+	}
+
+	/* host */
+	if ((((zhost = php_http_env_get_server_var(ZEND_STRL("HTTP_HOST"), 1 TSRMLS_CC)) ||
+			(zhost = php_http_env_get_server_var(ZEND_STRL("SERVER_NAME"), 1 TSRMLS_CC)) ||
+			(zhost = php_http_env_get_server_var(ZEND_STRL("SERVER_ADDR"), 1 TSRMLS_CC)))) && Z_STRLEN_P(zhost)) {
+		url->host = estrndup(Z_STRVAL_P(zhost), Z_STRLEN_P(zhost));
+	} else {
+		url->host = localhostname();
+	}
+
+	/* path */
+	if (SG(request_info).request_uri && SG(request_info).request_uri[0]) {
+		const char *q = strchr(SG(request_info).request_uri, '?');
+
+		if (q) {
+			url->path = estrndup(SG(request_info).request_uri, q - SG(request_info).request_uri);
+		} else {
+			url->path = estrdup(SG(request_info).request_uri);
 		}
 	}
-	
-	php_http_url(flags, purl, NULL, NULL, &abs, NULL TSRMLS_CC);
-	
-	if (purl) {
-		php_url_free(purl);
+
+	/* query */
+	if (SG(request_info).query_string && SG(request_info).query_string[0]) {
+		url->query = estrdup(SG(request_info).query_string);
 	}
-	
-	return abs;
+
+	return url;
 }
 
 PHP_HTTP_API void php_http_url(int flags, const php_url *old_url, const php_url *new_url, php_url **url_ptr, char **url_str, size_t *url_len TSRMLS_DC)
 {
-#if defined(HAVE_GETSERVBYPORT) || defined(HAVE_GETSERVBYNAME)
+	php_url *url, *tmp_url = NULL;
+#ifdef HAVE_GETSERVBYNAME
 	struct servent *se;
 #endif
-	php_url *url = ecalloc(1, sizeof(php_url));
+
+	/* set from env if requested */
+	if (flags & PHP_HTTP_URL_FROM_ENV) {
+		php_url *env_url = php_http_url_from_env(NULL TSRMLS_CC);
+
+		php_http_url(flags ^ PHP_HTTP_URL_FROM_ENV, env_url, old_url, &tmp_url, NULL, NULL TSRMLS_CC);
+
+		php_url_free(env_url);
+		old_url = tmp_url;
+	}
+
+	url = ecalloc(1, sizeof(*url));
 
 #define __URLSET(u,n) \
 	((u)&&(u)->n)
@@ -131,128 +194,83 @@ PHP_HTTP_API void php_http_url(int flags, const php_url *old_url, const php_url
 		__URLCPY(fragment);
 	}
 	
-	if (!url->scheme) {
-		if (flags & PHP_HTTP_URL_FROM_ENV) {
-			zval *https = php_http_env_get_server_var(ZEND_STRL("HTTPS"), 1 TSRMLS_CC);
-			if (https && !strcasecmp(Z_STRVAL_P(https), "ON")) {
-				url->scheme = estrndup("https", lenof("https"));
-			} else switch (url->port) {
-				case 443:
-					url->scheme = estrndup("https", lenof("https"));
-					break;
+	/* done with copy & combine & strip */
 
-#ifndef HAVE_GETSERVBYPORT
-				default:
-#endif
-				case 80:
-				case 0:
-					url->scheme = estrndup("http", lenof("http"));
-					break;
-			
-#ifdef HAVE_GETSERVBYPORT
-				default:
-					if ((se = getservbyport(htons(url->port), "tcp")) && se->s_name) {
-						url->scheme = estrdup(se->s_name);
-					} else {
-						url->scheme = estrndup("http", lenof("http"));
-					}
-					break;
-#endif
-			}
-		} else {
-			url->scheme = estrndup("http", lenof("http"));
-		}
+	if (flags & PHP_HTTP_URL_FROM_ENV) {
+		/* free old_url we tainted above */
+		php_url_free(tmp_url);
+	}
+
+	/* set some sane defaults */
+
+	if (!url->scheme) {
+		url->scheme = estrndup("http", lenof("http"));
 	}
 
 	if (!url->host) {
-		if (flags & PHP_HTTP_URL_FROM_ENV) {
-			zval *zhost;
-			
-			if ((((zhost = php_http_env_get_server_var(ZEND_STRL("HTTP_HOST"), 1 TSRMLS_CC)) ||
-					(zhost = php_http_env_get_server_var(ZEND_STRL("SERVER_NAME"), 1 TSRMLS_CC)))) && Z_STRLEN_P(zhost)) {
-				url->host = estrndup(Z_STRVAL_P(zhost), Z_STRLEN_P(zhost));
-			} else {
-				url->host = localhostname();
-			}
-		} else {
-			url->host = estrndup("localhost", lenof("localhost"));
-		}
+		url->host = estrndup("localhost", lenof("localhost"));
 	}
 	
 	if (!url->path) {
-		if ((flags & PHP_HTTP_URL_FROM_ENV) && SG(request_info).request_uri && SG(request_info).request_uri[0]) {
-			const char *q = strchr(SG(request_info).request_uri, '?');
-			
-			if (q) {
-				url->path = estrndup(SG(request_info).request_uri, q - SG(request_info).request_uri);
-			} else {
-				url->path = estrdup(SG(request_info).request_uri);
-			}
-		} else {
-			url->path = estrndup("/", 1);
-		}
+		url->path = estrndup("/", 1);
 	} else if (url->path[0] != '/') {
-		if ((flags & PHP_HTTP_URL_FROM_ENV) && SG(request_info).request_uri && SG(request_info).request_uri[0]) {
-			size_t ulen = strlen(SG(request_info).request_uri);
-			size_t plen = strlen(url->path);
-			char *path;
-			
-			if (SG(request_info).request_uri[ulen-1] != '/') {
-				for (--ulen; ulen && SG(request_info).request_uri[ulen - 1] != '/'; --ulen);
-			}
-			
-			path = emalloc(ulen + plen + 1);
-			memcpy(path, SG(request_info).request_uri, ulen);
-			memcpy(path + ulen, url->path, plen);
-			path[ulen + plen] = '\0';
-			STR_SET(url->path, path);
-		} else {
-			size_t plen = strlen(url->path);
-			char *path = emalloc(plen + 1 + 1);
-			
-			path[0] = '/';
-			memcpy(&path[1], url->path, plen + 1);
-			STR_SET(url->path, path);
-		}
+		size_t plen = strlen(url->path);
+		char *path = emalloc(plen + 1 + 1);
+
+		path[0] = '/';
+		memcpy(&path[1], url->path, plen + 1);
+		STR_SET(url->path, path);
 	}
 	/* replace directory references if path is not a single slash */
 	if (url->path[0] && (url->path[0] != '/' || url->path[1])) {
 		char *ptr, *end = url->path + strlen(url->path) + 1;
 			
-		for (ptr = strstr(url->path, "/."); ptr; ptr = strstr(ptr, "/.")) {
-			switch (ptr[2]) {
-				case '\0':
-					ptr[1] = '\0';
-					break;
-				
+		for (ptr = strchr(url->path, '/'); ptr; ptr = strchr(ptr, '/')) {
+			switch (ptr[1]) {
 				case '/':
-					memmove(&ptr[1], &ptr[3], end - &ptr[3]);
+					memmove(&ptr[1], &ptr[2], end - &ptr[2]);
 					break;
 					
 				case '.':
-					if (ptr[3] == '/') {
-						char *pos = &ptr[4];
-						while (ptr != url->path) {
-							if (*--ptr == '/') {
+					switch (ptr[2]) {
+						case '\0':
+							ptr[1] = '\0';
+							break;
+
+						case '/':
+							memmove(&ptr[1], &ptr[3], end - &ptr[3]);
+							break;
+
+						case '.':
+							if (ptr[3] == '/') {
+								char *pos = &ptr[4];
+								while (ptr != url->path) {
+									if (*--ptr == '/') {
+										break;
+									}
+								}
+								memmove(&ptr[1], pos, end - pos);
 								break;
+							} else if (!ptr[3]) {
+								/* .. at the end */
+								ptr[1] = '\0';
 							}
-						}
-						memmove(&ptr[1], pos, end - pos);
-						break;
-					} else if (!ptr[3]) {
-						/* .. at the end */
-						ptr[1] = '\0';
+							/* no break */
+
+						default:
+							/* something else */
+							++ptr;
+							break;
 					}
-					/* no break */
-				
+					break;
+
 				default:
-					/* something else */
 					++ptr;
 					break;
 			}
 		}
 	}
-	
+	/* unset default ports */
 	if (url->port) {
 		if (	((url->port == 80) && !strcmp(url->scheme, "http"))
 			||	((url->port ==443) && !strcmp(url->scheme, "https"))
@@ -441,23 +459,37 @@ PHP_HTTP_BEGIN_ARGS(__construct, 0)
 	PHP_HTTP_ARG_VAL(flags, 0)
 PHP_HTTP_END_ARGS;
 PHP_HTTP_EMPTY_ARGS(toString);
+PHP_HTTP_EMPTY_ARGS(toArray);
+
+PHP_HTTP_BEGIN_ARGS(mod, 1)
+	PHP_HTTP_ARG_VAL(more_url_parts, 0)
+	PHP_HTTP_ARG_VAL(flags, 0)
+PHP_HTTP_END_ARGS;
+
+static zend_class_entry *php_http_url_class_entry;
+
+zend_class_entry *php_http_url_get_class_entry(void)
+{
+	return php_http_url_class_entry;
+}
 
-zend_class_entry *php_http_url_class_entry;
-zend_function_entry php_http_url_method_entry[] = {
+static zend_function_entry php_http_url_method_entry[] = {
 	PHP_HTTP_URL_ME(__construct, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
+	PHP_HTTP_URL_ME(mod, ZEND_ACC_PUBLIC)
 	PHP_HTTP_URL_ME(toString, ZEND_ACC_PUBLIC)
 	ZEND_MALIAS(HttpUrl, __toString, toString, PHP_HTTP_ARGS(HttpUrl, toString), ZEND_ACC_PUBLIC)
+	PHP_HTTP_URL_ME(toArray, ZEND_ACC_PUBLIC)
 	EMPTY_FUNCTION_ENTRY
 };
 
 PHP_METHOD(HttpUrl, __construct)
 {
-	with_error_handling(EH_THROW, php_http_exception_class_entry) {
+	with_error_handling(EH_THROW, php_http_exception_get_class_entry()) {
 		zval *new_url = NULL, *old_url = NULL;
 		long flags = PHP_HTTP_URL_FROM_ENV;
 
 		if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|z!z!l", &old_url, &new_url, &flags)) {
-			with_error_handling(EH_THROW, php_http_exception_class_entry) {
+			with_error_handling(EH_THROW, php_http_exception_get_class_entry()) {
 				php_url *res_purl, *new_purl = NULL, *old_purl = NULL;
 
 				if (new_url) {
@@ -469,7 +501,7 @@ PHP_METHOD(HttpUrl, __construct)
 						default: {
 							zval *cpy = php_http_ztyp(IS_STRING, new_url);
 
-							new_purl = php_url_parse(Z_STRVAL_P(new_url));
+							new_purl = php_url_parse(Z_STRVAL_P(cpy));
 							zval_ptr_dtor(&cpy);
 							break;
 						}
@@ -487,7 +519,7 @@ PHP_METHOD(HttpUrl, __construct)
 						default: {
 							zval *cpy = php_http_ztyp(IS_STRING, old_url);
 
-							old_purl = php_url_parse(Z_STRVAL_P(old_url));
+							old_purl = php_url_parse(Z_STRVAL_P(cpy));
 							zval_ptr_dtor(&cpy);
 							break;
 						}
@@ -515,6 +547,50 @@ PHP_METHOD(HttpUrl, __construct)
 	} end_error_handling();
 }
 
+PHP_METHOD(HttpUrl, mod)
+{
+	zval *new_url = NULL;
+	long flags = PHP_HTTP_URL_JOIN_PATH | PHP_HTTP_URL_JOIN_QUERY;
+
+	if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z!|l", &new_url, &flags)) {
+		php_url *new_purl = NULL, *old_purl = NULL;
+
+		if (new_url) {
+			switch (Z_TYPE_P(new_url)) {
+				case IS_OBJECT:
+				case IS_ARRAY:
+					new_purl = php_http_url_from_struct(NULL, HASH_OF(new_url) TSRMLS_CC);
+					break;
+				default: {
+					zval *cpy = php_http_ztyp(IS_STRING, new_url);
+
+					new_purl = php_url_parse(Z_STRVAL_P(new_url));
+					zval_ptr_dtor(&cpy);
+					break;
+				}
+			}
+			if (!new_purl) {
+				return;
+			}
+		}
+
+		if ((old_purl = php_http_url_from_struct(NULL, HASH_OF(getThis()) TSRMLS_CC))) {
+			php_url *res_purl;
+
+			ZVAL_OBJVAL(return_value, zend_objects_clone_obj(getThis() TSRMLS_CC), 0);
+
+			php_http_url(flags, old_purl, new_purl, &res_purl, NULL, NULL TSRMLS_CC);
+			php_http_url_to_struct(res_purl, return_value TSRMLS_CC);
+
+			php_url_free(res_purl);
+			php_url_free(old_purl);
+		}
+		if (new_purl) {
+			php_url_free(new_purl);
+		}
+	}
+}
+
 PHP_METHOD(HttpUrl, toString)
 {
 	if (SUCCESS == zend_parse_parameters_none()) {
@@ -532,9 +608,18 @@ PHP_METHOD(HttpUrl, toString)
 	RETURN_EMPTY_STRING();
 }
 
+PHP_METHOD(HttpUrl, toArray)
+{
+	if (SUCCESS != zend_parse_parameters_none()) {
+		RETURN_FALSE;
+	}
+	array_init(return_value);
+	array_copy(HASH_OF(getThis()), HASH_OF(return_value));
+}
+
 PHP_MINIT_FUNCTION(http_url)
 {
-	PHP_HTTP_REGISTER_CLASS(http, Url, http_url, php_http_object_class_entry, 0);
+	PHP_HTTP_REGISTER_CLASS(http, Url, http_url, php_http_object_get_class_entry(), 0);
 
 	zend_declare_property_null(php_http_url_class_entry, ZEND_STRL("scheme"), ZEND_ACC_PUBLIC TSRMLS_CC);
 	zend_declare_property_null(php_http_url_class_entry, ZEND_STRL("user"), ZEND_ACC_PUBLIC TSRMLS_CC);