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-2006, 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_request_api.h"
  23 #include "php_http_url_api.h"
  24
  25 #ifdef ZEND_ENGINE_2
  26 #       include "php_http_request_object.h"
  27 #endif
  28
  29 /* {{{ cruft for thread safe SSL crypto locks */
  30 #if defined(ZTS) && defined(HTTP_HAVE_SSL)
  31 #       ifdef PHP_WIN32
  32 #               define HTTP_NEED_OPENSSL_TSL
  33 #               include <openssl/crypto.h>
  34 #       else /* !PHP_WIN32 */
  35 #               if defined(HTTP_HAVE_OPENSSL)
  36 #                       if defined(HAVE_OPENSSL_CRYPTO_H)
  37 #                               define HTTP_NEED_OPENSSL_TSL
  38 #                               include <openssl/crypto.h>
  39 #                       else
  40 #                               warning \
  41                                         "libcurl was compiled with OpenSSL support, but configure could not find " \
  42                                         "openssl/crypto.h; thus no SSL crypto locking callbacks will be set, which may " \
  43                                         "cause random crashes on SSL requests"
  44 #                       endif
  45 #               elif defined(HTTP_HAVE_GNUTLS)
  46 #                       if defined(HAVE_GCRYPT_H)
  47 #                               define HTTP_NEED_GNUTLS_TSL
  48 #                               include <gcrypt.h>
  49 #                       else
  50 #                               warning \
  51                                         "libcurl was compiled with GnuTLS support, but configure could not find " \
  52                                         "gcrypt.h; thus no SSL crypto locking callbacks will be set, which may " \
  53                                         "cause random crashes on SSL requests"
  54 #                       endif
  55 #               else
  56 #                       warning \
  57                                 "libcurl was compiled with SSL support, but configure could not determine which" \
  58                                 "library was used; thus no SSL crypto locking callbacks will be set, which may " \
  59                                 "cause random crashes on SSL requests"
  60 #               endif /* HTTP_HAVE_OPENSSL || HTTP_HAVE_GNUTLS */
  61 #       endif /* PHP_WIN32 */
  62 #endif /* ZTS && HTTP_HAVE_SSL */
  63
  64 #ifdef HTTP_NEED_OPENSSL_TSL
  65 static MUTEX_T *http_openssl_tsl = NULL;
  66
  67 static void http_openssl_thread_lock(int mode, int n, const char * file, int line)
  68 {
  69         if (mode & CRYPTO_LOCK) {
  70                 tsrm_mutex_lock(http_openssl_tsl[n]);
  71         } else {
  72                 tsrm_mutex_unlock(http_openssl_tsl[n]);
  73         }
  74 }
  75
  76 static ulong http_openssl_thread_id(void)
  77 {
  78         return (ulong) tsrm_thread_id();
  79 }
  80 #endif
  81 #ifdef HTTP_NEED_GNUTLS_TSL
  82 static int http_gnutls_mutex_create(void **m)
  83 {
  84         if (*((MUTEX_T *) m) = tsrm_mutex_alloc()) {
  85                 return SUCCESS;
  86         } else {
  87                 return FAILURE;
  88         }
  89 }
  90
  91 static int http_gnutls_mutex_destroy(void **m)
  92 {
  93         tsrm_mutex_free(*((MUTEX_T *) m));
  94         return SUCCESS;
  95 }
  96
  97 static int http_gnutls_mutex_lock(void **m)
  98 {
  99         return tsrm_mutex_lock(*((MUTEX_T *) m));
 100 }
 101
 102 static int http_gnutls_mutex_unlock(void **m)
 103 {
 104         return tsrm_mutex_unlock(*((MUTEX_T *) m));
 105 }
 106
 107 static struct gcry_thread_cbs http_gnutls_tsl = {
 108         GCRY_THREAD_OPTION_USER,
 109         NULL,
 110         http_gnutls_mutex_create,
 111         http_gnutls_mutex_destroy,
 112         http_gnutls_mutex_lock,
 113         http_gnutls_mutex_unlock
 114 };
 115 #endif
 116 /* }}} */
 117
 118 /* {{{ MINIT */
 119 PHP_MINIT_FUNCTION(http_request)
 120 {
 121 #ifdef HTTP_NEED_OPENSSL_TSL
 122         int i, c = CRYPTO_num_locks();
 123
 124         http_openssl_tsl = malloc(c * sizeof(MUTEX_T));
 125
 126         for (i = 0; i < c; ++i) {
 127                 http_openssl_tsl[i] = tsrm_mutex_alloc();
 128         }
 129
 130         CRYPTO_set_id_callback(http_openssl_thread_id);
 131         CRYPTO_set_locking_callback(http_openssl_thread_lock);
 132 #endif
 133 #ifdef HTTP_NED_GNUTLS_TSL
 134         gcry_control(GCRYCTL_SET_THREAD_CBS, &http_gnutls_tsl);
 135 #endif
 136
 137         if (CURLE_OK != curl_global_init(CURL_GLOBAL_ALL)) {
 138                 return FAILURE;
 139         }
 140
 141         HTTP_LONG_CONSTANT("HTTP_AUTH_BASIC", CURLAUTH_BASIC);
 142         HTTP_LONG_CONSTANT("HTTP_AUTH_DIGEST", CURLAUTH_DIGEST);
 143         HTTP_LONG_CONSTANT("HTTP_AUTH_NTLM", CURLAUTH_NTLM);
 144         HTTP_LONG_CONSTANT("HTTP_AUTH_ANY", CURLAUTH_ANY);
 145
 146         HTTP_LONG_CONSTANT("HTTP_VERSION_NONE", CURL_HTTP_VERSION_NONE);
 147         HTTP_LONG_CONSTANT("HTTP_VERSION_1_0", CURL_HTTP_VERSION_1_0);
 148         HTTP_LONG_CONSTANT("HTTP_VERSION_1_1", CURL_HTTP_VERSION_1_1);
 149
 150         return SUCCESS;
 151 }
 152 /* }}} */
 153
 154 /* {{{ MSHUTDOWN */
 155 PHP_MSHUTDOWN_FUNCTION(http_request)
 156 {
 157 #ifdef HTTP_NEED_OPENSSL_TSL
 158         CRYPTO_set_id_callback(http_openssl_thread_id);
 159         CRYPTO_set_locking_callback(http_openssl_thread_lock);
 160 #endif
 161         curl_global_cleanup();
 162 #ifdef HTTP_NEED_OPENSSL_TSL
 163         if (http_openssl_tsl) {
 164                 int i, c = CRYPTO_num_locks();
 165
 166                 CRYPTO_set_id_callback(NULL);
 167                 CRYPTO_set_locking_callback(NULL);
 168
 169                 for (i = 0; i < c; ++i) {
 170                         tsrm_mutex_free(http_openssl_tsl[i]);
 171                 }
 172
 173                 free(http_openssl_tsl);
 174                 http_openssl_tsl = NULL;
 175         }
 176 #endif
 177         return SUCCESS;
 178 }
 179 /* }}} */
 180
 181 /* {{{ MACROS */
 182 #ifndef HAVE_CURL_EASY_STRERROR
 183 #       define curl_easy_strerror(dummy) "unkown error"
 184 #endif
 185
 186 #define HTTP_CURL_INFO(I) HTTP_CURL_INFO_EX(I, I)
 187 #define HTTP_CURL_INFO_EX(I, X) \
 188         switch (CURLINFO_ ##I & ~CURLINFO_MASK) \
 189         { \
 190                 case CURLINFO_STRING: \
 191                 { \
 192                         char *c; \
 193                         if (CURLE_OK == curl_easy_getinfo(request->ch, CURLINFO_ ##I, &c)) { \
 194                                 char *key = estrndup(#X, lenof(#X)); \
 195                                 add_assoc_string(&array, pretty_key(key, lenof(#X), 0, 0), c ? c : "", 1); \
 196                                 efree(key); \
 197                         } \
 198                 } \
 199                 break; \
 200 \
 201                 case CURLINFO_DOUBLE: \
 202                 { \
 203                         double d; \
 204                         if (CURLE_OK == curl_easy_getinfo(request->ch, CURLINFO_ ##I, &d)) { \
 205                                 char *key = estrndup(#X, lenof(#X)); \
 206                                 add_assoc_double(&array, pretty_key(key, lenof(#X), 0, 0), d); \
 207                                 efree(key); \
 208                         } \
 209                 } \
 210                 break; \
 211 \
 212                 case CURLINFO_LONG: \
 213                 { \
 214                         long l; \
 215                         if (CURLE_OK == curl_easy_getinfo(request->ch, CURLINFO_ ##I, &l)) { \
 216                                 char *key = estrndup(#X, lenof(#X)); \
 217                                 add_assoc_long(&array, pretty_key(key, lenof(#X), 0, 0), l); \
 218                                 efree(key); \
 219                         } \
 220                 } \
 221                 break; \
 222 \
 223                 case CURLINFO_SLIST: \
 224                 { \
 225                         struct curl_slist *l, *p; \
 226                         if (CURLE_OK == curl_easy_getinfo(request->ch, CURLINFO_ ##I, &l)) { \
 227                                 zval *subarray; \
 228                                 char *key = estrndup(#X, lenof(#X)); \
 229                                 MAKE_STD_ZVAL(subarray); \
 230                                 array_init(subarray); \
 231                                 for (p = l; p; p = p->next) { \
 232                                         add_next_index_string(subarray, p->data, 1); \
 233                                 } \
 234                                 add_assoc_zval(&array, pretty_key(key, lenof(#X), 0, 0), subarray); \
 235                                 curl_slist_free_all(l); \
 236                                 efree(key); \
 237                         } \
 238                 } \
 239         }
 240
 241 #define HTTP_CURL_OPT(OPTION, p) HTTP_CURL_OPT_EX(request->ch, OPTION, (p))
 242 #define HTTP_CURL_OPT_EX(ch, OPTION, p) curl_easy_setopt((ch), CURLOPT_##OPTION, (p))
 243 #define HTTP_CURL_OPT_STRING(keyname, obdc) HTTP_CURL_OPT_STRING_EX(keyname, keyname, obdc)
 244 #define HTTP_CURL_OPT_SSL_STRING(keyname, obdc) HTTP_CURL_OPT_STRING_EX(keyname, SSL##keyname, obdc)
 245 #define HTTP_CURL_OPT_SSL_STRING_(keyname,obdc ) HTTP_CURL_OPT_STRING_EX(keyname, SSL_##keyname, obdc)
 246 #define HTTP_CURL_OPT_STRING_EX(keyname, optname, obdc) \
 247         if (!strcasecmp(key, #keyname)) { \
 248                 zval *copy = http_request_option_cache(request, #keyname, zval_copy(IS_STRING, *param)); \
 249                 if (obdc) { \
 250                         HTTP_CHECK_OPEN_BASEDIR(Z_STRVAL_P(copy), return FAILURE); \
 251                 } \
 252                 HTTP_CURL_OPT(optname, Z_STRVAL_P(copy)); \
 253                 key = NULL; \
 254                 continue; \
 255         }
 256 #define HTTP_CURL_OPT_LONG(keyname) HTTP_OPT_SSL_LONG_EX(keyname, keyname)
 257 #define HTTP_CURL_OPT_SSL_LONG(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL##keyname)
 258 #define HTTP_CURL_OPT_SSL_LONG_(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL_##keyname)
 259 #define HTTP_CURL_OPT_LONG_EX(keyname, optname) \
 260         if (!strcasecmp(key, #keyname)) { \
 261                 zval *copy = http_request_option_cache(request, #keyname, zval_copy(IS_LONG, *param)); \
 262                 HTTP_CURL_OPT(optname, Z_LVAL_P(copy)); \
 263                 key = NULL; \
 264                 continue; \
 265         }
 266 /* }}} */
 267
 268 /* {{{ forward declarations */
 269 #define http_request_option(r, o, k, t) _http_request_option_ex((r), (o), (k), sizeof(k), (t) TSRMLS_CC)
 270 #define http_request_option_ex(r, o, k, l, t) _http_request_option_ex((r), (o), (k), (l), (t) TSRMLS_CC)
 271 static inline zval *_http_request_option_ex(http_request *request, HashTable *options, char *key, size_t keylen, int type TSRMLS_DC);
 272 #define http_request_option_cache(r, k, z) _http_request_option_cache_ex((r), (k), sizeof(k), 0, (z) TSRMLS_CC)
 273 #define http_request_option_cache_ex(r, k, kl, h, z) _http_request_option_cache_ex((r), (k), (kl), (h), (z) TSRMLS_CC)
 274 static inline zval *_http_request_option_cache_ex(http_request *r, char *key, size_t keylen, ulong h, zval *opt TSRMLS_DC);
 275
 276 static size_t http_curl_read_callback(void *, size_t, size_t, void *);
 277 static int http_curl_progress_callback(void *, double, double, double, double);
 278 static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *);
 279 static int http_curl_dummy_callback(char *data, size_t n, size_t l, void *s) { return n*l; }
 280 static curlioerr http_curl_ioctl_callback(CURL *, curliocmd, void *);
 281 /* }}} */
 282
 283 /* {{{ CURL *http_curl_init(http_request *) */
 284 PHP_HTTP_API CURL * _http_curl_init_ex(CURL *ch, http_request *request)
 285 {
 286         if (ch || (ch = curl_easy_init())) {
 287 #if defined(ZTS)
 288                 HTTP_CURL_OPT_EX(ch, NOSIGNAL, 1);
 289 #endif
 290                 HTTP_CURL_OPT_EX(ch, HEADER, 0);
 291                 HTTP_CURL_OPT_EX(ch, FILETIME, 1);
 292                 HTTP_CURL_OPT_EX(ch, AUTOREFERER, 1);
 293                 HTTP_CURL_OPT_EX(ch, VERBOSE, 1);
 294                 HTTP_CURL_OPT_EX(ch, HEADERFUNCTION, NULL);
 295                 HTTP_CURL_OPT_EX(ch, DEBUGFUNCTION, http_curl_raw_callback);
 296                 HTTP_CURL_OPT_EX(ch, READFUNCTION, http_curl_read_callback);
 297                 HTTP_CURL_OPT_EX(ch, IOCTLFUNCTION, http_curl_ioctl_callback);
 298                 HTTP_CURL_OPT_EX(ch, WRITEFUNCTION, http_curl_dummy_callback);
 299
 300                 /* set context */
 301                 if (request) {
 302                         HTTP_CURL_OPT_EX(ch, PRIVATE, request);
 303                         HTTP_CURL_OPT_EX(ch, DEBUGDATA, request);
 304                         HTTP_CURL_OPT_EX(ch, ERRORBUFFER, request->_error);
 305
 306                         /* attach curl handle */
 307                         request->ch = ch;
 308                         /* set defaults (also in http_request_reset()) */
 309                         http_request_defaults(request);
 310                 }
 311         }
 312
 313         return ch;
 314 }
 315 /* }}} */
 316
 317 /* {{{ void http_curl_free(CURL **) */
 318 PHP_HTTP_API void _http_curl_free(CURL **ch)
 319 {
 320         if (*ch) {
 321                 /* avoid nasty segfaults with already cleaned up callbacks */
 322                 HTTP_CURL_OPT_EX(*ch, NOPROGRESS, 1);
 323                 HTTP_CURL_OPT_EX(*ch, PROGRESSFUNCTION, NULL);
 324                 HTTP_CURL_OPT_EX(*ch, VERBOSE, 0);
 325                 HTTP_CURL_OPT_EX(*ch, DEBUGFUNCTION, NULL);
 326                 curl_easy_cleanup(*ch);
 327                 *ch = NULL;
 328         }
 329 }
 330 /* }}} */
 331
 332 /* {{{ http_request *http_request_init(http_request *) */
 333 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)
 334 {
 335         http_request *r;
 336
 337         if (request) {
 338                 r = request;
 339         } else {
 340                 r = emalloc_rel(sizeof(http_request));
 341         }
 342         memset(r, 0, sizeof(http_request));
 343
 344         r->ch = ch;
 345         r->url = (url) ? http_absolute_url(url) : NULL;
 346         r->meth = (meth > 0) ? meth : HTTP_GET;
 347
 348         phpstr_init(&r->conv.request);
 349         phpstr_init_ex(&r->conv.response, HTTP_CURLBUF_SIZE, 0);
 350         phpstr_init(&r->_cache.cookies);
 351         zend_hash_init(&r->_cache.options, 0, NULL, ZVAL_PTR_DTOR, 0);
 352
 353         TSRMLS_SET_CTX(r->tsrm_ls);
 354
 355         return r;
 356 }
 357 /* }}} */
 358
 359 /* {{{ void http_request_dtor(http_request *) */
 360 PHP_HTTP_API void _http_request_dtor(http_request *request)
 361 {
 362         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 363
 364         http_curl_free(&request->ch);
 365         http_request_reset(request);
 366
 367         phpstr_dtor(&request->_cache.cookies);
 368         zend_hash_destroy(&request->_cache.options);
 369         if (request->_cache.headers) {
 370                 curl_slist_free_all(request->_cache.headers);
 371                 request->_cache.headers = NULL;
 372         }
 373         if (request->_progress_callback) {
 374                 zval_ptr_dtor(&request->_progress_callback);
 375                 request->_progress_callback = NULL;
 376         }
 377 }
 378 /* }}} */
 379
 380 /* {{{ void http_request_free(http_request **) */
 381 PHP_HTTP_API void _http_request_free(http_request **request)
 382 {
 383         if (*request) {
 384                 TSRMLS_FETCH_FROM_CTX((*request)->tsrm_ls);
 385                 http_request_body_free(&(*request)->body);
 386                 http_request_dtor(*request);
 387                 efree(*request);
 388                 *request = NULL;
 389         }
 390 }
 391 /* }}} */
 392
 393 /* {{{ void http_request_reset(http_request *) */
 394 PHP_HTTP_API void _http_request_reset(http_request *request)
 395 {
 396         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 397         STR_SET(request->url, NULL);
 398         request->conv.last_type = 0;
 399         phpstr_dtor(&request->conv.request);
 400         phpstr_dtor(&request->conv.response);
 401         http_request_body_dtor(request->body);
 402
 403         if (request->ch) {
 404                 http_request_defaults(request);
 405         }
 406 }
 407 /* }}} */
 408
 409 /* {{{ void http_request_defaults(http_request *) */
 410 PHP_HTTP_API void _http_request_defaults(http_request *request)
 411 {
 412         if (request->ch) {
 413                 HTTP_CURL_OPT(PROGRESSFUNCTION, NULL);
 414                 HTTP_CURL_OPT(URL, NULL);
 415                 HTTP_CURL_OPT(NOPROGRESS, 1);
 416                 HTTP_CURL_OPT(PROXY, NULL);
 417                 HTTP_CURL_OPT(PROXYPORT, 0);
 418                 HTTP_CURL_OPT(PROXYUSERPWD, NULL);
 419                 HTTP_CURL_OPT(PROXYAUTH, 0);
 420                 HTTP_CURL_OPT(INTERFACE, NULL);
 421                 HTTP_CURL_OPT(PORT, 0);
 422                 HTTP_CURL_OPT(USERPWD, NULL);
 423                 HTTP_CURL_OPT(HTTPAUTH, 0);
 424                 HTTP_CURL_OPT(ENCODING, NULL);
 425                 HTTP_CURL_OPT(FOLLOWLOCATION, 0);
 426                 HTTP_CURL_OPT(UNRESTRICTED_AUTH, 0);
 427                 HTTP_CURL_OPT(REFERER, NULL);
 428                 HTTP_CURL_OPT(USERAGENT, "PECL::HTTP/" PHP_EXT_HTTP_VERSION " (PHP/" PHP_VERSION ")");
 429                 HTTP_CURL_OPT(HTTPHEADER, NULL);
 430                 HTTP_CURL_OPT(COOKIE, NULL);
 431 #if LIBCURL_VERSION_NUM >= 0x070e01
 432                 HTTP_CURL_OPT(COOKIELIST, NULL);
 433 #endif
 434                 HTTP_CURL_OPT(COOKIEFILE, NULL);
 435                 HTTP_CURL_OPT(COOKIEJAR, NULL);
 436                 HTTP_CURL_OPT(RESUME_FROM, 0);
 437                 HTTP_CURL_OPT(MAXFILESIZE, 0);
 438                 HTTP_CURL_OPT(TIMECONDITION, 0);
 439                 HTTP_CURL_OPT(TIMEVALUE, 0);
 440                 HTTP_CURL_OPT(TIMEOUT, 0);
 441                 HTTP_CURL_OPT(CONNECTTIMEOUT, 3);
 442                 HTTP_CURL_OPT(SSLCERT, NULL);
 443                 HTTP_CURL_OPT(SSLCERTTYPE, NULL);
 444                 HTTP_CURL_OPT(SSLCERTPASSWD, NULL);
 445                 HTTP_CURL_OPT(SSLKEY, NULL);
 446                 HTTP_CURL_OPT(SSLKEYTYPE, NULL);
 447                 HTTP_CURL_OPT(SSLKEYPASSWD, NULL);
 448                 HTTP_CURL_OPT(SSLENGINE, NULL);
 449                 HTTP_CURL_OPT(SSLVERSION, 0);
 450                 HTTP_CURL_OPT(SSL_VERIFYPEER, 0);
 451                 HTTP_CURL_OPT(SSL_VERIFYHOST, 0);
 452                 HTTP_CURL_OPT(SSL_CIPHER_LIST, NULL);
 453                 HTTP_CURL_OPT(CAINFO, NULL);
 454                 HTTP_CURL_OPT(CAPATH, NULL);
 455                 HTTP_CURL_OPT(RANDOM_FILE, NULL);
 456                 HTTP_CURL_OPT(EGDSOCKET, NULL);
 457                 HTTP_CURL_OPT(POSTFIELDS, NULL);
 458                 HTTP_CURL_OPT(POSTFIELDSIZE, 0);
 459                 HTTP_CURL_OPT(HTTPPOST, NULL);
 460                 HTTP_CURL_OPT(IOCTLDATA, NULL);
 461                 HTTP_CURL_OPT(READDATA, NULL);
 462                 HTTP_CURL_OPT(INFILESIZE, 0);
 463                 HTTP_CURL_OPT(HTTP_VERSION, CURL_HTTP_VERSION_NONE);
 464                 HTTP_CURL_OPT(CUSTOMREQUEST, NULL);
 465                 HTTP_CURL_OPT(NOBODY, 0);
 466                 HTTP_CURL_OPT(POST, 0);
 467                 HTTP_CURL_OPT(UPLOAD, 0);
 468                 HTTP_CURL_OPT(HTTPGET, 1);
 469         }
 470 }
 471 /* }}} */
 472
 473 PHP_HTTP_API void _http_request_set_progress_callback(http_request *request, zval *cb)
 474 {
 475         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 476
 477         if (request->_progress_callback) {
 478                 zval_ptr_dtor(&request->_progress_callback);
 479         }
 480         if ((request->_progress_callback = cb)) {
 481                 ZVAL_ADDREF(cb);
 482                 HTTP_CURL_OPT(NOPROGRESS, 0);
 483                 HTTP_CURL_OPT(PROGRESSDATA, request);
 484                 HTTP_CURL_OPT(PROGRESSFUNCTION, http_curl_progress_callback);
 485         } else {
 486                 HTTP_CURL_OPT(NOPROGRESS, 1);
 487                 HTTP_CURL_OPT(PROGRESSDATA, NULL);
 488                 HTTP_CURL_OPT(PROGRESSFUNCTION, NULL);
 489         }
 490 }
 491
 492 /* {{{ STATUS http_request_prepare(http_request *, HashTable *) */
 493 PHP_HTTP_API STATUS _http_request_prepare(http_request *request, HashTable *options)
 494 {
 495         zval *zoption;
 496         zend_bool range_req = 0;
 497
 498         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 499
 500         HTTP_CHECK_CURL_INIT(request->ch, http_curl_init(request), return FAILURE);
 501
 502         /* set options */
 503         HTTP_CURL_OPT(URL, request->url);
 504
 505         /* progress callback */
 506         if ((zoption = http_request_option(request, options, "onprogress", -1))) {
 507                 http_request_set_progress_callback(request, zoption);
 508         }
 509
 510         /* proxy */
 511         if ((zoption = http_request_option(request, options, "proxyhost", IS_STRING))) {
 512                 if (Z_STRLEN_P(zoption)) {
 513                         HTTP_CURL_OPT(PROXY, Z_STRVAL_P(zoption));
 514                 }
 515
 516                 /* port */
 517                 if ((zoption = http_request_option(request, options, "proxyport", IS_LONG))) {
 518                         HTTP_CURL_OPT(PROXYPORT, Z_LVAL_P(zoption));
 519                 }
 520                 /* user:pass */
 521                 if ((zoption = http_request_option(request, options, "proxyauth", IS_STRING)) && Z_STRLEN_P(zoption)) {
 522                         HTTP_CURL_OPT(PROXYUSERPWD, Z_STRVAL_P(zoption));
 523                 }
 524                 /* auth method */
 525                 if ((zoption = http_request_option(request, options, "proxyauthtype", IS_LONG))) {
 526                         HTTP_CURL_OPT(PROXYAUTH, Z_LVAL_P(zoption));
 527                 }
 528         }
 529
 530         /* outgoing interface */
 531         if ((zoption = http_request_option(request, options, "interface", IS_STRING))) {
 532                 HTTP_CURL_OPT(INTERFACE, Z_STRVAL_P(zoption));
 533         }
 534
 535         /* another port */
 536         if ((zoption = http_request_option(request, options, "port", IS_LONG))) {
 537                 HTTP_CURL_OPT(PORT, Z_LVAL_P(zoption));
 538         }
 539
 540         /* auth */
 541         if ((zoption = http_request_option(request, options, "httpauth", IS_STRING)) && Z_STRLEN_P(zoption)) {
 542                 HTTP_CURL_OPT(USERPWD, Z_STRVAL_P(zoption));
 543         }
 544         if ((zoption = http_request_option(request, options, "httpauthtype", IS_LONG))) {
 545                 HTTP_CURL_OPT(HTTPAUTH, Z_LVAL_P(zoption));
 546         }
 547
 548         /* redirects, defaults to 0 */
 549         if ((zoption = http_request_option(request, options, "redirect", IS_LONG))) {
 550                 HTTP_CURL_OPT(FOLLOWLOCATION, Z_LVAL_P(zoption) ? 1 : 0);
 551                 HTTP_CURL_OPT(MAXREDIRS, Z_LVAL_P(zoption));
 552                 if ((zoption = http_request_option(request, options, "unrestrictedauth", IS_BOOL))) {
 553                         HTTP_CURL_OPT(UNRESTRICTED_AUTH, Z_LVAL_P(zoption));
 554                 }
 555         }
 556
 557         /* referer */
 558         if ((zoption = http_request_option(request, options, "referer", IS_STRING)) && Z_STRLEN_P(zoption)) {
 559                 HTTP_CURL_OPT(REFERER, Z_STRVAL_P(zoption));
 560         }
 561
 562         /* useragent, default "PECL::HTTP/version (PHP/version)" */
 563         if ((zoption = http_request_option(request, options, "useragent", IS_STRING))) {
 564                 /* allow to send no user agent, not even default one */
 565                 if (Z_STRLEN_P(zoption)) {
 566                         HTTP_CURL_OPT(USERAGENT, Z_STRVAL_P(zoption));
 567                 } else {
 568                         HTTP_CURL_OPT(USERAGENT, NULL);
 569                 }
 570         }
 571
 572         /* additional headers, array('name' => 'value') */
 573         if (request->_cache.headers) {
 574                 curl_slist_free_all(request->_cache.headers);
 575                 request->_cache.headers = NULL;
 576         }
 577         if ((zoption = http_request_option(request, options, "headers", IS_ARRAY))) {
 578                 char *header_key;
 579                 ulong header_idx;
 580                 HashPosition pos;
 581
 582                 FOREACH_KEY(pos, zoption, header_key, header_idx) {
 583                         if (header_key) {
 584                                 zval **header_val;
 585                                 if (SUCCESS == zend_hash_get_current_data_ex(Z_ARRVAL_P(zoption), (void **) &header_val, &pos)) {
 586                                         char header[1024] = {0};
 587
 588                                         ZVAL_ADDREF(*header_val);
 589                                         convert_to_string_ex(header_val);
 590                                         snprintf(header, 1023, "%s: %s", header_key, Z_STRVAL_PP(header_val));
 591                                         request->_cache.headers = curl_slist_append(request->_cache.headers, header);
 592                                         zval_ptr_dtor(header_val);
 593                                 }
 594
 595                                 /* reset */
 596                                 header_key = NULL;
 597                         }
 598                 }
 599         }
 600         if ((zoption = http_request_option(request, options, "compress", IS_BOOL)) && Z_LVAL_P(zoption)) {
 601                 request->_cache.headers = curl_slist_append(request->_cache.headers, "Accept-Encoding: gzip;q=1.0,deflate;q=0.5");
 602         }
 603         HTTP_CURL_OPT(HTTPHEADER, request->_cache.headers);
 604
 605         /* cookies, array('name' => 'value') */
 606         if ((zoption = http_request_option(request, options, "cookies", IS_ARRAY))) {
 607                 phpstr_dtor(&request->_cache.cookies);
 608                 if (zend_hash_num_elements(Z_ARRVAL_P(zoption))) {
 609                         if (SUCCESS == http_urlencode_hash_recursive(HASH_OF(zoption), &request->_cache.cookies, "; ", sizeof("; ")-1, NULL, 0)) {
 610                                 phpstr_fix(&request->_cache.cookies);
 611                                 HTTP_CURL_OPT(COOKIE, request->_cache.cookies.data);
 612                         }
 613                 }
 614         }
 615
 616 #if LIBCURL_VERSION_NUM >= 0x070e01
 617         /* reset cookies */
 618         if ((zoption = http_request_option(request, options, "resetcookies", IS_BOOL)) && Z_LVAL_P(zoption)) {
 619                 HTTP_CURL_OPT(COOKIELIST, "ALL");
 620         }
 621 #endif
 622
 623         /* session cookies */
 624         if ((zoption = http_request_option(request, options, "cookiesession", IS_BOOL))) {
 625                 if (Z_LVAL_P(zoption)) {
 626                         /* accept cookies for this session */
 627                         HTTP_CURL_OPT(COOKIEFILE, "");
 628                 } else {
 629                         /* reset session cookies */
 630                         HTTP_CURL_OPT(COOKIESESSION, 1);
 631                 }
 632         }
 633
 634         /* cookiestore, read initial cookies from that file and store cookies back into that file */
 635         if ((zoption = http_request_option(request, options, "cookiestore", IS_STRING)) && Z_STRLEN_P(zoption)) {
 636                 HTTP_CHECK_OPEN_BASEDIR(Z_STRVAL_P(zoption), return FAILURE);
 637                 HTTP_CURL_OPT(COOKIEFILE, Z_STRVAL_P(zoption));
 638                 HTTP_CURL_OPT(COOKIEJAR, Z_STRVAL_P(zoption));
 639         }
 640
 641         /* resume */
 642         if ((zoption = http_request_option(request, options, "resume", IS_LONG)) && (Z_LVAL_P(zoption) != 0)) {
 643                 range_req = 1;
 644                 HTTP_CURL_OPT(RESUME_FROM, Z_LVAL_P(zoption));
 645         }
 646
 647         /* maxfilesize */
 648         if ((zoption = http_request_option(request, options, "maxfilesize", IS_LONG))) {
 649                 HTTP_CURL_OPT(MAXFILESIZE, Z_LVAL_P(zoption));
 650         }
 651
 652         /* http protocol */
 653         if ((zoption = http_request_option(request, options, "protocol", IS_LONG))) {
 654                 HTTP_CURL_OPT(HTTP_VERSION, Z_LVAL_P(zoption));
 655         }
 656
 657         /* lastmodified */
 658         if ((zoption = http_request_option(request, options, "lastmodified", IS_LONG))) {
 659                 if (Z_LVAL_P(zoption)) {
 660                         if (Z_LVAL_P(zoption) > 0) {
 661                                 HTTP_CURL_OPT(TIMEVALUE, Z_LVAL_P(zoption));
 662                         } else {
 663                                 HTTP_CURL_OPT(TIMEVALUE, HTTP_GET_REQUEST_TIME() + Z_LVAL_P(zoption));
 664                         }
 665                         HTTP_CURL_OPT(TIMECONDITION, range_req ? CURL_TIMECOND_IFUNMODSINCE : CURL_TIMECOND_IFMODSINCE);
 666                 } else {
 667                         HTTP_CURL_OPT(TIMECONDITION, CURL_TIMECOND_NONE);
 668                 }
 669         }
 670
 671         /* timeout, defaults to 0 */
 672         if ((zoption = http_request_option(request, options, "timeout", IS_LONG))) {
 673                 HTTP_CURL_OPT(TIMEOUT, Z_LVAL_P(zoption));
 674         }
 675
 676         /* connecttimeout, defaults to 3 */
 677         if ((zoption = http_request_option(request, options, "connecttimeout", IS_LONG))) {
 678                 HTTP_CURL_OPT(CONNECTTIMEOUT, Z_LVAL_P(zoption));
 679         }
 680
 681         /* ssl */
 682         if ((zoption = http_request_option(request, options, "ssl", IS_ARRAY))) {
 683                 ulong idx;
 684                 char *key = NULL;
 685                 zval **param;
 686                 HashPosition pos;
 687
 688                 FOREACH_KEYVAL(pos, zoption, key, idx, param) {
 689                         if (key) {
 690                                 HTTP_CURL_OPT_SSL_STRING(CERT, 1);
 691                                 HTTP_CURL_OPT_SSL_STRING(CERTTYPE, 0);
 692                                 HTTP_CURL_OPT_SSL_STRING(CERTPASSWD, 0);
 693
 694                                 HTTP_CURL_OPT_SSL_STRING(KEY, 0);
 695                                 HTTP_CURL_OPT_SSL_STRING(KEYTYPE, 0);
 696                                 HTTP_CURL_OPT_SSL_STRING(KEYPASSWD, 0);
 697
 698                                 HTTP_CURL_OPT_SSL_STRING(ENGINE, 0);
 699                                 HTTP_CURL_OPT_SSL_LONG(VERSION);
 700
 701                                 HTTP_CURL_OPT_SSL_LONG_(VERIFYPEER);
 702                                 HTTP_CURL_OPT_SSL_LONG_(VERIFYHOST);
 703                                 HTTP_CURL_OPT_SSL_STRING_(CIPHER_LIST, 0);
 704
 705                                 HTTP_CURL_OPT_STRING(CAINFO, 1);
 706                                 HTTP_CURL_OPT_STRING(CAPATH, 1);
 707                                 HTTP_CURL_OPT_STRING(RANDOM_FILE, 1);
 708                                 HTTP_CURL_OPT_STRING(EGDSOCKET, 1);
 709
 710                                 /* reset key */
 711                                 key = NULL;
 712                         }
 713                 }
 714         }
 715
 716         /* request method */
 717         switch (request->meth)
 718         {
 719                 case HTTP_GET:
 720                         HTTP_CURL_OPT(HTTPGET, 1);
 721                 break;
 722
 723                 case HTTP_HEAD:
 724                         HTTP_CURL_OPT(NOBODY, 1);
 725                 break;
 726
 727                 case HTTP_POST:
 728                         HTTP_CURL_OPT(POST, 1);
 729                 break;
 730
 731                 case HTTP_PUT:
 732                         HTTP_CURL_OPT(UPLOAD, 1);
 733                 break;
 734
 735                 default:
 736                         if (http_request_method_exists(0, request->meth, NULL)) {
 737                                 HTTP_CURL_OPT(CUSTOMREQUEST, http_request_method_name(request->meth));
 738                         } else {
 739                                 http_error_ex(HE_WARNING, HTTP_E_REQUEST_METHOD, "Unsupported request method: %d (%s)", request->meth, request->url);
 740                                 return FAILURE;
 741                         }
 742                 break;
 743         }
 744
 745         /* attach request body */
 746         if (request->body && (request->meth != HTTP_GET) && (request->meth != HTTP_HEAD) && (request->meth != HTTP_OPTIONS)) {
 747                 switch (request->body->type)
 748                 {
 749                         case HTTP_REQUEST_BODY_EMPTY:
 750                                 /* nothing */
 751                         break;
 752
 753                         case HTTP_REQUEST_BODY_CSTRING:
 754                                 HTTP_CURL_OPT(POSTFIELDS, request->body->data);
 755                                 HTTP_CURL_OPT(POSTFIELDSIZE, request->body->size);
 756                         break;
 757
 758                         case HTTP_REQUEST_BODY_CURLPOST:
 759                                 HTTP_CURL_OPT(HTTPPOST, (struct curl_httppost *) request->body->data);
 760                         break;
 761
 762                         case HTTP_REQUEST_BODY_UPLOADFILE:
 763                                 HTTP_CURL_OPT(IOCTLDATA, request);
 764                                 HTTP_CURL_OPT(READDATA, request);
 765                                 HTTP_CURL_OPT(INFILESIZE, request->body->size);
 766                         break;
 767
 768                         default:
 769                                 /* shouldn't ever happen */
 770                                 http_error_ex(HE_ERROR, 0, "Unknown request body type: %d (%s)", request->body->type, request->url);
 771                                 return FAILURE;
 772                         break;
 773                 }
 774         }
 775
 776         return SUCCESS;
 777 }
 778 /* }}} */
 779
 780 /* {{{ void http_request_exec(http_request *) */
 781 PHP_HTTP_API void _http_request_exec(http_request *request)
 782 {
 783         CURLcode result;
 784         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 785
 786         if (CURLE_OK != (result = curl_easy_perform(request->ch))) {
 787                 http_error_ex(HE_WARNING, HTTP_E_REQUEST, "%s; %s (%s)", curl_easy_strerror(result), request->_error, request->url);
 788         }
 789 }
 790 /* }}} */
 791
 792 /* {{{ void http_request_info(http_request *, HashTable *) */
 793 PHP_HTTP_API void _http_request_info(http_request *request, HashTable *info)
 794 {
 795         zval array;
 796         INIT_ZARR(array, info);
 797
 798         HTTP_CURL_INFO(EFFECTIVE_URL);
 799         HTTP_CURL_INFO(RESPONSE_CODE);
 800         HTTP_CURL_INFO_EX(HTTP_CONNECTCODE, connect_code);
 801         HTTP_CURL_INFO(FILETIME);
 802         HTTP_CURL_INFO(TOTAL_TIME);
 803         HTTP_CURL_INFO(NAMELOOKUP_TIME);
 804         HTTP_CURL_INFO(CONNECT_TIME);
 805         HTTP_CURL_INFO(PRETRANSFER_TIME);
 806         HTTP_CURL_INFO(STARTTRANSFER_TIME);
 807         HTTP_CURL_INFO(REDIRECT_TIME);
 808         HTTP_CURL_INFO(REDIRECT_COUNT);
 809         HTTP_CURL_INFO(SIZE_UPLOAD);
 810         HTTP_CURL_INFO(SIZE_DOWNLOAD);
 811         HTTP_CURL_INFO(SPEED_DOWNLOAD);
 812         HTTP_CURL_INFO(SPEED_UPLOAD);
 813         HTTP_CURL_INFO(HEADER_SIZE);
 814         HTTP_CURL_INFO(REQUEST_SIZE);
 815         HTTP_CURL_INFO(SSL_VERIFYRESULT);
 816         HTTP_CURL_INFO(SSL_ENGINES);
 817         HTTP_CURL_INFO(CONTENT_LENGTH_DOWNLOAD);
 818         HTTP_CURL_INFO(CONTENT_LENGTH_UPLOAD);
 819         HTTP_CURL_INFO(CONTENT_TYPE);
 820         HTTP_CURL_INFO(HTTPAUTH_AVAIL);
 821         HTTP_CURL_INFO(PROXYAUTH_AVAIL);
 822         /*HTTP_CURL_INFO(OS_ERRNO);*/
 823         HTTP_CURL_INFO(NUM_CONNECTS);
 824 #if LIBCURL_VERSION_NUM >= 0x070e01
 825         HTTP_CURL_INFO_EX(COOKIELIST, cookies);
 826 #endif
 827 }
 828 /* }}} */
 829
 830 /* {{{ static size_t http_curl_read_callback(void *, size_t, size_t, void *) */
 831 static size_t http_curl_read_callback(void *data, size_t len, size_t n, void *ctx)
 832 {
 833         http_request *request = (http_request *) ctx;
 834         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 835
 836         if (request->body == NULL || request->body->type != HTTP_REQUEST_BODY_UPLOADFILE) {
 837                 return 0;
 838         }
 839         return php_stream_read((php_stream *) request->body->data, data, len * n);
 840 }
 841 /* }}} */
 842
 843 /* {{{ static int http_curl_progress_callback(void *, double, double, double, double) */
 844 static int http_curl_progress_callback(void *ctx, double dltotal, double dlnow, double ultotal, double ulnow)
 845 {
 846         zval *param, retval;
 847         http_request *request = (http_request *) ctx;
 848         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 849
 850         INIT_PZVAL(&retval);
 851         ZVAL_NULL(&retval);
 852
 853         MAKE_STD_ZVAL(param);
 854         array_init(param);
 855         add_assoc_double(param, "dltotal", dltotal);
 856         add_assoc_double(param, "dlnow", dlnow);
 857         add_assoc_double(param, "ultotal", ultotal);
 858         add_assoc_double(param, "ulnow", ulnow);
 859
 860         call_user_function(EG(function_table), NULL, request->_progress_callback, &retval, 1, &param TSRMLS_CC);
 861
 862         zval_ptr_dtor(&param);
 863         zval_dtor(&retval);
 864
 865         return 0;
 866 }
 867 /* }}} */
 868
 869 /* {{{ static curlioerr http_curl_ioctl_callback(CURL *, curliocmd, void *) */
 870 static curlioerr http_curl_ioctl_callback(CURL *ch, curliocmd cmd, void *ctx)
 871 {
 872         http_request *request = (http_request *) ctx;
 873         TSRMLS_FETCH_FROM_CTX(request->tsrm_ls);
 874
 875         if (cmd != CURLIOCMD_RESTARTREAD) {
 876                 return CURLIOE_UNKNOWNCMD;
 877         }
 878         if (    request->body == NULL ||
 879                         request->body->type != HTTP_REQUEST_BODY_UPLOADFILE ||
 880                         SUCCESS != php_stream_rewind((php_stream *) request->body->data)) {
 881                 return CURLIOE_FAILRESTART;
 882         }
 883         return CURLIOE_OK;
 884 }
 885 /* }}} */
 886
 887 /* {{{ static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *) */
 888 static int http_curl_raw_callback(CURL *ch, curl_infotype type, char *data, size_t length, void *ctx)
 889 {
 890         http_request *request = (http_request *) ctx;
 891
 892         switch (type)
 893         {
 894                 case CURLINFO_DATA_IN:
 895                         if (request->conv.last_type == CURLINFO_HEADER_IN) {
 896                                 phpstr_appends(&request->conv.response, HTTP_CRLF);
 897                         }
 898                 case CURLINFO_HEADER_IN:
 899                         phpstr_append(&request->conv.response, data, length);
 900                 break;
 901                 case CURLINFO_DATA_OUT:
 902                         if (request->conv.last_type == CURLINFO_HEADER_OUT) {
 903                                 phpstr_appends(&request->conv.request, HTTP_CRLF);
 904                         }
 905                 case CURLINFO_HEADER_OUT:
 906                         phpstr_append(&request->conv.request, data, length);
 907                 break;
 908                 default:
 909 #if 0
 910                         fprintf(stderr, "## ", type);
 911                         if (!type) {
 912                                 fprintf(stderr, "%s", data);
 913                         } else {
 914                                 ulong i;
 915                                 for (i = 1; i <= length; ++i) {
 916                                         fprintf(stderr, "%02X ", data[i-1] & 0xFF);
 917                                         if (!(i % 20)) {
 918                                                 fprintf(stderr, "\n## ");
 919                                         }
 920                                 }
 921                                 fprintf(stderr, "\n");
 922                         }
 923                         if (data[length-1] != 0xa) {
 924                                 fprintf(stderr, "\n");
 925                         }
 926 #endif
 927                 break;
 928         }
 929
 930         if (type) {
 931                 request->conv.last_type = type;
 932         }
 933         return 0;
 934 }
 935 /* }}} */
 936
 937 /* {{{ static inline zval *http_request_option(http_request *, HashTable *, char *, size_t, int) */
 938 static inline zval *_http_request_option_ex(http_request *r, HashTable *options, char *key, size_t keylen, int type TSRMLS_DC)
 939 {
 940         zval **zoption;
 941 #ifdef ZEND_ENGINE_2
 942         ulong h = zend_get_hash_value(key, keylen);
 943 #else
 944         ulong h = 0;
 945 #endif
 946
 947         if (!options ||
 948 #ifdef ZEND_ENGINE_2
 949                         (SUCCESS != zend_hash_quick_find(options, key, keylen, h, (void **) &zoption))
 950 #else
 951                         (SUCCESS != zend_hash_find(options, key, keylen, (void **) &zoption))
 952 #endif
 953         ) {
 954                 return NULL;
 955         }
 956
 957         return http_request_option_cache_ex(r, key, keylen, h, zval_copy(type, *zoption));
 958 }
 959 /* }}} */
 960
 961 /* {{{ static inline zval *http_request_option_cache(http_request *, char *key, zval *) */
 962 static inline zval *_http_request_option_cache_ex(http_request *r, char *key, size_t keylen, ulong h, zval *opt TSRMLS_DC)
 963 {
 964         ZVAL_ADDREF(opt);
 965
 966 #ifdef ZEND_ENGINE_2
 967         if (h) {
 968                 _zend_hash_quick_add_or_update(&r->_cache.options, key, keylen, h, &opt, sizeof(zval *), NULL,
 969                         zend_hash_quick_exists(&r->_cache.options, key, keylen, h)?HASH_UPDATE:HASH_ADD ZEND_FILE_LINE_CC);
 970         }
 971         else
 972 #endif
 973         {
 974                 if (zend_hash_exists(&r->_cache.options, key, keylen)) {
 975                         zend_hash_update(&r->_cache.options, key, keylen, &opt, sizeof(zval *), NULL);
 976                 } else {
 977                         zend_hash_add(&r->_cache.options, key, keylen, &opt, sizeof(zval *), NULL);
 978                 }
 979         }
 980
 981         return opt;
 982 }
 983 /* }}} */
 984
 985 #endif /* HTTP_HAVE_CURL */
 986
 987 /*
 988  * Local variables:
 989  * tab-width: 4
 990  * c-basic-offset: 4
 991  * End:
 992  * vim600: noet sw=4 ts=4 fdm=marker
 993  * vim<600: noet sw=4 ts=4
 994  */
 995