git.m6w6.name Git - m6w6/ext-http/blob - http_request_api.c

   1 /*
   2     +--------------------------------------------------------------------+
   3     | PECL :: http                                                       |
   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-2010, Michael Wallner <mike@php.net>            |
  10     +--------------------------------------------------------------------+
  11 */
  12
  13 /* $Id$ */
  14
  15 #define HTTP_WANT_SAPI
  16 #define HTTP_WANT_CURL
  17 #include "php_http.h"
  18
  19 #ifdef HTTP_HAVE_CURL
  20
  21 #include "php_http_api.h"
  22 #include "php_http_persistent_handle_api.h"
  23 #include "php_http_request_api.h"
  24 #include "php_http_url_api.h"
  25
  26 #ifdef ZEND_ENGINE_2
  27 #       include "php_http_request_object.h"
  28 #endif
  29
  30 #include "php_http_request_int.h"
  31
  32 /* {{{ cruft for thread safe SSL crypto locks */
  33 #ifdef HTTP_NEED_OPENSSL_TSL
  34 static MUTEX_T *http_openssl_tsl = NULL;
  35
  36 static void http_openssl_thread_lock(int mode, int n, const char * file, int line)
  37 {
  38         if (mode & CRYPTO_LOCK) {
  39                 tsrm_mutex_lock(http_openssl_tsl[n]);
  40         } else {
  41                 tsrm_mutex_unlock(http_openssl_tsl[n]);
  42         }
  43 }
  44
  45 static ulong http_openssl_thread_id(void)
  46 {
  47         return (ulong) tsrm_thread_id();
  48 }
  49 #endif
  50 #ifdef HTTP_NEED_GNUTLS_TSL
  51 static int http_gnutls_mutex_create(void **m)
  52 {
  53         if (*((MUTEX_T *) m) = tsrm_mutex_alloc()) {
  54                 return SUCCESS;
  55         } else {
  56                 return FAILURE;
  57         }
  58 }
  59
  60 static int http_gnutls_mutex_destroy(void **m)
  61 {
  62         tsrm_mutex_free(*((MUTEX_T *) m));
  63         return SUCCESS;
  64 }
  65
  66 static int http_gnutls_mutex_lock(void **m)
  67 {
  68         return tsrm_mutex_lock(*((MUTEX_T *) m));
  69 }
  70
  71 static int http_gnutls_mutex_unlock(void **m)
  72 {
  73         return tsrm_mutex_unlock(*((MUTEX_T *) m));
  74 }
  75
  76 static struct gcry_thread_cbs http_gnutls_tsl = {
  77         GCRY_THREAD_OPTION_USER,
  78         NULL,
  79         http_gnutls_mutex_create,
  80         http_gnutls_mutex_destroy,
  81         http_gnutls_mutex_lock,
  82         http_gnutls_mutex_unlock
  83 };
  84 #endif
  85 /* }}} */
  86
  87 /* safe curl wrappers */
  88 #define init_curl_storage(ch) \
  89         {\
  90                 http_request_storage *st = pecalloc(1, sizeof(http_request_storage), 1); \
  91                 curl_easy_setopt(ch, CURLOPT_PRIVATE, st); \
  92                 curl_easy_setopt(ch, CURLOPT_ERRORBUFFER, st->errorbuffer); \
  93         }
  94
  95 static void *safe_curl_init(void)
  96 {
  97         CURL *ch;
  98
  99         if ((ch = curl_easy_init())) {
 100                 init_curl_storage(ch);
 101                 return ch;
 102         }
 103         return NULL;
 104 }
 105 static void *safe_curl_copy(void *p)
 106 {
 107         CURL *ch;
 108
 109         if ((ch = curl_easy_duphandle(p))) {
 110                 init_curl_storage(ch);
 111                 return ch;
 112         }
 113         return NULL;
 114 }
 115 static void safe_curl_dtor(void *p) {
 116         http_request_storage *st = http_request_storage_get(p);
 117
 118         curl_easy_cleanup(p);
 119
 120         if (st) {
 121                 if (st->url) {
 122                         pefree(st->url, 1);
 123                 }
 124                 if (st->cookiestore) {
 125                         pefree(st->cookiestore, 1);
 126                 }
 127                 pefree(st, 1);
 128         }
 129 }
 130 /* }}} */
 131
 132 /* {{{ MINIT */
 133 PHP_MINIT_FUNCTION(http_request)
 134 {
 135 #ifdef HTTP_NEED_OPENSSL_TSL
 136         /* mod_ssl, libpq or ext/curl might already have set thread lock callbacks */
 137         if (!CRYPTO_get_id_callback()) {
 138                 int i, c = CRYPTO_num_locks();
 139
 140                 http_openssl_tsl = malloc(c * sizeof(MUTEX_T));
 141
 142                 for (i = 0; i < c; ++i) {
 143                         http_openssl_tsl[i] = tsrm_mutex_alloc();
 144                 }
 145
 146                 CRYPTO_set_id_callback(http_openssl_thread_id);
 147                 CRYPTO_set_locking_callback(http_openssl_thread_lock);
 148         }
 149 #endif
 150 #ifdef HTTP_NEED_GNUTLS_TSL
 151         gcry_control(GCRYCTL_SET_THREAD_CBS, &http_gnutls_tsl);
 152 #endif
 153
 154         if (CURLE_OK != curl_global_init(CURL_GLOBAL_ALL)) {
 155                 return FAILURE;
 156         }
 157
 158         if (SUCCESS != http_persistent_handle_provide("http_request", safe_curl_init, safe_curl_dtor, safe_curl_copy)) {
 159                 return FAILURE;
 160         }
 161
 162         HTTP_LONG_CONSTANT("HTTP_AUTH_BASIC", CURLAUTH_BASIC);
 163         HTTP_LONG_CONSTANT("HTTP_AUTH_DIGEST", CURLAUTH_DIGEST);
 164 #if HTTP_CURL_VERSION(7,19,3)
 165         HTTP_LONG_CONSTANT("HTTP_AUTH_DIGEST_IE", CURLAUTH_DIGEST_IE);
 166 #endif
 167         HTTP_LONG_CONSTANT("HTTP_AUTH_NTLM", CURLAUTH_NTLM);
 168         HTTP_LONG_CONSTANT("HTTP_AUTH_GSSNEG", CURLAUTH_GSSNEGOTIATE);
 169         HTTP_LONG_CONSTANT("HTTP_AUTH_ANY", CURLAUTH_ANY);
 170
 171         HTTP_LONG_CONSTANT("HTTP_VERSION_NONE", CURL_HTTP_VERSION_NONE); /* to be removed */
 172         HTTP_LONG_CONSTANT("HTTP_VERSION_1_0", CURL_HTTP_VERSION_1_0);
 173         HTTP_LONG_CONSTANT("HTTP_VERSION_1_1", CURL_HTTP_VERSION_1_1);
 174         HTTP_LONG_CONSTANT("HTTP_VERSION_ANY", CURL_HTTP_VERSION_NONE);
 175
 176         HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_TLSv1", CURL_SSLVERSION_TLSv1);
 177         HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_SSLv2", CURL_SSLVERSION_SSLv2);
 178         HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_SSLv3", CURL_SSLVERSION_SSLv3);
 179         HTTP_LONG_CONSTANT("HTTP_SSL_VERSION_ANY", CURL_SSLVERSION_DEFAULT);
 180
 181         HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_V4", CURL_IPRESOLVE_V4);
 182         HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_V6", CURL_IPRESOLVE_V6);
 183         HTTP_LONG_CONSTANT("HTTP_IPRESOLVE_ANY", CURL_IPRESOLVE_WHATEVER);
 184
 185 #if HTTP_CURL_VERSION(7,15,2)
 186         HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS4", CURLPROXY_SOCKS4);
 187 #endif
 188 #if HTTP_CURL_VERSION(7,18,0)
 189         HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS4A", CURLPROXY_SOCKS4A);
 190         HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS5_HOSTNAME", CURLPROXY_SOCKS5_HOSTNAME);
 191 #endif
 192         HTTP_LONG_CONSTANT("HTTP_PROXY_SOCKS5", CURLPROXY_SOCKS5);
 193         HTTP_LONG_CONSTANT("HTTP_PROXY_HTTP", CURLPROXY_HTTP);
 194 #if HTTP_CURL_VERSION(7,19,4)
 195         HTTP_LONG_CONSTANT("HTTP_PROXY_HTTP_1_0", CURLPROXY_HTTP_1_0);
 196 #endif
 197
 198 #if HTTP_CURL_VERSION(7,19,1)
 199         HTTP_LONG_CONSTANT("HTTP_POSTREDIR_301", CURL_REDIR_POST_301);
 200         HTTP_LONG_CONSTANT("HTTP_POSTREDIR_302", CURL_REDIR_POST_302);
 201         HTTP_LONG_CONSTANT("HTTP_POSTREDIR_ALL", CURL_REDIR_POST_ALL);
 202 #endif
 203         return SUCCESS;
 204 }
 205 /* }}} */
 206
 207 /* {{{ MSHUTDOWN */
 208 PHP_MSHUTDOWN_FUNCTION(http_request)
 209 {
 210         curl_global_cleanup();
 211 #ifdef HTTP_NEED_OPENSSL_TSL
 212         if (http_openssl_tsl) {
 213                 int i, c = CRYPTO_num_locks();
 214
 215                 CRYPTO_set_id_callback(NULL);
 216                 CRYPTO_set_locking_callback(NULL);
 217
 218                 for (i = 0; i < c; ++i) {
 219                         tsrm_mutex_free(http_openssl_tsl[i]);
 220                 }
 221
 222                 free(http_openssl_tsl);
 223                 http_openssl_tsl = NULL;
 224         }
 225 #endif
 226         return SUCCESS;
 227 }
 228 /* }}} */
 229
 230 /* {{{ forward declarations */
 231 #define http_request_option(r, o, k, t) _http_request_option_ex((r), (o), (k), sizeof(k), (t) TSRMLS_CC)
 232 #define http_request_option_ex(r, o, k, l, t) _http_request_option_ex((r), (o), (k), (l), (t) TSRMLS_CC)
 233 static inline zval *_http_request_option_ex(http_request *request, HashTable *options, char *key, size_t keylen, int type TSRMLS_DC);
 234 #define http_request_option_cache(r, k, z) _http_request_option_cache_ex((r), (k), sizeof(k), 0, (z) TSRMLS_CC)
 235 #define http_request_option_cache_ex(r, k, kl, h, z) _http_request_option_cache_ex((r), (k), (kl), (h), (z) TSRMLS_CC)
 236 static inline zval *_http_request_option_cache_ex(http_request *r, char *key, size_t keylen, ulong h, zval *opt TSRMLS_DC);
 237
 238 #define http_request_cookies_enabled(r) _http_request_cookies_enabled((r))
 239 static inline int _http_request_cookies_enabled(http_request *r);
 240
 241 static size_t http_curl_read_callback(void *, size_t, size_t, void *);
 242 static int http_curl_progress_callback(void *, double, double, double, double);
 243 static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *);
 244 static int http_curl_dummy_callback(char *data, size_t n, size_t l, void *s) { return n*l; }
 245 static curlioerr http_curl_ioctl_callback(CURL *, curliocmd, void *);
 246 /* }}} */
 247
 248 /* {{{ CURL *http_curl_init(http_request *) */
 249 PHP_HTTP_API CURL * _http_curl_init_ex(CURL *ch, http_request *request TSRMLS_DC)
 250 {
 251         if (ch || (SUCCESS == http_persistent_handle_acquire("http_request", &ch))) {
 252 #if defined(ZTS)
 253                 curl_easy_setopt(ch, CURLOPT_NOSIGNAL, 1L);
 254 #endif
 255                 curl_easy_setopt(ch, CURLOPT_HEADER, 0L);
 256                 curl_easy_setopt(ch, CURLOPT_FILETIME, 1L);
 257                 curl_easy_setopt(ch, CURLOPT_AUTOREFERER, 1L);
 258                 curl_easy_setopt(ch, CURLOPT_VERBOSE, 1L);
 259                 curl_easy_setopt(ch, CURLOPT_HEADERFUNCTION, NULL);
 260                 curl_easy_setopt(ch, CURLOPT_DEBUGFUNCTION, http_curl_raw_callback);
 261                 curl_easy_setopt(ch, CURLOPT_READFUNCTION, http_curl_read_callback);
 262                 curl_easy_setopt(ch, CURLOPT_IOCTLFUNCTION, http_curl_ioctl_callback);
 263                 curl_easy_setopt(ch, CURLOPT_WRITEFUNCTION, http_curl_dummy_callback);
 264
 265                 /* set context */
 266                 if (request) {
 267                         curl_easy_setopt(ch, CURLOPT_DEBUGDATA, request);
 268
 269                         /* attach curl handle */
 270                         request->ch = ch;
 271                         /* set defaults (also in http_request_reset()) */
 272                         http_request_defaults(request);
 273                 }
 274         }
 275
 276         return ch;
 277 }
 278 /* }}} */
 279
 280 /* {{{ CURL *http_curl_copy(CURL *) */
 281 PHP_HTTP_API CURL *_http_curl_copy(CURL *ch TSRMLS_DC)
 282 {
 283         CURL *copy;
 284
 285         if (SUCCESS == http_persistent_handle_accrete("http_request", ch, &copy)) {
 286                 return copy;
 287         }
 288         return NULL;
 289 }
 290 /* }}} */
 291
 292 /* {{{ void http_curl_free(CURL **) */
 293 PHP_HTTP_API void _http_curl_free(CURL **ch TSRMLS_DC)
 294 {
 295         if (*ch) {
 296                 curl_easy_setopt(*ch, CURLOPT_NOPROGRESS, 1L);
 297                 curl_easy_setopt(*ch, CURLOPT_PROGRESSFUNCTION, NULL);
 298                 curl_easy_setopt(*ch, CURLOPT_VERBOSE, 0L);
 299                 curl_easy_setopt(*ch, CURLOPT_DEBUGFUNCTION, NULL);
 300
 301                 http_persistent_handle_release("http_request", ch);
 302         }
 303 }
 304 /* }}} */
 305
 306 /* {{{ http_request *http_request_init(http_request *) */
 307 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)
 308 {
 309         http_request *r;
 310
 311         if (request) {
 312                 r = request;
 313         } else {
 314                 r = emalloc_rel(sizeof(http_request));
 315         }
 316         memset(r, 0, sizeof(http_request));
 317
 318         r->ch = ch;
 319         r->url = (url) ? http_absolute_url(url) : NULL;
 320         r->meth = (meth > 0) ? meth : HTTP_GET;
 321
 322         phpstr_init(&r->conv.request);
 323         phpstr_init_ex(&r->conv.response, HTTP_CURLBUF_SIZE, 0);
 324         phpstr_init(&r->_cache.cookies);
 325         zend_hash_init(&r->_cache.options, 0, NULL, ZVAL_PTR_DTOR, 0);
 326
 327         TSRMLS_SET_CTX(r->tsrm_ls);
 328
 329         return r;
 330 }
 331 /* }}} */
 332
 333 /* {{{ void http_request_dtor(http_request *) */
 334 PHP_HTTP_API void _http_request_dtor(http_request *request)
 335 {
 336         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 337
 338         http_request_reset(request);
 339         http_curl_free(&request->ch);
 340
 341         phpstr_dtor(&request->_cache.cookies);
 342         zend_hash_destroy(&request->_cache.options);
 343         if (request->_cache.headers) {
 344                 curl_slist_free_all(request->_cache.headers);
 345                 request->_cache.headers = NULL;
 346         }
 347         if (request->_progress_callback) {
 348                 zval_ptr_dtor(&request->_progress_callback);
 349                 request->_progress_callback = NULL;
 350         }
 351 }
 352 /* }}} */
 353
 354 /* {{{ void http_request_free(http_request **) */
 355 PHP_HTTP_API void _http_request_free(http_request **request)
 356 {
 357         if (*request) {
 358                 TSRMLS_FETCH_FROM_CTX((*request)->tsrm_ls);
 359                 http_request_body_free(&(*request)->body);
 360                 http_request_dtor(*request);
 361                 efree(*request);
 362                 *request = NULL;
 363         }
 364 }
 365 /* }}} */
 366
 367 /* {{{ void http_request_reset(http_request *) */
 368 PHP_HTTP_API void _http_request_reset(http_request *request)
 369 {
 370         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 371         STR_SET(request->url, NULL);
 372         request->conv.last_type = 0;
 373         phpstr_dtor(&request->conv.request);
 374         phpstr_dtor(&request->conv.response);
 375         http_request_body_dtor(request->body);
 376         http_request_defaults(request);
 377
 378         if (request->ch) {
 379                 http_request_storage *st = http_request_storage_get(request->ch);
 380
 381                 if (st) {
 382                         if (st->url) {
 383                                 pefree(st->url, 1);
 384                                 st->url = NULL;
 385                         }
 386                         if (st->cookiestore) {
 387                                 pefree(st->cookiestore, 1);
 388                                 st->cookiestore = NULL;
 389                         }
 390                         st->errorbuffer[0] = '\0';
 391                 }
 392         }
 393 }
 394 /* }}} */
 395
 396 /* {{{ STATUS http_request_enable_cookies(http_request *) */
 397 PHP_HTTP_API STATUS _http_request_enable_cookies(http_request *request)
 398 {
 399         int initialized = 1;
 400         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 401
 402         HTTP_CHECK_CURL_INIT(request->ch, http_curl_init_ex(request->ch, request), initialized = 0);
 403         if (initialized && (http_request_cookies_enabled(request) || (CURLE_OK == curl_easy_setopt(request->ch, CURLOPT_COOKIEFILE, "")))) {
 404                 return SUCCESS;
 405         }
 406         http_error(HE_WARNING, HTTP_E_REQUEST, "Could not enable cookies for this session");
 407         return FAILURE;
 408 }
 409 /* }}} */
 410
 411 /* {{{ STATUS http_request_reset_cookies(http_request *, int) */
 412 PHP_HTTP_API STATUS _http_request_reset_cookies(http_request *request, int session_only)
 413 {
 414         int initialized = 1;
 415         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 416
 417         HTTP_CHECK_CURL_INIT(request->ch, http_curl_init_ex(request->ch, request), initialized = 0);
 418         if (initialized) {
 419                 if (!http_request_cookies_enabled(request)) {
 420                         if (SUCCESS != http_request_enable_cookies(request)) {
 421                                 return FAILURE;
 422                         }
 423                 }
 424                 if (session_only) {
 425 #if HTTP_CURL_VERSION(7,15,4)
 426                         if (CURLE_OK == curl_easy_setopt(request->ch, CURLOPT_COOKIELIST, "SESS")) {
 427                                 return SUCCESS;
 428                         }
 429 #else
 430                         http_error(HE_WARNING, HTTP_E_REQUEST, "Could not reset session cookies (need libcurl >= v7.15.4)");
 431 #endif
 432                 } else {
 433 #if HTTP_CURL_VERSION(7,14,1)
 434                         if (CURLE_OK == curl_easy_setopt(request->ch, CURLOPT_COOKIELIST, "ALL")) {
 435                                 return SUCCESS;
 436                         }
 437 #else
 438                         http_error(HE_WARNING, HTTP_E_REQUEST, "Could not reset cookies (need libcurl >= v7.14.1)");
 439 #endif
 440                 }
 441         }
 442         return FAILURE;
 443 }
 444 /* }}} */
 445
 446 PHP_HTTP_API STATUS _http_request_flush_cookies(http_request *request)
 447 {
 448         int initialized = 1;
 449         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 450
 451         HTTP_CHECK_CURL_INIT(request->ch, http_curl_init_ex(request->ch, request), initialized = 0);
 452         if (initialized) {
 453                 if (!http_request_cookies_enabled(request)) {
 454                         return FAILURE;
 455                 }
 456 #if HTTP_CURL_VERSION(7,17,1)
 457                 if (CURLE_OK == curl_easy_setopt(request->ch, CURLOPT_COOKIELIST, "FLUSH")) {
 458                         return SUCCESS;
 459                 }
 460 #else
 461                 http_error(HE_WARNING, HTTP_E_REQUEST, "Could not flush cookies (need libcurl >= v7.17.1)");
 462 #endif
 463         }
 464         return FAILURE;
 465 }
 466
 467 /* {{{ void http_request_defaults(http_request *) */
 468 PHP_HTTP_API void _http_request_defaults(http_request *request)
 469 {
 470         if (request->ch) {
 471                 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION, NULL);
 472                 HTTP_CURL_OPT(CURLOPT_URL, NULL);
 473                 HTTP_CURL_OPT(CURLOPT_NOPROGRESS, 1L);
 474 #if HTTP_CURL_VERSION(7,19,4)
 475                 HTTP_CURL_OPT(CURLOPT_NOPROXY, NULL);
 476 #endif
 477                 HTTP_CURL_OPT(CURLOPT_PROXY, NULL);
 478                 HTTP_CURL_OPT(CURLOPT_PROXYPORT, 0L);
 479                 HTTP_CURL_OPT(CURLOPT_PROXYTYPE, 0L);
 480                 /* libcurl < 7.19.6 does not clear auth info with USERPWD set to NULL */
 481 #if HTTP_CURL_VERSION(7,19,1)
 482                 HTTP_CURL_OPT(CURLOPT_PROXYUSERNAME, NULL);
 483                 HTTP_CURL_OPT(CURLOPT_PROXYPASSWORD, NULL);
 484 #endif
 485                 HTTP_CURL_OPT(CURLOPT_PROXYAUTH, 0L);
 486                 HTTP_CURL_OPT(CURLOPT_HTTPPROXYTUNNEL, 0L);
 487                 HTTP_CURL_OPT(CURLOPT_DNS_CACHE_TIMEOUT, 60L);
 488                 HTTP_CURL_OPT(CURLOPT_IPRESOLVE, 0);
 489                 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_LIMIT, 0L);
 490                 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_TIME, 0L);
 491 #if HTTP_CURL_VERSION(7,15,5)
 492                 /* LFS weirdance
 493                 HTTP_CURL_OPT(CURLOPT_MAX_SEND_SPEED_LARGE, (curl_off_t) 0);
 494                 HTTP_CURL_OPT(CURLOPT_MAX_RECV_SPEED_LARGE, (curl_off_t) 0);
 495                 */
 496 #endif
 497                 /* crashes
 498                 HTTP_CURL_OPT(CURLOPT_MAXCONNECTS, 5L); */
 499                 HTTP_CURL_OPT(CURLOPT_FRESH_CONNECT, 0L);
 500                 HTTP_CURL_OPT(CURLOPT_FORBID_REUSE, 0L);
 501                 HTTP_CURL_OPT(CURLOPT_INTERFACE, NULL);
 502                 HTTP_CURL_OPT(CURLOPT_PORT, 0L);
 503 #if HTTP_CURL_VERSION(7,19,0)
 504                 HTTP_CURL_OPT(CURLOPT_ADDRESS_SCOPE, 0L);
 505 #endif
 506 #if HTTP_CURL_VERSION(7,15,2)
 507                 HTTP_CURL_OPT(CURLOPT_LOCALPORT, 0L);
 508                 HTTP_CURL_OPT(CURLOPT_LOCALPORTRANGE, 0L);
 509 #endif
 510                 /* libcurl < 7.19.6 does not clear auth info with USERPWD set to NULL */
 511 #if HTTP_CURL_VERSION(7,19,1)
 512                 HTTP_CURL_OPT(CURLOPT_USERNAME, NULL);
 513                 HTTP_CURL_OPT(CURLOPT_PASSWORD, NULL);
 514 #endif
 515                 HTTP_CURL_OPT(CURLOPT_HTTPAUTH, 0L);
 516                 HTTP_CURL_OPT(CURLOPT_ENCODING, NULL);
 517 #if HTTP_CURL_VERSION(7,16,2)
 518                 /* we do this ourself anyway */
 519                 HTTP_CURL_OPT(CURLOPT_HTTP_CONTENT_DECODING, 0L);
 520                 HTTP_CURL_OPT(CURLOPT_HTTP_TRANSFER_DECODING, 0L);
 521 #endif
 522                 HTTP_CURL_OPT(CURLOPT_FOLLOWLOCATION, 0L);
 523 #if HTTP_CURL_VERSION(7,19,1)
 524                 HTTP_CURL_OPT(CURLOPT_POSTREDIR, 0L);
 525 #elif HTTP_CURL_VERSION(7,17,1)
 526                 HTTP_CURL_OPT(CURLOPT_POST301, 0L);
 527 #endif
 528                 HTTP_CURL_OPT(CURLOPT_UNRESTRICTED_AUTH, 0L);
 529                 HTTP_CURL_OPT(CURLOPT_REFERER, NULL);
 530                 HTTP_CURL_OPT(CURLOPT_USERAGENT, "PECL::HTTP/" PHP_HTTP_VERSION " (PHP/" PHP_VERSION ")");
 531                 HTTP_CURL_OPT(CURLOPT_HTTPHEADER, NULL);
 532                 HTTP_CURL_OPT(CURLOPT_COOKIE, NULL);
 533                 HTTP_CURL_OPT(CURLOPT_COOKIESESSION, 0L);
 534                 /* these options would enable curl's cookie engine by default which we don't want
 535                 HTTP_CURL_OPT(CURLOPT_COOKIEFILE, NULL);
 536                 HTTP_CURL_OPT(CURLOPT_COOKIEJAR, NULL); */
 537 #if HTTP_CURL_VERSION(7,14,1)
 538                 HTTP_CURL_OPT(CURLOPT_COOKIELIST, NULL);
 539 #endif
 540                 HTTP_CURL_OPT(CURLOPT_RANGE, NULL);
 541                 HTTP_CURL_OPT(CURLOPT_RESUME_FROM, 0L);
 542                 HTTP_CURL_OPT(CURLOPT_MAXFILESIZE, 0L);
 543                 HTTP_CURL_OPT(CURLOPT_TIMECONDITION, 0L);
 544                 HTTP_CURL_OPT(CURLOPT_TIMEVALUE, 0L);
 545                 HTTP_CURL_OPT(CURLOPT_TIMEOUT, 0L);
 546                 HTTP_CURL_OPT(CURLOPT_CONNECTTIMEOUT, 3);
 547                 HTTP_CURL_OPT(CURLOPT_SSLCERT, NULL);
 548                 HTTP_CURL_OPT(CURLOPT_SSLCERTTYPE, NULL);
 549                 HTTP_CURL_OPT(CURLOPT_SSLCERTPASSWD, NULL);
 550                 HTTP_CURL_OPT(CURLOPT_SSLKEY, NULL);
 551                 HTTP_CURL_OPT(CURLOPT_SSLKEYTYPE, NULL);
 552                 HTTP_CURL_OPT(CURLOPT_SSLKEYPASSWD, NULL);
 553                 HTTP_CURL_OPT(CURLOPT_SSLENGINE, NULL);
 554                 HTTP_CURL_OPT(CURLOPT_SSLVERSION, 0L);
 555                 HTTP_CURL_OPT(CURLOPT_SSL_VERIFYPEER, 0L);
 556                 HTTP_CURL_OPT(CURLOPT_SSL_VERIFYHOST, 0L);
 557                 HTTP_CURL_OPT(CURLOPT_SSL_CIPHER_LIST, NULL);
 558 #if HTTP_CURL_VERSION(7,19,0)
 559                 HTTP_CURL_OPT(CURLOPT_ISSUERCERT, NULL);
 560         #if defined(HTTP_HAVE_OPENSSL)
 561                 HTTP_CURL_OPT(CURLOPT_CRLFILE, NULL);
 562         #endif
 563 #endif
 564 #if HTTP_CURL_VERSION(7,19,1) && defined(HTTP_HAVE_OPENSSL)
 565                 HTTP_CURL_OPT(CURLOPT_CERTINFO, NULL);
 566 #endif
 567 #ifdef HTTP_CURL_CAINFO
 568                 HTTP_CURL_OPT(CURLOPT_CAINFO, HTTP_CURL_CAINFO);
 569 #else
 570                 HTTP_CURL_OPT(CURLOPT_CAINFO, NULL);
 571 #endif
 572                 HTTP_CURL_OPT(CURLOPT_CAPATH, NULL);
 573                 HTTP_CURL_OPT(CURLOPT_RANDOM_FILE, NULL);
 574                 HTTP_CURL_OPT(CURLOPT_EGDSOCKET, NULL);
 575                 HTTP_CURL_OPT(CURLOPT_POSTFIELDS, NULL);
 576                 HTTP_CURL_OPT(CURLOPT_POSTFIELDSIZE, 0L);
 577                 HTTP_CURL_OPT(CURLOPT_HTTPPOST, NULL);
 578                 HTTP_CURL_OPT(CURLOPT_IOCTLDATA, NULL);
 579                 HTTP_CURL_OPT(CURLOPT_READDATA, NULL);
 580                 HTTP_CURL_OPT(CURLOPT_INFILESIZE, 0L);
 581                 HTTP_CURL_OPT(CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_NONE);
 582                 HTTP_CURL_OPT(CURLOPT_CUSTOMREQUEST, NULL);
 583                 HTTP_CURL_OPT(CURLOPT_NOBODY, 0L);
 584                 HTTP_CURL_OPT(CURLOPT_POST, 0L);
 585                 HTTP_CURL_OPT(CURLOPT_UPLOAD, 0L);
 586                 HTTP_CURL_OPT(CURLOPT_HTTPGET, 1L);
 587         }
 588 }
 589 /* }}} */
 590
 591 PHP_HTTP_API void _http_request_set_progress_callback(http_request *request, zval *cb)
 592 {
 593         if (request->_progress_callback) {
 594                 zval_ptr_dtor(&request->_progress_callback);
 595         }
 596         if ((request->_progress_callback = cb)) {
 597                 ZVAL_ADDREF(cb);
 598                 HTTP_CURL_OPT(CURLOPT_NOPROGRESS, 0);
 599                 HTTP_CURL_OPT(CURLOPT_PROGRESSDATA, request);
 600                 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION, http_curl_progress_callback);
 601         } else {
 602                 HTTP_CURL_OPT(CURLOPT_NOPROGRESS, 1);
 603                 HTTP_CURL_OPT(CURLOPT_PROGRESSDATA, NULL);
 604                 HTTP_CURL_OPT(CURLOPT_PROGRESSFUNCTION, NULL);
 605         }
 606 }
 607
 608 /* {{{ STATUS http_request_prepare(http_request *, HashTable *) */
 609 PHP_HTTP_API STATUS _http_request_prepare(http_request *request, HashTable *options)
 610 {
 611         zval *zoption;
 612         zend_bool range_req = 0;
 613         http_request_storage *storage;
 614
 615         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 616
 617         HTTP_CHECK_CURL_INIT(request->ch, http_curl_init(request), return FAILURE);
 618
 619         if (!request->url) {
 620                 return FAILURE;
 621         }
 622         if (!(storage = http_request_storage_get(request->ch))) {
 623                 return FAILURE;
 624         }
 625         storage->errorbuffer[0] = '\0';
 626         /* set options */
 627         if (storage->url) {
 628                 pefree(storage->url, 1);
 629         }
 630         storage->url = pestrdup(request->url, 1);
 631         HTTP_CURL_OPT(CURLOPT_URL, storage->url);
 632
 633         /* progress callback */
 634         if ((zoption = http_request_option(request, options, "onprogress", -1))) {
 635                 http_request_set_progress_callback(request, zoption);
 636         }
 637
 638         /* proxy */
 639         if ((zoption = http_request_option(request, options, "proxyhost", IS_STRING))) {
 640                 HTTP_CURL_OPT(CURLOPT_PROXY, Z_STRVAL_P(zoption));
 641                 /* type */
 642                 if ((zoption = http_request_option(request, options, "proxytype", IS_LONG))) {
 643                         HTTP_CURL_OPT(CURLOPT_PROXYTYPE, Z_LVAL_P(zoption));
 644                 }
 645                 /* port */
 646                 if ((zoption = http_request_option(request, options, "proxyport", IS_LONG))) {
 647                         HTTP_CURL_OPT(CURLOPT_PROXYPORT, Z_LVAL_P(zoption));
 648                 }
 649                 /* user:pass */
 650                 if ((zoption = http_request_option(request, options, "proxyauth", IS_STRING)) && Z_STRLEN_P(zoption)) {
 651                         HTTP_CURL_OPT(CURLOPT_PROXYUSERPWD, Z_STRVAL_P(zoption));
 652                 }
 653                 /* auth method */
 654                 if ((zoption = http_request_option(request, options, "proxyauthtype", IS_LONG))) {
 655                         HTTP_CURL_OPT(CURLOPT_PROXYAUTH, Z_LVAL_P(zoption));
 656                 }
 657                 /* tunnel */
 658                 if ((zoption = http_request_option(request, options, "proxytunnel", IS_BOOL)) && Z_BVAL_P(zoption)) {
 659                         HTTP_CURL_OPT(CURLOPT_HTTPPROXYTUNNEL, 1L);
 660                 }
 661         }
 662 #if HTTP_CURL_VERSION(7,19,4)
 663         if ((zoption = http_request_option(request, options, "noproxy", IS_STRING))) {
 664                 HTTP_CURL_OPT(CURLOPT_NOPROXY, Z_STRVAL_P(zoption));
 665         }
 666 #endif
 667
 668         /* dns */
 669         if ((zoption = http_request_option(request, options, "dns_cache_timeout", IS_LONG))) {
 670                 HTTP_CURL_OPT(CURLOPT_DNS_CACHE_TIMEOUT, Z_LVAL_P(zoption));
 671         }
 672         if ((zoption = http_request_option(request, options, "ipresolve", IS_LONG)) && Z_LVAL_P(zoption)) {
 673                 HTTP_CURL_OPT(CURLOPT_IPRESOLVE, Z_LVAL_P(zoption));
 674         }
 675
 676         /* limits */
 677         if ((zoption = http_request_option(request, options, "low_speed_limit", IS_LONG))) {
 678                 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_LIMIT, Z_LVAL_P(zoption));
 679         }
 680         if ((zoption = http_request_option(request, options, "low_speed_time", IS_LONG))) {
 681                 HTTP_CURL_OPT(CURLOPT_LOW_SPEED_TIME, Z_LVAL_P(zoption));
 682         }
 683 #if HTTP_CURL_VERSION(7,15,5)
 684         /* LSF weirdance
 685         if ((zoption = http_request_option(request, options, "max_send_speed", IS_LONG))) {
 686                 HTTP_CURL_OPT(CURLOPT_MAX_SEND_SPEED_LARGE, (curl_off_t) Z_LVAL_P(zoption));
 687         }
 688         if ((zoption = http_request_option(request, options, "max_recv_speed", IS_LONG))) {
 689                 HTTP_CURL_OPT(CURLOPT_MAX_RECV_SPEED_LARGE, (curl_off_t) Z_LVAL_P(zoption));
 690         }
 691         */
 692 #endif
 693         /* crashes
 694         if ((zoption = http_request_option(request, options, "maxconnects", IS_LONG))) {
 695                 HTTP_CURL_OPT(CURLOPT_MAXCONNECTS, Z_LVAL_P(zoption));
 696         } */
 697         if ((zoption = http_request_option(request, options, "fresh_connect", IS_BOOL)) && Z_BVAL_P(zoption)) {
 698                 HTTP_CURL_OPT(CURLOPT_FRESH_CONNECT, 1L);
 699         }
 700         if ((zoption = http_request_option(request, options, "forbid_reuse", IS_BOOL)) && Z_BVAL_P(zoption)) {
 701                 HTTP_CURL_OPT(CURLOPT_FORBID_REUSE, 1L);
 702         }
 703
 704         /* outgoing interface */
 705         if ((zoption = http_request_option(request, options, "interface", IS_STRING))) {
 706                 HTTP_CURL_OPT(CURLOPT_INTERFACE, Z_STRVAL_P(zoption));
 707
 708 #if HTTP_CURL_VERSION(7,15,2)
 709                 if ((zoption = http_request_option(request, options, "portrange", IS_ARRAY))) {
 710                         zval **prs, **pre;
 711
 712                         zend_hash_internal_pointer_reset(Z_ARRVAL_P(zoption));
 713                         if (SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zoption), (void *) &prs)) {
 714                                 zend_hash_move_forward(Z_ARRVAL_P(zoption));
 715                                 if (SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zoption), (void *) &pre)) {
 716                                         zval *prs_cpy = http_zsep(IS_LONG, *prs);
 717                                         zval *pre_cpy = http_zsep(IS_LONG, *pre);
 718
 719                                         if (Z_LVAL_P(prs_cpy) && Z_LVAL_P(pre_cpy)) {
 720                                                 HTTP_CURL_OPT(CURLOPT_LOCALPORT, MIN(Z_LVAL_P(prs_cpy), Z_LVAL_P(pre_cpy)));
 721                                                 HTTP_CURL_OPT(CURLOPT_LOCALPORTRANGE, labs(Z_LVAL_P(prs_cpy)-Z_LVAL_P(pre_cpy))+1L);
 722                                         }
 723                                         zval_ptr_dtor(&prs_cpy);
 724                                         zval_ptr_dtor(&pre_cpy);
 725                                 }
 726                         }
 727                 }
 728 #endif
 729         }
 730
 731         /* another port */
 732         if ((zoption = http_request_option(request, options, "port", IS_LONG))) {
 733                 HTTP_CURL_OPT(CURLOPT_PORT, Z_LVAL_P(zoption));
 734         }
 735
 736         /* RFC4007 zone_id */
 737 #if HTTP_CURL_VERSION(7,19,0)
 738         if ((zoption = http_request_option(request, options, "address_scope", IS_LONG))) {
 739                 HTTP_CURL_OPT(CURLOPT_ADDRESS_SCOPE, Z_LVAL_P(zoption));
 740         }
 741 #endif
 742
 743         /* auth */
 744         if ((zoption = http_request_option(request, options, "httpauth", IS_STRING)) && Z_STRLEN_P(zoption)) {
 745                 HTTP_CURL_OPT(CURLOPT_USERPWD, Z_STRVAL_P(zoption));
 746         }
 747         if ((zoption = http_request_option(request, options, "httpauthtype", IS_LONG))) {
 748                 HTTP_CURL_OPT(CURLOPT_HTTPAUTH, Z_LVAL_P(zoption));
 749         }
 750
 751         /* redirects, defaults to 0 */
 752         if ((zoption = http_request_option(request, options, "redirect", IS_LONG))) {
 753                 HTTP_CURL_OPT(CURLOPT_FOLLOWLOCATION, Z_LVAL_P(zoption) ? 1L : 0L);
 754                 HTTP_CURL_OPT(CURLOPT_MAXREDIRS, Z_LVAL_P(zoption));
 755                 if ((zoption = http_request_option(request, options, "unrestrictedauth", IS_BOOL))) {
 756                         HTTP_CURL_OPT(CURLOPT_UNRESTRICTED_AUTH, Z_LVAL_P(zoption));
 757                 }
 758 #if HTTP_CURL_VERSION(7,17,1)
 759                 if ((zoption = http_request_option(request, options, "postredir", IS_BOOL))) {
 760 #       if HTTP_CURL_VERSION(7,19,1)
 761                         HTTP_CURL_OPT(CURLOPT_POSTREDIR, Z_BVAL_P(zoption) ? 1L : 0L);
 762 #       else
 763                         HTTP_CURL_OPT(CURLOPT_POST301, Z_BVAL_P(zoption) ? 1L : 0L);
 764 #       endif
 765                 }
 766 #endif
 767         }
 768
 769         /* retries, defaults to 0 */
 770         if ((zoption = http_request_option(request, options, "retrycount", IS_LONG))) {
 771                 request->_retry.count = Z_LVAL_P(zoption);
 772                 if ((zoption = http_request_option(request, options, "retrydelay", IS_DOUBLE))) {
 773                         request->_retry.delay = Z_DVAL_P(zoption);
 774                 } else {
 775                         request->_retry.delay = 0;
 776                 }
 777         } else {
 778                 request->_retry.count = 0;
 779         }
 780
 781         /* referer */
 782         if ((zoption = http_request_option(request, options, "referer", IS_STRING)) && Z_STRLEN_P(zoption)) {
 783                 HTTP_CURL_OPT(CURLOPT_REFERER, Z_STRVAL_P(zoption));
 784         }
 785
 786         /* useragent, default "PECL::HTTP/version (PHP/version)" */
 787         if ((zoption = http_request_option(request, options, "useragent", IS_STRING))) {
 788                 /* allow to send no user agent, not even default one */
 789                 if (Z_STRLEN_P(zoption)) {
 790                         HTTP_CURL_OPT(CURLOPT_USERAGENT, Z_STRVAL_P(zoption));
 791                 } else {
 792                         HTTP_CURL_OPT(CURLOPT_USERAGENT, NULL);
 793                 }
 794         }
 795
 796         /* resume */
 797         if ((zoption = http_request_option(request, options, "resume", IS_LONG)) && (Z_LVAL_P(zoption) > 0)) {
 798                 range_req = 1;
 799                 HTTP_CURL_OPT(CURLOPT_RESUME_FROM, Z_LVAL_P(zoption));
 800         }
 801         /* or range of kind array(array(0,499), array(100,1499)) */
 802         else if ((zoption = http_request_option(request, options, "range", IS_ARRAY)) && zend_hash_num_elements(Z_ARRVAL_P(zoption))) {
 803                 HashPosition pos1, pos2;
 804                 zval **rr, **rb, **re;
 805                 phpstr rs;
 806
 807                 phpstr_init(&rs);
 808                 FOREACH_VAL(pos1, zoption, rr) {
 809                         if (Z_TYPE_PP(rr) == IS_ARRAY) {
 810                                 zend_hash_internal_pointer_reset_ex(Z_ARRVAL_PP(rr), &pos2);
 811                                 if (SUCCESS == zend_hash_get_current_data_ex(Z_ARRVAL_PP(rr), (void *) &rb, &pos2)) {
 812                                         zend_hash_move_forward_ex(Z_ARRVAL_PP(rr), &pos2);
 813                                         if (SUCCESS == zend_hash_get_current_data_ex(Z_ARRVAL_PP(rr), (void *) &re, &pos2)) {
 814                                                 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))) &&
 815                                                                 ((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)))) {
 816                                                         zval *rbl = http_zsep(IS_LONG, *rb);
 817                                                         zval *rel = http_zsep(IS_LONG, *re);
 818
 819                                                         if ((Z_LVAL_P(rbl) >= 0) && (Z_LVAL_P(rel) >= 0)) {
 820                                                                 phpstr_appendf(&rs, "%ld-%ld,", Z_LVAL_P(rbl), Z_LVAL_P(rel));
 821                                                         }
 822                                                         zval_ptr_dtor(&rbl);
 823                                                         zval_ptr_dtor(&rel);
 824                                                 }
 825                                         }
 826                                 }
 827                         }
 828                 }
 829
 830                 if (PHPSTR_LEN(&rs)) {
 831                         zval *cached_range;
 832
 833                         /* ditch last comma */
 834                         PHPSTR_VAL(&rs)[PHPSTR_LEN(&rs)-- -1] = '\0';
 835                         /* cache string */
 836                         MAKE_STD_ZVAL(cached_range);
 837                         ZVAL_STRINGL(cached_range, PHPSTR_VAL(&rs), PHPSTR_LEN(&rs), 0);
 838                         HTTP_CURL_OPT(CURLOPT_RANGE, Z_STRVAL_P(http_request_option_cache(request, "range", cached_range)));
 839                         zval_ptr_dtor(&cached_range);
 840                 }
 841         }
 842
 843         /* additional headers, array('name' => 'value') */
 844         if (request->_cache.headers) {
 845                 curl_slist_free_all(request->_cache.headers);
 846                 request->_cache.headers = NULL;
 847         }
 848         if ((zoption = http_request_option(request, options, "headers", IS_ARRAY))) {
 849                 HashKey header_key = initHashKey(0);
 850                 zval **header_val;
 851                 HashPosition pos;
 852                 phpstr header;
 853
 854                 phpstr_init(&header);
 855                 FOREACH_KEYVAL(pos, zoption, header_key, header_val) {
 856                         if (header_key.type == HASH_KEY_IS_STRING) {
 857                                 zval *header_cpy = http_zsep(IS_STRING, *header_val);
 858
 859                                 if (!strcasecmp(header_key.str, "range")) {
 860                                         range_req = 1;
 861                                 }
 862
 863                                 phpstr_appendf(&header, "%s: %s", header_key.str, Z_STRVAL_P(header_cpy));
 864                                 phpstr_fix(&header);
 865                                 request->_cache.headers = curl_slist_append(request->_cache.headers, PHPSTR_VAL(&header));
 866                                 phpstr_reset(&header);
 867
 868                                 zval_ptr_dtor(&header_cpy);
 869                         }
 870                 }
 871                 phpstr_dtor(&header);
 872         }
 873         /* etag */
 874         if ((zoption = http_request_option(request, options, "etag", IS_STRING)) && Z_STRLEN_P(zoption)) {
 875                 zend_bool is_quoted;
 876                 phpstr header;
 877
 878                 phpstr_init(&header);
 879                 phpstr_appendf(&header, "%s: ", range_req?"If-Match":"If-None-Match");
 880                 if ((Z_STRVAL_P(zoption)[0] == '"') && (Z_STRVAL_P(zoption)[Z_STRLEN_P(zoption)-1] == '"')) {
 881                         /* properly quoted etag */
 882                         phpstr_append(&header, Z_STRVAL_P(zoption), Z_STRLEN_P(zoption));
 883                 } else if ((Z_STRVAL_P(zoption)[0] == 'W') && (Z_STRVAL_P(zoption)[1] == '/')) {
 884                         /* weak etag */
 885                         if ((Z_STRLEN_P(zoption) > 3) && (Z_STRVAL_P(zoption)[2] == '"') && (Z_STRVAL_P(zoption)[Z_STRLEN_P(zoption)-1] == '"')) {
 886                                 /* quoted */
 887                                 phpstr_append(&header, Z_STRVAL_P(zoption), Z_STRLEN_P(zoption));
 888                         } else {
 889                                 /* unquoted */
 890                                 phpstr_appendf(&header, "W/\"%s\"", Z_STRVAL_P(zoption) + 2);
 891                         }
 892                 } else {
 893                         /* assume unquoted etag */
 894                         phpstr_appendf(&header, "\"%s\"", Z_STRVAL_P(zoption));
 895                 }
 896                 phpstr_fix(&header);
 897
 898                 request->_cache.headers = curl_slist_append(request->_cache.headers, PHPSTR_VAL(&header));
 899                 phpstr_dtor(&header);
 900         }
 901         /* compression */
 902         if ((zoption = http_request_option(request, options, "compress", IS_BOOL)) && Z_LVAL_P(zoption)) {
 903                 request->_cache.headers = curl_slist_append(request->_cache.headers, "Accept-Encoding: gzip;q=1.0,deflate;q=0.5");
 904         }
 905         HTTP_CURL_OPT(CURLOPT_HTTPHEADER, request->_cache.headers);
 906
 907         /* lastmodified */
 908         if ((zoption = http_request_option(request, options, "lastmodified", IS_LONG))) {
 909                 if (Z_LVAL_P(zoption)) {
 910                         if (Z_LVAL_P(zoption) > 0) {
 911                                 HTTP_CURL_OPT(CURLOPT_TIMEVALUE, Z_LVAL_P(zoption));
 912                         } else {
 913                                 HTTP_CURL_OPT(CURLOPT_TIMEVALUE, (long) HTTP_G->request.time + Z_LVAL_P(zoption));
 914                         }
 915                         HTTP_CURL_OPT(CURLOPT_TIMECONDITION, (long) (range_req ? CURL_TIMECOND_IFUNMODSINCE : CURL_TIMECOND_IFMODSINCE));
 916                 } else {
 917                         HTTP_CURL_OPT(CURLOPT_TIMECONDITION, CURL_TIMECOND_NONE);
 918                 }
 919         }
 920
 921         /* cookies, array('name' => 'value') */
 922         if ((zoption = http_request_option(request, options, "cookies", IS_ARRAY))) {
 923                 phpstr_dtor(&request->_cache.cookies);
 924                 if (zend_hash_num_elements(Z_ARRVAL_P(zoption))) {
 925                         zval *urlenc_cookies = NULL;
 926                         /* check whether cookies should not be urlencoded; default is to urlencode them */
 927                         if ((!(urlenc_cookies = http_request_option(request, options, "encodecookies", IS_BOOL))) || Z_BVAL_P(urlenc_cookies)) {
 928                                 if (SUCCESS == http_urlencode_hash_recursive(HASH_OF(zoption), &request->_cache.cookies, "; ", lenof("; "), NULL, 0)) {
 929                                         phpstr_fix(&request->_cache.cookies);
 930                                         HTTP_CURL_OPT(CURLOPT_COOKIE, request->_cache.cookies.data);
 931                                 }
 932                         } else {
 933                                 HashPosition pos;
 934                                 HashKey cookie_key = initHashKey(0);
 935                                 zval **cookie_val;
 936
 937                                 FOREACH_KEYVAL(pos, zoption, cookie_key, cookie_val) {
 938                                         if (cookie_key.type == HASH_KEY_IS_STRING) {
 939                                                 zval *val = http_zsep(IS_STRING, *cookie_val);
 940                                                 phpstr_appendf(&request->_cache.cookies, "%s=%s; ", cookie_key.str, Z_STRVAL_P(val));
 941                                                 zval_ptr_dtor(&val);
 942                                         }
 943                                 }
 944
 945                                 phpstr_fix(&request->_cache.cookies);
 946                                 if (PHPSTR_LEN(&request->_cache.cookies)) {
 947                                         HTTP_CURL_OPT(CURLOPT_COOKIE, PHPSTR_VAL(&request->_cache.cookies));
 948                                 }
 949                         }
 950                 }
 951         }
 952
 953         /* don't load session cookies from cookiestore */
 954         if ((zoption = http_request_option(request, options, "cookiesession", IS_BOOL)) && Z_BVAL_P(zoption)) {
 955                 HTTP_CURL_OPT(CURLOPT_COOKIESESSION, 1L);
 956         }
 957
 958         /* cookiestore, read initial cookies from that file and store cookies back into that file */
 959         if ((zoption = http_request_option(request, options, "cookiestore", IS_STRING))) {
 960                 if (Z_STRLEN_P(zoption)) {
 961                         HTTP_CHECK_OPEN_BASEDIR(Z_STRVAL_P(zoption), return FAILURE);
 962                 }
 963                 if (storage->cookiestore) {
 964                         pefree(storage->cookiestore, 1);
 965                 }
 966                 storage->cookiestore = pestrndup(Z_STRVAL_P(zoption), Z_STRLEN_P(zoption), 1);
 967                 HTTP_CURL_OPT(CURLOPT_COOKIEFILE, storage->cookiestore);
 968                 HTTP_CURL_OPT(CURLOPT_COOKIEJAR, storage->cookiestore);
 969         }
 970
 971         /* maxfilesize */
 972         if ((zoption = http_request_option(request, options, "maxfilesize", IS_LONG))) {
 973                 HTTP_CURL_OPT(CURLOPT_MAXFILESIZE, Z_LVAL_P(zoption));
 974         }
 975
 976         /* http protocol */
 977         if ((zoption = http_request_option(request, options, "protocol", IS_LONG))) {
 978                 HTTP_CURL_OPT(CURLOPT_HTTP_VERSION, Z_LVAL_P(zoption));
 979         }
 980
 981 #if HTTP_CURL_VERSION(7,16,2)
 982         /* timeout, defaults to 0 */
 983         if ((zoption = http_request_option(request, options, "timeout", IS_DOUBLE))) {
 984                 HTTP_CURL_OPT(CURLOPT_TIMEOUT_MS, (long)(Z_DVAL_P(zoption)*1000));
 985         }
 986         /* connecttimeout, defaults to 0 */
 987         if ((zoption = http_request_option(request, options, "connecttimeout", IS_DOUBLE))) {
 988                 HTTP_CURL_OPT(CURLOPT_CONNECTTIMEOUT_MS, (long)(Z_DVAL_P(zoption)*1000));
 989         }
 990 #else
 991         /* timeout, defaults to 0 */
 992         if ((zoption = http_request_option(request, options, "timeout", IS_LONG))) {
 993                 HTTP_CURL_OPT(CURLOPT_TIMEOUT, Z_LVAL_P(zoption));
 994         }
 995         /* connecttimeout, defaults to 0 */
 996         if ((zoption = http_request_option(request, options, "connecttimeout", IS_LONG))) {
 997                 HTTP_CURL_OPT(CURLOPT_CONNECTTIMEOUT, Z_LVAL_P(zoption));
 998         }
 999 #endif
