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-2005, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
19 #define HTTP_WANT_CURL
22 #if defined(ZEND_ENGINE_2) && defined(HTTP_HAVE_CURL)
24 #include "php_http_api.h"
25 #include "php_http_exception_object.h"
26 #include "php_http_request_api.h"
27 #include "php_http_request_object.h"
28 #include "php_http_request_pool_api.h"
29 #include "php_http_requestpool_object.h"
31 #ifndef HTTP_DEBUG_REQPOOLS
32 # define HTTP_DEBUG_REQPOOLS 0
35 ZEND_EXTERN_MODULE_GLOBALS(http
);
37 #ifndef HAVE_CURL_MULTI_STRERROR
38 # define curl_multi_strerror(dummy) "unknown error"
41 #define http_request_pool_wrap_exception(o, n) _http_request_pool_wrap_exception((o), (n) TSRMLS_CC)
42 static inline void _http_request_pool_wrap_exception(zval
*old_exception
, zval
*new_exception TSRMLS_DC
);
43 static void http_request_pool_freebody(http_request_callback_ctx
**body
);
44 static int http_request_pool_compare_handles(void *h1
, void *h2
);
46 /* {{{ http_request_pool *http_request_pool_init(http_request_pool *) */
47 PHP_HTTP_API http_request_pool
*_http_request_pool_init(http_request_pool
*pool TSRMLS_DC
)
51 #if HTTP_DEBUG_REQPOOLS
52 fprintf(stderr
, "Initializing request pool %p\n", pool
);
55 if ((free_pool
= (!pool
))) {
56 pool
= emalloc(sizeof(http_request_pool
));
60 HTTP_CHECK_CURL_INIT(pool
->ch
, curl_multi_init(), ;);
69 zend_llist_init(&pool
->finished
, sizeof(zval
*), (llist_dtor_func_t
) ZVAL_PTR_DTOR
, 0);
70 zend_llist_init(&pool
->handles
, sizeof(zval
*), (llist_dtor_func_t
) ZVAL_PTR_DTOR
, 0);
71 zend_llist_init(&pool
->bodies
, sizeof(http_request_callback_ctx
*), (llist_dtor_func_t
) http_request_pool_freebody
, 0);
73 #if HTTP_DEBUG_REQPOOLS
74 fprintf(stderr
, "Initialized request pool %p\n", pool
);
81 /* {{{ STATUS http_request_pool_attach(http_request_pool *, zval *) */
82 PHP_HTTP_API STATUS
_http_request_pool_attach(http_request_pool
*pool
, zval
*request TSRMLS_DC
)
84 getObjectEx(http_request_object
, req
, request
);
86 #if HTTP_DEBUG_REQPOOLS
87 fprintf(stderr
, "Attaching HttpRequest(#%d) %p to pool %p\n", Z_OBJ_HANDLE_P(request
), req
, pool
);
91 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");
93 http_request_callback_ctx
*body
= http_request_callback_data_ex(http_request_body_new(), 0);
95 if (SUCCESS
!= http_request_pool_requesthandler(request
, body
->data
)) {
96 http_error_ex(HE_WARNING
, HTTP_E_REQUEST
, "Could not initialize HttpRequest object for attaching to the HttpRequestPool");
98 CURLMcode code
= curl_multi_add_handle(pool
->ch
, req
->ch
);
100 if ((CURLM_OK
!= code
) && (CURLM_CALL_MULTI_PERFORM
!= code
)) {
101 http_error_ex(HE_WARNING
, HTTP_E_REQUEST_POOL
, "Could not attach HttpRequest object to the HttpRequestPool: %s", curl_multi_strerror(code
));
105 zend_llist_add_element(&pool
->handles
, &request
);
106 zend_llist_add_element(&pool
->bodies
, &body
);
108 ZVAL_ADDREF(request
);
110 #if HTTP_DEBUG_REQPOOLS
111 fprintf(stderr
, "> %d HttpRequests attached to pool %p\n", zend_llist_count(&pool
->handles
), pool
);
123 /* {{{ STATUS http_request_pool_detach(http_request_pool *, zval *) */
124 PHP_HTTP_API STATUS
_http_request_pool_detach(http_request_pool
*pool
, zval
*request TSRMLS_DC
)
127 getObjectEx(http_request_object
, req
, request
);
129 #if HTTP_DEBUG_REQPOOLS
130 fprintf(stderr
, "Detaching HttpRequest(#%d) %p from pool %p\n", Z_OBJ_HANDLE_P(request
), req
, pool
);
134 /* not attached to any pool */
135 #if HTTP_DEBUG_REQPOOLS
136 fprintf(stderr
, "HttpRequest object(#%d) %p is not attached to any HttpRequestPool\n", Z_OBJ_HANDLE_P(request
), req
);
138 } else if (req
->pool
!= pool
) {
139 http_error_ex(HE_WARNING
, HTTP_E_INVALID_PARAM
, "HttpRequest object(#%d) is not attached to this HttpRequestPool", Z_OBJ_HANDLE_P(request
));
140 } else if (CURLM_OK
!= (code
= curl_multi_remove_handle(pool
->ch
, req
->ch
))) {
141 http_error_ex(HE_WARNING
, HTTP_E_REQUEST_POOL
, "Could not detach HttpRequest object from the HttpRequestPool: %s", curl_multi_strerror(code
));
144 zend_llist_del_element(&pool
->finished
, request
, http_request_pool_compare_handles
);
145 zend_llist_del_element(&pool
->handles
, request
, http_request_pool_compare_handles
);
147 #if HTTP_DEBUG_REQPOOLS
148 fprintf(stderr
, "> %d HttpRequests remaining in pool %p\n", zend_llist_count(&pool
->handles
), pool
);
157 /* {{{ void http_request_pool_detach_all(http_request_pool *) */
158 PHP_HTTP_API
void _http_request_pool_detach_all(http_request_pool
*pool TSRMLS_DC
)
160 int count
= zend_llist_count(&pool
->handles
);
162 #if HTTP_DEBUG_REQPOOLS
163 fprintf(stderr
, "Detaching %d requests from pool %p\n", count
, pool
);
167 * we cannot apply a function to the llist which actually detaches
168 * the curl handle *and* removes the llist element --
169 * so let's get our hands dirty
173 zend_llist_position pos
;
174 zval
**handle
, **handles
= emalloc(count
* sizeof(zval
*));
176 for (handle
= zend_llist_get_first_ex(&pool
->handles
, &pos
); handle
; handle
= zend_llist_get_next_ex(&pool
->handles
, &pos
)) {
177 handles
[i
++] = *handle
;
180 /* should never happen */
182 zend_error(E_ERROR
, "number of fetched request handles do not match overall count");
186 for (i
= 0; i
< count
; ++i
) {
187 http_request_pool_detach(pool
, handles
[i
]);
192 #if HTTP_DEBUG_REQPOOLS
193 fprintf(stderr
, "Destroying %d request bodies of pool %p\n", zend_llist_count(&pool
->bodies
), pool
);
196 /* free created bodies too */
197 zend_llist_clean(&pool
->bodies
);
200 /* {{{ STATUS http_request_pool_send(http_request_pool *) */
201 PHP_HTTP_API STATUS
_http_request_pool_send(http_request_pool
*pool TSRMLS_DC
)
203 #if HTTP_DEBUG_REQPOOLS
204 fprintf(stderr
, "Attempt to send %d requests of pool %p\n", zend_llist_count(&pool
->handles
), pool
);
207 while (http_request_pool_perform(pool
)) {
208 if (SUCCESS
!= http_request_pool_select(pool
)) {
210 http_error(HE_WARNING
, HTTP_E_SOCKET
, WSAGetLastError());
212 http_error(HE_WARNING
, HTTP_E_SOCKET
, strerror(errno
));
218 #if HTTP_DEBUG_REQPOOLS
219 fprintf(stderr
, "Finished sending %d HttpRequests of pool %p (still unfinished: %d)\n", zend_llist_count(&pool
->handles
), pool
, pool
->unfinished
);
226 /* {{{ void http_request_pool_dtor(http_request_pool *) */
227 PHP_HTTP_API
void _http_request_pool_dtor(http_request_pool
*pool TSRMLS_DC
)
229 #if HTTP_DEBUG_REQPOOLS
230 fprintf(stderr
, "Destructing request pool %p\n", pool
);
233 pool
->unfinished
= 0;
234 zend_llist_clean(&pool
->finished
);
235 zend_llist_clean(&pool
->handles
);
236 zend_llist_clean(&pool
->bodies
);
237 curl_multi_cleanup(pool
->ch
);
242 # define SELECT_ERROR SOCKET_ERROR
244 # define SELECT_ERROR -1
247 /* {{{ STATUS http_request_pool_select(http_request_pool *) */
248 PHP_HTTP_API STATUS
_http_request_pool_select(http_request_pool
*pool
)
252 struct timeval timeout
= {1, 0};
258 if (CURLM_OK
== curl_multi_fdset(pool
->ch
, &R
, &W
, &E
, &MAX
)) {
259 if (MAX
== -1 || SELECT_ERROR
!= select(MAX
+ 1, &R
, &W
, &E
, &timeout
)) {
267 #define http_request_pool_try \
269 zval *old_exception = EG(exception); \
270 EG(exception) = NULL;
271 #define http_request_pool_catch \
272 if (EG(exception)) { \
273 http_request_pool_wrap_exception(old_exception, EG(exception)); \
275 EG(exception) = old_exception; \
279 /* {{{ int http_request_pool_perform(http_request_pool *) */
280 PHP_HTTP_API
int _http_request_pool_perform(http_request_pool
*pool TSRMLS_DC
)
285 while (CURLM_CALL_MULTI_PERFORM
== curl_multi_perform(pool
->ch
, &pool
->unfinished
));
287 while ((msg
= curl_multi_info_read(pool
->ch
, &remaining
))) {
288 if (CURLMSG_DONE
== msg
->msg
) {
289 if (CURLE_OK
!= msg
->data
.result
) {
290 http_request_pool_try
{
291 http_error(HE_WARNING
, HTTP_E_REQUEST
, curl_easy_strerror(msg
->data
.result
));
292 } http_request_pool_catch
;
294 http_request_pool_try
{
295 zend_llist_apply_with_argument(&pool
->handles
, (llist_apply_with_arg_func_t
) http_request_pool_responsehandler
, msg
->easy_handle TSRMLS_CC
);
296 } http_request_pool_catch
;
302 http_request_pool_wrap_exception(NULL
, EG(exception
));
304 exception
= EG(exception
);
305 EG(exception
) = NULL
;
306 zend_throw_exception_object(exception TSRMLS_CC
);
309 return pool
->unfinished
;
313 /* {{{ STATUS http_request_pool_requesthandler(zval *, http_request_body *) */
314 STATUS
_http_request_pool_requesthandler(zval
*request
, http_request_body
*body TSRMLS_DC
)
316 getObjectEx(http_request_object
, req
, request
);
317 if (SUCCESS
== http_request_object_requesthandler(req
, request
, body
)) {
318 http_request_conv(req
->ch
, &req
->response
, &req
->request
);
325 /* {{{ void http_request_pool_responsehandler(zval **) */
326 void _http_request_pool_responsehandler(zval
**req
, CURL
*ch TSRMLS_DC
)
328 getObjectEx(http_request_object
, obj
, *req
);
332 #if HTTP_DEBUG_REQPOOLS
333 fprintf(stderr
, "Fetching data from HttpRequest(#%d) %p of pool %p\n", Z_OBJ_HANDLE_PP(req
), obj
, obj
->pool
);
337 zend_llist_add_element(&obj
->pool
->finished
, req
);
338 http_request_object_responsehandler(obj
, *req
);
345 /* {{{ static void http_request_pool_wrap_exception(zval *, zval *) */
346 static inline void _http_request_pool_wrap_exception(zval
*old_exception
, zval
*new_exception TSRMLS_DC
)
348 zend_class_entry
*ce
= HTTP_EX_CE(request_pool
);
350 /* if old_exception is already an HttpRequestPoolException append the new one,
351 else create a new HttpRequestPoolException and append the old and new exceptions */
352 if (old_exception
&& Z_OBJCE_P(old_exception
) == ce
) {
355 exprop
= zend_read_property(ce
, old_exception
, "requestExceptions", sizeof("requestExceptions")-1, 0 TSRMLS_CC
);
357 convert_to_array(exprop
);
359 add_next_index_zval(exprop
, new_exception
);
360 zend_update_property(ce
, old_exception
, "requestExceptions", sizeof("requestExceptions")-1, exprop TSRMLS_CC
);
362 EG(exception
) = old_exception
;
363 } else if (new_exception
&& Z_OBJCE_P(new_exception
) != ce
){
364 zval
*exval
, *exprop
;
366 MAKE_STD_ZVAL(exval
);
367 object_init_ex(exval
, ce
);
368 MAKE_STD_ZVAL(exprop
);
372 add_next_index_zval(exprop
, old_exception
);
374 add_next_index_zval(exprop
, new_exception
);
375 zend_update_property(ce
, exval
, "requestExceptions", sizeof("requestExceptions")-1, exprop TSRMLS_CC
);
376 zval_ptr_dtor(&exprop
);
378 EG(exception
) = exval
;
383 /* {{{ static void http_request_pool_freebody(http_request_ctx **) */
384 static void http_request_pool_freebody(http_request_callback_ctx
**body
)
386 HTTP_REQUEST_CALLBACK_DATA(*body
, http_request_body
*, b
);
387 http_request_body_free(b
);
392 /* {{{ static int http_request_pool_compare_handles(void *, void *) */
393 static int http_request_pool_compare_handles(void *h1
, void *h2
)
395 return (Z_OBJ_HANDLE_PP((zval
**) h1
) == Z_OBJ_HANDLE_P((zval
*) h2
));
399 #endif /* ZEND_ENGINE_2 && HTTP_HAVE_CURL */
407 * vim600: noet sw=4 ts=4 fdm=marker
408 * vim<600: noet sw=4 ts=4