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-2006, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
15 #define HTTP_WANT_CURL
18 #if defined(ZEND_ENGINE_2) && defined(HTTP_HAVE_CURL)
20 #include "php_http_api.h"
21 #include "php_http_exception_object.h"
22 #include "php_http_request_api.h"
23 #include "php_http_request_object.h"
24 #include "php_http_request_pool_api.h"
25 #include "php_http_requestpool_object.h"
27 #ifndef HTTP_DEBUG_REQPOOLS
28 # define HTTP_DEBUG_REQPOOLS 0
31 #ifndef HAVE_CURL_MULTI_STRERROR
32 # define curl_multi_strerror(dummy) "unknown error"
35 static int http_request_pool_compare_handles(void *h1
, void *h2
);
37 /* {{{ http_request_pool *http_request_pool_init(http_request_pool *) */
38 PHP_HTTP_API http_request_pool
*_http_request_pool_init(http_request_pool
*pool TSRMLS_DC
)
42 #if HTTP_DEBUG_REQPOOLS
43 fprintf(stderr
, "Initializing request pool %p\n", pool
);
46 if ((free_pool
= (!pool
))) {
47 pool
= emalloc(sizeof(http_request_pool
));
51 HTTP_CHECK_CURL_INIT(pool
->ch
, curl_multi_init(), ;);
60 zend_llist_init(&pool
->finished
, sizeof(zval
*), (llist_dtor_func_t
) ZVAL_PTR_DTOR
, 0);
61 zend_llist_init(&pool
->handles
, sizeof(zval
*), (llist_dtor_func_t
) ZVAL_PTR_DTOR
, 0);
63 #if HTTP_DEBUG_REQPOOLS
64 fprintf(stderr
, "Initialized request pool %p\n", pool
);
71 /* {{{ STATUS http_request_pool_attach(http_request_pool *, zval *) */
72 PHP_HTTP_API STATUS
_http_request_pool_attach(http_request_pool
*pool
, zval
*request TSRMLS_DC
)
74 getObjectEx(http_request_object
, req
, request
);
76 #if HTTP_DEBUG_REQPOOLS
77 fprintf(stderr
, "Attaching HttpRequest(#%d) %p to pool %p\n", Z_OBJ_HANDLE_P(request
), req
, pool
);
81 http_error_ex(HE_WARNING
, HTTP_E_INVALID_PARAM
, "HttpRequest object(#%d) is already member of %s HttpRequestPool", Z_OBJ_HANDLE_P(request
), req
->pool
== pool
? "this" : "another");
82 } else if (SUCCESS
!= http_request_object_requesthandler(req
, request
)) {
83 http_error_ex(HE_WARNING
, HTTP_E_REQUEST
, "Could not initialize HttpRequest object for attaching to the HttpRequestPool");
85 CURLMcode code
= curl_multi_add_handle(pool
->ch
, req
->request
->ch
);
87 if ((CURLM_OK
!= code
) && (CURLM_CALL_MULTI_PERFORM
!= code
)) {
88 http_error_ex(HE_WARNING
, HTTP_E_REQUEST_POOL
, "Could not attach HttpRequest object to the HttpRequestPool: %s", curl_multi_strerror(code
));
93 zend_llist_add_element(&pool
->handles
, &request
);
95 #if HTTP_DEBUG_REQPOOLS
96 fprintf(stderr
, "> %d HttpRequests attached to pool %p\n", zend_llist_count(&pool
->handles
), pool
);
105 /* {{{ STATUS http_request_pool_detach(http_request_pool *, zval *) */
106 PHP_HTTP_API STATUS
_http_request_pool_detach(http_request_pool
*pool
, zval
*request TSRMLS_DC
)
109 getObjectEx(http_request_object
, req
, request
);
111 #if HTTP_DEBUG_REQPOOLS
112 fprintf(stderr
, "Detaching HttpRequest(#%d) %p from pool %p\n", Z_OBJ_HANDLE_P(request
), req
, pool
);
116 /* not attached to any pool */
117 #if HTTP_DEBUG_REQPOOLS
118 fprintf(stderr
, "HttpRequest object(#%d) %p is not attached to any HttpRequestPool\n", Z_OBJ_HANDLE_P(request
), req
);
120 } else if (req
->pool
!= pool
) {
121 http_error_ex(HE_WARNING
, HTTP_E_INVALID_PARAM
, "HttpRequest object(#%d) is not attached to this HttpRequestPool", Z_OBJ_HANDLE_P(request
));
122 } else if (CURLM_OK
!= (code
= curl_multi_remove_handle(pool
->ch
, req
->request
->ch
))) {
123 http_error_ex(HE_WARNING
, HTTP_E_REQUEST_POOL
, "Could not detach HttpRequest object from the HttpRequestPool: %s", curl_multi_strerror(code
));
126 zend_llist_del_element(&pool
->finished
, request
, http_request_pool_compare_handles
);
127 zend_llist_del_element(&pool
->handles
, request
, http_request_pool_compare_handles
);
129 #if HTTP_DEBUG_REQPOOLS
130 fprintf(stderr
, "> %d HttpRequests remaining in pool %p\n", zend_llist_count(&pool
->handles
), pool
);
139 /* {{{ void http_request_pool_detach_all(http_request_pool *) */
140 PHP_HTTP_API
void _http_request_pool_detach_all(http_request_pool
*pool TSRMLS_DC
)
142 int count
= zend_llist_count(&pool
->handles
);
144 #if HTTP_DEBUG_REQPOOLS
145 fprintf(stderr
, "Detaching %d requests from pool %p\n", count
, pool
);
149 * we cannot apply a function to the llist which actually detaches
150 * the curl handle *and* removes the llist element --
151 * so let's get our hands dirty
155 zend_llist_position pos
;
156 zval
**handle
, **handles
= emalloc(count
* sizeof(zval
*));
158 for (handle
= zend_llist_get_first_ex(&pool
->handles
, &pos
); handle
; handle
= zend_llist_get_next_ex(&pool
->handles
, &pos
)) {
159 handles
[i
++] = *handle
;
162 /* should never happen */
164 zend_error(E_ERROR
, "number of fetched request handles do not match overall count");
168 for (i
= 0; i
< count
; ++i
) {
169 http_request_pool_detach(pool
, handles
[i
]);
175 /* {{{ STATUS http_request_pool_send(http_request_pool *) */
176 PHP_HTTP_API STATUS
_http_request_pool_send(http_request_pool
*pool TSRMLS_DC
)
178 #if HTTP_DEBUG_REQPOOLS
179 fprintf(stderr
, "Attempt to send %d requests of pool %p\n", zend_llist_count(&pool
->handles
), pool
);
182 while (http_request_pool_perform(pool
)) {
183 if (SUCCESS
!= http_request_pool_select(pool
)) {
185 http_error(HE_WARNING
, HTTP_E_SOCKET
, WSAGetLastError());
187 http_error(HE_WARNING
, HTTP_E_SOCKET
, strerror(errno
));
193 #if HTTP_DEBUG_REQPOOLS
194 fprintf(stderr
, "Finished sending %d HttpRequests of pool %p (still unfinished: %d)\n", zend_llist_count(&pool
->handles
), pool
, pool
->unfinished
);
201 /* {{{ void http_request_pool_dtor(http_request_pool *) */
202 PHP_HTTP_API
void _http_request_pool_dtor(http_request_pool
*pool TSRMLS_DC
)
204 #if HTTP_DEBUG_REQPOOLS
205 fprintf(stderr
, "Destructing request pool %p\n", pool
);
208 pool
->unfinished
= 0;
209 zend_llist_clean(&pool
->finished
);
210 zend_llist_clean(&pool
->handles
);
211 curl_multi_cleanup(pool
->ch
);
216 # define SELECT_ERROR SOCKET_ERROR
218 # define SELECT_ERROR -1
221 /* {{{ STATUS http_request_pool_select(http_request_pool *) */
222 PHP_HTTP_API STATUS
_http_request_pool_select(http_request_pool
*pool
)
226 struct timeval timeout
= {1, 0};
232 if (CURLM_OK
== curl_multi_fdset(pool
->ch
, &R
, &W
, &E
, &MAX
)) {
233 if (MAX
== -1 || SELECT_ERROR
!= select(MAX
+ 1, &R
, &W
, &E
, &timeout
)) {
241 /* {{{ int http_request_pool_perform(http_request_pool *) */
242 PHP_HTTP_API
int _http_request_pool_perform(http_request_pool
*pool TSRMLS_DC
)
247 while (CURLM_CALL_MULTI_PERFORM
== curl_multi_perform(pool
->ch
, &pool
->unfinished
));
249 while ((msg
= curl_multi_info_read(pool
->ch
, &remaining
))) {
250 if (CURLMSG_DONE
== msg
->msg
) {
251 if (CURLE_OK
!= msg
->data
.result
) {
252 http_request_pool_try
{
253 http_request
*r
= NULL
;
254 curl_easy_getinfo(msg
->easy_handle
, CURLINFO_PRIVATE
, &r
);
255 http_error_ex(HE_WARNING
, HTTP_E_REQUEST
, "%s; %s (%s)", curl_easy_strerror(msg
->data
.result
), r
?r
->_error
:"", r
?r
->url
:"");
256 } http_request_pool_catch();
258 http_request_pool_try
{
259 zend_llist_apply_with_argument(&pool
->handles
, (llist_apply_with_arg_func_t
) http_request_pool_responsehandler
, msg
->easy_handle TSRMLS_CC
);
260 } http_request_pool_catch();
263 http_request_pool_final();
265 return pool
->unfinished
;
269 /* {{{ void http_request_pool_responsehandler(zval **) */
270 void _http_request_pool_responsehandler(zval
**req
, CURL
*ch TSRMLS_DC
)
272 getObjectEx(http_request_object
, obj
, *req
);
274 if (obj
->request
->ch
== ch
) {
276 #if HTTP_DEBUG_REQPOOLS
277 fprintf(stderr
, "Fetching data from HttpRequest(#%d) %p of pool %p\n", Z_OBJ_HANDLE_PP(req
), obj
, obj
->pool
);
281 zend_llist_add_element(&obj
->pool
->finished
, req
);
282 http_request_object_responsehandler(obj
, *req
);
287 static void move_backtrace_args(zval
*from
, zval
*to TSRMLS_DC
)
289 zval
**args
, **trace_0
, *old_trace_0
, *trace
= NULL
;
291 if ((trace
= zend_read_property(zend_exception_get_default(), from
, "trace", lenof("trace"), 0 TSRMLS_CC
))) {
292 if (SUCCESS
== zend_hash_index_find(Z_ARRVAL_P(trace
), 0, (void **) &trace_0
)) {
293 old_trace_0
= *trace_0
;
294 if (SUCCESS
== zend_hash_find(Z_ARRVAL_PP(trace_0
), "args", sizeof("args"), (void **) &args
)) {
295 if ((trace
= zend_read_property(zend_exception_get_default(), to
, "trace", lenof("trace"), 0 TSRMLS_CC
))) {
296 if (SUCCESS
== zend_hash_index_find(Z_ARRVAL_P(trace
), 0, (void **) &trace_0
)) {
298 add_assoc_zval(*trace_0
, "args", *args
);
299 zend_hash_del(Z_ARRVAL_P(old_trace_0
), "args", sizeof("args"));
306 /* {{{ void http_request_pool_wrap_exception(zval *, zval *) */
307 void _http_request_pool_wrap_exception(zval
*old_exception
, zval
*new_exception TSRMLS_DC
)
309 zend_class_entry
*ce
= HTTP_EX_CE(request_pool
);
311 /* if old_exception is already an HttpRequestPoolException append the new one,
312 else create a new HttpRequestPoolException and append the old and new exceptions */
313 if (old_exception
&& Z_OBJCE_P(old_exception
) == ce
) {
314 zval
*old_exprop
, *new_exprop
;
316 MAKE_STD_ZVAL(new_exprop
);
317 array_init(new_exprop
);
318 old_exprop
= zend_read_property(ce
, old_exception
, "exceptionStack", lenof("exceptionStack"), 0 TSRMLS_CC
);
319 if (Z_TYPE_P(old_exprop
) == IS_ARRAY
) {
320 array_copy(old_exprop
, new_exprop
);
322 add_next_index_zval(new_exprop
, new_exception
);
323 zend_update_property(ce
, old_exception
, "exceptionStack", lenof("exceptionStack"), new_exprop TSRMLS_CC
);
324 zval_ptr_dtor(&new_exprop
);
326 EG(exception
) = old_exception
;
327 } else if (new_exception
&& Z_OBJCE_P(new_exception
) != ce
){
328 zval
*exval
, *exprop
;
330 MAKE_STD_ZVAL(exval
);
331 object_init_ex(exval
, ce
);
332 MAKE_STD_ZVAL(exprop
);
336 add_next_index_zval(exprop
, old_exception
);
338 move_backtrace_args(new_exception
, exval TSRMLS_CC
);
339 zend_update_property_long(ce
, exval
, "code", lenof("code"), HTTP_E_REQUEST_POOL TSRMLS_CC
);
340 zend_update_property_string(ce
, exval
, "message", lenof("message"), "See exceptionStack property" TSRMLS_CC
);
341 add_next_index_zval(exprop
, new_exception
);
342 zend_update_property(ce
, exval
, "exceptionStack", lenof("exceptionStack"), exprop TSRMLS_CC
);
343 zval_ptr_dtor(&exprop
);
345 EG(exception
) = exval
;
352 /* {{{ static int http_request_pool_compare_handles(void *, void *) */
353 static int http_request_pool_compare_handles(void *h1
, void *h2
)
355 return (Z_OBJ_HANDLE_PP((zval
**) h1
) == Z_OBJ_HANDLE_P((zval
*) h2
));
359 #endif /* ZEND_ENGINE_2 && HTTP_HAVE_CURL */
367 * vim600: noet sw=4 ts=4 fdm=marker
368 * vim<600: noet sw=4 ts=4