1000
1001         /* ssl */
1002         if ((zoption = http_request_option(request, options, "ssl", IS_ARRAY))) {
1003                 HashKey key = initHashKey(0);
1004                 zval **param;
1005                 HashPosition pos;
1006
1007                 FOREACH_KEYVAL(pos, zoption, key, param) {
1008                         if (key.type == HASH_KEY_IS_STRING) {
1009                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERT, 0, 1);
1010                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERTTYPE, 0, 0);
1011                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLCERTPASSWD, 0, 0);
1012
1013                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEY, 0, 0);
1014                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEYTYPE, 0, 0);
1015                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLKEYPASSWD, 0, 0);
1016
1017                                 HTTP_CURL_OPT_STRING(CURLOPT_SSLENGINE, 0, 0);
1018                                 HTTP_CURL_OPT_LONG(CURLOPT_SSLVERSION, 0);
1019
1020                                 HTTP_CURL_OPT_LONG(CURLOPT_SSL_VERIFYPEER, 1);
1021                                 HTTP_CURL_OPT_LONG(CURLOPT_SSL_VERIFYHOST, 1);
1022                                 HTTP_CURL_OPT_STRING(CURLOPT_SSL_CIPHER_LIST, 1, 0);
1023
1024                                 HTTP_CURL_OPT_STRING(CURLOPT_CAINFO, -3, 1);
1025                                 HTTP_CURL_OPT_STRING(CURLOPT_CAPATH, -3, 1);
1026                                 HTTP_CURL_OPT_STRING(CURLOPT_RANDOM_FILE, -3, 1);
1027                                 HTTP_CURL_OPT_STRING(CURLOPT_EGDSOCKET, -3, 1);
1028 #if HTTP_CURL_VERSION(7,19,0)
1029                                 HTTP_CURL_OPT_STRING(CURLOPT_ISSUERCERT, -3, 1);
1030         #if defined(HTTP_HAVE_OPENSSL)
1031                                 HTTP_CURL_OPT_STRING(CURLOPT_CRLFILE, -3, 1);
1032         #endif
1033 #endif
1034 #if HTTP_CURL_VERSION(7,19,1) && defined(HTTP_HAVE_OPENSSL)
1035                                 HTTP_CURL_OPT_LONG(CURLOPT_CERTINFO, -3);
1036 #endif
1037                         }
1038                 }
1039         }
1040
1041         /* request method */
1042         switch (request->meth) {
1043                 case HTTP_GET:
1044                         HTTP_CURL_OPT(CURLOPT_HTTPGET, 1L);
1045                         break;
1046
1047                 case HTTP_HEAD:
1048                         HTTP_CURL_OPT(CURLOPT_NOBODY, 1L);
1049                         break;
1050
1051                 case HTTP_POST:
1052                         HTTP_CURL_OPT(CURLOPT_POST, 1L);
1053                         break;
1054
1055                 case HTTP_PUT:
1056                         HTTP_CURL_OPT(CURLOPT_UPLOAD, 1L);
1057                         break;
1058
1059                 default:
1060                         if (http_request_method_exists(0, request->meth, NULL)) {
1061                                 HTTP_CURL_OPT(CURLOPT_CUSTOMREQUEST, http_request_method_name(request->meth));
1062                         } else {
1063                                 http_error_ex(HE_WARNING, HTTP_E_REQUEST_METHOD, "Unsupported request method: %d (%s)", request->meth, request->url);
1064                                 return FAILURE;
1065                         }
1066                         break;
1067         }
1068
1069         /* attach request body */
1070         if (request->body && (request->meth != HTTP_GET) && (request->meth != HTTP_HEAD) && (request->meth != HTTP_OPTIONS)) {
1071                 switch (request->body->type) {
1072                         case HTTP_REQUEST_BODY_EMPTY:
1073                                 /* nothing */
1074                                 break;
1075
1076                         case HTTP_REQUEST_BODY_CURLPOST:
1077                                 HTTP_CURL_OPT(CURLOPT_HTTPPOST, (struct curl_httppost *) request->body->data);
1078                                 break;
1079
1080                         case HTTP_REQUEST_BODY_CSTRING:
1081                                 if (request->meth != HTTP_PUT) {
1082                                         HTTP_CURL_OPT(CURLOPT_POSTFIELDS, request->body->data);
1083                                         HTTP_CURL_OPT(CURLOPT_POSTFIELDSIZE, request->body->size);
1084                                         break;
1085                                 }
1086                                 /* fallthrough, PUT/UPLOAD _needs_ READDATA */
1087                         case HTTP_REQUEST_BODY_UPLOADFILE:
1088                                 HTTP_CURL_OPT(CURLOPT_IOCTLDATA, request);
1089                                 HTTP_CURL_OPT(CURLOPT_READDATA, request);
1090                                 HTTP_CURL_OPT(CURLOPT_INFILESIZE, request->body->size);
1091                                 break;
1092
1093                         default:
1094                                 /* shouldn't ever happen */
1095                                 http_error_ex(HE_ERROR, 0, "Unknown request body type: %d (%s)", request->body->type, request->url);
1096                                 return FAILURE;
1097                 }
1098         }
1099
1100         return SUCCESS;
1101 }
1102 /* }}} */
1103
1104 /* {{{ void http_request_exec(http_request *) */
1105 PHP_HTTP_API void _http_request_exec(http_request *request)
1106 {
1107         uint tries = 0;
1108         CURLcode result;
1109         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
1110
1111 retry:
1112         if (CURLE_OK != (result = curl_easy_perform(request->ch))) {
1113                 http_error_ex(HE_WARNING, HTTP_E_REQUEST, "%s; %s (%s)", curl_easy_strerror(result), http_request_storage_get(request->ch)->errorbuffer, request->url);
1114 #ifdef ZEND_ENGINE_2
1115                 if ((HTTP_G->only_exceptions || GLOBAL_ERROR_HANDLING == EH_THROW) && EG(exception)) {
1116                         add_property_long(EG(exception), "curlCode", result);
1117                 }
1118 #endif
1119
1120                 if (request->_retry.count > tries++) {
1121                         switch (result) {
1122                                 case CURLE_COULDNT_RESOLVE_PROXY:
1123                                 case CURLE_COULDNT_RESOLVE_HOST:
1124                                 case CURLE_COULDNT_CONNECT:
1125                                 case CURLE_WRITE_ERROR:
1126                                 case CURLE_READ_ERROR:
1127                                 case CURLE_OPERATION_TIMEDOUT:
1128                                 case CURLE_SSL_CONNECT_ERROR:
1129                                 case CURLE_GOT_NOTHING:
1130                                 case CURLE_SSL_ENGINE_SETFAILED:
1131                                 case CURLE_SEND_ERROR:
1132                                 case CURLE_RECV_ERROR:
1133                                 case CURLE_SSL_ENGINE_INITFAILED:
1134                                 case CURLE_LOGIN_DENIED:
1135                                         if (request->_retry.delay >= HTTP_DIFFSEC) {
1136                                                 http_sleep(request->_retry.delay);
1137                                         }
1138                                         goto retry;
1139                                 default:
1140                                         break;
1141                         }
1142                 }
1143         }
1144 }
1145 /* }}} */
1146
1147 /* {{{ static size_t http_curl_read_callback(void *, size_t, size_t, void *) */
1148 static size_t http_curl_read_callback(void *data, size_t len, size_t n, void *ctx)
1149 {
1150         http_request *request = (http_request *) ctx;
1151         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
1152
1153         if (request->body) {
1154                 switch (request->body->type) {
1155                         case HTTP_REQUEST_BODY_CSTRING:
1156                         {
1157                                 size_t out = MIN(len * n, request->body->size - request->body->priv);
1158
1159                                 if (out) {
1160                                         memcpy(data, ((char *) request->body->data) + request->body->priv, out);
1161                                         request->body->priv += out;
1162                                         return out;
1163                                 }
1164                                 break;
1165                         }
1166
1167                         case HTTP_REQUEST_BODY_UPLOADFILE:
1168                                 return php_stream_read((php_stream *) request->body->data, data, len * n);
1169                 }
1170         }
1171         return 0;
1172 }
1173 /* }}} */
1174
1175 /* {{{ static int http_curl_progress_callback(void *, double, double, double, double) */
1176 static int http_curl_progress_callback(void *ctx, double dltotal, double dlnow, double ultotal, double ulnow)
1177 {
1178         zval *param, retval;
1179         http_request *request = (http_request *) ctx;
1180         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
1181
1182         INIT_PZVAL(&retval);
1183         ZVAL_NULL(&retval);
1184
1185         MAKE_STD_ZVAL(param);
1186         array_init(param);
1187         add_assoc_double(param, "dltotal", dltotal);
1188         add_assoc_double(param, "dlnow", dlnow);
1189         add_assoc_double(param, "ultotal", ultotal);
1190         add_assoc_double(param, "ulnow", ulnow);
1191
1192         with_error_handling(EH_NORMAL, NULL) {
1193                 request->_in_progress_cb = 1;
1194                 call_user_function(EG(function_table), NULL, request->_progress_callback, &retval, 1, &param TSRMLS_CC);
1195                 request->_in_progress_cb = 0;
1196         } end_error_handling();
1197
1198         zval_ptr_dtor(&param);
1199         zval_dtor(&retval);
1200
1201         return 0;
1202 }
1203 /* }}} */
1204
1205 /* {{{ static curlioerr http_curl_ioctl_callback(CURL *, curliocmd, void *) */
1206 static curlioerr http_curl_ioctl_callback(CURL *ch, curliocmd cmd, void *ctx)
1207 {
1208         http_request *request = (http_request *) ctx;
1209         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
1210
1211         if (cmd != CURLIOCMD_RESTARTREAD) {
1212                 return CURLIOE_UNKNOWNCMD;
1213         }
1214
1215         if (request->body) {
1216                 switch (request->body->type) {
1217                         case HTTP_REQUEST_BODY_CSTRING:
1218                                 request->body->priv = 0;
1219                                 return CURLIOE_OK;
1220                                 break;
1221
1222                         case HTTP_REQUEST_BODY_UPLOADFILE:
1223                                 if (SUCCESS == php_stream_rewind((php_stream *) request->body->data)) {
1224                                         return CURLIOE_OK;
1225                                 }
1226                                 break;
1227                 }
1228         }
1229
1230         return CURLIOE_FAILRESTART;
1231 }
1232 /* }}} */
1233
1234 /* {{{ static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *) */
1235 static int http_curl_raw_callback(CURL *ch, curl_infotype type, char *data, size_t length, void *ctx)
1236 {
1237         http_request *request = (http_request *) ctx;
1238
1239 #define EMPTY_HEADER(d, l) (!l || (l == 1 && d[0] == '\n') || (l == 2 && d[0] == '\r' && d[1] == '\n'))
1240         switch (type) {
1241                 case CURLINFO_DATA_IN:
1242                         if (request->conv.last_type == CURLINFO_HEADER_IN) {
1243                                 phpstr_appends(&request->conv.response, HTTP_CRLF);
1244                         }
1245                         phpstr_append(&request->conv.response, data, length);
1246                         break;
1247                 case CURLINFO_HEADER_IN:
1248                         if (!EMPTY_HEADER(data, length)) {
1249                                 phpstr_append(&request->conv.response, data, length);
1250                         }
1251                         break;
1252                 case CURLINFO_DATA_OUT:
1253                 case CURLINFO_HEADER_OUT:
1254                         phpstr_append(&request->conv.request, data, length);
1255                         break;
1256                 default:
1257                         break;
1258         }
1259
1260 #if 0
1261         {
1262                 const char _sym[] = "><><><";
1263                 if (type) {
1264                         for (fprintf(stderr, "%c ", _sym[type-1]); length--; data++) {
1265                                 fprintf(stderr, HTTP_IS_CTYPE(print, *data)?"%c":"\\x%02X", (int) *data);
1266                                 if (*data == '\n' && length) {
1267                                         fprintf(stderr, "\n%c ", _sym[type-1]);
1268                                 }
1269                         }
1270                         fprintf(stderr, "\n");
1271                 } else {
1272                         fprintf(stderr, "# %s", data);
1273                 }
1274         }
1275 #endif
1276
1277         if (type) {
1278                 request->conv.last_type = type;
1279         }
1280         return 0;
1281 }
1282 /* }}} */
1283
1284 /* {{{ static inline zval *http_request_option(http_request *, HashTable *, char *, size_t, int) */
1285 static inline zval *_http_request_option_ex(http_request *r, HashTable *options, char *key, size_t keylen, int type TSRMLS_DC)
1286 {
1287         if (options) {
1288                 zval **zoption;
1289                 ulong h = zend_hash_func(key, keylen);
1290
1291                 if (SUCCESS == zend_hash_quick_find(options, key, keylen, h, (void *) &zoption)) {
1292                         zval *option, *cached;
1293
1294                         option = http_zsep(type, *zoption);
1295                         cached = http_request_option_cache_ex(r, key, keylen, h, option);
1296
1297                         zval_ptr_dtor(&option);
1298                         return cached;
1299                 }
1300         }
1301
1302         return NULL;
1303 }
1304 /* }}} */
1305
1306 /* {{{ static inline zval *http_request_option_cache(http_request *, char *key, zval *) */
1307 static inline zval *_http_request_option_cache_ex(http_request *r, char *key, size_t keylen, ulong h, zval *opt TSRMLS_DC)
1308 {
1309         ZVAL_ADDREF(opt);
1310
1311         if (h) {
1312                 zend_hash_quick_update(&r->_cache.options, key, keylen, h, &opt, sizeof(zval *), NULL);
1313         } else {
1314                 zend_hash_update(&r->_cache.options, key, keylen, &opt, sizeof(zval *), NULL);
1315         }
1316
1317         return opt;
1318 }
1319 /* }}} */
1320
1321 /* {{{ static inline int http_request_cookies_enabled(http_request *) */
1322 static inline int _http_request_cookies_enabled(http_request *request) {
1323         http_request_storage *st;
1324
1325         if (request->ch && (st = http_request_storage_get(request->ch)) && st->cookiestore) {
1326                 /* cookies are enabled */
1327                 return 1;
1328         }
1329         return 0;
1330 }
1331 /* }}} */
1332
1333 #endif /* HTTP_HAVE_CURL */
1334
1335 /*
1336  * Local variables:
1337  * tab-width: 4
1338  * c-basic-offset: 4
1339  * End:
1340  * vim600: noet sw=4 ts=4 fdm=marker
1341  * vim<600: noet sw=4 ts=4
1342  */
1343