2 +--------------------------------------------------------------------+
4 +--------------------------------------------------------------------+
5 | Redistribution and use in source and binary forms, with or without |
6 | modification, are permitted provided that the conditions mentioned |
7 | in the accompanying LICENSE file are met. |
8 +--------------------------------------------------------------------+
9 | Copyright (c) 2004-2011, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
15 #include <main/SAPI.h>
17 PHP_RINIT_FUNCTION(http_env
)
19 PHP_HTTP_G
->env
.request
.time
= sapi_get_request_time(TSRMLS_C
);
24 PHP_RSHUTDOWN_FUNCTION(http_env
)
26 if (PHP_HTTP_G
->env
.request
.headers
) {
27 zend_hash_destroy(PHP_HTTP_G
->env
.request
.headers
);
28 FREE_HASHTABLE(PHP_HTTP_G
->env
.request
.headers
);
29 PHP_HTTP_G
->env
.request
.headers
= NULL
;
31 if (PHP_HTTP_G
->env
.request
.body
) {
32 php_http_message_body_free(&PHP_HTTP_G
->env
.request
.body
);
35 if (PHP_HTTP_G
->env
.server_var
) {
36 zval_ptr_dtor(&PHP_HTTP_G
->env
.server_var
);
37 PHP_HTTP_G
->env
.server_var
= NULL
;
43 PHP_HTTP_API
void php_http_env_get_request_headers(HashTable
*headers TSRMLS_DC
)
45 php_http_array_hashkey_t key
= php_http_array_hashkey_init(0);
49 if (!PHP_HTTP_G
->env
.request
.headers
) {
50 ALLOC_HASHTABLE(PHP_HTTP_G
->env
.request
.headers
);
51 zend_hash_init(PHP_HTTP_G
->env
.request
.headers
, 0, NULL
, ZVAL_PTR_DTOR
, 0);
53 zend_is_auto_global("_SERVER", lenof("_SERVER") TSRMLS_CC
);
55 if (SUCCESS
== zend_hash_find(&EG(symbol_table
), "_SERVER", sizeof("_SERVER"), (void *) &hsv
) && Z_TYPE_PP(hsv
) == IS_ARRAY
) {
56 FOREACH_KEY(pos
, *hsv
, key
) {
57 if (key
.type
== HASH_KEY_IS_STRING
&& key
.len
> 6 && !strncmp(key
.str
, "HTTP_", 5)) {
59 key
.str
= php_http_pretty_key(estrndup(key
.str
+ 5, key
.len
- 1), key
.len
- 1, 1, 1);
61 zend_hash_get_current_data_ex(Z_ARRVAL_PP(hsv
), (void *) &header
, &pos
);
63 zend_symtable_update(PHP_HTTP_G
->env
.request
.headers
, key
.str
, key
.len
, (void *) header
, sizeof(zval
*), NULL
);
72 zend_hash_copy(headers
, PHP_HTTP_G
->env
.request
.headers
, (copy_ctor_func_t
) zval_add_ref
, NULL
, sizeof(zval
*));
76 PHP_HTTP_API
char *php_http_env_get_request_header(const char *name_str
, size_t name_len
, size_t *len TSRMLS_DC
)
79 char *val
= NULL
, *key
= php_http_pretty_key(estrndup(name_str
, name_len
), name_len
, 1, 1);
81 php_http_env_get_request_headers(NULL TSRMLS_CC
);
83 if (SUCCESS
== zend_symtable_find(PHP_HTTP_G
->env
.request
.headers
, key
, name_len
+ 1, (void *) &zvalue
)) {
84 zval
*zcopy
= php_http_ztyp(IS_STRING
, *zvalue
);
86 val
= estrndup(Z_STRVAL_P(zcopy
), Z_STRLEN_P(zcopy
));
88 *len
= Z_STRLEN_P(zcopy
);
90 zval_ptr_dtor(&zcopy
);
98 PHP_HTTP_API
int php_http_env_got_request_header(const char *name_str
, size_t name_len TSRMLS_DC
)
100 char *key
= php_http_pretty_key(estrndup(name_str
, name_len
), name_len
, 1, 1);
103 php_http_env_get_request_headers(NULL TSRMLS_CC
);
104 got
= zend_symtable_exists(PHP_HTTP_G
->env
.request
.headers
, key
, name_len
+ 1);
110 PHP_HTTP_API zval
*php_http_env_get_server_var(const char *key
, size_t key_len
, zend_bool check TSRMLS_DC
)
115 /* if available, this is a lot faster than accessing $_SERVER */
116 if (sapi_module
.getenv
) {
117 if ((!(env
= sapi_module
.getenv((char *) key
, key_len TSRMLS_CC
))) || (check
&& !*env
)) {
120 if (PHP_HTTP_G
->env
.server_var
) {
121 zval_ptr_dtor(&PHP_HTTP_G
->env
.server_var
);
123 MAKE_STD_ZVAL(PHP_HTTP_G
->env
.server_var
);
124 ZVAL_STRING(PHP_HTTP_G
->env
.server_var
, env
, 1);
125 return PHP_HTTP_G
->env
.server_var
;
128 zend_is_auto_global(ZEND_STRL("_SERVER") TSRMLS_CC
);
130 if ((SUCCESS
!= zend_hash_find(&EG(symbol_table
), ZEND_STRS("_SERVER"), (void *) &hsv
)) || (Z_TYPE_PP(hsv
) != IS_ARRAY
)) {
133 if ((SUCCESS
!= zend_symtable_find(Z_ARRVAL_PP(hsv
), key
, key_len
+ 1, (void *) &var
))) {
136 if (check
&& !((Z_TYPE_PP(var
) == IS_STRING
) && Z_STRVAL_PP(var
) && Z_STRLEN_PP(var
))) {
142 PHP_HTTP_API php_http_message_body_t
*php_http_env_get_request_body(TSRMLS_D
)
144 if (!PHP_HTTP_G
->env
.request
.body
) {
145 php_stream
*s
= NULL
;
147 if (SG(request_info
).post_data
|| SG(request_info
).raw_post_data
) {
148 if ((s
= php_stream_temp_new())) {
149 /* php://input does not support seek() */
150 if (SG(request_info
).raw_post_data
) {
151 php_stream_write(s
, SG(request_info
).raw_post_data
, SG(request_info
).raw_post_data_length
);
153 php_stream_write(s
, SG(request_info
).post_data
, SG(request_info
).post_data_length
);
155 php_stream_rewind(s
);
157 } else if (sapi_module
.read_post
&& !SG(read_post_bytes
)) {
158 if ((s
= php_stream_temp_new())) {
159 char *buf
= emalloc(4096);
162 while (0 < (len
= sapi_module
.read_post(buf
, 4096 TSRMLS_CC
))) {
163 SG(read_post_bytes
) += len
;
164 php_stream_write(s
, buf
, len
);
172 php_stream_rewind(s
);
175 PHP_HTTP_G
->env
.request
.body
= php_http_message_body_init(NULL
, s TSRMLS_CC
);
178 return PHP_HTTP_G
->env
.request
.body
;
181 PHP_HTTP_API php_http_range_status_t
php_http_env_get_request_ranges(HashTable
*ranges
, size_t length TSRMLS_DC
)
185 long begin
= -1, end
= -1, *ptr
;
187 if (!(range
= php_http_env_get_request_header(ZEND_STRL("Range"), NULL TSRMLS_CC
))) {
188 return PHP_HTTP_RANGE_NO
;
190 if (strncmp(range
, "bytes=", lenof("bytes="))) {
192 return PHP_HTTP_RANGE_NO
;
195 rp
= range
+ lenof("bytes=");
199 switch (c
= *(rp
++)) {
201 /* allow 000... - shall we? */
207 case '1': case '2': case '3':
208 case '4': case '5': case '6':
209 case '7': case '8': case '9':
211 * If the value of the pointer is already set (non-negative)
212 * then multiply its value by ten and add the current value,
213 * else initialise the pointers value with the current value
215 * This let us recognize empty fields when validating the
216 * ranges, i.e. a "-10" for begin and "12345" for the end
217 * was the following range request: "Range: bytes=0-12345";
218 * While a "-1" for begin and "12345" for the end would
219 * have been: "Range: bytes=-12345".
240 /* validate ranges */
248 return PHP_HTTP_RANGE_NO
;
256 if (length
<= (size_t) end
) {
267 if (end
== -1 || end
== -10) {
269 return PHP_HTTP_RANGE_ERR
;
271 begin
= length
- end
;
277 if (length
<= (size_t) begin
) {
279 return PHP_HTTP_RANGE_ERR
;
285 return PHP_HTTP_RANGE_ERR
;
294 if (length
<= (size_t) end
) {
296 } else if (end
< begin
) {
298 return PHP_HTTP_RANGE_ERR
;
306 MAKE_STD_ZVAL(zentry
);
308 add_index_long(zentry
, 0, begin
);
309 add_index_long(zentry
, 1, end
);
310 zend_hash_next_index_insert(ranges
, &zentry
, sizeof(zval
*), NULL
);
320 return PHP_HTTP_RANGE_NO
;
325 return PHP_HTTP_RANGE_OK
;
328 static void grab_headers(void *data
, void *arg TSRMLS_DC
)
330 php_http_buffer_appendl(PHP_HTTP_BUFFER(arg
), ((sapi_header_struct
*)data
)->header
);
331 php_http_buffer_appends(PHP_HTTP_BUFFER(arg
), PHP_HTTP_CRLF
);
334 PHP_HTTP_API STATUS
php_http_env_get_response_headers(HashTable
*headers_ht TSRMLS_DC
)
337 php_http_buffer_t headers
;
339 php_http_buffer_init(&headers
);
340 zend_llist_apply_with_argument(&SG(sapi_headers
).headers
, grab_headers
, &headers TSRMLS_CC
);
341 php_http_buffer_fix(&headers
);
343 status
= php_http_headers_parse(PHP_HTTP_BUFFER_VAL(&headers
), PHP_HTTP_BUFFER_LEN(&headers
), headers_ht
, NULL
, NULL TSRMLS_CC
);
344 php_http_buffer_dtor(&headers
);
349 PHP_HTTP_API
char *php_http_env_get_response_header(const char *name_str
, size_t name_len TSRMLS_DC
)
354 zend_hash_init(&headers
, 0, NULL
, NULL
, 0);
355 if (SUCCESS
== php_http_env_get_response_headers(&headers TSRMLS_CC
)) {
357 char *key
= php_http_pretty_key(estrndup(name_str
, name_len
), name_len
, 1, 1);
359 if (SUCCESS
== zend_symtable_find(&headers
, key
, name_len
+ 1, (void *) &zvalue
)) {
360 zval
*zcopy
= php_http_ztyp(IS_STRING
, *zvalue
);
362 val
= estrndup(Z_STRVAL_P(zcopy
), Z_STRLEN_P(zcopy
));
363 zval_ptr_dtor(&zcopy
);
368 zend_hash_destroy(&headers
);
373 PHP_HTTP_API
long php_http_env_get_response_code(TSRMLS_D
)
375 long code
= SG(sapi_headers
).http_response_code
;
376 return code
? code
: 200;
379 PHP_HTTP_API STATUS
php_http_env_set_response_code(long http_code TSRMLS_DC
)
381 return sapi_header_op(SAPI_HEADER_SET_STATUS
, (void *) http_code TSRMLS_CC
);
384 PHP_HTTP_API STATUS
php_http_env_set_response_status_line(long code
, php_http_version_t
*v TSRMLS_DC
)
386 sapi_header_line h
= {0};
389 h
.line_len
= spprintf(&h
.line
, 0, "HTTP/%u.%u %ld %s", v
->major
, v
->minor
, code
, php_http_env_get_response_status_for_code(code
));
390 ret
= sapi_header_op(SAPI_HEADER_REPLACE
, (void *) &h TSRMLS_CC
);
396 PHP_HTTP_API STATUS
php_http_env_set_response_protocol_version(php_http_version_t
*v TSRMLS_DC
)
398 return php_http_env_set_response_status_line(php_http_env_get_response_code(TSRMLS_C
), v TSRMLS_CC
);
401 PHP_HTTP_API STATUS
php_http_env_set_response_header(long http_code
, const char *header_str
, size_t header_len
, zend_bool replace TSRMLS_DC
)
403 sapi_header_line h
= {estrndup(header_str
, header_len
), header_len
, http_code
};
404 STATUS ret
= sapi_header_op(replace
? SAPI_HEADER_REPLACE
: SAPI_HEADER_ADD
, (void *) &h TSRMLS_CC
);
409 PHP_HTTP_API STATUS
php_http_env_set_response_header_format(long http_code
, zend_bool replace TSRMLS_DC
, const char *fmt
, ...)
412 STATUS ret
= FAILURE
;
413 sapi_header_line h
= {NULL
, 0, http_code
};
416 h
.line_len
= vspprintf(&h
.line
, 0, fmt
, args
);
421 ret
= sapi_header_op(replace
? SAPI_HEADER_REPLACE
: SAPI_HEADER_ADD
, (void *) &h TSRMLS_CC
);
428 PHP_HTTP_API STATUS
php_http_env_set_response_header_value(long http_code
, const char *name_str
, size_t name_len
, zval
*value
, zend_bool replace TSRMLS_DC
)
431 sapi_header_line h
= {(char *) name_str
, name_len
, http_code
};
433 return sapi_header_op(SAPI_HEADER_DELETE
, (void *) &h TSRMLS_CC
);
436 if(Z_TYPE_P(value
) == IS_ARRAY
|| Z_TYPE_P(value
) == IS_OBJECT
) {
441 FOREACH_HASH_VAL(pos
, HASH_OF(value
), data_ptr
) {
442 if (SUCCESS
!= php_http_env_set_response_header_value(http_code
, name_str
, name_len
, *data_ptr
, first TSRMLS_CC
)) {
450 zval
*data
= php_http_ztyp(IS_STRING
, value
);
452 if (!Z_STRLEN_P(data
)) {
453 zval_ptr_dtor(&data
);
454 return php_http_env_set_response_header_value(http_code
, name_str
, name_len
, NULL
, replace TSRMLS_CC
);
459 if (name_len
> INT_MAX
) {
462 h
.response_code
= http_code
;
463 h
.line_len
= spprintf(&h
.line
, 0, "%.*s: %.*s", (int) name_len
, name_str
, Z_STRLEN_P(data
), Z_STRVAL_P(data
));
465 ret
= sapi_header_op(replace
? SAPI_HEADER_REPLACE
: SAPI_HEADER_ADD
, (void *) &h TSRMLS_CC
);
467 zval_ptr_dtor(&data
);
476 static PHP_HTTP_STRLIST(php_http_env_response_status
) =
477 PHP_HTTP_STRLIST_ITEM("Continue")
478 PHP_HTTP_STRLIST_ITEM("Switching Protocols")
479 PHP_HTTP_STRLIST_NEXT
480 PHP_HTTP_STRLIST_ITEM("OK")
481 PHP_HTTP_STRLIST_ITEM("Created")
482 PHP_HTTP_STRLIST_ITEM("Accepted")
483 PHP_HTTP_STRLIST_ITEM("Non-Authoritative Information")
484 PHP_HTTP_STRLIST_ITEM("No Content")
485 PHP_HTTP_STRLIST_ITEM("Reset Content")
486 PHP_HTTP_STRLIST_ITEM("Partial Content")
487 PHP_HTTP_STRLIST_NEXT
488 PHP_HTTP_STRLIST_ITEM("Multiple Choices")
489 PHP_HTTP_STRLIST_ITEM("Moved Permanently")
490 PHP_HTTP_STRLIST_ITEM("Found")
491 PHP_HTTP_STRLIST_ITEM("See Other")
492 PHP_HTTP_STRLIST_ITEM("Not Modified")
493 PHP_HTTP_STRLIST_ITEM("Use Proxy")
494 PHP_HTTP_STRLIST_ITEM("(Unused)")
495 PHP_HTTP_STRLIST_ITEM("Temporary Redirect")
496 PHP_HTTP_STRLIST_NEXT
497 PHP_HTTP_STRLIST_ITEM("Bad Request")
498 PHP_HTTP_STRLIST_ITEM("Unauthorized")
499 PHP_HTTP_STRLIST_ITEM("Payment Required")
500 PHP_HTTP_STRLIST_ITEM("Forbidden")
501 PHP_HTTP_STRLIST_ITEM("Not Found")
502 PHP_HTTP_STRLIST_ITEM("Method Not Allowed")
503 PHP_HTTP_STRLIST_ITEM("Not Acceptable")
504 PHP_HTTP_STRLIST_ITEM("Proxy Authentication Required")
505 PHP_HTTP_STRLIST_ITEM("Request Timeout")
506 PHP_HTTP_STRLIST_ITEM("Conflict")
507 PHP_HTTP_STRLIST_ITEM("Gone")
508 PHP_HTTP_STRLIST_ITEM("Length Required")
509 PHP_HTTP_STRLIST_ITEM("Precondition Failed")
510 PHP_HTTP_STRLIST_ITEM("Request Entity Too Large")
511 PHP_HTTP_STRLIST_ITEM("Request URI Too Long")
512 PHP_HTTP_STRLIST_ITEM("Unsupported Media Type")
513 PHP_HTTP_STRLIST_ITEM("Requested Range Not Satisfiable")
514 PHP_HTTP_STRLIST_ITEM("Expectation Failed")
515 PHP_HTTP_STRLIST_NEXT
516 PHP_HTTP_STRLIST_ITEM("Internal Server Error")
517 PHP_HTTP_STRLIST_ITEM("Not Implemented")
518 PHP_HTTP_STRLIST_ITEM("Bad Gateway")
519 PHP_HTTP_STRLIST_ITEM("Service Unavailable")
520 PHP_HTTP_STRLIST_ITEM("Gateway Timeout")
521 PHP_HTTP_STRLIST_ITEM("HTTP Version Not Supported")
522 PHP_HTTP_STRLIST_STOP
525 PHP_HTTP_API
const char *php_http_env_get_response_status_for_code(unsigned code
)
527 return php_http_strlist_find(php_http_env_response_status
, 100, code
);
530 zend_class_entry
*php_http_env_class_entry
;
532 #define PHP_HTTP_BEGIN_ARGS(method, req_args) PHP_HTTP_BEGIN_ARGS_EX(HttpEnv, method, 0, req_args)
533 #define PHP_HTTP_EMPTY_ARGS(method) PHP_HTTP_EMPTY_ARGS_EX(HttpEnv, method, 0)
534 #define PHP_HTTP_ENV_ME(method) PHP_ME(HttpEnv, method, PHP_HTTP_ARGS(HttpEnv, method), ZEND_ACC_PUBLIC|ZEND_ACC_STATIC)
536 PHP_HTTP_BEGIN_ARGS(getRequestHeader
, 0)
537 PHP_HTTP_ARG_VAL(header_name
, 0)
540 PHP_HTTP_BEGIN_ARGS(getRequestBody
, 0)
541 PHP_HTTP_ARG_VAL(body_class_name
, 0)
544 PHP_HTTP_BEGIN_ARGS(getResponseStatusForCode
, 1)
545 PHP_HTTP_ARG_VAL(code
, 0)
548 PHP_HTTP_BEGIN_ARGS(getResponseHeader
, 0)
549 PHP_HTTP_ARG_VAL(header_name
, 0)
552 PHP_HTTP_EMPTY_ARGS(getResponseCode
);
554 PHP_HTTP_BEGIN_ARGS(setResponseHeader
, 1)
555 PHP_HTTP_ARG_VAL(header_name
, 0)
556 PHP_HTTP_ARG_VAL(header_value
, 0)
557 PHP_HTTP_ARG_VAL(response_code
, 0)
558 PHP_HTTP_ARG_VAL(replace_header
, 0)
561 PHP_HTTP_BEGIN_ARGS(setResponseCode
, 1)
562 PHP_HTTP_ARG_VAL(code
, 0)
565 PHP_HTTP_BEGIN_ARGS(negotiateLanguage
, 1)
566 PHP_HTTP_ARG_VAL(supported
, 0)
567 PHP_HTTP_ARG_VAL(result_array
, 1)
570 PHP_HTTP_BEGIN_ARGS(negotiateContentType
, 1)
571 PHP_HTTP_ARG_VAL(supported
, 0)
572 PHP_HTTP_ARG_VAL(result_array
, 1)
575 PHP_HTTP_BEGIN_ARGS(negotiateCharset
, 1)
576 PHP_HTTP_ARG_VAL(supported
, 0)
577 PHP_HTTP_ARG_VAL(result_array
, 1)
580 PHP_HTTP_BEGIN_ARGS(negotiate
, 2)
581 PHP_HTTP_ARG_VAL(value
, 0)
582 PHP_HTTP_ARG_VAL(supported
, 0)
583 PHP_HTTP_ARG_VAL(primary_type_separator
, 0)
584 PHP_HTTP_ARG_VAL(result_array
, 1)
587 PHP_HTTP_EMPTY_ARGS(persistentHandlesStat
);
589 PHP_HTTP_BEGIN_ARGS(persistentHandlesClean
, 0)
590 PHP_HTTP_ARG_VAL(name
, 0)
591 PHP_HTTP_ARG_VAL(ident
, 0)
594 zend_function_entry php_http_env_method_entry
[] = {
595 PHP_HTTP_ENV_ME(getRequestHeader
)
596 PHP_HTTP_ENV_ME(getRequestBody
)
598 PHP_HTTP_ENV_ME(getResponseStatusForCode
)
600 PHP_HTTP_ENV_ME(getResponseHeader
)
601 PHP_HTTP_ENV_ME(getResponseCode
)
602 PHP_HTTP_ENV_ME(setResponseHeader
)
603 PHP_HTTP_ENV_ME(setResponseCode
)
605 PHP_HTTP_ENV_ME(negotiateLanguage
)
606 PHP_HTTP_ENV_ME(negotiateContentType
)
607 PHP_HTTP_ENV_ME(negotiateCharset
)
608 PHP_HTTP_ENV_ME(negotiate
)
610 PHP_HTTP_ENV_ME(persistentHandlesStat
)
611 PHP_HTTP_ENV_ME(persistentHandlesClean
)
616 PHP_METHOD(HttpEnv
, getRequestHeader
)
618 char *header_name_str
;
621 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|s!", &header_name_str
, &header_name_len
)) {
622 if (header_name_str
&& header_name_len
) {
623 size_t header_length
;
624 char *header_value
= php_http_env_get_request_header(header_name_str
, header_name_len
, &header_length TSRMLS_CC
);
627 RETURN_STRINGL(header_value
, header_length
, 0);
631 array_init(return_value
);
632 php_http_env_get_request_headers(Z_ARRVAL_P(return_value
) TSRMLS_CC
);
639 PHP_METHOD(HttpEnv
, getRequestBody
)
641 with_error_handling(EH_THROW
, php_http_exception_class_entry
) {
642 zend_class_entry
*class_entry
= php_http_message_body_class_entry
;
644 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|C", &class_entry
)) {
645 zend_object_value ov
;
646 php_http_message_body_t
*body
= php_http_env_get_request_body(TSRMLS_C
);
648 if (SUCCESS
== php_http_new(&ov
, class_entry
, (php_http_new_t
) php_http_message_body_object_new_ex
, php_http_message_body_class_entry
, body
, NULL TSRMLS_CC
)) {
649 RETURN_OBJVAL(ov
, 0);
652 } end_error_handling();
655 PHP_METHOD(HttpEnv
, getResponseStatusForCode
)
659 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "l", &code
)) {
660 RETURN_STRING(php_http_env_get_response_status_for_code(code
), 1);
665 PHP_METHOD(HttpEnv
, getResponseHeader
)
667 char *header_name_str
;
670 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|s!", &header_name_str
, &header_name_len
)) {
671 if (header_name_str
&& header_name_len
) {
672 char *header_value
= php_http_env_get_response_header(header_name_str
, header_name_len TSRMLS_CC
);
675 RETURN_STRING(header_value
, 0);
679 array_init(return_value
);
680 php_http_env_get_response_headers(Z_ARRVAL_P(return_value
) TSRMLS_CC
);
687 PHP_METHOD(HttpEnv
, getResponseCode
)
689 if (SUCCESS
== zend_parse_parameters_none()) {
690 RETURN_LONG(php_http_env_get_response_code(TSRMLS_C
));
695 PHP_METHOD(HttpEnv
, setResponseHeader
)
697 char *header_name_str
;
701 zend_bool replace_header
= 1;
703 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "s|z!lb", &header_name_str
, &header_name_len
, &header_value
, &code
, &replace_header
)) {
704 RETURN_SUCCESS(php_http_env_set_response_header_value(code
, header_name_str
, header_name_len
, header_value
, replace_header TSRMLS_CC
));
709 PHP_METHOD(HttpEnv
, setResponseCode
)
713 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "l", &code
)) {
714 RETURN_SUCCESS(php_http_env_set_response_code(code TSRMLS_CC
));
720 #define PHP_HTTP_DO_NEGOTIATE_DEFAULT(supported) \
724 zend_hash_internal_pointer_reset((supported)); \
725 if (SUCCESS == zend_hash_get_current_data((supported), (void *) &value)) { \
726 RETVAL_ZVAL(*value, 1, 0); \
732 #define PHP_HTTP_DO_NEGOTIATE_HANDLE_DEFAULT(supported, rs_array) \
733 PHP_HTTP_DO_NEGOTIATE_DEFAULT(supported); \
738 FOREACH_HASH_VAL(pos, supported, value_ptr) { \
739 zval *value = php_http_ztyp(IS_STRING, *value_ptr); \
740 add_assoc_double(rs_array, Z_STRVAL_P(value), 1.0); \
741 zval_ptr_dtor(&value); \
745 #define PHP_HTTP_DO_NEGOTIATE_HANDLE_RESULT(result, supported, rs_array) \
751 if (zend_hash_num_elements(result) && HASH_KEY_IS_STRING == zend_hash_get_current_key_ex(result, &key, &key_len, &idx, 1, NULL)) { \
752 RETVAL_STRINGL(key, key_len-1, 0); \
754 PHP_HTTP_DO_NEGOTIATE_DEFAULT(supported); \
758 zend_hash_copy(Z_ARRVAL_P(rs_array), result, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *)); \
761 zend_hash_destroy(result); \
762 FREE_HASHTABLE(result); \
765 #define PHP_HTTP_DO_NEGOTIATE(type, supported, rs_array) \
768 if ((result = php_http_negotiate_ ##type(supported TSRMLS_CC))) { \
769 PHP_HTTP_DO_NEGOTIATE_HANDLE_RESULT(result, supported, rs_array); \
771 PHP_HTTP_DO_NEGOTIATE_HANDLE_DEFAULT(supported, rs_array); \
775 PHP_METHOD(HttpEnv
, negotiateLanguage
)
777 HashTable
*supported
;
778 zval
*rs_array
= NULL
;
780 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "H|z", &supported
, &rs_array
)) {
783 array_init(rs_array
);
786 PHP_HTTP_DO_NEGOTIATE(language
, supported
, rs_array
);
792 PHP_METHOD(HttpEnv
, negotiateCharset
)
794 HashTable
*supported
;
795 zval
*rs_array
= NULL
;
797 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "H|z", &supported
, &rs_array
)) {
800 array_init(rs_array
);
802 PHP_HTTP_DO_NEGOTIATE(charset
, supported
, rs_array
);
808 PHP_METHOD(HttpEnv
, negotiateContentType
)
810 HashTable
*supported
;
811 zval
*rs_array
= NULL
;
813 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "H|z", &supported
, &rs_array
)) {
816 array_init(rs_array
);
818 PHP_HTTP_DO_NEGOTIATE(content_type
, supported
, rs_array
);
824 PHP_METHOD(HttpEnv
, negotiate
)
826 HashTable
*supported
;
827 zval
*rs_array
= NULL
;
828 char *value_str
, *sep_str
= NULL
;
829 int value_len
, sep_len
= 0;
831 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "sH|s!z", &value_str
, &value_len
, &supported
, &sep_str
, &sep_len
, &rs_array
)) {
836 array_init(rs_array
);
839 if ((rs
= php_http_negotiate(value_str
, value_len
, supported
, sep_str
, sep_len TSRMLS_CC
))) {
840 PHP_HTTP_DO_NEGOTIATE_HANDLE_RESULT(rs
, supported
, rs_array
);
842 PHP_HTTP_DO_NEGOTIATE_HANDLE_DEFAULT(supported
, rs_array
);
849 PHP_METHOD(HttpEnv
, persistentHandlesStat
)
851 if (SUCCESS
== zend_parse_parameters_none()) {
852 object_init(return_value
);
853 if (php_http_persistent_handle_statall(HASH_OF(return_value
) TSRMLS_CC
)) {
856 zval_dtor(return_value
);
861 PHP_METHOD(HttpEnv
, persistentHandlesClean
)
863 char *name_str
= NULL
, *ident_str
= NULL
;
864 int name_len
= 0, ident_len
= 0;
866 if (SUCCESS
== zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC
, "|ss", &name_str
, &name_len
, &ident_str
, &ident_len
)) {
867 php_http_persistent_handle_cleanup(name_str
, name_len
, ident_str
, ident_len TSRMLS_CC
);
871 zend_class_entry
*php_http_env_request_class_entry
;
873 #undef PHP_HTTP_BEGIN_ARGS
874 #undef PHP_HTTP_EMPTY_ARGS
875 #define PHP_HTTP_BEGIN_ARGS(method, req_args) PHP_HTTP_BEGIN_ARGS_EX(HttpEnvRequest, method, 0, req_args)
876 #define PHP_HTTP_EMPTY_ARGS(method) PHP_HTTP_EMPTY_ARGS_EX(HttpEnvRequest, method, 0)
877 #define PHP_HTTP_ENV_REQUEST_ME(method, visibility) PHP_ME(HttpEnvRequest, method, PHP_HTTP_ARGS(HttpEnvRequest, method), visibility)
879 PHP_HTTP_EMPTY_ARGS(__construct
);
881 zend_function_entry php_http_env_request_method_entry
[] = {
882 PHP_HTTP_ENV_REQUEST_ME(__construct
, ZEND_ACC_PUBLIC
|ZEND_ACC_CTOR
)
887 PHP_METHOD(HttpEnvRequest
, __construct
)
889 with_error_handling(EH_THROW
, php_http_exception_class_entry
) {
890 if (SUCCESS
== zend_parse_parameters_none()) {
891 php_http_message_object_t
*obj
= zend_object_store_get_object(getThis() TSRMLS_CC
);
893 with_error_handling(EH_THROW
, php_http_exception_class_entry
) {
894 obj
->message
= php_http_message_init_env(obj
->message
, PHP_HTTP_REQUEST TSRMLS_CC
);
895 } end_error_handling();
897 } end_error_handling();
900 PHP_MINIT_FUNCTION(http_env
)
902 PHP_HTTP_REGISTER_CLASS(http
, Env
, http_env
, NULL
, 0);
904 PHP_HTTP_REGISTER_CLASS(http
\\Env
, Request
, http_env_request
, php_http_message_class_entry
, 0);
915 * vim600: noet sw=4 ts=4 fdm=marker
916 * vim<600: noet sw=4 ts=4