/*
- +----------------------------------------------------------------------+
- | PECL :: http |
- +----------------------------------------------------------------------+
- | This source file is subject to version 3.0 of the PHP license, that |
- | is bundled with this package in the file LICENSE, and is available |
- | through the world-wide-web at http://www.php.net/license/3_0.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. |
- +----------------------------------------------------------------------+
- | Copyright (c) 2004-2005 Michael Wallner <mike@php.net> |
- +----------------------------------------------------------------------+
+ +--------------------------------------------------------------------+
+ | PECL :: http |
+ +--------------------------------------------------------------------+
+ | Redistribution and use in source and binary forms, with or without |
+ | modification, are permitted provided that the conditions mentioned |
+ | in the accompanying LICENSE file are met. |
+ +--------------------------------------------------------------------+
+ | Copyright (c) 2004-2006, Michael Wallner <mike@php.net> |
+ +--------------------------------------------------------------------+
*/
/* $Id$ */
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
-#include "php.h"
+#include "php_http.h"
-#include "ext/standard/php_string.h"
#include "ext/standard/url.h"
+#include "ext/standard/php_string.h"
-#include "php_http.h"
-#include "php_http_std_defs.h"
#include "php_http_api.h"
#include "php_http_headers_api.h"
-#include "php_http_info_api.h"
-
-#include <ctype.h>
-
-ZEND_EXTERN_MODULE_GLOBALS(http);
#ifndef HTTP_DBG_NEG
# define HTTP_DBG_NEG 0
char *_http_negotiate_language_func(const char *test, double *quality, HashTable *supported TSRMLS_DC)
{
zval **value;
+ HashPosition pos;
const char *dash_test;
- FOREACH_HASH_VAL(supported, value) {
+ FOREACH_HASH_VAL(pos, supported, value) {
#if HTTP_DBG_NEG
fprintf(stderr, "strcasecmp('%s', '%s')\n", Z_STRVAL_PP(value), test);
#endif
}
/* no distinct match found, so try primaries */
- if (dash_test = strchr(test, '-')) {
- FOREACH_HASH_VAL(supported, value) {
+ if ((dash_test = strchr(test, '-'))) {
+ FOREACH_HASH_VAL(pos, supported, value) {
int len = dash_test - test;
#if HTTP_DBG_NEG
- fprintf(stderr, "strncascmp('%s', '%s', %d)\n", Z_STRVAL_PP(value), test, len);
+ fprintf(stderr, "strncasecmp('%s', '%s', %d)\n", Z_STRVAL_PP(value), test, len);
#endif
if ( (!strncasecmp(Z_STRVAL_PP(value), test, len)) &&
( (Z_STRVAL_PP(value)[len] == '\0') ||
(Z_STRVAL_PP(value)[len] == '-'))) {
- *quality /= 2;
+ *quality *= .9;
return Z_STRVAL_PP(value);
}
}
}
/* }}} */
-/* {{{ char *http_negotiate_charset_func */
-char *_http_negotiate_charset_func(const char *test, double *quality, HashTable *supported TSRMLS_DC)
+/* {{{ char *http_negotiate_default_func */
+char *_http_negotiate_default_func(const char *test, double *quality, HashTable *supported TSRMLS_DC)
{
zval **value;
+ HashPosition pos;
- FOREACH_HASH_VAL(supported, value) {
+ FOREACH_HASH_VAL(pos, supported, value) {
#if HTTP_DBG_NEG
fprintf(stderr, "strcasecmp('%s', '%s')\n", Z_STRVAL_PP(value), test);
#endif
if (zend_hash_num_elements(Z_ARRVAL(ex_arr)) > 0) {
int i = 0;
+ HashPosition pos;
zval **entry, array;
INIT_PZVAL(&array);
array_init(&array);
- FOREACH_HASH_VAL(Z_ARRVAL(ex_arr), entry) {
+ FOREACH_HASH_VAL(pos, Z_ARRVAL(ex_arr), entry) {
+ int ident_len;
double quality;
- char *selected, *identifier;
+ char *selected, *identifier, *freeme;
const char *separator;
#if HTTP_DBG_NEG
fprintf(stderr, "Checking %s\n", Z_STRVAL_PP(entry));
#endif
- if (separator = strchr(Z_STRVAL_PP(entry), ';')) {
+ if ((separator = strchr(Z_STRVAL_PP(entry), ';'))) {
const char *ptr = separator;
- while (*++ptr && !isdigit(*ptr));
+ while (*++ptr && !isdigit(*ptr) && '.' != *ptr);
- quality = strtod(ptr, NULL);
- identifier = estrndup(Z_STRVAL_PP(entry), separator - Z_STRVAL_PP(entry));
+ quality = atof(ptr);
+ identifier = estrndup(Z_STRVAL_PP(entry), ident_len = separator - Z_STRVAL_PP(entry));
} else {
quality = 1000.0 - i++;
- identifier = estrndup(Z_STRVAL_PP(entry), Z_STRLEN_PP(entry));
+ identifier = estrndup(Z_STRVAL_PP(entry), ident_len = Z_STRLEN_PP(entry));
+ }
+ freeme = identifier;
+
+ while (isspace(*identifier)) {
+ ++identifier;
+ --ident_len;
+ }
+ while (ident_len && isspace(identifier[ident_len - 1])) {
+ identifier[--ident_len] = '\0';
}
- if (selected = neg(identifier, &quality, supported TSRMLS_CC)) {
+ if ((selected = neg(identifier, &quality, supported TSRMLS_CC))) {
/* don't overwrite previously set with higher quality */
if (!zend_hash_exists(Z_ARRVAL(array), selected, strlen(selected) + 1)) {
add_assoc_double(&array, selected, quality);
}
}
- efree(identifier);
+ efree(freeme);
}
result = Z_ARRVAL(array);
PHP_HTTP_API STATUS _http_parse_headers_ex(const char *header, HashTable *headers, zend_bool prettify,
http_info_callback callback_func, void **callback_data TSRMLS_DC)
{
- const char *colon = NULL, *line = NULL, *begin = header;
- const char *body = http_locate_body(header);
- size_t header_len;
+ const char *colon = NULL, *line = NULL;
zval array;
-
- INIT_PZVAL(&array);
- Z_TYPE_P(array) = IS_ARRAY;
- Z_ARRVAL(array) = headers;
- if (body) {
- header_len = body - header;
- } else {
- header_len = strlen(header) + 1;
- }
+ INIT_ZARR(array, headers);
+
+ /* skip leading ws */
+ while (isspace(*header)) ++header;
line = header;
-
- while (header_len >= (size_t) (line - begin)) {
+
+#define MORE_HEADERS (*(line-1) && !(*(line-1) == '\n' && (*line == '\n' || *line == '\r')))
+ do {
int value_len = 0;
- /* note: valgrind may choke on that -- should be safe though */
+
switch (*line++)
{
case ':':
case 0:
--value_len; /* we don't have CR so value length is one char less */
case '\n':
- if ((!(*line - 1)) || ((*line != ' ') && (*line != '\t'))) {
+ if ((!*(line - 1)) || ((*line != ' ') && (*line != '\t'))) {
http_info i;
- /* response/request line */
if (SUCCESS == http_info_parse(header, &i)) {
+ /* response/request line */
callback_func(callback_data, &headers, &i TSRMLS_CC);
http_info_dtor(&i);
Z_ARRVAL(array) = headers;
- } else
-
- /* "header: value" pair */
- if (colon) {
-
- /* skip empty key */
+ } else if (colon) {
+ /* "header: value" pair */
if (header != colon) {
- zval **previous = NULL;
- char *value;
int keylen = colon - header;
- char *key = estrndup(header, keylen);
-
- if (prettify) {
- key = pretty_key(key, keylen, 1, 1);
- }
-
- value_len += line - colon - 1;
-
+ const char *key = header;
+
/* skip leading ws */
- while (isspace(*(++colon))) --value_len;
+ while (keylen && isspace(*key)) --keylen && ++key;
/* skip trailing ws */
- while (isspace(colon[value_len - 1])) --value_len;
-
- if (value_len > 0) {
- value = estrndup(colon, value_len);
- } else {
- value = estrdup("");
- value_len = 0;
- }
-
- /* if we already have got such a header make an array of those */
- if (SUCCESS == zend_hash_find(headers, key, keylen + 1, (void **) &previous)) {
- /* convert to array */
- if (Z_TYPE_PP(previous) != IS_ARRAY) {
- convert_to_array(*previous);
+ while (keylen && isspace(key[keylen - 1])) --keylen;
+
+ if (keylen > 0) {
+ zval **previous = NULL;
+ char *value;
+ char *keydup = estrndup(key, keylen);
+
+ if (prettify) {
+ keydup = pretty_key(keydup, keylen, 1, 1);
+ }
+
+ value_len += line - colon - 1;
+
+ /* skip leading ws */
+ while (isspace(*(++colon))) --value_len;
+ /* skip trailing ws */
+ while (isspace(colon[value_len - 1])) --value_len;
+
+ if (value_len > 0) {
+ value = estrndup(colon, value_len);
+ } else {
+ value = estrdup("");
+ value_len = 0;
}
- add_next_index_stringl(*previous, value, value_len, 0);
- } else {
- add_assoc_stringl(&array, key, value, value_len, 0);
+
+ /* if we already have got such a header make an array of those */
+ if (SUCCESS == zend_hash_find(headers, keydup, keylen + 1, (void *) &previous)) {
+ /* convert to array */
+ if (Z_TYPE_PP(previous) != IS_ARRAY) {
+ convert_to_array(*previous);
+ }
+ add_next_index_stringl(*previous, value, value_len, 0);
+ } else {
+ add_assoc_stringl(&array, keydup, value, value_len, 0);
+ }
+ efree(keydup);
+ } else {
+ /* empty key (" : ...") */
+ return FAILURE;
}
- efree(key);
+ } else {
+ /* empty key (": ...") */
+ return FAILURE;
}
+ } else if (MORE_HEADERS) {
+ /* a line without a colon */
+ return FAILURE;
}
colon = NULL;
value_len = 0;
}
break;
}
- }
+ } while (MORE_HEADERS);
+
return SUCCESS;
}
/* }}} */
{
char *key = NULL;
ulong idx = 0;
+ uint keylen = 0;
zval array, **hsv;
+ HashPosition pos;
Z_ARRVAL(array) = headers;
-
- if (SUCCESS == zend_hash_find(&EG(symbol_table), "_SERVER", sizeof("_SERVER"), (void **) &hsv)) {
- FOREACH_KEY(*hsv, key, idx) {
- if (key && !strncmp(key, "HTTP_", 5)) {
- zval **header;
+#ifdef ZEND_ENGINE_2
+ zend_is_auto_global("_SERVER", lenof("_SERVER") TSRMLS_CC);
+#endif
+ if (SUCCESS == zend_hash_find(&EG(symbol_table), "_SERVER", sizeof("_SERVER"), (void *) &hsv)) {
+ FOREACH_KEYLEN(pos, *hsv, key, keylen, idx) {
+ if (key && keylen > 6 && !strncmp(key, "HTTP_", 5)) {
+ zval **header, *orig;
key += 5;
+ keylen -= 6;
if (prettify) {
- key = pretty_key(key, strlen(key), 1, 1);
+ key = pretty_key(estrndup(key, keylen), keylen, 1, 1);
}
- zend_hash_get_current_data(Z_ARRVAL_PP(hsv), (void **) &header);
+ zend_hash_get_current_data_ex(Z_ARRVAL_PP(hsv), (void *) &header, &pos);
+
+ orig = *header;
+ convert_to_string_ex(header);
add_assoc_stringl(&array, key, Z_STRVAL_PP(header), Z_STRLEN_PP(header), 1);
+ if (orig != *header) {
+ zval_ptr_dtor(header);
+ }
+
+ if (prettify) {
+ efree(key);
+ }
+
key = NULL;
+ keylen = 0;
}
}
}
/* {{{ zend_bool http_match_request_header(char *, char *) */
PHP_HTTP_API zend_bool _http_match_request_header_ex(const char *header, const char *value, zend_bool match_case TSRMLS_DC)
{
- char *name, *key = NULL;
- ulong idx;
+ char *name;
+ uint name_len = strlen(header);
zend_bool result = 0;
HashTable headers;
+ zval **data;
- name = pretty_key(estrdup(header), strlen(header), 1, 1);
+ name = pretty_key(estrndup(header, name_len), name_len, 1, 1);
zend_hash_init(&headers, 0, NULL, ZVAL_PTR_DTOR, 0);
http_get_request_headers_ex(&headers, 1);
- FOREACH_HASH_KEY(&headers, key, idx) {
- if (key && (!strcmp(key, name))) {
- zval **data;
-
- if (SUCCESS == zend_hash_get_current_data(&headers, (void **) &data)) {
- result = (match_case ? strcmp(Z_STRVAL_PP(data), value) : strcasecmp(Z_STRVAL_PP(data), value)) ? 0 : 1;
- }
- break;
- }
+ if (SUCCESS == zend_hash_find(&headers, name, name_len+1, (void *) &data)) {
+ result = (match_case ? strcmp(Z_STRVAL_PP(data), value) : strcasecmp(Z_STRVAL_PP(data), value)) ? 0 : 1;
}
-
zend_hash_destroy(&headers);
efree(name);