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-2005, Michael Wallner <mike@php.net>            |
  10     +--------------------------------------------------------------------+
  11 */
  12
  13 /* $Id$ */
  14
  15 #ifdef HAVE_CONFIG_H
  16 #       include "config.h"
  17 #endif
  18 #include "php.h"
  19
  20 #ifdef HTTP_HAVE_CURL
  21
  22 #include "php_http.h"
  23 #include "php_http_std_defs.h"
  24 #include "php_http_api.h"
  25 #include "php_http_request_api.h"
  26 #include "php_http_request_method_api.h"
  27 #include "php_http_url_api.h"
  28 #ifdef ZEND_ENGINE_2
  29 #       include "php_http_request_object.h"
  30 #endif
  31
  32 #include "phpstr/phpstr.h"
  33
  34 #ifdef PHP_WIN32
  35 #       include <winsock2.h>
  36 #endif
  37
  38 #include <curl/curl.h>
  39
  40 /* {{{ cruft for thread safe SSL crypto locks */
  41 #if defined(ZTS) && defined(HTTP_HAVE_SSL)
  42 #       ifdef PHP_WIN32
  43 #               define HTTP_NEED_SSL_TSL
  44 #               define HTTP_NEED_OPENSSL_TSL
  45 #               include <openssl/crypto.h>
  46 #       else /* !PHP_WIN32 */
  47 #               if defined(HTTP_HAVE_OPENSSL)
  48 #                       if defined(HAVE_OPENSSL_CRYPTO_H)
  49 #                               define HTTP_NEED_SSL_TSL
  50 #                               define HTTP_NEED_OPENSSL_TSL
  51 #                               include <openssl/crypto.h>
  52 #                       else
  53 #                               warning \
  54                                         "libcurl was compiled with OpenSSL support, but configure could not find " \
  55                                         "openssl/crypto.h; thus no SSL crypto locking callbacks will be set, which may " \
  56                                         "cause random crashes on SSL requests"
  57 #                       endif
  58 #               elif defined(HTTP_HAVE_GNUTLS)
  59 #                       if defined(HAVE_GCRYPT_H)
  60 #                               define HTTP_NEED_SSL_TSL
  61 #                               define HTTP_NEED_GNUTLS_TSL
  62 #                               include <gcrypt.h>
  63 #                       else
  64 #                               warning \
  65                                         "libcurl was compiled with GnuTLS support, but configure could not find " \
  66                                         "gcrypt.h; thus no SSL crypto locking callbacks will be set, which may " \
  67                                         "cause random crashes on SSL requests"
  68 #                       endif
  69 #               else
  70 #                       warning \
  71                                 "libcurl was compiled with SSL support, but configure could not determine which" \
  72                                 "library was used; thus no SSL crypto locking callbacks will be set, which may " \
  73                                 "cause random crashes on SSL requests"
  74 #               endif /* HTTP_HAVE_OPENSSL || HTTP_HAVE_GNUTLS */
  75 #       endif /* PHP_WIN32 */
  76 #endif /* ZTS && HTTP_HAVE_SSL */
  77 /* }}} */
  78
  79 ZEND_EXTERN_MODULE_GLOBALS(http);
  80
  81 #ifdef HTTP_NEED_SSL_TSL
  82 static inline void http_ssl_init(void);
  83 static inline void http_ssl_cleanup(void);
  84 #endif
  85
  86 PHP_MINIT_FUNCTION(http_request)
  87 {
  88 #ifdef HTTP_NEED_SSL_TSL
  89         http_ssl_init();
  90 #endif
  91
  92         if (CURLE_OK != curl_global_init(CURL_GLOBAL_ALL)) {
  93                 return FAILURE;
  94         }
  95
  96 #if LIBCURL_VERSION_NUM >= 0x070a05
  97         HTTP_LONG_CONSTANT("HTTP_AUTH_BASIC", CURLAUTH_BASIC);
  98         HTTP_LONG_CONSTANT("HTTP_AUTH_DIGEST", CURLAUTH_DIGEST);
  99         HTTP_LONG_CONSTANT("HTTP_AUTH_NTLM", CURLAUTH_NTLM);
 100         HTTP_LONG_CONSTANT("HTTP_AUTH_ANY", CURLAUTH_ANY);
 101 #endif /* LIBCURL_VERSION_NUM */
 102
 103         return SUCCESS;
 104 }
 105
 106 PHP_MSHUTDOWN_FUNCTION(http_request)
 107 {
 108         curl_global_cleanup();
 109 #ifdef HTTP_NEED_SSL_TSL
 110         http_ssl_cleanup();
 111 #endif
 112         return SUCCESS;
 113 }
 114
 115 #ifndef HAVE_CURL_EASY_STRERROR
 116 #       define curl_easy_strerror(code) HTTP_G(request).error
 117 #endif
 118
 119 #define HTTP_CURL_INFO(I) HTTP_CURL_INFO_EX(I, I)
 120 #define HTTP_CURL_INFO_EX(I, X) \
 121         switch (CURLINFO_ ##I & ~CURLINFO_MASK) \
 122         { \
 123                 case CURLINFO_STRING: \
 124                 { \
 125                         char *c; \
 126                         if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &c)) { \
 127                                 add_assoc_string(&array, pretty_key(http_request_data_copy(COPY_STRING, #X), sizeof(#X)-1, 0, 0), c ? c : "", 1); \
 128                         } \
 129                 } \
 130                 break; \
 131 \
 132                 case CURLINFO_DOUBLE: \
 133                 { \
 134                         double d; \
 135                         if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &d)) { \
 136                                 add_assoc_double(&array, pretty_key(http_request_data_copy(COPY_STRING, #X), sizeof(#X)-1, 0, 0), d); \
 137                         } \
 138                 } \
 139                 break; \
 140 \
 141                 case CURLINFO_LONG: \
 142                 { \
 143                         long l; \
 144                         if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &l)) { \
 145                                 add_assoc_long(&array, pretty_key(http_request_data_copy(COPY_STRING, #X), sizeof(#X)-1, 0, 0), l); \
 146                         } \
 147                 } \
 148                 break; \
 149         }
 150
 151 #define HTTP_CURL_OPT(OPTION, p) curl_easy_setopt(ch, CURLOPT_##OPTION, (p))
 152 #define HTTP_CURL_OPT_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, keyname)
 153 #define HTTP_CURL_OPT_SSL_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL##keyname)
 154 #define HTTP_CURL_OPT_SSL_STRING_(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL_##keyname)
 155 #define HTTP_CURL_OPT_STRING_EX(keyname, optname) \
 156         if (!strcasecmp(key, #keyname)) { \
 157                 convert_to_string_ex(param); \
 158                 HTTP_CURL_OPT(optname, http_request_data_copy(COPY_STRING, Z_STRVAL_PP(param))); \
 159                 key = NULL; \
 160                 continue; \
 161         }
 162 #define HTTP_CURL_OPT_LONG(keyname) HTTP_OPT_SSL_LONG_EX(keyname, keyname)
 163 #define HTTP_CURL_OPT_SSL_LONG(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL##keyname)
 164 #define HTTP_CURL_OPT_SSL_LONG_(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL_##keyname)
 165 #define HTTP_CURL_OPT_LONG_EX(keyname, optname) \
 166         if (!strcasecmp(key, #keyname)) { \
 167                 convert_to_long_ex(param); \
 168                 HTTP_CURL_OPT(optname, Z_LVAL_PP(param)); \
 169                 key = NULL; \
 170                 continue; \
 171         }
 172
 173 #define http_curl_getopt(o, k, t) _http_curl_getopt_ex((o), (k), sizeof(k), (t) TSRMLS_CC)
 174 #define http_curl_getopt_ex(o, k, l, t) _http_curl_getopt_ex((o), (k), (l), (t) TSRMLS_CC)
 175 static inline zval *_http_curl_getopt_ex(HashTable *options, char *key, size_t keylen, int type TSRMLS_DC);
 176 #define http_curl_defaults(ch) _http_curl_defaults((ch))
 177 static inline void _http_curl_defaults(CURL *ch);
 178 static size_t http_curl_read_callback(void *, size_t, size_t, void *);
 179 static int http_curl_progress_callback(void *, double, double, double, double);
 180 static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *);
 181 static int http_curl_dummy_callback(char *data, size_t n, size_t l, void *s) { return n*l; }
 182
 183 /* {{{ http_request_callback_ctx http_request_callback_data(void *) */
 184 http_request_callback_ctx *_http_request_callback_data_ex(void *data, zend_bool cpy TSRMLS_DC)
 185 {
 186         http_request_callback_ctx *ctx = emalloc(sizeof(http_request_callback_ctx));
 187
 188         TSRMLS_SET_CTX(ctx->tsrm_ctx);
 189         ctx->data = data;
 190
 191         if (cpy) {
 192                 return http_request_data_copy(COPY_CONTEXT, ctx);
 193         } else {
 194                 return ctx;
 195         }
 196 }
 197 /* }}} */
 198
 199 /* {{{ void *http_request_data_copy(int, void *) */
 200 void *_http_request_data_copy(int type, void *data TSRMLS_DC)
 201 {
 202         switch (type)
 203         {
 204                 case COPY_STRING:
 205                 {
 206                         char *new_str = estrdup(data);
 207                         zend_llist_add_element(&HTTP_G(request).copies.strings, &new_str);
 208                         return new_str;
 209                 }
 210
 211                 case COPY_SLIST:
 212                 {
 213                         zend_llist_add_element(&HTTP_G(request).copies.slists, &data);
 214                         return data;
 215                 }
 216
 217                 case COPY_CONTEXT:
 218                 {
 219                         zend_llist_add_element(&HTTP_G(request).copies.contexts, &data);
 220                         return data;
 221                 }
 222
 223                 case COPY_CONV:
 224                 {
 225                         zend_llist_add_element(&HTTP_G(request).copies.convs, &data);
 226                         return data;
 227                 }
 228
 229                 default:
 230                 {
 231                         return data;
 232                 }
 233         }
 234 }
 235 /* }}} */
 236
 237 /* {{{ void http_request_data_free_string(char **) */
 238 void _http_request_data_free_string(void *string)
 239 {
 240         efree(*((char **)string));
 241 }
 242 /* }}} */
 243
 244 /* {{{ void http_request_data_free_slist(struct curl_slist **) */
 245 void _http_request_data_free_slist(void *list)
 246 {
 247         curl_slist_free_all(*((struct curl_slist **) list));
 248 }
 249 /* }}} */
 250
 251 /* {{{ _http_request_data_free_context(http_request_callback_ctx **) */
 252 void _http_request_data_free_context(void *context)
 253 {
 254         efree(*((http_request_callback_ctx **) context));
 255 }
 256 /* }}} */
 257
 258 /* {{{ _http_request_data_free_conv(http_request_conv **) */
 259 void _http_request_data_free_conv(void *conv)
 260 {
 261         efree(*((http_request_conv **) conv));
 262 }
 263 /* }}} */
 264
 265 /* {{{ http_request_body *http_request_body_new() */
 266 PHP_HTTP_API http_request_body *_http_request_body_new(TSRMLS_D)
 267 {
 268         http_request_body *body = ecalloc(1, sizeof(http_request_body));
 269         return body;
 270 }
 271 /* }}} */
 272
 273 /* {{{ STATUS http_request_body_fill(http_request_body *body, HashTable *, HashTable *) */
 274 PHP_HTTP_API STATUS _http_request_body_fill(http_request_body *body, HashTable *fields, HashTable *files TSRMLS_DC)
 275 {
 276         if (files && (zend_hash_num_elements(files) > 0)) {
 277                 char *key = NULL;
 278                 ulong idx;
 279                 zval **data;
 280                 struct curl_httppost *http_post_data[2] = {NULL, NULL};
 281
 282                 /* normal data */
 283                 FOREACH_HASH_KEYVAL(fields, key, idx, data) {
 284                         CURLcode err;
 285                         if (key) {
 286                                 convert_to_string_ex(data);
 287                                 err = curl_formadd(&http_post_data[0], &http_post_data[1],
 288                                         CURLFORM_COPYNAME,                      key,
 289                                         CURLFORM_COPYCONTENTS,          Z_STRVAL_PP(data),
 290                                         CURLFORM_CONTENTSLENGTH,        (long) Z_STRLEN_PP(data),
 291                                         CURLFORM_END
 292                                 );
 293                                 if (CURLE_OK != err) {
 294                                         http_error_ex(HE_WARNING, HTTP_E_ENCODING, "Could not encode post fields: %s", curl_easy_strerror(err));
 295                                         curl_formfree(http_post_data[0]);
 296                                         return FAILURE;
 297                                 }
 298
 299                                 /* reset */
 300                                 key = NULL;
 301                         }
 302                 }
 303
 304                 /* file data */
 305                 FOREACH_HASH_VAL(files, data) {
 306                         zval **file, **type, **name;
 307
 308                         if (    SUCCESS != zend_hash_find(Z_ARRVAL_PP(data), "name", sizeof("name"), (void **) &name) ||
 309                                         SUCCESS != zend_hash_find(Z_ARRVAL_PP(data), "type", sizeof("type"), (void **) &type) ||
 310                                         SUCCESS != zend_hash_find(Z_ARRVAL_PP(data), "file", sizeof("file"), (void **) &file)) {
 311                                 http_error(HE_NOTICE, HTTP_E_INVALID_PARAM, "Post file array entry misses either 'name', 'type' or 'file' entry");
 312                         } else {
 313                                 CURLcode err = curl_formadd(&http_post_data[0], &http_post_data[1],
 314                                         CURLFORM_COPYNAME,              Z_STRVAL_PP(name),
 315                                         CURLFORM_FILE,                  Z_STRVAL_PP(file),
 316                                         CURLFORM_CONTENTTYPE,   Z_STRVAL_PP(type),
 317                                         CURLFORM_END
 318                                 );
 319                                 if (CURLE_OK != err) {
 320                                         http_error_ex(HE_WARNING, HTTP_E_ENCODING, "Could not encode post files: %s", curl_easy_strerror(err));
 321                                         curl_formfree(http_post_data[0]);
 322                                         return FAILURE;
 323                                 }
 324                         }
 325                 }
 326
 327                 body->type = HTTP_REQUEST_BODY_CURLPOST;
 328                 body->data = http_post_data[0];
 329                 body->size = 0;
 330
 331         } else {
 332                 char *encoded;
 333                 size_t encoded_len;
 334
 335                 if (SUCCESS != http_urlencode_hash_ex(fields, 1, NULL, 0, &encoded, &encoded_len)) {
 336                         http_error(HE_WARNING, HTTP_E_ENCODING, "Could not encode post data");
 337                         return FAILURE;
 338                 }
 339
 340                 body->type = HTTP_REQUEST_BODY_CSTRING;
 341                 body->data = encoded;
 342                 body->size = encoded_len;
 343         }
 344
 345         return SUCCESS;
 346 }
 347 /* }}} */
 348
 349 /* {{{ void http_request_body_dtor(http_request_body *) */
 350 PHP_HTTP_API void _http_request_body_dtor(http_request_body *body TSRMLS_DC)
 351 {
 352         if (body) {
 353                 switch (body->type)
 354                 {
 355                         case HTTP_REQUEST_BODY_CSTRING:
 356                                 if (body->data) {
 357                                         efree(body->data);
 358                                 }
 359                         break;
 360
 361                         case HTTP_REQUEST_BODY_CURLPOST:
 362                                 curl_formfree(body->data);
 363                         break;
 364
 365                         case HTTP_REQUEST_BODY_UPLOADFILE:
 366                                 php_stream_close(body->data);
 367                         break;
 368                 }
 369         }
 370 }
 371 /* }}} */
 372
 373 /* {{{ void http_request_body_free(http_request_body *) */
 374 PHP_HTTP_API void _http_request_body_free(http_request_body *body TSRMLS_DC)
 375 {
 376         if (body) {
 377                 http_request_body_dtor(body);
 378                 efree(body);
 379         }
 380 }
 381 /* }}} */
 382
 383 /* {{{ STATUS http_request_init(CURL *, http_request_method, char *, http_request_body *, HashTable *) */
 384 PHP_HTTP_API STATUS _http_request_init(CURL *ch, http_request_method meth, char *url, http_request_body *body, HashTable *options TSRMLS_DC)
 385 {
 386         zval *zoption;
 387         zend_bool range_req = 0;
 388
 389         /* reset CURL handle */
 390 #ifdef HAVE_CURL_EASY_RESET
 391         curl_easy_reset(ch);
 392 #endif
 393         http_curl_defaults(ch);
 394
 395         /* set options */
 396         if (url) {
 397                 HTTP_CURL_OPT(URL, http_request_data_copy(COPY_STRING, url));
 398         }
 399
 400         HTTP_CURL_OPT(HEADER, 0);
 401         HTTP_CURL_OPT(FILETIME, 1);
 402         HTTP_CURL_OPT(AUTOREFERER, 1);
 403         HTTP_CURL_OPT(READFUNCTION, http_curl_read_callback);
 404         /* we'll get all data through the debug function */
 405         HTTP_CURL_OPT(WRITEFUNCTION, http_curl_dummy_callback);
 406         HTTP_CURL_OPT(HEADERFUNCTION, NULL);
 407
 408         HTTP_CURL_OPT(VERBOSE, 1);
 409         HTTP_CURL_OPT(DEBUGFUNCTION, http_curl_raw_callback);
 410
 411 #if defined(ZTS) && (LIBCURL_VERSION_NUM >= 0x070a00)
 412         HTTP_CURL_OPT(NOSIGNAL, 1);
 413 #endif
 414 #if LIBCURL_VERSION_NUM < 0x070c00
 415         HTTP_CURL_OPT(ERRORBUFFER, HTTP_G(request).error);
 416 #endif
 417
 418         /* progress callback */
 419         if (zoption = http_curl_getopt(options, "onprogress", 0)) {
 420                 HTTP_CURL_OPT(NOPROGRESS, 0);
 421                 HTTP_CURL_OPT(PROGRESSFUNCTION, http_curl_progress_callback);
 422                 HTTP_CURL_OPT(PROGRESSDATA,  http_request_callback_data(zoption));
 423         }
 424
 425         /* proxy */
 426         if (zoption = http_curl_getopt(options, "proxyhost", IS_STRING)) {
 427                 HTTP_CURL_OPT(PROXY, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 428                 /* port */
 429                 if (zoption = http_curl_getopt(options, "proxyport", IS_LONG)) {
 430                         HTTP_CURL_OPT(PROXYPORT, Z_LVAL_P(zoption));
 431                 }
 432                 /* user:pass */
 433                 if (zoption = http_curl_getopt(options, "proxyauth", IS_STRING)) {
 434                         HTTP_CURL_OPT(PROXYUSERPWD, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 435                 }
 436 #if LIBCURL_VERSION_NUM >= 0x070a07
 437                 /* auth method */
 438                 if (zoption = http_curl_getopt(options, "proxyauthtype", IS_LONG)) {
 439                         HTTP_CURL_OPT(PROXYAUTH, Z_LVAL_P(zoption));
 440                 }
 441 #endif
 442         }
 443
 444         /* outgoing interface */
 445         if (zoption = http_curl_getopt(options, "interface", IS_STRING)) {
 446                 HTTP_CURL_OPT(INTERFACE, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 447         }
 448
 449         /* another port */
 450         if (zoption = http_curl_getopt(options, "port", IS_LONG)) {
 451                 HTTP_CURL_OPT(PORT, Z_LVAL_P(zoption));
 452         }
 453
 454         /* auth */
 455         if (zoption = http_curl_getopt(options, "httpauth", IS_STRING)) {
 456                 HTTP_CURL_OPT(USERPWD, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 457         }
 458 #if LIBCURL_VERSION_NUM >= 0x070a06
 459         if (zoption = http_curl_getopt(options, "httpauthtype", IS_LONG)) {
 460                 HTTP_CURL_OPT(HTTPAUTH, Z_LVAL_P(zoption));
 461         }
 462 #endif
 463
 464         /* compress, empty string enables all supported if libcurl was build with zlib support */
 465         if ((zoption = http_curl_getopt(options, "compress", IS_BOOL)) && Z_LVAL_P(zoption)) {
 466 #if defined(HTTP_HAVE_ZLIB) || defined(HAVE_ZLIB)
 467                 HTTP_CURL_OPT(ENCODING, "gzip;q=1.0, deflate;q=0.5, *;q=0");
 468 #else
 469                 HTTP_CURL_OPT(ENCODING, "");
 470 #endif
 471         }
 472
 473         /* redirects, defaults to 0 */
 474         if (zoption = http_curl_getopt(options, "redirect", IS_LONG)) {
 475                 HTTP_CURL_OPT(FOLLOWLOCATION, Z_LVAL_P(zoption) ? 1 : 0);
 476                 HTTP_CURL_OPT(MAXREDIRS, Z_LVAL_P(zoption));
 477                 if (zoption = http_curl_getopt(options, "unrestrictedauth", IS_BOOL)) {
 478                         HTTP_CURL_OPT(UNRESTRICTED_AUTH, Z_LVAL_P(zoption));
 479                 }
 480         }
 481
 482         /* referer */
 483         if (zoption = http_curl_getopt(options, "referer", IS_STRING)) {
 484                 HTTP_CURL_OPT(REFERER, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 485         }
 486
 487         /* useragent, default "PECL::HTTP/version (PHP/version)" */
 488         if (zoption = http_curl_getopt(options, "useragent", IS_STRING)) {
 489                 HTTP_CURL_OPT(USERAGENT, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 490         }
 491
 492         /* additional headers, array('name' => 'value') */
 493         if (zoption = http_curl_getopt(options, "headers", IS_ARRAY)) {
 494                 char *header_key;
 495                 ulong header_idx;
 496                 struct curl_slist *headers = NULL;
 497
 498                 FOREACH_KEY(zoption, header_key, header_idx) {
 499                         if (header_key) {
 500                                 zval **header_val;
 501                                 if (SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zoption), (void **) &header_val)) {
 502                                         char header[1024] = {0};
 503                                         snprintf(header, 1023, "%s: %s", header_key, Z_STRVAL_PP(header_val));
 504                                         headers = curl_slist_append(headers, http_request_data_copy(COPY_STRING, header));
 505                                 }
 506
 507                                 /* reset */
 508                                 header_key = NULL;
 509                         }
 510                 }
 511
 512                 if (headers) {
 513                         HTTP_CURL_OPT(HTTPHEADER, http_request_data_copy(COPY_SLIST, headers));
 514                 }
 515         }
 516
 517         /* cookies, array('name' => 'value') */
 518         if (zoption = http_curl_getopt(options, "cookies", IS_ARRAY)) {
 519                 char *cookie_key = NULL;
 520                 ulong cookie_idx = 0;
 521                 phpstr *qstr = phpstr_new();
 522
 523                 FOREACH_KEY(zoption, cookie_key, cookie_idx) {
 524                         if (cookie_key) {
 525                                 zval **cookie_val;
 526                                 if (SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zoption), (void **) &cookie_val)) {
 527                                         phpstr_appendf(qstr, "%s=%s; ", cookie_key, Z_STRVAL_PP(cookie_val));
 528                                 }
 529
 530                                 /* reset */
 531                                 cookie_key = NULL;
 532                         }
 533                 }
 534
 535                 if (qstr->used) {
 536                         phpstr_fix(qstr);
 537                         HTTP_CURL_OPT(COOKIE, http_request_data_copy(COPY_STRING, qstr->data));
 538                 }
 539                 phpstr_free(&qstr);
 540         }
 541
 542         /* session cookies */
 543         if (zoption = http_curl_getopt(options, "cookiesession", IS_BOOL)) {
 544                 if (Z_LVAL_P(zoption)) {
 545                         /* accept cookies for this session */
 546                         HTTP_CURL_OPT(COOKIEFILE, "");
 547                 } else {
 548                         /* reset session cookies */
 549                         HTTP_CURL_OPT(COOKIESESSION, 1);
 550                 }
 551         }
 552
 553         /* cookiestore, read initial cookies from that file and store cookies back into that file */
 554         if ((zoption = http_curl_getopt(options, "cookiestore", IS_STRING)) && Z_STRLEN_P(zoption)) {
 555                 HTTP_CURL_OPT(COOKIEFILE, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 556                 HTTP_CURL_OPT(COOKIEJAR, http_request_data_copy(COPY_STRING, Z_STRVAL_P(zoption)));
 557         }
 558
 559         /* resume */
 560         if ((zoption = http_curl_getopt(options, "resume", IS_LONG)) && (Z_LVAL_P(zoption) != 0)) {
 561                 range_req = 1;
 562                 HTTP_CURL_OPT(RESUME_FROM, Z_LVAL_P(zoption));
 563         }
 564
 565         /* maxfilesize */
 566         if (zoption = http_curl_getopt(options, "maxfilesize", IS_LONG)) {
 567                 HTTP_CURL_OPT(MAXFILESIZE, Z_LVAL_P(zoption));
 568         }
 569
 570         /* lastmodified */
 571         if (zoption = http_curl_getopt(options, "lastmodified", IS_LONG)) {
 572                 if (Z_LVAL_P(zoption)) {
 573                         if (Z_LVAL_P(zoption) > 0) {
 574                                 HTTP_CURL_OPT(TIMEVALUE, Z_LVAL_P(zoption));
 575                         } else {
 576                                 HTTP_CURL_OPT(TIMEVALUE, time(NULL) + Z_LVAL_P(zoption));
 577                         }
 578                         HTTP_CURL_OPT(TIMECONDITION, range_req ? CURL_TIMECOND_IFUNMODSINCE : CURL_TIMECOND_IFMODSINCE);
 579                 } else {
 580                         HTTP_CURL_OPT(TIMECONDITION, CURL_TIMECOND_NONE);
 581                 }
 582         }
 583
 584         /* timeout, defaults to 0 */
 585         if (zoption = http_curl_getopt(options, "timeout", IS_LONG)) {
 586                 HTTP_CURL_OPT(TIMEOUT, Z_LVAL_P(zoption));
 587         }
 588
 589         /* connecttimeout, defaults to 3 */
 590         if (zoption = http_curl_getopt(options, "connecttimeout", IS_LONG)) {
 591                 HTTP_CURL_OPT(CONNECTTIMEOUT, Z_LVAL_P(zoption));
 592         }
 593
 594         /* ssl */
 595         if (zoption = http_curl_getopt(options, "ssl", IS_ARRAY)) {
 596                 ulong idx;
 597                 char *key = NULL;
 598                 zval **param;
 599
 600                 FOREACH_KEYVAL(zoption, key, idx, param) {
 601                         if (key) {
 602                                 HTTP_CURL_OPT_SSL_STRING(CERT);
 603 #if LIBCURL_VERSION_NUM >= 0x070903
 604                                 HTTP_CURL_OPT_SSL_STRING(CERTTYPE);
 605 #endif
 606                                 HTTP_CURL_OPT_SSL_STRING(CERTPASSWD);
 607
 608                                 HTTP_CURL_OPT_SSL_STRING(KEY);
 609                                 HTTP_CURL_OPT_SSL_STRING(KEYTYPE);
 610                                 HTTP_CURL_OPT_SSL_STRING(KEYPASSWD);
 611
 612                                 HTTP_CURL_OPT_SSL_STRING(ENGINE);
 613                                 HTTP_CURL_OPT_SSL_LONG(VERSION);
 614
 615                                 HTTP_CURL_OPT_SSL_LONG_(VERIFYPEER);
 616                                 HTTP_CURL_OPT_SSL_LONG_(VERIFYHOST);
 617                                 HTTP_CURL_OPT_SSL_STRING_(CIPHER_LIST);
 618
 619
 620                                 HTTP_CURL_OPT_STRING(CAINFO);
 621 #if LIBCURL_VERSION_NUM >= 0x070908
 622                                 HTTP_CURL_OPT_STRING(CAPATH);
 623 #endif
 624                                 HTTP_CURL_OPT_STRING(RANDOM_FILE);
 625                                 HTTP_CURL_OPT_STRING(EGDSOCKET);
 626
 627                                 /* reset key */
 628                                 key = NULL;
 629                         }
 630                 }
 631         }
 632
 633         /* request method */
 634         switch (meth)
 635         {
 636                 case HTTP_GET:
 637                         curl_easy_setopt(ch, CURLOPT_HTTPGET, 1);
 638                 break;
 639
 640                 case HTTP_HEAD:
 641                         curl_easy_setopt(ch, CURLOPT_NOBODY, 1);
 642                 break;
 643
 644                 case HTTP_POST:
 645                         curl_easy_setopt(ch, CURLOPT_POST, 1);
 646                 break;
 647
 648                 case HTTP_PUT:
 649                         curl_easy_setopt(ch, CURLOPT_UPLOAD, 1);
 650                 break;
 651
 652                 default:
 653                         if (http_request_method_exists(0, meth, NULL)) {
 654                                 curl_easy_setopt(ch, CURLOPT_CUSTOMREQUEST, http_request_method_name(meth));
 655                         } else {
 656                                 http_error_ex(HE_WARNING, HTTP_E_REQUEST_METHOD, "Unsupported request method: %d", meth);
 657                                 return FAILURE;
 658                         }
 659                 break;
 660         }
 661
 662         /* attach request body */
 663         if (body && (meth != HTTP_GET) && (meth != HTTP_HEAD)) {
 664                 switch (body->type)
 665                 {
 666                         case HTTP_REQUEST_BODY_CSTRING:
 667                                 curl_easy_setopt(ch, CURLOPT_POSTFIELDS, body->data);
 668                                 curl_easy_setopt(ch, CURLOPT_POSTFIELDSIZE, body->size);
 669                         break;
 670
 671                         case HTTP_REQUEST_BODY_CURLPOST:
 672                                 curl_easy_setopt(ch, CURLOPT_HTTPPOST, (struct curl_httppost *) body->data);
 673                         break;
 674
 675                         case HTTP_REQUEST_BODY_UPLOADFILE:
 676                                 curl_easy_setopt(ch, CURLOPT_READDATA, http_request_callback_data(body));
 677                                 curl_easy_setopt(ch, CURLOPT_INFILESIZE, body->size);
 678                         break;
 679
 680                         default:
 681                                 /* shouldn't ever happen */
 682                                 http_error_ex(HE_ERROR, 0, "Unknown request body type: %d", body->type);
 683                                 return FAILURE;
 684                         break;
 685                 }
 686         }
 687
 688         return SUCCESS;
 689 }
 690 /* }}} */
 691
 692 /* {{{ void http_request_conv(CURL *, phpstr *, phpstr *) */
 693 void _http_request_conv(CURL *ch, phpstr* response, phpstr *request TSRMLS_DC)
 694 {
 695         http_request_conv *conv = emalloc(sizeof(http_request_conv));
 696         conv->response = response;
 697         conv->request = request;
 698         conv->last_info = -1;
 699         HTTP_CURL_OPT(DEBUGDATA, http_request_callback_data(http_request_data_copy(COPY_CONV, conv)));
 700 }
 701 /* }}} */
 702
 703 /* {{{ STATUS http_request_exec(CURL *, HashTable *) */
 704 PHP_HTTP_API STATUS _http_request_exec(CURL *ch, HashTable *info, phpstr *response, phpstr *request TSRMLS_DC)
 705 {
 706         CURLcode result;
 707
 708         http_request_conv(ch, response, request);
 709
 710         /* perform request */
 711         if (CURLE_OK != (result = curl_easy_perform(ch))) {
 712                 http_error_ex(HE_WARNING, HTTP_E_REQUEST, "Could not perform request: %s", curl_easy_strerror(result));
 713                 return FAILURE;
 714         } else {
 715                 /* get curl info */
 716                 if (info) {
 717                         http_request_info(ch, info);
 718                 }
 719                 return SUCCESS;
 720         }
 721 }
 722 /* }}} */
 723
 724 /* {{{ void http_request_info(CURL *, HashTable *) */
 725 PHP_HTTP_API void _http_request_info(CURL *ch, HashTable *info TSRMLS_DC)
 726 {
 727         zval array;
 728         INIT_ZARR(array, info);
 729
 730         HTTP_CURL_INFO(EFFECTIVE_URL);
 731 #if LIBCURL_VERSION_NUM >= 0x070a07
 732         HTTP_CURL_INFO(RESPONSE_CODE);
 733 #else
 734         HTTP_CURL_INFO_EX(HTTP_CODE, RESPONSE_CODE);
 735 #endif
 736         HTTP_CURL_INFO(HTTP_CONNECTCODE);
 737 #if LIBCURL_VERSION_NUM >= 0x070500
 738         HTTP_CURL_INFO(FILETIME);
 739 #endif
 740         HTTP_CURL_INFO(TOTAL_TIME);
 741         HTTP_CURL_INFO(NAMELOOKUP_TIME);
 742         HTTP_CURL_INFO(CONNECT_TIME);
 743         HTTP_CURL_INFO(PRETRANSFER_TIME);
 744         HTTP_CURL_INFO(STARTTRANSFER_TIME);
 745 #if LIBCURL_VERSION_NUM >= 0x070907
 746         HTTP_CURL_INFO(REDIRECT_TIME);
 747         HTTP_CURL_INFO(REDIRECT_COUNT);
 748 #endif
 749         HTTP_CURL_INFO(SIZE_UPLOAD);
 750         HTTP_CURL_INFO(SIZE_DOWNLOAD);
 751         HTTP_CURL_INFO(SPEED_DOWNLOAD);
 752         HTTP_CURL_INFO(SPEED_UPLOAD);
 753         HTTP_CURL_INFO(HEADER_SIZE);
 754         HTTP_CURL_INFO(REQUEST_SIZE);
 755         HTTP_CURL_INFO(SSL_VERIFYRESULT);
 756 #if LIBCURL_VERSION_NUM >= 0x070c03
 757         /*HTTP_CURL_INFO(SSL_ENGINES); todo: CURLINFO_SLIST */
 758 #endif
 759         HTTP_CURL_INFO(CONTENT_LENGTH_DOWNLOAD);
 760         HTTP_CURL_INFO(CONTENT_LENGTH_UPLOAD);
 761         HTTP_CURL_INFO(CONTENT_TYPE);
 762 #if LIBCURL_VERSION_NUM >= 0x070a03
 763         /*HTTP_CURL_INFO(PRIVATE);*/
 764 #endif
 765 #if LIBCURL_VERSION_NUM >= 0x070a08
 766         HTTP_CURL_INFO(HTTPAUTH_AVAIL);
 767         HTTP_CURL_INFO(PROXYAUTH_AVAIL);
 768 #endif
 769 #if LIBCURL_VERSION_NUM >= 0x070c02
 770         /*HTTP_CURL_INFO(OS_ERRNO);*/
 771 #endif
 772 #if LIBCURL_VERSION_NUM >= 0x070c03
 773         HTTP_CURL_INFO(NUM_CONNECTS);
 774 #endif
 775 }
 776 /* }}} */
 777
 778 /* {{{ STATUS http_request_ex(CURL *, http_request_method, char *, http_request_body, HashTable, HashTable, phpstr *) */
 779 PHP_HTTP_API STATUS _http_request_ex(CURL *ch, http_request_method meth, char *url, http_request_body *body, HashTable *options, HashTable *info, phpstr *response TSRMLS_DC)
 780 {
 781         STATUS status;
 782         zend_bool clean_curl = !ch;
 783
 784         HTTP_CHECK_CURL_INIT(ch, curl_easy_init(), return FAILURE);
 785
 786         status =        ((SUCCESS == http_request_init(ch, meth, url, body, options)) &&
 787                                 (SUCCESS == http_request_exec(ch, info, response, NULL))) ? SUCCESS : FAILURE;
 788
 789         if (clean_curl) {
 790                 curl_easy_cleanup(ch);
 791         }
 792         return status;
 793 }
 794 /* }}} */
 795
 796 /* {{{ static size_t http_curl_read_callback(void *, size_t, size_t, void *) */
 797 static size_t http_curl_read_callback(void *data, size_t len, size_t n, void *s)
 798 {
 799         HTTP_REQUEST_CALLBACK_DATA(s, http_request_body *, body);
 800
 801         if (body->type != HTTP_REQUEST_BODY_UPLOADFILE) {
 802                 return 0;
 803         }
 804         return php_stream_read((php_stream *) body->data, data, len * n);
 805 }
 806 /* }}} */
 807
 808 /* {{{ static int http_curl_progress_callback(void *, double, double, double, double) */
 809 static int http_curl_progress_callback(void *data, double dltotal, double dlnow, double ultotal, double ulnow)
 810 {
 811         zval *params_pass[4], params_local[4], retval;
 812         HTTP_REQUEST_CALLBACK_DATA(data, zval *, func);
 813
 814         params_pass[0] = &params_local[0];
 815         params_pass[1] = &params_local[1];
 816         params_pass[2] = &params_local[2];
 817         params_pass[3] = &params_local[3];
 818
 819         INIT_PZVAL(params_pass[0]);
 820         INIT_PZVAL(params_pass[1]);
 821         INIT_PZVAL(params_pass[2]);
 822         INIT_PZVAL(params_pass[3]);
 823         ZVAL_DOUBLE(params_pass[0], dltotal);
 824         ZVAL_DOUBLE(params_pass[1], dlnow);
 825         ZVAL_DOUBLE(params_pass[2], ultotal);
 826         ZVAL_DOUBLE(params_pass[3], ulnow);
 827
 828         return call_user_function(EG(function_table), NULL, func, &retval, 4, params_pass TSRMLS_CC);
 829 }
 830 /* }}} */
 831
 832 /* {{{ static int http_curl_raw_callback(CURL *, curl_infotype, char *, size_t, void *) */
 833 static int http_curl_raw_callback(CURL *ch, curl_infotype type, char *data, size_t length, void *ctx)
 834 {
 835         HTTP_REQUEST_CALLBACK_DATA(ctx, http_request_conv *, conv);
 836
 837         switch (type)
 838         {
 839                 case CURLINFO_DATA_IN:
 840                         if (conv->response && conv->last_info == CURLINFO_HEADER_IN) {
 841                                 phpstr_appends(conv->response, HTTP_CRLF);
 842                         }
 843                 case CURLINFO_HEADER_IN:
 844                         if (conv->response) {
 845                                 phpstr_append(conv->response, data, length);
 846                         }
 847                 break;
 848                 case CURLINFO_DATA_OUT:
 849                         if (conv->request && conv->last_info == CURLINFO_HEADER_OUT) {
 850                                 phpstr_appends(conv->request, HTTP_CRLF);
 851                         }
 852                 case CURLINFO_HEADER_OUT:
 853                         if (conv->request) {
 854                                 phpstr_append(conv->request, data, length);
 855                         }
 856                 break;
 857 #if 0
 858                 default:
 859                         fprintf(stderr, "## ", type);
 860                         if (!type) {
 861                                 fprintf(stderr, "%s", data);
 862                         } else {
 863                                 ulong i;
 864                                 for (i = 1; i <= length; ++i) {
 865                                         fprintf(stderr, "%02X ", data[i-1] & 0xFF);
 866                                         if (!(i % 20)) {
 867                                                 fprintf(stderr, "\n## ");
 868                                         }
 869                                 }
 870                                 fprintf(stderr, "\n");
 871                         }
 872                         if (data[length-1] != 0xa) {
 873                                 fprintf(stderr, "\n");
 874                         }
 875                 break;
 876 #endif
 877         }
 878
 879         if (type) {
 880                 conv->last_info = type;
 881         }
 882         return 0;
 883 }
 884 /* }}} */
 885
 886 /* {{{ static inline zval *http_curl_getopt(HashTable *, char *, size_t, int) */
 887 static inline zval *_http_curl_getopt_ex(HashTable *options, char *key, size_t keylen, int type TSRMLS_DC)
 888 {
 889         zval **zoption;
 890
 891         if (!options || (SUCCESS != zend_hash_find(options, key, keylen, (void **) &zoption))) {
 892                 return NULL;
 893         }
 894
 895         if (Z_TYPE_PP(zoption) != type) {
 896                 switch (type)
 897                 {
 898                         case IS_BOOL:   convert_to_boolean_ex(zoption); break;
 899                         case IS_LONG:   convert_to_long_ex(zoption);    break;
 900                         case IS_DOUBLE: convert_to_double_ex(zoption);  break;
 901                         case IS_STRING: convert_to_string_ex(zoption);  break;
 902                         case IS_ARRAY:  convert_to_array_ex(zoption);   break;
 903                         case IS_OBJECT: convert_to_object_ex(zoption);  break;
 904                         default:
 905                         break;
 906                 }
 907         }
 908
 909         return *zoption;
 910 }
 911 /* }}} */
 912
 913 #ifdef HTTP_NEED_OPENSSL_TSL
 914 /* {{{ */
 915 static MUTEX_T *http_openssl_tsl = NULL;
 916
 917 static void http_ssl_lock(int mode, int n, const char * file, int line)
 918 {
 919         if (mode & CRYPTO_LOCK) {
 920                 tsrm_mutex_lock(http_openssl_tsl[n]);
 921         } else {
 922                 tsrm_mutex_unlock(http_openssl_tsl[n]);
 923         }
 924 }
 925
 926 static ulong http_ssl_id(void)
 927 {
 928         return (ulong) tsrm_thread_id();
 929 }
 930
 931 static inline void http_ssl_init(void)
 932 {
 933         int i, c = CRYPTO_num_locks();
 934
 935         http_openssl_tsl = malloc(c * sizeof(MUTEX_T));
 936
 937         for (i = 0; i < c; ++i) {
 938                 http_openssl_tsl[i] = tsrm_mutex_alloc();
 939         }
 940
 941         CRYPTO_set_id_callback(http_ssl_id);
 942         CRYPTO_set_locking_callback(http_ssl_lock);
 943 }
 944
 945 static inline void http_ssl_cleanup(void)
 946 {
 947         if (http_openssl_tsl) {
 948                 int i, c = CRYPTO_num_locks();
 949
 950                 CRYPTO_set_id_callback(NULL);
 951                 CRYPTO_set_locking_callback(NULL);
 952
 953                 for (i = 0; i < c; ++i) {
 954                         tsrm_mutex_free(http_openssl_tsl[i]);
 955                 }
 956
 957                 free(http_openssl_tsl);
 958                 http_openssl_tsl = NULL;
 959         }
 960 }
 961 #endif /* HTTP_NEED_OPENSSL_TSL */
 962 /* }}} */
 963
 964 #ifdef HTTP_NEED_GNUTLS_TSL
 965 /* {{{ */
 966 static int http_ssl_mutex_create(void **m)
 967 {
 968         if (*((MUTEX_T *) m) = tsrm_mutex_alloc()) {
 969                 return SUCCESS;
 970         } else {
 971                 return FAILURE;
 972         }
 973 }
 974
 975 static int http_ssl_mutex_destroy(void **m)
 976 {
 977         tsrm_mutex_free(*((MUTEX_T *) m));
 978         return SUCCESS;
 979 }
 980
 981 static int http_ssl_mutex_lock(void **m)
 982 {
 983         return tsrm_mutex_lock(*((MUTEX_T *) m));
 984 }
 985
 986 static int http_ssl_mutex_unlock(void **m)
 987 {
 988         return tsrm_mutex_unlock(*((MUTEX_T *) m));
 989 }
 990
 991 static struct gcry_thread_cbs http_gnutls_tsl = {
 992         GCRY_THREAD_OPTIONS_USER,
 993         NULL,
 994         http_ssl_mutex_create,
 995         http_ssl_mutex_destroy,
 996         http_ssl_mutex_lock,
 997         http_ssl_mutex_unlock
 998 };
 999
1000 static inline void http_ssl_init(void)
1001 {
1002         gcry_control(GCRYCTL_SET_THREAD_CBS, &http_gnutls_tsl);
1003 }
1004
1005 static inline void http_ssl_cleanup(void)
1006 {
1007         return;
1008 }
1009 #endif /* HTTP_NEED_GNUTLS_TSL */
1010 /* }}} */
1011
1012 /* {{{ http_curl_defaults(CURL *) */
1013 static inline void _http_curl_defaults(CURL *ch)
1014 {
1015         HTTP_CURL_OPT(URL, NULL);
1016         HTTP_CURL_OPT(NOPROGRESS, 1);
1017         HTTP_CURL_OPT(PROXY, NULL);
1018         HTTP_CURL_OPT(PROXYPORT, 0);
1019         HTTP_CURL_OPT(PROXYUSERPWD, NULL);
1020 #if LIBCURL_VERSION_NUM >= 0x070a07
1021         HTTP_CURL_OPT(PROXYAUTH, 0);
1022 #endif
1023         HTTP_CURL_OPT(INTERFACE, NULL);
1024         HTTP_CURL_OPT(PORT, 0);
1025         HTTP_CURL_OPT(USERPWD, NULL);
1026 #if LIBCURL_VERSION_NUM >= 0x070a06
1027         HTTP_CURL_OPT(HTTPAUTH, 0);
1028 #endif
1029         HTTP_CURL_OPT(ENCODING, 0);
1030         HTTP_CURL_OPT(FOLLOWLOCATION, 0);
1031         HTTP_CURL_OPT(UNRESTRICTED_AUTH, 0);
1032         HTTP_CURL_OPT(REFERER, NULL);
1033         HTTP_CURL_OPT(USERAGENT, "PECL::HTTP/" HTTP_PEXT_VERSION " (PHP/" PHP_VERSION ")");
1034         HTTP_CURL_OPT(HTTPHEADER, NULL);
1035         HTTP_CURL_OPT(COOKIE, NULL);
1036         HTTP_CURL_OPT(COOKIEFILE, NULL);
1037         HTTP_CURL_OPT(COOKIEJAR, NULL);
1038         HTTP_CURL_OPT(RESUME_FROM, 0);
1039         HTTP_CURL_OPT(MAXFILESIZE, 0);
1040         HTTP_CURL_OPT(TIMECONDITION, 0);
1041         HTTP_CURL_OPT(TIMEVALUE, 0);
1042         HTTP_CURL_OPT(TIMEOUT, 0);
1043         HTTP_CURL_OPT(CONNECTTIMEOUT, 3);
1044         HTTP_CURL_OPT(SSLCERT, NULL);
1045 #if LIBCURL_VERSION_NUM >= 0x070903
1046         HTTP_CURL_OPT(SSLCERTTYPE, NULL);
1047 #endif
1048         HTTP_CURL_OPT(SSLCERTPASSWD, NULL);
1049         HTTP_CURL_OPT(SSLKEY, NULL);
1050         HTTP_CURL_OPT(SSLKEYTYPE, NULL);
1051         HTTP_CURL_OPT(SSLKEYPASSWD, NULL);
1052         HTTP_CURL_OPT(SSLENGINE, NULL);
1053         HTTP_CURL_OPT(SSLVERSION, 0);
1054         HTTP_CURL_OPT(SSL_VERIFYPEER, 0);
1055         HTTP_CURL_OPT(SSL_VERIFYHOST, 0);
1056         HTTP_CURL_OPT(SSL_CIPHER_LIST, NULL);
1057         HTTP_CURL_OPT(CAINFO, NULL);
1058 #if LIBCURL_VERSION_NUM >= 0x070908
1059         HTTP_CURL_OPT(CAPATH, NULL);
1060 #endif
1061         HTTP_CURL_OPT(RANDOM_FILE, NULL);
1062         HTTP_CURL_OPT(EGDSOCKET, NULL);
1063         HTTP_CURL_OPT(POSTFIELDS, NULL);
1064         HTTP_CURL_OPT(POSTFIELDSIZE, 0);
1065         HTTP_CURL_OPT(HTTPPOST, NULL);
1066         HTTP_CURL_OPT(READDATA, NULL);
1067         HTTP_CURL_OPT(INFILESIZE, 0);
1068 }
1069 /* }}} */
1070
1071 #endif /* HTTP_HAVE_CURL */
1072
1073 /*
1074  * Local variables:
1075  * tab-width: 4
1076  * c-basic-offset: 4
1077  * End:
1078  * vim600: noet sw=4 ts=4 fdm=marker
1079  * vim<600: noet sw=4 ts=4
1080  */
1081