+++ /dev/null
-/*
- +--------------------------------------------------------------------+
- | 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-2010, Michael Wallner <mike@php.net> |
- +--------------------------------------------------------------------+
-*/
-
-/* $Id$ */
-
-#define HTTP_WANT_SAPI
-#include "php_http.h"
-
-#include "ext/standard/url.h"
-#include "ext/standard/php_string.h"
-
-#include "php_http_api.h"
-#include "php_http_headers_api.h"
-
-#ifndef HTTP_DBG_NEG
-# define HTTP_DBG_NEG 0
-#endif
-
-/* {{{ static void http_grab_response_headers(void *, void *) */
-static void http_grab_response_headers(void *data, void *arg TSRMLS_DC)
-{
- phpstr_appendl(PHPSTR(arg), ((sapi_header_struct *)data)->header);
- phpstr_appends(PHPSTR(arg), HTTP_CRLF);
-}
-/* }}} */
-
-/* {{{ static int http_sort_q(const void *, const void *) */
-static int http_sort_q(const void *a, const void *b TSRMLS_DC)
-{
- Bucket *f, *s;
- zval result, *first, *second;
-
- f = *((Bucket **) a);
- s = *((Bucket **) b);
-
- first = *((zval **) f->pData);
- second= *((zval **) s->pData);
-
- if (numeric_compare_function(&result, first, second TSRMLS_CC) != SUCCESS) {
- return 0;
- }
- return (Z_LVAL(result) > 0 ? -1 : (Z_LVAL(result) < 0 ? 1 : 0));
-}
-/* }}} */
-
-/* {{{ char *http_negotiate_language_func */
-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(pos, supported, value) {
-#if HTTP_DBG_NEG
- fprintf(stderr, "strcasecmp('%s', '%s')\n", Z_STRVAL_PP(value), test);
-#endif
- if (!strcasecmp(Z_STRVAL_PP(value), test)) {
- return Z_STRVAL_PP(value);
- }
- }
-
- /* no distinct match found, so try primaries */
- if ((dash_test = strchr(test, '-'))) {
- FOREACH_HASH_VAL(pos, supported, value) {
- int len = dash_test - test;
-#if HTTP_DBG_NEG
- 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 *= .9;
- return Z_STRVAL_PP(value);
- }
- }
- }
-
- return NULL;
-}
-/* }}} */
-
-/* {{{ 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(pos, supported, value) {
-#if HTTP_DBG_NEG
- fprintf(stderr, "strcasecmp('%s', '%s')\n", Z_STRVAL_PP(value), test);
-#endif
- if (!strcasecmp(Z_STRVAL_PP(value), test)) {
- return Z_STRVAL_PP(value);
- }
- }
-
- return NULL;
-}
-/* }}} */
-
-/* {{{ HashTable *http_negotiate_z(zval *, HashTable *, negotiate_func_t) */
-PHP_HTTP_API HashTable *_http_negotiate_z(zval *value, HashTable *supported, negotiate_func_t neg TSRMLS_DC)
-{
- zval *accept = http_zsep(IS_STRING, value);
- HashTable *result = NULL;
-
- if (Z_STRLEN_P(accept)) {
- zval ex_arr, ex_del;
-
- INIT_PZVAL(&ex_del);
- INIT_PZVAL(&ex_arr);
- ZVAL_STRINGL(&ex_del, ",", 1, 0);
- array_init(&ex_arr);
-
- php_explode(&ex_del, accept, &ex_arr, INT_MAX);
-
- 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(pos, Z_ARRVAL(ex_arr), entry) {
- int ident_len;
- double quality;
- 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), ';'))) {
- const char *ptr = separator;
-
- while (*++ptr && !HTTP_IS_CTYPE(digit, *ptr) && '.' != *ptr);
-
- quality = zend_strtod(ptr, NULL);
- identifier = estrndup(Z_STRVAL_PP(entry), ident_len = separator - Z_STRVAL_PP(entry));
- } else {
- quality = 1000.0 - i++;
- identifier = estrndup(Z_STRVAL_PP(entry), ident_len = Z_STRLEN_PP(entry));
- }
- freeme = identifier;
-
- while (HTTP_IS_CTYPE(space, *identifier)) {
- ++identifier;
- --ident_len;
- }
- while (ident_len && HTTP_IS_CTYPE(space, identifier[ident_len - 1])) {
- identifier[--ident_len] = '\0';
- }
-
- 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(freeme);
- }
-
- result = Z_ARRVAL(array);
- zend_hash_sort(result, zend_qsort, http_sort_q, 0 TSRMLS_CC);
- }
-
- zval_dtor(&ex_arr);
- }
-
- zval_ptr_dtor(&accept);
-
- return result;
-}
-/* }}} */
-
-/* {{{ HashTable *http_negotiate_q(const char *, HashTable *, negotiate_func_t) */
-PHP_HTTP_API HashTable *_http_negotiate_q(const char *header, HashTable *supported, negotiate_func_t neg TSRMLS_DC)
-{
- zval *accept;
-
-#if HTTP_DBG_NEG
- fprintf(stderr, "Reading header %s: ", header);
-#endif
- if (!(accept = http_get_server_var(header, 1))) {
- return NULL;
- }
-#if HTTP_DBG_NEG
- fprintf(stderr, "%s\n", Z_STRVAL_P(accept));
-#endif
-
- return http_negotiate_z(accept, supported, neg);
-}
-/* }}} */
-
-/* {{{ http_range_status http_get_request_ranges(HashTable *ranges, size_t) */
-PHP_HTTP_API http_range_status _http_get_request_ranges(HashTable *ranges, size_t length TSRMLS_DC)
-{
- zval *zrange;
- char *range, c;
- long begin = -1, end = -1, *ptr;
-
- if ( !(zrange = http_get_server_var("HTTP_RANGE", 1)) ||
- (size_t) Z_STRLEN_P(zrange) < lenof("bytes=") || strncmp(Z_STRVAL_P(zrange), "bytes=", lenof("bytes="))) {
- return RANGE_NO;
- }
- range = Z_STRVAL_P(zrange) + lenof("bytes=");
- ptr = &begin;
-
- do {
- switch (c = *(range++)) {
- case '0':
- /* allow 000... - shall we? */
- if (*ptr != -10) {
- *ptr *= 10;
- }
- break;
-
- case '1': case '2': case '3':
- case '4': case '5': case '6':
- case '7': case '8': case '9':
- /*
- * If the value of the pointer is already set (non-negative)
- * then multiply its value by ten and add the current value,
- * else initialise the pointers value with the current value
- * --
- * This let us recognize empty fields when validating the
- * ranges, i.e. a "-10" for begin and "12345" for the end
- * was the following range request: "Range: bytes=0-12345";
- * While a "-1" for begin and "12345" for the end would
- * have been: "Range: bytes=-12345".
- */
- if (*ptr > 0) {
- *ptr *= 10;
- *ptr += c - '0';
- } else {
- *ptr = c - '0';
- }
- break;
-
- case '-':
- ptr = &end;
- break;
-
- case ' ':
- break;
-
- case 0:
- case ',':
-
- if (length) {
- /* validate ranges */
- switch (begin) {
- /* "0-12345" */
- case -10:
- switch (end) {
- /* "0-" */
- case -1:
- return RANGE_NO;
-
- /* "0-0" */
- case -10:
- end = 0;
- break;
-
- default:
- if (length <= (size_t) end) {
- return RANGE_ERR;
- }
- break;
- }
- begin = 0;
- break;
-
- /* "-12345" */
- case -1:
- /* "-", "-0" or overflow */
- if (end == -1 || end == -10 || length <= (size_t) end) {
- return RANGE_ERR;
- }
- begin = length - end;
- end = length - 1;
- break;
-
- /* "12345-(xxx)" */
- default:
- switch (end) {
- /* "12345-0" */
- case -10:
- return RANGE_ERR;
-
- /* "12345-" */
- case -1:
- if (length <= (size_t) begin) {
- return RANGE_ERR;
- }
- end = length - 1;
- break;
-
- /* "12345-67890" */
- default:
- if ( (length <= (size_t) begin) ||
- (length <= (size_t) end) ||
- (end < begin)) {
- return RANGE_ERR;
- }
- break;
- }
- break;
- }
- }
- {
- zval *zentry;
- MAKE_STD_ZVAL(zentry);
- array_init(zentry);
- add_index_long(zentry, 0, begin);
- add_index_long(zentry, 1, end);
- zend_hash_next_index_insert(ranges, &zentry, sizeof(zval *), NULL);
-
- begin = -1;
- end = -1;
- ptr = &begin;
- }
- break;
-
- default:
- return RANGE_NO;
- }
- } while (c != 0);
-
- return RANGE_OK;
-}
-/* }}} */
-
-/* {{{ STATUS http_parse_headers(char *, HashTable *, zend_bool) */
-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;
- zval array;
-
- INIT_ZARR(array, headers);
-
- /* skip leading ws */
- while (HTTP_IS_CTYPE(space, *header)) ++header;
- line = header;
-
-#define MORE_HEADERS (*(line-1) && !(*(line-1) == '\n' && (*line == '\n' || *line == '\r')))
- do {
- int value_len = 0;
-
- switch (*line++) {
- case ':':
- if (!colon) {
- colon = line - 1;
- }
- break;
-
- case 0:
- --value_len; /* we don't have CR so value length is one char less */
- case '\n':
- if ((!*(line - 1)) || ((*line != ' ') && (*line != '\t'))) {
- http_info i;
-
- 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 if (colon) {
- /* "header: value" pair */
- if (header != colon) {
- int keylen = colon - header;
- const char *key = header;
-
- /* skip leading ws */
- while (keylen && HTTP_IS_CTYPE(space, *key)) --keylen, ++key;
- /* skip trailing ws */
- while (keylen && HTTP_IS_CTYPE(space, 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 (HTTP_IS_CTYPE(space, *(++colon))) --value_len;
- /* skip trailing ws */
- while (HTTP_IS_CTYPE(space, 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, 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;
- }
- } else {
- /* empty key (": ...") */
- return FAILURE;
- }
- } else if (MORE_HEADERS) {
- /* a line without a colon */
- return FAILURE;
- }
- colon = NULL;
- value_len = 0;
- header += line - header;
- }
- break;
- }
- } while (MORE_HEADERS);
-
- return SUCCESS;
-}
-/* }}} */
-
-/* {{{ void http_get_request_headers(HashTable *) */
-PHP_HTTP_API void _http_get_request_headers(HashTable *headers TSRMLS_DC)
-{
- HashKey key = initHashKey(0);
- zval **hsv, **header;
- HashPosition pos;
-
- if (!HTTP_G->request.headers) {
- ALLOC_HASHTABLE(HTTP_G->request.headers);
- zend_hash_init(HTTP_G->request.headers, 0, NULL, ZVAL_PTR_DTOR, 0);
-
-#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) && Z_TYPE_PP(hsv) == IS_ARRAY) {
- FOREACH_KEY(pos, *hsv, key) {
- if (key.type == HASH_KEY_IS_STRING && key.len > 6 && !strncmp(key.str, "HTTP_", 5)) {
- key.len -= 5;
- key.str = pretty_key(estrndup(key.str + 5, key.len - 1), key.len - 1, 1, 1);
-
- zend_hash_get_current_data_ex(Z_ARRVAL_PP(hsv), (void *) &header, &pos);
- ZVAL_ADDREF(*header);
- zend_hash_add(HTTP_G->request.headers, key.str, key.len, (void *) header, sizeof(zval *), NULL);
-
- efree(key.str);
- }
- }
- }
- }
-
- if (headers) {
- zend_hash_copy(headers, HTTP_G->request.headers, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
- }
-}
-/* }}} */
-
-/* {{{ STATUS http_get_response_headers(HashTable *) */
-PHP_HTTP_API STATUS _http_get_response_headers(HashTable *headers_ht TSRMLS_DC)
-{
- STATUS status;
- phpstr headers;
-
- phpstr_init(&headers);
- zend_llist_apply_with_argument(&SG(sapi_headers).headers, http_grab_response_headers, &headers TSRMLS_CC);
- phpstr_fix(&headers);
-
- status = http_parse_headers_ex(PHPSTR_VAL(&headers), headers_ht, 1);
- phpstr_dtor(&headers);
-
- return status;
-}
-/* }}} */
-
-/* {{{ 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;
- uint name_len = strlen(header);
- zend_bool result = 0;
- zval **data, *zvalue;
-
- http_get_request_headers(NULL);
- name = pretty_key(estrndup(header, name_len), name_len, 1, 1);
- if (SUCCESS == zend_hash_find(HTTP_G->request.headers, name, name_len+1, (void *) &data)) {
- zvalue = http_zsep(IS_STRING, *data);
- result = (match_case ? strcmp(Z_STRVAL_P(zvalue), value) : strcasecmp(Z_STRVAL_P(zvalue), value)) ? 0 : 1;
- zval_ptr_dtor(&zvalue);
- }
- efree(name);
-
- return result;
-}
-/* }}} */
-
-
-/*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * End:
- * vim600: noet sw=4 ts=4 fdm=marker
- * vim<600: noet sw=4 ts=4
- */
-