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_SAPI
16 #define HTTP_WANT_CURL
21 #include "php_http_api.h"
22 #include "php_http_request_api.h"
23 #include "php_http_url_api.h"
24 #ifdef HTTP_HAVE_PERSISTENT_HANDLES
25 # include "php_http_persistent_handle_api.h"
29 # include "php_http_request_object.h"
32 #include "php_http_request_int.h"
34 /* {{{ cruft for thread safe SSL crypto locks */
35 #ifdef HTTP_NEED_OPENSSL_TSL
36 static MUTEX_T
*http_openssl_tsl
= NULL
;
38 static void http_openssl_thread_lock(int mode
, int n
, const char * file
, int line
)
40 if (mode
& CRYPTO_LOCK
) {
41 tsrm_mutex_lock(http_openssl_tsl
[n
]);
43 tsrm_mutex_unlock(http_openssl_tsl
[n
]);
47 static ulong
http_openssl_thread_id(void)
49 return (ulong
) tsrm_thread_id();
52 #ifdef HTTP_NEED_GNUTLS_TSL
53 static int http_gnutls_mutex_create(void **m
)
55 if (*((MUTEX_T
*) m
) = tsrm_mutex_alloc()) {
62 static int http_gnutls_mutex_destroy(void **m
)
64 tsrm_mutex_free(*((MUTEX_T
*) m
));
68 static int http_gnutls_mutex_lock(void **m
)
70 return tsrm_mutex_lock(*((MUTEX_T
*) m
));
73 static int http_gnutls_mutex_unlock(void **m
)
75 return tsrm_mutex_unlock(*((MUTEX_T
*) m
));
78 static struct gcry_thread_cbs http_gnutls_tsl
= {
79 GCRY_THREAD_OPTION_USER
,
81 http_gnutls_mutex_create
,
82 http_gnutls_mutex_destroy
,
83 http_gnutls_mutex_lock
,
84 http_gnutls_mutex_unlock
90 PHP_MINIT_FUNCTION(http_request
)
92 #ifdef HTTP_NEED_OPENSSL_TSL
93 /* mod_ssl, libpq or ext/curl might already have set thread lock callbacks */
94 if (!CRYPTO_get_id_callback()) {
95 int i
, c
= CRYPTO_num_locks();
97 http_openssl_tsl
= malloc(c
* sizeof(MUTEX_T
));
99 for (i
= 0; i
< c
; ++i
) {
100 http_openssl_tsl
[i
] = tsrm_mutex_alloc();
103 CRYPTO_set_id_callback(http_openssl_thread_id
);
104 CRYPTO_set_locking_callback(http_openssl_thread_lock
);
107 #ifdef HTTP_NEED_GNUTLS_TSL
108 gcry_control(GCRYCTL_SET_THREAD_CBS
, &http_gnutls_tsl
);
111 if (CURLE_OK
!= curl_global_init(CURL_GLOBAL_ALL
)) {
115 #ifdef HTTP_HAVE_PERSISTENT_HANDLES
116 if (SUCCESS
!= http_persistent_handle_provide("http_request", curl_easy_init
, curl_easy_cleanup
)) {
121 HTTP_LONG_CONSTANT("HTTP_AUTH_BASIC", CURLAUTH_BASIC
);
122 HTTP_LONG_CONSTANT("HTTP_AUTH_DIGEST", CURLAUTH_DIGEST
);
123 HTTP_LONG_CONSTANT("HTTP_AUTH_NTLM", CURLAUTH_NTLM
);
124 HTTP_LONG_CONSTANT("HTTP_AUTH_GSSNEG", CURLAUTH_GSSNEGOTIATE
);
125 HTTP_LONG_CONSTANT("HTTP_AUTH_ANY", CURLAUTH_ANY
);
127 HTTP_LONG_CONSTANT("HTTP_VERSION_NONE", CURL_HTTP_VERSION_NONE
); /* to be removed */
128 HTTP_LONG_CONSTANT("HTTP_VERSION_1_0", CURL_HTTP_VERSION_1_0
);
129 HTTP_LONG_CONSTANT("HTTP_VERSION_1_1", CURL_HTTP_VERSION_1_1
);
130 HTTP_LONG_CONSTANT("HTTP_VERSION_ANY", CURL_HTTP_VERSION_NONE
);
132 HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_TLSv1", CURL_SSLVERSION_TLSv1
);
133 HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_SSLv2", CURL_SSLVERSION_SSLv2
);
134 HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_SSLv3", CURL_SSLVERSION_SSLv3
);
135 HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_ANY", CURL_SSLVERSION_DEFAULT
);
137 HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_V4", CURL_IPRESOLVE_V4
);
138 HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_V6", CURL_IPRESOLVE_V6
);
139 HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_ANY", CURL_IPRESOLVE_WHATEVER
);
141 #if HTTP_CURL_VERSION(7,15,2)
142 HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS4", CURLPROXY_SOCKS4
);
144 HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS5", CURLPROXY_SOCKS5
);
145 HTTP_LONG_CONSTANT("HTTP_PROXY_HTTP", CURLPROXY_HTTP
);
151 PHP_MSHUTDOWN_FUNCTION(http_request
)
153 curl_global_cleanup();
154 #ifdef HTTP_NEED_OPENSSL_TSL
155 if (http_openssl_tsl
) {
156 int i
, c
= CRYPTO_num_locks();
158 CRYPTO_set_id_callback(NULL
);
159 CRYPTO_set_locking_callback(NULL
);
161 for (i
= 0; i
< c
; ++i
) {
162 tsrm_mutex_free(http_openssl_tsl
[i
]);
165 free(http_openssl_tsl
);
166 http_openssl_tsl
= NULL
;
173 /* {{{ forward declarations */
174 #define http_request_option(r, o, k, t) _http_request_option_ex((r), (o), (k), sizeof(k), (t) TSRMLS_CC)
175 #define http_request_option_ex(r, o, k, l, t) _http_request_option_ex((r), (o), (k), (l), (t) TSRMLS_CC)
176 static inline zval
*_http_request_option_ex(http_request
*request
, HashTable
*options
, char *key
, size_t keylen
, int type TSRMLS_DC
);
177 #define http_request_option_cache(r, k, z) _http_request_option_cache_ex((r), (k), sizeof(k), 0, (z) TSRMLS_CC)
178 #define http_request_option_cache_ex(r, k, kl, h, z) _http_request_option_cache_ex((r), (k), (kl), (h), (z) TSRMLS_CC)
179 static inline zval
*_http_request_option_cache_ex(http_request
*r
, char *key
, size_t keylen
, ulong h
, zval
*opt TSRMLS_DC
);
181 static size_t http_curl_read_callback(void *, size_t, size_t, void *);
182 static int http_curl_progress_callback(void *, double, double, double, double);
183 static int http_curl_raw_callback(CURL
*, curl_infotype
, char *, size_t, void *);
184 static int http_curl_dummy_callback(char *data
, size_t n
, size_t l
, void *s
) { return n
*l
; }
185 static curlioerr
http_curl_ioctl_callback(CURL
*, curliocmd
, void *);
188 #ifdef HTTP_HAVE_PERSISTENT_HANDLES
189 # define HTTP_CURL_HANDLE_CTOR(ch) (SUCCESS == http_persistent_handle_acquire("http_request", &(ch)))
190 # define HTTP_CURL_HANDLE_DTOR(chp) http_persistent_handle_release("http_request", (chp))
192 # define HTTP_CURL_HANDLE_CTOR(ch) ((ch) = curl_easy_init())
193 # define HTTP_CURL_HANDLE_DTOR(chp) curl_easy_cleanup(*(chp)); *(chp) = NULL
196 /* {{{ CURL *http_curl_init(http_request *) */
197 PHP_HTTP_API CURL
* _http_curl_init_ex(CURL
*ch
, http_request
*request
)
199 if (ch
|| HTTP_CURL_HANDLE_CTOR(ch
)) {
201 curl_easy_setopt(ch
, CURLOPT_NOSIGNAL
, 1L);
203 curl_easy_setopt(ch
, CURLOPT_HEADER
, 0L);
204 curl_easy_setopt(ch
, CURLOPT_FILETIME
, 1L);
205 curl_easy_setopt(ch
, CURLOPT_AUTOREFERER
, 1L);
206 curl_easy_setopt(ch
, CURLOPT_VERBOSE
, 1L);
207 curl_easy_setopt(ch
, CURLOPT_HEADERFUNCTION
, NULL
);
208 curl_easy_setopt(ch
, CURLOPT_DEBUGFUNCTION
, http_curl_raw_callback
);
209 curl_easy_setopt(ch
, CURLOPT_READFUNCTION
, http_curl_read_callback
);
210 curl_easy_setopt(ch
, CURLOPT_IOCTLFUNCTION
, http_curl_ioctl_callback
);
211 curl_easy_setopt(ch
, CURLOPT_WRITEFUNCTION
, http_curl_dummy_callback
);
215 curl_easy_setopt(ch
, CURLOPT_PRIVATE
, request
);
216 curl_easy_setopt(ch
, CURLOPT_DEBUGDATA
, request
);
217 curl_easy_setopt(ch
, CURLOPT_ERRORBUFFER
, request
->_error
);
219 /* attach curl handle */
221 /* set defaults (also in http_request_reset()) */
222 http_request_defaults(request
);
230 /* {{{ void http_curl_free(CURL **) */
231 PHP_HTTP_API
void _http_curl_free(CURL
**ch
)
234 curl_easy_setopt(*ch
, CURLOPT_NOPROGRESS
, 1L);
235 curl_easy_setopt(*ch
, CURLOPT_PROGRESSFUNCTION
, NULL
);
236 curl_easy_setopt(*ch
, CURLOPT_VERBOSE
, 0L);
237 curl_easy_setopt(*ch
, CURLOPT_DEBUGFUNCTION
, NULL
);
239 HTTP_CURL_HANDLE_DTOR(ch
);
244 /* {{{ http_request *http_request_init(http_request *) */
245 PHP_HTTP_API http_request
*_http_request_init_ex(http_request
*request
, CURL
*ch
, http_request_method meth
, const char *url ZEND_FILE_LINE_DC ZEND_FILE_LINE_ORIG_DC TSRMLS_DC
)
252 r
= emalloc_rel(sizeof(http_request
));
254 memset(r
, 0, sizeof(http_request
));
257 r
->url
= (url
) ? http_absolute_url(url
) : NULL
;
258 r
->meth
= (meth
> 0) ? meth
: HTTP_GET
;
260 phpstr_init(&r
->conv
.request
);
261 phpstr_init_ex(&r
->conv
.response
, HTTP_CURLBUF_SIZE
, 0);
262 phpstr_init(&r
->_cache
.cookies
);
263 zend_hash_init(&r
->_cache
.options
, 0, NULL
, ZVAL_PTR_DTOR
, 0);
265 TSRMLS_SET_CTX(r
->tsrm_ls
);
271 /* {{{ void http_request_dtor(http_request *) */
272 PHP_HTTP_API
void _http_request_dtor(http_request
*request
)
274 http_curl_free(&request
->ch
);
275 http_request_reset(request
);
277 phpstr_dtor(&request
->_cache
.cookies
);
278 zend_hash_destroy(&request
->_cache
.options
);
279 if (request
->_cache
.headers
) {
280 curl_slist_free_all(request
->_cache
.headers
);
281 request
->_cache
.headers
= NULL
;
283 if (request
->_progress_callback
) {
284 zval_ptr_dtor(&request
->_progress_callback
);
285 request
->_progress_callback
= NULL
;
290 /* {{{ void http_request_free(http_request **) */
291 PHP_HTTP_API
void _http_request_free(http_request
**request
)
294 TSRMLS_FETCH_FROM_CTX((*request
)->tsrm_ls
);
295 http_request_body_free(&(*request
)->body
);
296 http_request_dtor(*request
);
303 /* {{{ void http_request_reset(http_request *) */
304 PHP_HTTP_API
void _http_request_reset(http_request
*request
)
306 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
307 STR_SET(request
->url
, NULL
);
308 request
->conv
.last_type
= 0;
309 phpstr_dtor(&request
->conv
.request
);
310 phpstr_dtor(&request
->conv
.response
);
311 http_request_body_dtor(request
->body
);
314 http_request_defaults(request
);
316 request
->_error
[0] = '\0';
320 /* {{{ STATUS http_request_enable_cookies(http_request *) */
321 PHP_HTTP_API STATUS
_http_request_enable_cookies(http_request
*request
)
324 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
326 HTTP_CHECK_CURL_INIT(request
->ch
, http_curl_init_ex(request
->ch
, request
), initialized
= 0);
327 if (initialized
&& CURLE_OK
== curl_easy_setopt(request
->ch
, CURLOPT_COOKIEFILE
, "")) {
330 http_error(HE_WARNING
, HTTP_E_REQUEST
, "Could not enable cookies for this session");
335 /* {{{ STATUS http_request_reset_cookies(http_request *, int) */
336 PHP_HTTP_API STATUS
_http_request_reset_cookies(http_request
*request
, int session_only
)
339 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
341 HTTP_CHECK_CURL_INIT(request
->ch
, http_curl_init_ex(request
->ch
, request
), initialized
= 0);
343 #if HTTP_CURL_VERSION(7,15,4)
344 if (initialized
&& CURLE_OK
== curl_easy_setopt(request
->ch
, CURLOPT_COOKIELIST
, "SESS")) {
348 http_error(HE_WARNING
, HTTP_E_REQUEST
, "Could not reset session cookies (need libcurl >= v7.15.4)");
350 #if HTTP_CURL_VERSION(7,14,1)
351 if (initialized
&& CURLE_OK
== curl_easy_setopt(request
->ch
, CURLOPT_COOKIELIST
, "ALL")) {
355 http_error(HE_WARNING
, HTTP_E_REQUEST
, "Could not reset cookies (need libcurl >= v7.14.1)");
361 /* {{{ void http_request_defaults(http_request *) */
362 PHP_HTTP_API
void _http_request_defaults(http_request
*request
)
365 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION
, NULL
);
366 HTTP_CURL_OPT(CURLOPT_URL
, NULL
);
367 HTTP_CURL_OPT(CURLOPT_NOPROGRESS
, 1L);
368 HTTP_CURL_OPT(CURLOPT_PROXY
, NULL
);
369 HTTP_CURL_OPT(CURLOPT_PROXYPORT
, 0L);
370 HTTP_CURL_OPT(CURLOPT_PROXYTYPE
, 0L);
371 HTTP_CURL_OPT(CURLOPT_PROXYUSERPWD
, NULL
);
372 HTTP_CURL_OPT(CURLOPT_PROXYAUTH
, 0L);
373 HTTP_CURL_OPT(CURLOPT_DNS_CACHE_TIMEOUT
, 60L);
374 HTTP_CURL_OPT(CURLOPT_IPRESOLVE
, 0);
375 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_LIMIT
, 0L);
376 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_TIME
, 0L);
377 #if HTTP_CURL_VERSION(7,15,5)
378 HTTP_CURL_OPT(CURLOPT_MAX_SEND_SPEED_LARGE
, (curl_off_t
) 0);
379 HTTP_CURL_OPT(CURLOPT_MAX_RECV_SPEED_LARGE
, (curl_off_t
) 0);
382 HTTP_CURL_OPT(CURLOPT_MAXCONNECTS, 5L); */
383 HTTP_CURL_OPT(CURLOPT_FRESH_CONNECT
, 0L);
384 HTTP_CURL_OPT(CURLOPT_FORBID_REUSE
, 0L);
385 HTTP_CURL_OPT(CURLOPT_INTERFACE
, NULL
);
386 HTTP_CURL_OPT(CURLOPT_PORT
, 0L);
387 #if HTTP_CURL_VERSION(7,15,2)
388 HTTP_CURL_OPT(CURLOPT_LOCALPORT
, 0L);
389 HTTP_CURL_OPT(CURLOPT_LOCALPORTRANGE
, 0L);
391 HTTP_CURL_OPT(CURLOPT_USERPWD
, NULL
);
392 HTTP_CURL_OPT(CURLOPT_HTTPAUTH
, 0L);
393 HTTP_CURL_OPT(CURLOPT_ENCODING
, NULL
);
394 HTTP_CURL_OPT(CURLOPT_FOLLOWLOCATION
, 0L);
395 HTTP_CURL_OPT(CURLOPT_UNRESTRICTED_AUTH
, 0L);
396 HTTP_CURL_OPT(CURLOPT_REFERER
, NULL
);
397 HTTP_CURL_OPT(CURLOPT_USERAGENT
, "PECL::HTTP/" PHP_EXT_HTTP_VERSION
" (PHP/" PHP_VERSION
")");
398 HTTP_CURL_OPT(CURLOPT_HTTPHEADER
, NULL
);
399 HTTP_CURL_OPT(CURLOPT_COOKIE
, NULL
);
400 #if HTTP_CURL_VERSION(7,14,1)
401 HTTP_CURL_OPT(CURLOPT_COOKIELIST
, NULL
);
403 HTTP_CURL_OPT(CURLOPT_RANGE
, NULL
);
404 HTTP_CURL_OPT(CURLOPT_RESUME_FROM
, 0L);
405 HTTP_CURL_OPT(CURLOPT_MAXFILESIZE
, 0L);
406 HTTP_CURL_OPT(CURLOPT_TIMECONDITION
, 0L);
407 HTTP_CURL_OPT(CURLOPT_TIMEVALUE
, 0L);
408 HTTP_CURL_OPT(CURLOPT_TIMEOUT
, 0L);
409 HTTP_CURL_OPT(CURLOPT_CONNECTTIMEOUT
, 3);
410 HTTP_CURL_OPT(CURLOPT_SSLCERT
, NULL
);
411 HTTP_CURL_OPT(CURLOPT_SSLCERTTYPE
, NULL
);
412 HTTP_CURL_OPT(CURLOPT_SSLCERTPASSWD
, NULL
);
413 HTTP_CURL_OPT(CURLOPT_SSLKEY
, NULL
);
414 HTTP_CURL_OPT(CURLOPT_SSLKEYTYPE
, NULL
);
415 HTTP_CURL_OPT(CURLOPT_SSLKEYPASSWD
, NULL
);
416 HTTP_CURL_OPT(CURLOPT_SSLENGINE
, NULL
);
417 HTTP_CURL_OPT(CURLOPT_SSLVERSION
, 0L);
418 HTTP_CURL_OPT(CURLOPT_SSL_VERIFYPEER
, 0L);
419 HTTP_CURL_OPT(CURLOPT_SSL_VERIFYHOST
, 0L);
420 HTTP_CURL_OPT(CURLOPT_SSL_CIPHER_LIST
, NULL
);
421 #ifdef HTTP_CURL_CAINFO
422 HTTP_CURL_OPT(CURLOPT_CAINFO
, HTTP_CURL_CAINFO
);
424 HTTP_CURL_OPT(CURLOPT_CAINFO
, NULL
);
426 HTTP_CURL_OPT(CURLOPT_CAPATH
, NULL
);
427 HTTP_CURL_OPT(CURLOPT_RANDOM_FILE
, NULL
);
428 HTTP_CURL_OPT(CURLOPT_EGDSOCKET
, NULL
);
429 HTTP_CURL_OPT(CURLOPT_POSTFIELDS
, NULL
);
430 HTTP_CURL_OPT(CURLOPT_POSTFIELDSIZE
, 0L);
431 HTTP_CURL_OPT(CURLOPT_HTTPPOST
, NULL
);
432 HTTP_CURL_OPT(CURLOPT_IOCTLDATA
, NULL
);
433 HTTP_CURL_OPT(CURLOPT_READDATA
, NULL
);
434 HTTP_CURL_OPT(CURLOPT_INFILESIZE
, 0L);
435 HTTP_CURL_OPT(CURLOPT_HTTP_VERSION
, CURL_HTTP_VERSION_NONE
);
436 HTTP_CURL_OPT(CURLOPT_CUSTOMREQUEST
, NULL
);
437 HTTP_CURL_OPT(CURLOPT_NOBODY
, 0L);
438 HTTP_CURL_OPT(CURLOPT_POST
, 0L);
439 HTTP_CURL_OPT(CURLOPT_UPLOAD
, 0L);
440 HTTP_CURL_OPT(CURLOPT_HTTPGET
, 1L);
445 PHP_HTTP_API
void _http_request_set_progress_callback(http_request
*request
, zval
*cb
)
447 if (request
->_progress_callback
) {
448 zval_ptr_dtor(&request
->_progress_callback
);
450 if ((request
->_progress_callback
= cb
)) {
452 HTTP_CURL_OPT(CURLOPT_NOPROGRESS
, 0);
453 HTTP_CURL_OPT(CURLOPT_PROGRESSDATA
, request
);
454 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION
, http_curl_progress_callback
);
456 HTTP_CURL_OPT(CURLOPT_NOPROGRESS
, 1);
457 HTTP_CURL_OPT(CURLOPT_PROGRESSDATA
, NULL
);
458 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION
, NULL
);
462 /* {{{ STATUS http_request_prepare(http_request *, HashTable *) */
463 PHP_HTTP_API STATUS
_http_request_prepare(http_request
*request
, HashTable
*options
)
466 zend_bool range_req
= 0;
468 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
470 HTTP_CHECK_CURL_INIT(request
->ch
, http_curl_init(request
), return FAILURE
);
473 HTTP_CURL_OPT(CURLOPT_URL
, request
->url
);
475 /* progress callback */
476 if ((zoption
= http_request_option(request
, options
, "onprogress", -1))) {
477 http_request_set_progress_callback(request
, zoption
);
481 if ((zoption
= http_request_option(request
, options
, "proxyhost", IS_STRING
))) {
482 if (Z_STRLEN_P(zoption
)) {
483 HTTP_CURL_OPT(CURLOPT_PROXY
, Z_STRVAL_P(zoption
));
486 if ((zoption
= http_request_option(request
, options
, "proxytype", IS_LONG
))) {
487 HTTP_CURL_OPT(CURLOPT_PROXYTYPE
, Z_LVAL_P(zoption
));
490 if ((zoption
= http_request_option(request
, options
, "proxyport", IS_LONG
))) {
491 HTTP_CURL_OPT(CURLOPT_PROXYPORT
, Z_LVAL_P(zoption
));
494 if ((zoption
= http_request_option(request
, options
, "proxyauth", IS_STRING
)) && Z_STRLEN_P(zoption
)) {
495 HTTP_CURL_OPT(CURLOPT_PROXYUSERPWD
, Z_STRVAL_P(zoption
));
498 if ((zoption
= http_request_option(request
, options
, "proxyauthtype", IS_LONG
))) {
499 HTTP_CURL_OPT(CURLOPT_PROXYAUTH
, Z_LVAL_P(zoption
));
504 if ((zoption
= http_request_option(request
, options
, "dns_cache_timeout", IS_LONG
))) {
505 HTTP_CURL_OPT(CURLOPT_DNS_CACHE_TIMEOUT
, Z_LVAL_P(zoption
));
507 if ((zoption
= http_request_option(request
, options
, "ipresolve", IS_LONG
)) && Z_LVAL_P(zoption
)) {
508 HTTP_CURL_OPT(CURLOPT_IPRESOLVE
, Z_LVAL_P(zoption
));
512 if ((zoption
= http_request_option(request
, options
, "low_speed_limit", IS_LONG
))) {
513 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_LIMIT
, Z_LVAL_P(zoption
));
515 if ((zoption
= http_request_option(request
, options
, "low_speed_time", IS_LONG
))) {
516 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_TIME
, Z_LVAL_P(zoption
));
518 #if HTTP_CURL_VERSION(7,15,5)
519 if ((zoption
= http_request_option(request
, options
, "max_send_speed", IS_LONG
))) {
520 HTTP_CURL_OPT(CURLOPT_MAX_SEND_SPEED_LARGE
, (curl_off_t
) Z_LVAL_P(zoption
));
522 if ((zoption
= http_request_option(request
, options
, "max_recv_speed", IS_LONG
))) {
523 HTTP_CURL_OPT(CURLOPT_MAX_RECV_SPEED_LARGE
, (curl_off_t
) Z_LVAL_P(zoption
));
527 if ((zoption = http_request_option(request, options, "maxconnects", IS_LONG))) {
528 HTTP_CURL_OPT(CURLOPT_MAXCONNECTS, Z_LVAL_P(zoption));
530 if ((zoption
= http_request_option(request
, options
, "fresh_connect", IS_BOOL
)) && Z_BVAL_P(zoption
)) {
531 HTTP_CURL_OPT(CURLOPT_FRESH_CONNECT
, 1L);
533 if ((zoption
= http_request_option(request
, options
, "forbid_reuse", IS_BOOL
)) && Z_BVAL_P(zoption
)) {
534 HTTP_CURL_OPT(CURLOPT_FORBID_REUSE
, 1L);
537 /* outgoing interface */
538 if ((zoption
= http_request_option(request
, options
, "interface", IS_STRING
))) {
539 HTTP_CURL_OPT(CURLOPT_INTERFACE
, Z_STRVAL_P(zoption
));
541 #if HTTP_CURL_VERSION(7,15,2)
542 if ((zoption
= http_request_option(request
, options
, "portrange", IS_ARRAY
))) {
545 zend_hash_internal_pointer_reset(Z_ARRVAL_P(zoption
));
546 if (SUCCESS
== zend_hash_get_current_data(Z_ARRVAL_P(zoption
), (void *) &prs
)) {
547 zend_hash_move_forward(Z_ARRVAL_P(zoption
));
548 if (SUCCESS
== zend_hash_get_current_data(Z_ARRVAL_P(zoption
), (void *) &pre
)) {
549 zval
*prs_cpy
= zval_copy(IS_LONG
, *prs
), *pre_cpy
= zval_copy(IS_LONG
, *pre
);
551 if (Z_LVAL_P(prs_cpy
) && Z_LVAL_P(pre_cpy
)) {
552 HTTP_CURL_OPT(CURLOPT_LOCALPORT
, MIN(Z_LVAL_P(prs_cpy
), Z_LVAL_P(pre_cpy
)));
553 HTTP_CURL_OPT(CURLOPT_LOCALPORTRANGE
, labs(Z_LVAL_P(prs_cpy
)-Z_LVAL_P(pre_cpy
))+1L);
564 if ((zoption
= http_request_option(request
, options
, "port", IS_LONG
))) {
565 HTTP_CURL_OPT(CURLOPT_PORT
, Z_LVAL_P(zoption
));
569 if ((zoption
= http_request_option(request
, options
, "httpauth", IS_STRING
)) && Z_STRLEN_P(zoption
)) {
570 HTTP_CURL_OPT(CURLOPT_USERPWD
, Z_STRVAL_P(zoption
));
572 if ((zoption
= http_request_option(request
, options
, "httpauthtype", IS_LONG
))) {
573 HTTP_CURL_OPT(CURLOPT_HTTPAUTH
, Z_LVAL_P(zoption
));
576 /* redirects, defaults to 0 */
577 if ((zoption
= http_request_option(request
, options
, "redirect", IS_LONG
))) {
578 HTTP_CURL_OPT(CURLOPT_FOLLOWLOCATION
, Z_LVAL_P(zoption
) ? 1L : 0L);
579 HTTP_CURL_OPT(CURLOPT_MAXREDIRS
, Z_LVAL_P(zoption
));
580 if ((zoption
= http_request_option(request
, options
, "unrestrictedauth", IS_BOOL
))) {
581 HTTP_CURL_OPT(CURLOPT_UNRESTRICTED_AUTH
, Z_LVAL_P(zoption
));
586 if ((zoption
= http_request_option(request
, options
, "referer", IS_STRING
)) && Z_STRLEN_P(zoption
)) {
587 HTTP_CURL_OPT(CURLOPT_REFERER
, Z_STRVAL_P(zoption
));
590 /* useragent, default "PECL::HTTP/version (PHP/version)" */
591 if ((zoption
= http_request_option(request
, options
, "useragent", IS_STRING
))) {
592 /* allow to send no user agent, not even default one */
593 if (Z_STRLEN_P(zoption
)) {
594 HTTP_CURL_OPT(CURLOPT_USERAGENT
, Z_STRVAL_P(zoption
));
596 HTTP_CURL_OPT(CURLOPT_USERAGENT
, NULL
);
601 if ((zoption
= http_request_option(request
, options
, "resume", IS_LONG
)) && (Z_LVAL_P(zoption
) > 0)) {
603 HTTP_CURL_OPT(CURLOPT_RESUME_FROM
, Z_LVAL_P(zoption
));
605 /* or range of kind array(array(0,499), array(100,1499)) */
606 else if ((zoption
= http_request_option(request
, options
, "range", IS_ARRAY
)) && zend_hash_num_elements(Z_ARRVAL_P(zoption
))) {
607 HashPosition pos1
, pos2
;
608 zval
**rr
, **rb
, **re
;
612 FOREACH_VAL(pos1
, zoption
, rr
) {
613 if (Z_TYPE_PP(rr
) == IS_ARRAY
) {
614 zend_hash_internal_pointer_reset_ex(Z_ARRVAL_PP(rr
), &pos2
);
615 if (SUCCESS
== zend_hash_get_current_data_ex(Z_ARRVAL_PP(rr
), (void *) &rb
, &pos2
)) {
616 zend_hash_move_forward_ex(Z_ARRVAL_PP(rr
), &pos2
);
617 if (SUCCESS
== zend_hash_get_current_data_ex(Z_ARRVAL_PP(rr
), (void *) &re
, &pos2
)) {
618 if ( ((Z_TYPE_PP(rb
) == IS_LONG
) || ((Z_TYPE_PP(rb
) == IS_STRING
) && is_numeric_string(Z_STRVAL_PP(rb
), Z_STRLEN_PP(rb
), NULL
, NULL
, 1))) &&
619 ((Z_TYPE_PP(re
) == IS_LONG
) || ((Z_TYPE_PP(re
) == IS_STRING
) && is_numeric_string(Z_STRVAL_PP(re
), Z_STRLEN_PP(re
), NULL
, NULL
, 1)))) {
620 zval
*rbl
= zval_copy(IS_LONG
, *rb
), *rel
= zval_copy(IS_LONG
, *re
);
622 if ((Z_LVAL_P(rbl
) >= 0) && (Z_LVAL_P(rel
) >= 0)) {
623 phpstr_appendf(&rs
, "%ld-%ld,", Z_LVAL_P(rbl
), Z_LVAL_P(rel
));
633 if (PHPSTR_LEN(&rs
)) {
636 /* ditch last comma */
637 PHPSTR_VAL(&rs
)[PHPSTR_LEN(&rs
)-- -1] = '\0';
639 MAKE_STD_ZVAL(cached_range
);
640 ZVAL_STRINGL(cached_range
, PHPSTR_VAL(&rs
), PHPSTR_LEN(&rs
), 0);
641 HTTP_CURL_OPT(CURLOPT_RANGE
, Z_STRVAL_P(http_request_option_cache(request
, "range", cached_range
)));
642 zval_ptr_dtor(&cached_range
);
646 /* additional headers, array('name' => 'value') */
647 if (request
->_cache
.headers
) {
648 curl_slist_free_all(request
->_cache
.headers
);
649 request
->_cache
.headers
= NULL
;
651 if ((zoption
= http_request_option(request
, options
, "headers", IS_ARRAY
))) {
652 HashKey header_key
= initHashKey(0);
656 FOREACH_KEYVAL(pos
, zoption
, header_key
, header_val
) {
657 if (header_key
.type
== HASH_KEY_IS_STRING
) {
660 ZVAL_ADDREF(*header_val
);
661 convert_to_string_ex(header_val
);
662 if (!strcasecmp(header_key
.str
, "range")) {
665 snprintf(header
, sizeof(header
), "%s: %s", header_key
.str
, Z_STRVAL_PP(header_val
));
666 request
->_cache
.headers
= curl_slist_append(request
->_cache
.headers
, header
);
667 zval_ptr_dtor(header_val
);
672 if ((zoption
= http_request_option(request
, options
, "etag", IS_STRING
)) && Z_STRLEN_P(zoption
)) {
673 char match_header
[1024], *quoted_etag
= NULL
;
675 if ((Z_STRVAL_P(zoption
)[0] != '"') || (Z_STRVAL_P(zoption
)[Z_STRLEN_P(zoption
)-1] != '"')) {
676 spprintf("ed_etag
, 0, "\"%s\"", Z_STRVAL_P(zoption
));
678 snprintf(match_header
, sizeof(match_header
), "%s: %s", range_req
?"If-Match":"If-None-Match", quoted_etag
?quoted_etag
:Z_STRVAL_P(zoption
));
679 request
->_cache
.headers
= curl_slist_append(request
->_cache
.headers
, match_header
);
680 STR_FREE(quoted_etag
);
683 if ((zoption
= http_request_option(request
, options
, "compress", IS_BOOL
)) && Z_LVAL_P(zoption
)) {
684 request
->_cache
.headers
= curl_slist_append(request
->_cache
.headers
, "Accept-Encoding: gzip;q=1.0,deflate;q=0.5");
686 HTTP_CURL_OPT(CURLOPT_HTTPHEADER
, request
->_cache
.headers
);
689 if ((zoption
= http_request_option(request
, options
, "lastmodified", IS_LONG
))) {
690 if (Z_LVAL_P(zoption
)) {
691 if (Z_LVAL_P(zoption
) > 0) {
692 HTTP_CURL_OPT(CURLOPT_TIMEVALUE
, Z_LVAL_P(zoption
));
694 HTTP_CURL_OPT(CURLOPT_TIMEVALUE
, (long) HTTP_G
->request
.time
+ Z_LVAL_P(zoption
));
696 HTTP_CURL_OPT(CURLOPT_TIMECONDITION
, (long) (range_req
? CURL_TIMECOND_IFUNMODSINCE
: CURL_TIMECOND_IFMODSINCE
));
698 HTTP_CURL_OPT(CURLOPT_TIMECONDITION
, CURL_TIMECOND_NONE
);
702 /* cookies, array('name' => 'value') */
703 if ((zoption
= http_request_option(request
, options
, "cookies", IS_ARRAY
))) {
704 phpstr_dtor(&request
->_cache
.cookies
);
705 if (zend_hash_num_elements(Z_ARRVAL_P(zoption
))) {
706 zval
*urlenc_cookies
= NULL
;
707 /* check whether cookies should not be urlencoded; default is to urlencode them */
708 if ((!(urlenc_cookies
= http_request_option(request
, options
, "encodecookies", IS_BOOL
))) || Z_BVAL_P(urlenc_cookies
)) {
709 if (SUCCESS
== http_urlencode_hash_recursive(HASH_OF(zoption
), &request
->_cache
.cookies
, "; ", lenof("; "), NULL
, 0)) {
710 phpstr_fix(&request
->_cache
.cookies
);
711 HTTP_CURL_OPT(CURLOPT_COOKIE
, request
->_cache
.cookies
.data
);
715 HashKey cookie_key
= initHashKey(0);
718 FOREACH_KEYVAL(pos
, zoption
, cookie_key
, cookie_val
) {
719 if (cookie_key
.type
== HASH_KEY_IS_STRING
) {
720 zval
*val
= zval_copy(IS_STRING
, *cookie_val
);
721 phpstr_appendf(&request
->_cache
.cookies
, "%s=%s; ", cookie_key
.str
, Z_STRVAL_P(val
));
726 phpstr_fix(&request
->_cache
.cookies
);
727 if (PHPSTR_LEN(&request
->_cache
.cookies
)) {
728 HTTP_CURL_OPT(CURLOPT_COOKIE
, PHPSTR_VAL(&request
->_cache
.cookies
));
734 /* don't load session cookies from cookiestore */
735 if ((zoption
= http_request_option(request
, options
, "cookiesession", IS_BOOL
)) && Z_BVAL_P(zoption
)) {
736 HTTP_CURL_OPT(CURLOPT_COOKIESESSION
, 1L);
739 /* cookiestore, read initial cookies from that file and store cookies back into that file */
740 if ((zoption
= http_request_option(request
, options
, "cookiestore", IS_STRING
))) {
741 if (Z_STRLEN_P(zoption
)) {
742 HTTP_CHECK_OPEN_BASEDIR(Z_STRVAL_P(zoption
), return FAILURE
);
744 HTTP_CURL_OPT(CURLOPT_COOKIEFILE
, Z_STRVAL_P(zoption
));
745 HTTP_CURL_OPT(CURLOPT_COOKIEJAR
, Z_STRVAL_P(zoption
));
749 if ((zoption
= http_request_option(request
, options
, "maxfilesize", IS_LONG
))) {
750 HTTP_CURL_OPT(CURLOPT_MAXFILESIZE
, Z_LVAL_P(zoption
));
754 if ((zoption
= http_request_option(request
, options
, "protocol", IS_LONG
))) {
755 HTTP_CURL_OPT(CURLOPT_HTTP_VERSION
, Z_LVAL_P(zoption
));
758 /* timeout, defaults to 0 */
759 if ((zoption
= http_request_option(request
, options
, "timeout", IS_LONG
))) {
760 HTTP_CURL_OPT(CURLOPT_TIMEOUT
, Z_LVAL_P(zoption
));
763 /* connecttimeout, defaults to 0 */
764 if ((zoption
= http_request_option(request
, options
, "connecttimeout", IS_LONG
))) {
765 HTTP_CURL_OPT(CURLOPT_CONNECTTIMEOUT
, Z_LVAL_P(zoption
));
769 if ((zoption
= http_request_option(request
, options
, "ssl", IS_ARRAY
))) {
770 HashKey key
= initHashKey(0);
774 FOREACH_KEYVAL(pos
, zoption
, key
, param
) {
775 if (key
.type
== HASH_KEY_IS_STRING
) {
776 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERT
, 0, 1);
777 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERTTYPE
, 0, 0);
778 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERTPASSWD
, 0, 0);
780 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEY
, 0, 0);
781 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEYTYPE
, 0, 0);
782 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEYPASSWD
, 0, 0);
784 HTTP_CURL_OPT_STRING(CURLOPT_SSLENGINE
, 0, 0);
785 HTTP_CURL_OPT_LONG(CURLOPT_SSLVERSION
, 0);
787 HTTP_CURL_OPT_LONG(CURLOPT_SSL_VERIFYPEER
, 1);
788 HTTP_CURL_OPT_LONG(CURLOPT_SSL_VERIFYHOST
, 1);
789 HTTP_CURL_OPT_STRING(CURLOPT_SSL_CIPHER_LIST
, 1, 0);
791 HTTP_CURL_OPT_STRING(CURLOPT_CAINFO
, -3, 1);
792 HTTP_CURL_OPT_STRING(CURLOPT_CAPATH
, -3, 1);
793 HTTP_CURL_OPT_STRING(CURLOPT_RANDOM_FILE
, -3, 1);
794 HTTP_CURL_OPT_STRING(CURLOPT_EGDSOCKET
, -3, 1);
800 switch (request
->meth
) {
802 HTTP_CURL_OPT(CURLOPT_HTTPGET
, 1L);
806 HTTP_CURL_OPT(CURLOPT_NOBODY
, 1L);
810 HTTP_CURL_OPT(CURLOPT_POST
, 1L);
814 HTTP_CURL_OPT(CURLOPT_UPLOAD
, 1L);
818 if (http_request_method_exists(0, request
->meth
, NULL
)) {
819 HTTP_CURL_OPT(CURLOPT_CUSTOMREQUEST
, http_request_method_name(request
->meth
));
821 http_error_ex(HE_WARNING
, HTTP_E_REQUEST_METHOD
, "Unsupported request method: %d (%s)", request
->meth
, request
->url
);
827 /* attach request body */
828 if (request
->body
&& (request
->meth
!= HTTP_GET
) && (request
->meth
!= HTTP_HEAD
) && (request
->meth
!= HTTP_OPTIONS
)) {
829 switch (request
->body
->type
) {
830 case HTTP_REQUEST_BODY_EMPTY
:
834 case HTTP_REQUEST_BODY_CURLPOST
:
835 HTTP_CURL_OPT(CURLOPT_HTTPPOST
, (struct curl_httppost
*) request
->body
->data
);
838 case HTTP_REQUEST_BODY_CSTRING
:
839 if (request
->meth
!= HTTP_PUT
) {
840 HTTP_CURL_OPT(CURLOPT_POSTFIELDS
, request
->body
->data
);
841 HTTP_CURL_OPT(CURLOPT_POSTFIELDSIZE
, request
->body
->size
);
844 /* fallthrough, PUT/UPLOAD _needs_ READDATA */
845 case HTTP_REQUEST_BODY_UPLOADFILE
:
846 HTTP_CURL_OPT(CURLOPT_IOCTLDATA
, request
);
847 HTTP_CURL_OPT(CURLOPT_READDATA
, request
);
848 HTTP_CURL_OPT(CURLOPT_INFILESIZE
, request
->body
->size
);
852 /* shouldn't ever happen */
853 http_error_ex(HE_ERROR
, 0, "Unknown request body type: %d (%s)", request
->body
->type
, request
->url
);
862 /* {{{ void http_request_exec(http_request *) */
863 PHP_HTTP_API
void _http_request_exec(http_request
*request
)
866 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
868 if (CURLE_OK
!= (result
= curl_easy_perform(request
->ch
))) {
869 http_error_ex(HE_WARNING
, HTTP_E_REQUEST
, "%s; %s (%s)", curl_easy_strerror(result
), request
->_error
, request
->url
);
874 /* {{{ static size_t http_curl_read_callback(void *, size_t, size_t, void *) */
875 static size_t http_curl_read_callback(void *data
, size_t len
, size_t n
, void *ctx
)
877 http_request
*request
= (http_request
*) ctx
;
878 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
881 switch (request
->body
->type
) {
882 case HTTP_REQUEST_BODY_CSTRING
:
884 size_t out
= MIN(len
* n
, request
->body
->size
- request
->body
->priv
);
887 memcpy(data
, ((char *) request
->body
->data
) + request
->body
->priv
, out
);
888 request
->body
->priv
+= out
;
894 case HTTP_REQUEST_BODY_UPLOADFILE
:
895 return php_stream_read((php_stream
*) request
->body
->data
, data
, len
* n
);
902 /* {{{ static int http_curl_progress_callback(void *, double, double, double, double) */
903 static int http_curl_progress_callback(void *ctx
, double dltotal
, double dlnow
, double ultotal
, double ulnow
)
906 http_request
*request
= (http_request
*) ctx
;
907 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
912 MAKE_STD_ZVAL(param
);
914 add_assoc_double(param
, "dltotal", dltotal
);
915 add_assoc_double(param
, "dlnow", dlnow
);
916 add_assoc_double(param
, "ultotal", ultotal
);
917 add_assoc_double(param
, "ulnow", ulnow
);
919 with_error_handling(EH_NORMAL
, NULL
) {
920 request
->_in_progress_cb
= 1;
921 call_user_function(EG(function_table
), NULL
, request
->_progress_callback
, &retval
, 1, ¶m TSRMLS_CC
);
922 request
->_in_progress_cb
= 0;
923 } end_error_handling();
925 zval_ptr_dtor(¶m
);
932 /* {{{ static curlioerr http_curl_ioctl_callback(CURL *, curliocmd, void *) */
933 static curlioerr
http_curl_ioctl_callback(CURL
*ch
, curliocmd cmd
, void *ctx
)
935 http_request
*request
= (http_request
*) ctx
;
936 TSRMLS_FETCH_FROM_CTX(request
->tsrm_ls
);
938 if (cmd
!= CURLIOCMD_RESTARTREAD
) {
939 return CURLIOE_UNKNOWNCMD
;
943 switch (request
->body
->type
) {
944 case HTTP_REQUEST_BODY_CSTRING
:
945 request
->body
->priv
= 0;
949 case HTTP_REQUEST_BODY_UPLOADFILE
:
950 if (SUCCESS
== php_stream_rewind((php_stream
*) request
->body
->data
)) {
957 return CURLIOE_FAILRESTART
;
961 /* {{{ static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *) */
962 static int http_curl_raw_callback(CURL
*ch
, curl_infotype type
, char *data
, size_t length
, void *ctx
)
964 http_request
*request
= (http_request
*) ctx
;
966 #define EMPTY_HEADER(d, l) ((l == 1 && d[0] == '\n') || (l == 2 && d[0] == '\r' && d[1] == '\n'))
968 case CURLINFO_DATA_IN
:
969 if (request
->conv
.last_type
== CURLINFO_HEADER_IN
) {
970 phpstr_appends(&request
->conv
.response
, HTTP_CRLF
);
972 phpstr_append(&request
->conv
.response
, data
, length
);
974 case CURLINFO_HEADER_IN
:
975 if (!EMPTY_HEADER(data
, length
)) {
976 phpstr_append(&request
->conv
.response
, data
, length
);
979 case CURLINFO_DATA_OUT
:
980 case CURLINFO_HEADER_OUT
:
981 phpstr_append(&request
->conv
.request
, data
, length
);
985 fprintf(stderr
, "## ", type
);
987 fprintf(stderr
, "%s", data
);
990 for (i
= 1; i
<= length
; ++i
) {
991 fprintf(stderr
, "%02X ", data
[i
-1] & 0xFF);
993 fprintf(stderr
, "\n## ");
996 fprintf(stderr
, "\n");
998 if (data
[length
-1] != 0xa) {
999 fprintf(stderr
, "\n");
1006 fprintf(stderr
, "DEBUG: %3d (%5zu) %.*s%s", type
, length
, length
, data
, data
[length
-1]=='\n'?"":"\n");
1010 request
->conv
.last_type
= type
;
1016 /* {{{ static inline zval *http_request_option(http_request *, HashTable *, char *, size_t, int) */
1017 static inline zval
*_http_request_option_ex(http_request
*r
, HashTable
*options
, char *key
, size_t keylen
, int type TSRMLS_DC
)
1020 #ifdef ZEND_ENGINE_2
1021 ulong h
= zend_get_hash_value(key
, keylen
);
1027 #ifdef ZEND_ENGINE_2
1028 (SUCCESS
!= zend_hash_quick_find(options
, key
, keylen
, h
, (void *) &zoption
))
1030 (SUCCESS
!= zend_hash_find(options
, key
, keylen
, (void *) &zoption
))
1036 return http_request_option_cache_ex(r
, key
, keylen
, h
, zval_copy(type
, *zoption
));
1040 /* {{{ static inline zval *http_request_option_cache(http_request *, char *key, zval *) */
1041 static inline zval
*_http_request_option_cache_ex(http_request
*r
, char *key
, size_t keylen
, ulong h
, zval
*opt TSRMLS_DC
)
1045 #ifdef ZEND_ENGINE_2
1047 _zend_hash_quick_add_or_update(&r
->_cache
.options
, key
, keylen
, h
, &opt
, sizeof(zval
*), NULL
,
1048 zend_hash_quick_exists(&r
->_cache
.options
, key
, keylen
, h
)?HASH_UPDATE
:HASH_ADD ZEND_FILE_LINE_CC
);
1053 if (zend_hash_exists(&r
->_cache
.options
, key
, keylen
)) {
1054 zend_hash_update(&r
->_cache
.options
, key
, keylen
, &opt
, sizeof(zval
*), NULL
);
1056 zend_hash_add(&r
->_cache
.options
, key
, keylen
, &opt
, sizeof(zval
*), NULL
);
1064 #endif /* HTTP_HAVE_CURL */
1071 * vim600: noet sw=4 ts=4 fdm=marker
1072 * vim<600: noet sw=4 ts=4