root/ext/curl/interface.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. php_curl_ssl_lock
  2. php_curl_ssl_id
  3. php_curl_ssl_mutex_create
  4. php_curl_ssl_mutex_destroy
  5. php_curl_ssl_mutex_lock
  6. php_curl_ssl_mutex_unlock
  7. ZEND_GET_MODULE
  8. PHP_MINIT_FUNCTION
  9. PHP_MSHUTDOWN_FUNCTION
  10. curl_write
  11. curl_read
  12. curl_write_header
  13. curl_debug
  14. curl_passwd
  15. curl_free_string
  16. curl_free_post
  17. curl_free_slist
  18. PHP_FUNCTION
  19. alloc_curl_handle
  20. PHP_FUNCTION
  21. PHP_FUNCTION
  22. _php_curl_setopt
  23. PHP_FUNCTION
  24. PHP_FUNCTION
  25. _php_curl_cleanup_handle
  26. PHP_FUNCTION
  27. PHP_FUNCTION
  28. PHP_FUNCTION
  29. PHP_FUNCTION
  30. PHP_FUNCTION
  31. _php_curl_close

/*
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2008 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Author: Sterling Hughes <sterling@php.net>                           |
   +----------------------------------------------------------------------+
*/

/* $Id: interface.c,v 1.62.2.14.2.34 2008/01/06 17:12:29 iliaa Exp $ */

#define ZEND_INCLUDE_FULL_WINDOWS_HEADERS

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "php.h"

#if HAVE_CURL

#include <stdio.h>
#include <string.h>

#ifdef PHP_WIN32
#include <winsock2.h>
#include <sys/types.h>
#endif

#include <curl/curl.h>
#include <curl/easy.h>

/* As of curl 7.11.1 this is no longer defined inside curl.h */
#ifndef HttpPost
#define HttpPost curl_httppost
#endif

/* {{{ cruft for thread safe SSL crypto locks */
#if defined(ZTS) && defined(HAVE_CURL_SSL)
# ifdef PHP_WIN32
#  define PHP_CURL_NEED_OPENSSL_TSL
#  include <openssl/crypto.h>
# else /* !PHP_WIN32 */
#  if defined(HAVE_CURL_OPENSSL)
#   if defined(HAVE_OPENSSL_CRYPTO_H)
#    define PHP_CURL_NEED_OPENSSL_TSL
#    include <openssl/crypto.h>
#   else
#    warning \
        "libcurl was compiled with OpenSSL support, but configure could not find " \
        "openssl/crypto.h; thus no SSL crypto locking callbacks will be set, which may " \
        "cause random crashes on SSL requests"
#   endif
#  elif defined(HAVE_CURL_GNUTLS)
#   if defined(HAVE_GCRYPT_H)
#    define PHP_CURL_NEED_GNUTLS_TSL
#    include <gcrypt.h>
#   else
#    warning \
        "libcurl was compiled with GnuTLS support, but configure could not find " \
        "gcrypt.h; thus no SSL crypto locking callbacks will be set, which may " \
        "cause random crashes on SSL requests"
#   endif
#  else
#   warning \
        "libcurl was compiled with SSL support, but configure could not determine which" \
        "library was used; thus no SSL crypto locking callbacks will be set, which may " \
        "cause random crashes on SSL requests"
#  endif /* HAVE_CURL_OPENSSL || HAVE_CURL_GNUTLS */
# endif /* PHP_WIN32 */
#endif /* ZTS && HAVE_CURL_SSL */
/* }}} */

#define SMART_STR_PREALLOC 4096

#include "ext/standard/php_smart_str.h"
#include "ext/standard/info.h"
#include "ext/standard/file.h"
#include "ext/standard/url.h"
#include "php_curl.h"

int  le_curl;
int  le_curl_multi_handle;

#ifdef PHP_CURL_NEED_OPENSSL_TSL /* {{{ */
static MUTEX_T *php_curl_openssl_tsl = NULL;

static void php_curl_ssl_lock(int mode, int n, const char * file, int line)
{
        if (mode & CRYPTO_LOCK) {
                tsrm_mutex_lock(php_curl_openssl_tsl[n]);
        } else {
                tsrm_mutex_unlock(php_curl_openssl_tsl[n]);
        }
}

static unsigned long php_curl_ssl_id(void)
{
        return (unsigned long) tsrm_thread_id();
}
#endif
/* }}} */

#ifdef PHP_CURL_NEED_GNUTLS_TSL /* {{{ */
static int php_curl_ssl_mutex_create(void **m)
{
        if (*((MUTEX_T *) m) = tsrm_mutex_alloc()) {
                return SUCCESS;
        } else {
                return FAILURE;
        }
}

static int php_curl_ssl_mutex_destroy(void **m)
{
        tsrm_mutex_free(*((MUTEX_T *) m));
        return SUCCESS;
}

static int php_curl_ssl_mutex_lock(void **m)
{
        return tsrm_mutex_lock(*((MUTEX_T *) m));
}

static int php_curl_ssl_mutex_unlock(void **m)
{
        return tsrm_mutex_unlock(*((MUTEX_T *) m));
}

static struct gcry_thread_cbs php_curl_gnutls_tsl = {
        GCRY_THREAD_OPTION_USER,
        NULL,
        php_curl_ssl_mutex_create,
        php_curl_ssl_mutex_destroy,
        php_curl_ssl_mutex_lock,
        php_curl_ssl_mutex_unlock
};
#endif
/* }}} */

static void _php_curl_close(zend_rsrc_list_entry *rsrc TSRMLS_DC);

#define SAVE_CURL_ERROR(__handle, __err) (__handle)->err.no = (int) __err;

#define CAAL(s, v) add_assoc_long_ex(return_value, s, sizeof(s), (long) v);
#define CAAD(s, v) add_assoc_double_ex(return_value, s, sizeof(s), (double) v);
#define CAAS(s, v) add_assoc_string_ex(return_value, s, sizeof(s), (char *) (v ? v : ""), 1);
#define CAAZ(s, v) add_assoc_zval_ex(return_value, s, sizeof(s), (zval *) v);

#if defined(PHP_WIN32) || defined(__GNUC__)
 #define php_curl_ret(__ret) RETVAL_FALSE; return __ret;
#else
 #define php_curl_ret(__ret) RETVAL_FALSE; return;
#endif

#define PHP_CURL_CHECK_OPEN_BASEDIR(str, len, __ret)                                                                                                    \
        if (((PG(open_basedir) && *PG(open_basedir)) || PG(safe_mode)) &&                                                \
            strncasecmp(str, "file:", sizeof("file:") - 1) == 0)                                                                \
        {                                                                                                                                                                                       \
                php_url *tmp_url;                                                                                                                                               \
                                                                                                                        \
                if (!(tmp_url = php_url_parse_ex(str, len))) {                                                                                  \
                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid URL '%s'", str);                           \
                        php_curl_ret(__ret);                                                                                    \
                }                                                                                                       \
                                                                                                                        \
                if (tmp_url->host || !php_memnstr(str, tmp_url->path, strlen(tmp_url->path), str + len)) {                              \
                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "URL '%s' contains unencoded control characters", str);     \
                        php_url_free(tmp_url);                                                                                                                          \
                        php_curl_ret(__ret);                                                                                    \
                }                                                                                                       \
                                                                                                                                                                                                \
                if (tmp_url->query || tmp_url->fragment || php_check_open_basedir(tmp_url->path TSRMLS_CC) ||                                                                   \
                        (PG(safe_mode) && !php_checkuid(tmp_url->path, "rb+", CHECKUID_CHECK_MODE_PARAM))       \
                ) {                                                                                                                                                                     \
                        php_url_free(tmp_url);                                                                                                                          \
                        php_curl_ret(__ret);                                                                                    \
                }                                                                                                                                                                               \
                php_url_free(tmp_url);                                                                                                                                  \
        }

/* {{{ arginfo */
static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_version, 0, 0, 0)
        ZEND_ARG_INFO(0, version)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_init, 0, 0, 0)
        ZEND_ARG_INFO(0, url)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_copy_handle, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_setopt, 0)
        ZEND_ARG_INFO(0, ch)
        ZEND_ARG_INFO(0, option)
        ZEND_ARG_INFO(0, value)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_setopt_array, 0)
        ZEND_ARG_INFO(0, ch)
        ZEND_ARG_INFO(0, options)/* ARRAY_INFO(0, options, 0) */
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_exec, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_getinfo, 0, 0, 1)
        ZEND_ARG_INFO(0, ch)
        ZEND_ARG_INFO(0, option)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_error, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_errno, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_close, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_multi_init, 0)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_multi_add_handle, 0)
        ZEND_ARG_INFO(0, mh)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_multi_remove_handle, 0)
        ZEND_ARG_INFO(0, mh)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_multi_select, 0, 0, 1)
        ZEND_ARG_INFO(0, mh)
        ZEND_ARG_INFO(0, timeout)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_multi_exec, 0, 0, 1)
        ZEND_ARG_INFO(0, mh)
        ZEND_ARG_INFO(1, still_running)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_multi_getcontent, 0)
        ZEND_ARG_INFO(0, ch)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO_EX(arginfo_curl_multi_info_read, 0, 0, 1)
        ZEND_ARG_INFO(0, mh)
        ZEND_ARG_INFO(0, msgs_in_queue)
ZEND_END_ARG_INFO()

static
ZEND_BEGIN_ARG_INFO(arginfo_curl_multi_close, 0)
        ZEND_ARG_INFO(0, mh)
ZEND_END_ARG_INFO()

/* }}} */

/* {{{ curl_functions[]
 */
zend_function_entry curl_functions[] = {
        PHP_FE(curl_init,                arginfo_curl_init)
        PHP_FE(curl_copy_handle,         arginfo_curl_copy_handle)
        PHP_FE(curl_version,             arginfo_curl_version)
        PHP_FE(curl_setopt,              arginfo_curl_setopt)
        PHP_FE(curl_setopt_array,        arginfo_curl_setopt_array)
        PHP_FE(curl_exec,                arginfo_curl_exec)
        PHP_FE(curl_getinfo,             arginfo_curl_getinfo)
        PHP_FE(curl_error,               arginfo_curl_error)
        PHP_FE(curl_errno,               arginfo_curl_errno)
        PHP_FE(curl_close,               arginfo_curl_close)
        PHP_FE(curl_multi_init,          arginfo_curl_multi_init)
        PHP_FE(curl_multi_add_handle,    arginfo_curl_multi_add_handle)
        PHP_FE(curl_multi_remove_handle, arginfo_curl_multi_remove_handle)
        PHP_FE(curl_multi_select,        arginfo_curl_multi_select)
        PHP_FE(curl_multi_exec,          arginfo_curl_multi_exec)
        PHP_FE(curl_multi_getcontent,    arginfo_curl_multi_getcontent)
        PHP_FE(curl_multi_info_read,     arginfo_curl_multi_info_read)
        PHP_FE(curl_multi_close,         arginfo_curl_multi_close)
        {NULL, NULL, NULL}
};
/* }}} */

/* {{{ curl_module_entry
 */
zend_module_entry curl_module_entry = {
        STANDARD_MODULE_HEADER,
        "curl",
        curl_functions,
        PHP_MINIT(curl),
        PHP_MSHUTDOWN(curl),
        NULL,
        NULL,
        PHP_MINFO(curl),
        NO_VERSION_YET,
        STANDARD_MODULE_PROPERTIES
};
/* }}} */

#ifdef COMPILE_DL_CURL
ZEND_GET_MODULE (curl)
#endif

/* {{{ PHP_MINFO_FUNCTION
 */
PHP_MINFO_FUNCTION(curl)
{
        php_info_print_table_start();
        php_info_print_table_row(2, "cURL support",    "enabled");
        php_info_print_table_row(2, "cURL Information", curl_version());
        php_info_print_table_end();
}
/* }}} */

#define REGISTER_CURL_CONSTANT(__c) REGISTER_LONG_CONSTANT(#__c, __c, CONST_CS | CONST_PERSISTENT)

/* {{{ PHP_MINIT_FUNCTION
 */
PHP_MINIT_FUNCTION(curl)
{
        le_curl = zend_register_list_destructors_ex(_php_curl_close, NULL, "curl", module_number);
        le_curl_multi_handle = zend_register_list_destructors_ex(_php_curl_multi_close, NULL, "curl", module_number);
        
        /* Constants for curl_setopt() */
        REGISTER_CURL_CONSTANT(CURLOPT_DNS_USE_GLOBAL_CACHE);
        REGISTER_CURL_CONSTANT(CURLOPT_DNS_CACHE_TIMEOUT);
        REGISTER_CURL_CONSTANT(CURLOPT_PORT);
        REGISTER_CURL_CONSTANT(CURLOPT_FILE);
        REGISTER_CURL_CONSTANT(CURLOPT_READDATA);
        REGISTER_CURL_CONSTANT(CURLOPT_INFILE);
        REGISTER_CURL_CONSTANT(CURLOPT_INFILESIZE);
        REGISTER_CURL_CONSTANT(CURLOPT_URL);
        REGISTER_CURL_CONSTANT(CURLOPT_PROXY);
        REGISTER_CURL_CONSTANT(CURLOPT_VERBOSE);
        REGISTER_CURL_CONSTANT(CURLOPT_HEADER);
        REGISTER_CURL_CONSTANT(CURLOPT_HTTPHEADER);
        REGISTER_CURL_CONSTANT(CURLOPT_NOPROGRESS);
        REGISTER_CURL_CONSTANT(CURLOPT_NOBODY);
        REGISTER_CURL_CONSTANT(CURLOPT_FAILONERROR);
        REGISTER_CURL_CONSTANT(CURLOPT_UPLOAD);
        REGISTER_CURL_CONSTANT(CURLOPT_POST);
        REGISTER_CURL_CONSTANT(CURLOPT_FTPLISTONLY);
        REGISTER_CURL_CONSTANT(CURLOPT_FTPAPPEND);
        REGISTER_CURL_CONSTANT(CURLOPT_NETRC);
        REGISTER_CURL_CONSTANT(CURLOPT_FOLLOWLOCATION);
#if CURLOPT_FTPASCII != 0
        REGISTER_CURL_CONSTANT(CURLOPT_FTPASCII);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_PUT);
#if CURLOPT_MUTE != 0
        REGISTER_CURL_CONSTANT(CURLOPT_MUTE);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_USERPWD);
        REGISTER_CURL_CONSTANT(CURLOPT_PROXYUSERPWD);
        REGISTER_CURL_CONSTANT(CURLOPT_RANGE);
        REGISTER_CURL_CONSTANT(CURLOPT_TIMEOUT);
#if LIBCURL_VERSION_NUM > 0x071002
        REGISTER_CURL_CONSTANT(CURLOPT_TIMEOUT_MS);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_POSTFIELDS);
        REGISTER_CURL_CONSTANT(CURLOPT_REFERER);
        REGISTER_CURL_CONSTANT(CURLOPT_USERAGENT);
        REGISTER_CURL_CONSTANT(CURLOPT_FTPPORT);
        REGISTER_CURL_CONSTANT(CURLOPT_FTP_USE_EPSV);
        REGISTER_CURL_CONSTANT(CURLOPT_LOW_SPEED_LIMIT);
        REGISTER_CURL_CONSTANT(CURLOPT_LOW_SPEED_TIME);
        REGISTER_CURL_CONSTANT(CURLOPT_RESUME_FROM);
        REGISTER_CURL_CONSTANT(CURLOPT_COOKIE);
        REGISTER_CURL_CONSTANT(CURLOPT_COOKIESESSION);
        REGISTER_CURL_CONSTANT(CURLOPT_AUTOREFERER);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLCERT);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLCERTPASSWD);
        REGISTER_CURL_CONSTANT(CURLOPT_WRITEHEADER);
        REGISTER_CURL_CONSTANT(CURLOPT_SSL_VERIFYHOST);
        REGISTER_CURL_CONSTANT(CURLOPT_COOKIEFILE);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLVERSION);
        REGISTER_CURL_CONSTANT(CURLOPT_TIMECONDITION);
        REGISTER_CURL_CONSTANT(CURLOPT_TIMEVALUE);
        REGISTER_CURL_CONSTANT(CURLOPT_CUSTOMREQUEST);
        REGISTER_CURL_CONSTANT(CURLOPT_STDERR);
        REGISTER_CURL_CONSTANT(CURLOPT_TRANSFERTEXT);
        REGISTER_CURL_CONSTANT(CURLOPT_RETURNTRANSFER);
        REGISTER_CURL_CONSTANT(CURLOPT_QUOTE);
        REGISTER_CURL_CONSTANT(CURLOPT_POSTQUOTE);
        REGISTER_CURL_CONSTANT(CURLOPT_INTERFACE);
        REGISTER_CURL_CONSTANT(CURLOPT_KRB4LEVEL);
        REGISTER_CURL_CONSTANT(CURLOPT_HTTPPROXYTUNNEL);
        REGISTER_CURL_CONSTANT(CURLOPT_FILETIME);
        REGISTER_CURL_CONSTANT(CURLOPT_WRITEFUNCTION);
        REGISTER_CURL_CONSTANT(CURLOPT_READFUNCTION);
#if CURLOPT_PASSWDFUNCTION != 0 
        REGISTER_CURL_CONSTANT(CURLOPT_PASSWDFUNCTION);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_HEADERFUNCTION);
        REGISTER_CURL_CONSTANT(CURLOPT_MAXREDIRS);
        REGISTER_CURL_CONSTANT(CURLOPT_MAXCONNECTS);
        REGISTER_CURL_CONSTANT(CURLOPT_CLOSEPOLICY);
        REGISTER_CURL_CONSTANT(CURLOPT_FRESH_CONNECT);
        REGISTER_CURL_CONSTANT(CURLOPT_FORBID_REUSE);
        REGISTER_CURL_CONSTANT(CURLOPT_RANDOM_FILE);
        REGISTER_CURL_CONSTANT(CURLOPT_EGDSOCKET);
        REGISTER_CURL_CONSTANT(CURLOPT_CONNECTTIMEOUT);
#if LIBCURL_VERSION_NUM > 0x071002
        REGISTER_CURL_CONSTANT(CURLOPT_CONNECTTIMEOUT_MS);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_SSL_VERIFYPEER);
        REGISTER_CURL_CONSTANT(CURLOPT_CAINFO);
        REGISTER_CURL_CONSTANT(CURLOPT_CAPATH);
        REGISTER_CURL_CONSTANT(CURLOPT_COOKIEJAR);
        REGISTER_CURL_CONSTANT(CURLOPT_SSL_CIPHER_LIST);
        REGISTER_CURL_CONSTANT(CURLOPT_BINARYTRANSFER);
        REGISTER_CURL_CONSTANT(CURLOPT_NOSIGNAL);
        REGISTER_CURL_CONSTANT(CURLOPT_PROXYTYPE);
        REGISTER_CURL_CONSTANT(CURLOPT_BUFFERSIZE);
        REGISTER_CURL_CONSTANT(CURLOPT_HTTPGET);
        REGISTER_CURL_CONSTANT(CURLOPT_HTTP_VERSION);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLKEY);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLKEYTYPE);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLKEYPASSWD);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLENGINE);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLENGINE_DEFAULT);
        REGISTER_CURL_CONSTANT(CURLOPT_SSLCERTTYPE);
        REGISTER_CURL_CONSTANT(CURLOPT_CRLF);
        REGISTER_CURL_CONSTANT(CURLOPT_ENCODING);
        REGISTER_CURL_CONSTANT(CURLOPT_PROXYPORT);
        REGISTER_CURL_CONSTANT(CURLOPT_UNRESTRICTED_AUTH);
        REGISTER_CURL_CONSTANT(CURLOPT_FTP_USE_EPRT);
#if LIBCURL_VERSION_NUM > 0x070b01 /* CURLOPT_TCP_NODELAY is available since curl 7.11.2 */
        REGISTER_CURL_CONSTANT(CURLOPT_TCP_NODELAY);
#endif
        REGISTER_CURL_CONSTANT(CURLOPT_HTTP200ALIASES);
        REGISTER_CURL_CONSTANT(CURL_TIMECOND_IFMODSINCE);
        REGISTER_CURL_CONSTANT(CURL_TIMECOND_IFUNMODSINCE);
        REGISTER_CURL_CONSTANT(CURL_TIMECOND_LASTMOD);

#if LIBCURL_VERSION_NUM > 0x070a05 /* CURLOPT_HTTPAUTH is available since curl 7.10.6 */
        REGISTER_CURL_CONSTANT(CURLOPT_HTTPAUTH);
        /* http authentication options */
        REGISTER_CURL_CONSTANT(CURLAUTH_BASIC);
        REGISTER_CURL_CONSTANT(CURLAUTH_DIGEST);
        REGISTER_CURL_CONSTANT(CURLAUTH_GSSNEGOTIATE);
        REGISTER_CURL_CONSTANT(CURLAUTH_NTLM);
        REGISTER_CURL_CONSTANT(CURLAUTH_ANY);
        REGISTER_CURL_CONSTANT(CURLAUTH_ANYSAFE);
#endif

#if LIBCURL_VERSION_NUM > 0x070a06 /* CURLOPT_PROXYAUTH & CURLOPT_FTP_CREATE_MISSING_DIRS are available since curl 7.10.7 */
        REGISTER_CURL_CONSTANT(CURLOPT_PROXYAUTH);
        REGISTER_CURL_CONSTANT(CURLOPT_FTP_CREATE_MISSING_DIRS);
#endif

        REGISTER_CURL_CONSTANT(CURLOPT_PRIVATE);

        /* Constants effecting the way CURLOPT_CLOSEPOLICY works */
        REGISTER_CURL_CONSTANT(CURLCLOSEPOLICY_LEAST_RECENTLY_USED);
        REGISTER_CURL_CONSTANT(CURLCLOSEPOLICY_LEAST_TRAFFIC);
        REGISTER_CURL_CONSTANT(CURLCLOSEPOLICY_SLOWEST);
        REGISTER_CURL_CONSTANT(CURLCLOSEPOLICY_CALLBACK);
        REGISTER_CURL_CONSTANT(CURLCLOSEPOLICY_OLDEST);

        /* Info constants */
        REGISTER_CURL_CONSTANT(CURLINFO_EFFECTIVE_URL);
        REGISTER_CURL_CONSTANT(CURLINFO_HTTP_CODE);
        REGISTER_CURL_CONSTANT(CURLINFO_HEADER_SIZE);
        REGISTER_CURL_CONSTANT(CURLINFO_REQUEST_SIZE);
        REGISTER_CURL_CONSTANT(CURLINFO_TOTAL_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_NAMELOOKUP_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_CONNECT_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_PRETRANSFER_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_SIZE_UPLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_SIZE_DOWNLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_SPEED_DOWNLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_SPEED_UPLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_FILETIME);
        REGISTER_CURL_CONSTANT(CURLINFO_SSL_VERIFYRESULT);
        REGISTER_CURL_CONSTANT(CURLINFO_CONTENT_LENGTH_DOWNLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_CONTENT_LENGTH_UPLOAD);
        REGISTER_CURL_CONSTANT(CURLINFO_STARTTRANSFER_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_CONTENT_TYPE);
        REGISTER_CURL_CONSTANT(CURLINFO_REDIRECT_TIME);
        REGISTER_CURL_CONSTANT(CURLINFO_REDIRECT_COUNT);
        REGISTER_CURL_CONSTANT(CURLINFO_HEADER_OUT);
        REGISTER_CURL_CONSTANT(CURLINFO_PRIVATE);

        /* cURL protocol constants (curl_version) */
        REGISTER_CURL_CONSTANT(CURL_VERSION_IPV6);
        REGISTER_CURL_CONSTANT(CURL_VERSION_KERBEROS4);
        REGISTER_CURL_CONSTANT(CURL_VERSION_SSL);
        REGISTER_CURL_CONSTANT(CURL_VERSION_LIBZ);
        
        /* version constants */
        REGISTER_CURL_CONSTANT(CURLVERSION_NOW);

        /* Error Constants */
        REGISTER_CURL_CONSTANT(CURLE_OK);
        REGISTER_CURL_CONSTANT(CURLE_UNSUPPORTED_PROTOCOL);
        REGISTER_CURL_CONSTANT(CURLE_FAILED_INIT);
        REGISTER_CURL_CONSTANT(CURLE_URL_MALFORMAT);
        REGISTER_CURL_CONSTANT(CURLE_URL_MALFORMAT_USER);
        REGISTER_CURL_CONSTANT(CURLE_COULDNT_RESOLVE_PROXY);
        REGISTER_CURL_CONSTANT(CURLE_COULDNT_RESOLVE_HOST);
        REGISTER_CURL_CONSTANT(CURLE_COULDNT_CONNECT);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WEIRD_SERVER_REPLY);
        REGISTER_CURL_CONSTANT(CURLE_FTP_ACCESS_DENIED);
        REGISTER_CURL_CONSTANT(CURLE_FTP_USER_PASSWORD_INCORRECT);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WEIRD_PASS_REPLY);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WEIRD_USER_REPLY);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WEIRD_PASV_REPLY);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WEIRD_227_FORMAT);
        REGISTER_CURL_CONSTANT(CURLE_FTP_CANT_GET_HOST);
        REGISTER_CURL_CONSTANT(CURLE_FTP_CANT_RECONNECT);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_SET_BINARY);
        REGISTER_CURL_CONSTANT(CURLE_PARTIAL_FILE);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_RETR_FILE);
        REGISTER_CURL_CONSTANT(CURLE_FTP_WRITE_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_FTP_QUOTE_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_HTTP_NOT_FOUND);
        REGISTER_CURL_CONSTANT(CURLE_WRITE_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_MALFORMAT_USER);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_STOR_FILE);
        REGISTER_CURL_CONSTANT(CURLE_READ_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_OUT_OF_MEMORY);
        REGISTER_CURL_CONSTANT(CURLE_OPERATION_TIMEOUTED);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_SET_ASCII);
        REGISTER_CURL_CONSTANT(CURLE_FTP_PORT_FAILED);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_USE_REST);
        REGISTER_CURL_CONSTANT(CURLE_FTP_COULDNT_GET_SIZE);
        REGISTER_CURL_CONSTANT(CURLE_HTTP_RANGE_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_HTTP_POST_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_SSL_CONNECT_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_FTP_BAD_DOWNLOAD_RESUME);
        REGISTER_CURL_CONSTANT(CURLE_FILE_COULDNT_READ_FILE);
        REGISTER_CURL_CONSTANT(CURLE_LDAP_CANNOT_BIND);
        REGISTER_CURL_CONSTANT(CURLE_LDAP_SEARCH_FAILED);
        REGISTER_CURL_CONSTANT(CURLE_LIBRARY_NOT_FOUND);
        REGISTER_CURL_CONSTANT(CURLE_FUNCTION_NOT_FOUND);
        REGISTER_CURL_CONSTANT(CURLE_ABORTED_BY_CALLBACK);
        REGISTER_CURL_CONSTANT(CURLE_BAD_FUNCTION_ARGUMENT);
        REGISTER_CURL_CONSTANT(CURLE_BAD_CALLING_ORDER);
        REGISTER_CURL_CONSTANT(CURLE_HTTP_PORT_FAILED);
        REGISTER_CURL_CONSTANT(CURLE_BAD_PASSWORD_ENTERED);
        REGISTER_CURL_CONSTANT(CURLE_TOO_MANY_REDIRECTS);
        REGISTER_CURL_CONSTANT(CURLE_UNKNOWN_TELNET_OPTION);
        REGISTER_CURL_CONSTANT(CURLE_TELNET_OPTION_SYNTAX);
        REGISTER_CURL_CONSTANT(CURLE_OBSOLETE);
        REGISTER_CURL_CONSTANT(CURLE_SSL_PEER_CERTIFICATE);
        REGISTER_CURL_CONSTANT(CURLE_GOT_NOTHING);
        REGISTER_CURL_CONSTANT(CURLE_SSL_ENGINE_NOTFOUND);
        REGISTER_CURL_CONSTANT(CURLE_SSL_ENGINE_SETFAILED);
        REGISTER_CURL_CONSTANT(CURLE_SEND_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_RECV_ERROR);
        REGISTER_CURL_CONSTANT(CURLE_SHARE_IN_USE);
        REGISTER_CURL_CONSTANT(CURLE_SSL_CERTPROBLEM);
        REGISTER_CURL_CONSTANT(CURLE_SSL_CIPHER);
        REGISTER_CURL_CONSTANT(CURLE_SSL_CACERT);
        REGISTER_CURL_CONSTANT(CURLE_BAD_CONTENT_ENCODING);
#if LIBCURL_VERSION_NUM >= 0x070a08
        REGISTER_CURL_CONSTANT(CURLE_LDAP_INVALID_URL);
        REGISTER_CURL_CONSTANT(CURLE_FILESIZE_EXCEEDED);
#endif
#if LIBCURL_VERSION_NUM >= 0x070b00
        REGISTER_CURL_CONSTANT(CURLE_FTP_SSL_FAILED);
#endif

        REGISTER_CURL_CONSTANT(CURLPROXY_HTTP);
        REGISTER_CURL_CONSTANT(CURLPROXY_SOCKS5);

        REGISTER_CURL_CONSTANT(CURL_NETRC_OPTIONAL);
        REGISTER_CURL_CONSTANT(CURL_NETRC_IGNORED);
        REGISTER_CURL_CONSTANT(CURL_NETRC_REQUIRED);

        REGISTER_CURL_CONSTANT(CURL_HTTP_VERSION_NONE);
        REGISTER_CURL_CONSTANT(CURL_HTTP_VERSION_1_0);
        REGISTER_CURL_CONSTANT(CURL_HTTP_VERSION_1_1);
        
        REGISTER_CURL_CONSTANT(CURLM_CALL_MULTI_PERFORM);
        REGISTER_CURL_CONSTANT(CURLM_OK);
        REGISTER_CURL_CONSTANT(CURLM_BAD_HANDLE);
        REGISTER_CURL_CONSTANT(CURLM_BAD_EASY_HANDLE);
        REGISTER_CURL_CONSTANT(CURLM_OUT_OF_MEMORY);
        REGISTER_CURL_CONSTANT(CURLM_INTERNAL_ERROR);

        REGISTER_CURL_CONSTANT(CURLMSG_DONE);

#if LIBCURL_VERSION_NUM >= 0x070c02
        REGISTER_CURL_CONSTANT(CURLOPT_FTPSSLAUTH);
        REGISTER_CURL_CONSTANT(CURLFTPAUTH_DEFAULT);
        REGISTER_CURL_CONSTANT(CURLFTPAUTH_SSL);
        REGISTER_CURL_CONSTANT(CURLFTPAUTH_TLS);
#endif

#if LIBCURL_VERSION_NUM >  0x070b00
        REGISTER_CURL_CONSTANT(CURLOPT_FTP_SSL);
        REGISTER_CURL_CONSTANT(CURLFTPSSL_NONE);
        REGISTER_CURL_CONSTANT(CURLFTPSSL_TRY);
        REGISTER_CURL_CONSTANT(CURLFTPSSL_CONTROL);
        REGISTER_CURL_CONSTANT(CURLFTPSSL_ALL);
#endif

#ifdef PHP_CURL_NEED_OPENSSL_TSL
        if (!CRYPTO_get_id_callback()) {
                int i, c = CRYPTO_num_locks();
                
                php_curl_openssl_tsl = malloc(c * sizeof(MUTEX_T));
                
                for (i = 0; i < c; ++i) {
                        php_curl_openssl_tsl[i] = tsrm_mutex_alloc();
                }
                
                CRYPTO_set_id_callback(php_curl_ssl_id);
                CRYPTO_set_locking_callback(php_curl_ssl_lock);
        }
#endif
#ifdef PHP_CURL_NEED_GNUTLS_TSL
        gcry_control(GCRYCTL_SET_THREAD_CBS, &php_curl_gnutls_tsl);
#endif
        
        if (curl_global_init(CURL_GLOBAL_SSL) != CURLE_OK) {
                return FAILURE;
        }

#ifdef PHP_CURL_URL_WRAPPERS
# if HAVE_CURL_VERSION_INFO
        {
                curl_version_info_data *info = curl_version_info(CURLVERSION_NOW);
                char **p = (char **)info->protocols;

                while (*p != NULL) {
                        php_register_url_stream_wrapper(*p++, &php_curl_wrapper TSRMLS_CC);
                }
        }
# else
        php_register_url_stream_wrapper("http", &php_curl_wrapper TSRMLS_CC);
        php_register_url_stream_wrapper("https", &php_curl_wrapper TSRMLS_CC);
        php_register_url_stream_wrapper("ftp", &php_curl_wrapper TSRMLS_CC);
        php_register_url_stream_wrapper("ldap", &php_curl_wrapper TSRMLS_CC);
# endif
#endif
        
        return SUCCESS;
}
/* }}} */

/* {{{ PHP_MSHUTDOWN_FUNCTION
 */
PHP_MSHUTDOWN_FUNCTION(curl)
{
#ifdef PHP_CURL_URL_WRAPPERS
        php_unregister_url_stream_wrapper("http" TSRMLS_CC);
        php_unregister_url_stream_wrapper("https" TSRMLS_CC);
        php_unregister_url_stream_wrapper("ftp" TSRMLS_CC);
        php_unregister_url_stream_wrapper("ldap" TSRMLS_CC);
#endif
        curl_global_cleanup();
#ifdef PHP_CURL_NEED_OPENSSL_TSL
        if (php_curl_openssl_tsl) {
                int i, c = CRYPTO_num_locks();
                
                CRYPTO_set_id_callback(NULL);
                CRYPTO_set_locking_callback(NULL);
                        
                for (i = 0; i < c; ++i) {
                        tsrm_mutex_free(php_curl_openssl_tsl[i]);
                }
                        
                free(php_curl_openssl_tsl);
                php_curl_openssl_tsl = NULL;
        }
#endif
        return SUCCESS;
}
/* }}} */

/* {{{ curl_write
 */
static size_t curl_write(char *data, size_t size, size_t nmemb, void *ctx)
{
        php_curl       *ch     = (php_curl *) ctx;
        php_curl_write *t      = ch->handlers->write;
        size_t          length = size * nmemb;
        TSRMLS_FETCH_FROM_CTX(ch->thread_ctx);

#if PHP_CURL_DEBUG
        fprintf(stderr, "curl_write() called\n");
        fprintf(stderr, "data = %s, size = %d, nmemb = %d, ctx = %x\n", data, size, nmemb, ctx);
#endif
        
        switch (t->method) {
                case PHP_CURL_STDOUT:
                        PHPWRITE(data, length);
                        break;
                case PHP_CURL_FILE:
                        return fwrite(data, size, nmemb, t->fp);
                case PHP_CURL_RETURN:
                        if (length > 0) {
                                smart_str_appendl(&t->buf, data, (int) length);
                        }
                        break;
                case PHP_CURL_USER: {
                        zval **argv[2];
                        zval *retval_ptr = NULL;
                        zval *handle = NULL;
                        zval *zdata = NULL;
                        int   error;
                        zend_fcall_info fci;

                        MAKE_STD_ZVAL(handle);
                        ZVAL_RESOURCE(handle, ch->id);
                        zend_list_addref(ch->id);
                        argv[0] = &handle;
        
                        MAKE_STD_ZVAL(zdata);
                        ZVAL_STRINGL(zdata, data, length, 1);
                        argv[1] = &zdata;

                        fci.size = sizeof(fci);
                        fci.function_table = EG(function_table);
                        fci.object_pp = NULL;
                        fci.function_name = t->func_name;
                        fci.retval_ptr_ptr = &retval_ptr;
                        fci.param_count = 2;
                        fci.params = argv;
                        fci.no_separation = 0;
                        fci.symbol_table = NULL;

                        ch->in_callback = 1;
                        error = zend_call_function(&fci, &t->fci_cache TSRMLS_CC);
                        ch->in_callback = 0;
                        if (error == FAILURE) {
                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not call the CURLOPT_WRITEFUNCTION");
                                length = -1;
                        } else if (retval_ptr) {
                                if (Z_TYPE_P(retval_ptr) != IS_LONG) {
                                        convert_to_long_ex(&retval_ptr);
                                }
                                length = Z_LVAL_P(retval_ptr);
                                zval_ptr_dtor(&retval_ptr);
                        }

                        zval_ptr_dtor(argv[0]);
                        zval_ptr_dtor(argv[1]);
                        break;
                }
        }

        return length;
}
/* }}} */

/* {{{ curl_read
 */
static size_t curl_read(char *data, size_t size, size_t nmemb, void *ctx)
{
        php_curl       *ch = (php_curl *) ctx;
        php_curl_read  *t  = ch->handlers->read;
        int             length = -1;

        switch (t->method) {
                case PHP_CURL_DIRECT:
                        if (t->fp) {
                                length = fread(data, size, nmemb, t->fp);
                        }
                        break;
                case PHP_CURL_USER: {
                        zval **argv[3];
                        zval  *handle = NULL;
                        zval  *zfd = NULL;
                        zval  *zlength = NULL;
                        zval  *retval_ptr;
                        int   error;
                        zend_fcall_info fci;
                        TSRMLS_FETCH_FROM_CTX(ch->thread_ctx);

                        MAKE_STD_ZVAL(handle);
                        MAKE_STD_ZVAL(zfd);
                        MAKE_STD_ZVAL(zlength);

                        ZVAL_RESOURCE(handle, ch->id);
                        zend_list_addref(ch->id);
                        ZVAL_RESOURCE(zfd, t->fd);
                        zend_list_addref(t->fd);
                        ZVAL_LONG(zlength, (int) size * nmemb);

                        argv[0] = &handle;
                        argv[1] = &zfd;
                        argv[2] = &zlength;

                        fci.size = sizeof(fci);
                        fci.function_table = EG(function_table);
                        fci.function_name = t->func_name;
                        fci.object_pp = NULL;
                        fci.retval_ptr_ptr = &retval_ptr;
                        fci.param_count = 3;
                        fci.params = argv;
                        fci.no_separation = 0;
                        fci.symbol_table = NULL;

                        ch->in_callback = 1;
                        error = zend_call_function(&fci, &t->fci_cache TSRMLS_CC);
                        ch->in_callback = 0;
                        if (error == FAILURE) {
                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot call the CURLOPT_READFUNCTION"); 
                                length = -1;
                        } else if (retval_ptr) {
                                if (Z_TYPE_P(retval_ptr) == IS_STRING) {
                                        length = MIN(size * nmemb, Z_STRLEN_P(retval_ptr));
                                        memcpy(data, Z_STRVAL_P(retval_ptr), length);
                                }
                                zval_ptr_dtor(&retval_ptr);
                        }

                        zval_ptr_dtor(argv[0]);
                        zval_ptr_dtor(argv[1]);
                        zval_ptr_dtor(argv[2]);
                        break;
                }
        }

        return length;
}
/* }}} */

/* {{{ curl_write_header
 */
static size_t curl_write_header(char *data, size_t size, size_t nmemb, void *ctx)
{
        php_curl       *ch  = (php_curl *) ctx;
        php_curl_write *t   = ch->handlers->write_header;
        size_t          length = size * nmemb;
        TSRMLS_FETCH_FROM_CTX(ch->thread_ctx);
        
        switch (t->method) {
                case PHP_CURL_STDOUT:
                        /* Handle special case write when we're returning the entire transfer
                         */
                        if (ch->handlers->write->method == PHP_CURL_RETURN && length > 0) {
                                smart_str_appendl(&ch->handlers->write->buf, data, (int) length);
                        } else {
                                PHPWRITE(data, length);
                        }
                        break;
                case PHP_CURL_FILE:
                        return fwrite(data, size, nmemb, t->fp);
                case PHP_CURL_USER: {
                        zval **argv[2];
                        zval  *handle = NULL;
                        zval  *zdata = NULL;
                        zval  *retval_ptr;
                        int   error;
                        zend_fcall_info fci;

                        MAKE_STD_ZVAL(handle);
                        MAKE_STD_ZVAL(zdata);

                        ZVAL_RESOURCE(handle, ch->id);
                        zend_list_addref(ch->id);
                        ZVAL_STRINGL(zdata, data, length, 1);

                        argv[0] = &handle;
                        argv[1] = &zdata;

                        fci.size = sizeof(fci);
                        fci.function_table = EG(function_table);
                        fci.function_name = t->func_name;
                        fci.symbol_table = NULL;
                        fci.object_pp = NULL;
                        fci.retval_ptr_ptr = &retval_ptr;
                        fci.param_count = 2;
                        fci.params = argv;
                        fci.no_separation = 0;

                        ch->in_callback = 1;
                        error = zend_call_function(&fci, &t->fci_cache TSRMLS_CC);
                        ch->in_callback = 0;
                        if (error == FAILURE) {
                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not call the CURLOPT_HEADERFUNCTION");
                                length = -1;
                        } else if (retval_ptr) {
                                if (Z_TYPE_P(retval_ptr) != IS_LONG) {
                                        convert_to_long_ex(&retval_ptr);
                                }
                                length = Z_LVAL_P(retval_ptr);
                                zval_ptr_dtor(&retval_ptr);
                        }
                        zval_ptr_dtor(argv[0]);
                        zval_ptr_dtor(argv[1]);
                        break;
                }

                case PHP_CURL_IGNORE:
                        return length;

                default:
                        return -1;
        }

        return length;
}
/* }}} */

static int curl_debug(CURL *cp, curl_infotype type, char *buf, size_t buf_len, void *ctx) /* {{{ */
{
        php_curl    *ch   = (php_curl *) ctx;

        if (type == CURLINFO_HEADER_OUT) {
                if (ch->header.str_len) {
                        efree(ch->header.str);          
                }
                if (buf_len > 0) {
                        ch->header.str = estrndup(buf, buf_len);
                        ch->header.str_len = buf_len;
                }
        }

        return 0;
}
/* }}} */

#if CURLOPT_PASSWDFUNCTION != 0
/* {{{ curl_passwd
 */
static size_t curl_passwd(void *ctx, char *prompt, char *buf, int buflen)
{
        php_curl    *ch   = (php_curl *) ctx;
        zval        *func = ch->handlers->passwd;
        zval        *argv[3];
        zval        *retval = NULL;
        int          error;
        int          ret = -1;
        TSRMLS_FETCH_FROM_CTX(ch->thread_ctx);

        MAKE_STD_ZVAL(argv[0]);
        MAKE_STD_ZVAL(argv[1]);
        MAKE_STD_ZVAL(argv[2]);

        ZVAL_RESOURCE(argv[0], ch->id);
        zend_list_addref(ch->id);
        ZVAL_STRING(argv[1], prompt, 1);
        ZVAL_LONG(argv[2], buflen);

        error = call_user_function(EG(function_table), NULL, func, retval, 2, argv TSRMLS_CC);
        if (error == FAILURE) {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not call the CURLOPT_PASSWDFUNCTION");
        } else if (Z_TYPE_P(retval) == IS_STRING) {
                if (Z_STRLEN_P(retval) > buflen) {
                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Returned password is too long for libcurl to handle");
                } else {
                        strlcpy(buf, Z_STRVAL_P(retval), Z_STRLEN_P(retval));
                }
        } else {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "User handler '%s' did not return a string", Z_STRVAL_P(func));
        }
        
        zval_ptr_dtor(&argv[0]);
        zval_ptr_dtor(&argv[1]);
        zval_ptr_dtor(&argv[2]);
        zval_ptr_dtor(&retval);

        return ret;
}
/* }}} */
#endif

/* {{{ curl_free_string
 */
static void curl_free_string(void **string)
{
        efree(*string);
}       
/* }}} */

/* {{{ curl_free_post
 */
static void curl_free_post(void **post)
{
        curl_formfree((struct HttpPost *) *post);
}
/* }}} */

/* {{{ curl_free_slist
 */
static void curl_free_slist(void **slist)
{
        curl_slist_free_all((struct curl_slist *) *slist);
}
/* }}} */

/* {{{ proto array curl_version([int version])
   Return cURL version information. */
PHP_FUNCTION(curl_version)
{
        curl_version_info_data *d;
        long                    uversion = CURLVERSION_NOW;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &uversion) == FAILURE) {
                return;
        }

        d = curl_version_info(uversion);
        if (d == NULL) {
                RETURN_FALSE;
        }

        array_init(return_value);

        CAAL("version_number", d->version_num);
        CAAL("age", d->age);
        CAAL("features", d->features);
        CAAL("ssl_version_number", d->ssl_version_num);
        CAAS("version", d->version);
        CAAS("host", d->host);
        CAAS("ssl_version", d->ssl_version);
        CAAS("libz_version", d->libz_version);
        /* Add an array of protocols */
        {
                char **p = (char **) d->protocols;
                zval  *protocol_list = NULL;

                MAKE_STD_ZVAL(protocol_list);
                array_init(protocol_list);

                while (*p != NULL) {
                        add_next_index_string(protocol_list,  *p++, 1);
                }
                CAAZ("protocols", protocol_list);
        }
}
/* }}} */

/* {{{ alloc_curl_handle
 */
static void alloc_curl_handle(php_curl **ch)
{
        *ch                           = emalloc(sizeof(php_curl));
        (*ch)->handlers               = ecalloc(1, sizeof(php_curl_handlers));
        (*ch)->handlers->write        = ecalloc(1, sizeof(php_curl_write));
        (*ch)->handlers->write_header = ecalloc(1, sizeof(php_curl_write));
        (*ch)->handlers->read         = ecalloc(1, sizeof(php_curl_read));

        (*ch)->in_callback = 0;
        (*ch)->header.str_len = 0;
                
        memset(&(*ch)->err, 0, sizeof((*ch)->err));
        
        zend_llist_init(&(*ch)->to_free.str,   sizeof(char *),            (llist_dtor_func_t) curl_free_string, 0);
        zend_llist_init(&(*ch)->to_free.slist, sizeof(struct curl_slist), (llist_dtor_func_t) curl_free_slist,  0);
        zend_llist_init(&(*ch)->to_free.post,  sizeof(struct HttpPost),   (llist_dtor_func_t) curl_free_post,   0);
}
/* }}} */

/* {{{ proto resource curl_init([string url])
   Initialize a cURL session */
PHP_FUNCTION(curl_init)
{
        zval       **url;
        php_curl    *ch;
        CURL        *cp;
        int          argc = ZEND_NUM_ARGS();

        if (argc < 0 || argc > 1 || zend_get_parameters_ex(argc, &url) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        if (argc > 0) {
                convert_to_string_ex(url);
                PHP_CURL_CHECK_OPEN_BASEDIR(Z_STRVAL_PP(url), Z_STRLEN_PP(url), (void) NULL);
        }

        cp = curl_easy_init();
        if (!cp) {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not initialize a new cURL handle");
                RETURN_FALSE;
        }

        alloc_curl_handle(&ch);
        TSRMLS_SET_CTX(ch->thread_ctx);

        ch->cp = cp;
        
        ch->handlers->write->method = PHP_CURL_STDOUT;
        ch->handlers->write->type   = PHP_CURL_ASCII;
        ch->handlers->read->method  = PHP_CURL_DIRECT;
        ch->handlers->write_header->method = PHP_CURL_IGNORE;

        ch->uses = 0;

        curl_easy_setopt(ch->cp, CURLOPT_NOPROGRESS,        1);
        curl_easy_setopt(ch->cp, CURLOPT_VERBOSE,           0);
        curl_easy_setopt(ch->cp, CURLOPT_ERRORBUFFER,       ch->err.str);
        curl_easy_setopt(ch->cp, CURLOPT_WRITEFUNCTION,     curl_write);
        curl_easy_setopt(ch->cp, CURLOPT_FILE,              (void *) ch);
        curl_easy_setopt(ch->cp, CURLOPT_READFUNCTION,      curl_read);
        curl_easy_setopt(ch->cp, CURLOPT_INFILE,            (void *) ch);
        curl_easy_setopt(ch->cp, CURLOPT_HEADERFUNCTION,    curl_write_header);
        curl_easy_setopt(ch->cp, CURLOPT_WRITEHEADER,       (void *) ch);
        curl_easy_setopt(ch->cp, CURLOPT_DNS_USE_GLOBAL_CACHE, 1);
        curl_easy_setopt(ch->cp, CURLOPT_DNS_CACHE_TIMEOUT, 120);
        curl_easy_setopt(ch->cp, CURLOPT_MAXREDIRS, 20); /* prevent infinite redirects */
#if defined(ZTS)
        curl_easy_setopt(ch->cp, CURLOPT_NOSIGNAL, 1);
#endif

        if (argc > 0) {
                char *urlcopy;

                urlcopy = estrndup(Z_STRVAL_PP(url), Z_STRLEN_PP(url));
                curl_easy_setopt(ch->cp, CURLOPT_URL, urlcopy);
                zend_llist_add_element(&ch->to_free.str, &urlcopy);
        }

        ZEND_REGISTER_RESOURCE(return_value, ch, le_curl);
        ch->id = Z_LVAL_P(return_value);
}
/* }}} */

/* {{{ proto resource curl_copy_handle(resource ch)
   Copy a cURL handle along with all of it's preferences */
PHP_FUNCTION(curl_copy_handle)
{
        zval     **zid;
        CURL      *cp;
        php_curl  *ch;
        php_curl  *dupch;

        if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zid) == FAILURE) {
                WRONG_PARAM_COUNT;
        }
        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        cp = curl_easy_duphandle(ch->cp);
        if (!cp) {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot duplicate cURL handle");
                RETURN_FALSE;
        }

        alloc_curl_handle(&dupch);
        TSRMLS_SET_CTX(dupch->thread_ctx);

        dupch->cp = cp;
        dupch->handlers->write->method = ch->handlers->write->method;
        dupch->handlers->write->type   = ch->handlers->write->type;
        dupch->handlers->read->method  = ch->handlers->read->method;
        dupch->handlers->write_header->method = ch->handlers->write_header->method;

        dupch->handlers->write->fp = ch->handlers->write->fp;
        dupch->handlers->write_header->fp = ch->handlers->write_header->fp;
        dupch->handlers->read->fp = ch->handlers->read->fp;
        dupch->handlers->read->fd = ch->handlers->read->fd;
#if CURLOPT_PASSWDDATA != 0
        if (ch->handlers->passwd) {
                zval_add_ref(&ch->handlers->passwd);
                dupch->handlers->passwd = ch->handlers->passwd;
                curl_easy_setopt(ch->cp, CURLOPT_PASSWDDATA, (void *) dupch);
        }
#endif
        if (ch->handlers->write->func_name) {
                zval_add_ref(&ch->handlers->write->func_name);
                dupch->handlers->write->func_name = ch->handlers->write->func_name;
        }
        if (ch->handlers->read->func_name) {
                zval_add_ref(&ch->handlers->read->func_name);
                dupch->handlers->read->func_name = ch->handlers->read->func_name;
        }
        if (ch->handlers->write_header->func_name) {
                zval_add_ref(&ch->handlers->write_header->func_name);
                dupch->handlers->write_header->func_name = ch->handlers->write_header->func_name;
        }

        curl_easy_setopt(dupch->cp, CURLOPT_ERRORBUFFER,       dupch->err.str);
        curl_easy_setopt(dupch->cp, CURLOPT_FILE,              (void *) dupch);
        curl_easy_setopt(dupch->cp, CURLOPT_INFILE,            (void *) dupch);
        curl_easy_setopt(dupch->cp, CURLOPT_WRITEHEADER,       (void *) dupch);

        zend_llist_copy(&dupch->to_free.str, &ch->to_free.str);
        /* Don't try to free copied strings, they're free'd when the original handle is destroyed */
        dupch->to_free.str.dtor = NULL;
        zend_llist_copy(&dupch->to_free.slist, &ch->to_free.slist);
        zend_llist_copy(&dupch->to_free.post, &ch->to_free.post);

        ZEND_REGISTER_RESOURCE(return_value, dupch, le_curl);
        dupch->id = Z_LVAL_P(return_value);
}
/* }}} */

static int _php_curl_setopt(php_curl *ch, long option, zval **zvalue, zval *return_value TSRMLS_DC) /* {{{ */
{
        CURLcode     error=CURLE_OK;

        switch (option) {
                case CURLOPT_INFILESIZE:
                case CURLOPT_VERBOSE:
                case CURLOPT_HEADER:
                case CURLOPT_NOPROGRESS:
                case CURLOPT_NOBODY:
                case CURLOPT_FAILONERROR:
                case CURLOPT_UPLOAD:
                case CURLOPT_POST:
                case CURLOPT_FTPLISTONLY:
                case CURLOPT_FTPAPPEND:
                case CURLOPT_NETRC:
                case CURLOPT_PUT:
#if CURLOPT_MUTE != 0
                 case CURLOPT_MUTE:
#endif
                case CURLOPT_TIMEOUT:
#if LIBCURL_VERSION_NUM > 0x071002
                case CURLOPT_TIMEOUT_MS:
#endif
                case CURLOPT_FTP_USE_EPSV:
                case CURLOPT_LOW_SPEED_LIMIT:
                case CURLOPT_SSLVERSION:
                case CURLOPT_LOW_SPEED_TIME:
                case CURLOPT_RESUME_FROM:
                case CURLOPT_TIMEVALUE:
                case CURLOPT_TIMECONDITION:
                case CURLOPT_TRANSFERTEXT:
                case CURLOPT_HTTPPROXYTUNNEL:
                case CURLOPT_FILETIME:
                case CURLOPT_MAXREDIRS:
                case CURLOPT_MAXCONNECTS:
                case CURLOPT_CLOSEPOLICY:
                case CURLOPT_FRESH_CONNECT:
                case CURLOPT_FORBID_REUSE:
                case CURLOPT_CONNECTTIMEOUT:
#if LIBCURL_VERSION_NUM > 0x071002
                case CURLOPT_CONNECTTIMEOUT_MS:
#endif
                case CURLOPT_SSL_VERIFYHOST:
                case CURLOPT_SSL_VERIFYPEER:
                case CURLOPT_DNS_USE_GLOBAL_CACHE:
                case CURLOPT_NOSIGNAL:
                case CURLOPT_PROXYTYPE:
                case CURLOPT_BUFFERSIZE:
                case CURLOPT_HTTPGET:
                case CURLOPT_HTTP_VERSION:
                case CURLOPT_CRLF:
                case CURLOPT_DNS_CACHE_TIMEOUT:
                case CURLOPT_PROXYPORT:
                case CURLOPT_FTP_USE_EPRT:
#if LIBCURL_VERSION_NUM > 0x070a05 /* CURLOPT_HTTPAUTH is available since curl 7.10.6 */
                case CURLOPT_HTTPAUTH:
#endif
#if LIBCURL_VERSION_NUM > 0x070a06 /* CURLOPT_PROXYAUTH & CURLOPT_FTP_CREATE_MISSING_DIRS are available since curl 7.10.7 */
                case CURLOPT_PROXYAUTH:
                case CURLOPT_FTP_CREATE_MISSING_DIRS:
#endif

#if LIBCURL_VERSION_NUM >= 0x070c02
                case CURLOPT_FTPSSLAUTH:
#endif
#if LIBCURL_VERSION_NUM >  0x070b00
                case CURLOPT_FTP_SSL:
#endif
                case CURLOPT_UNRESTRICTED_AUTH:
                case CURLOPT_PORT:
                case CURLOPT_AUTOREFERER:
                case CURLOPT_COOKIESESSION:
#if LIBCURL_VERSION_NUM > 0x070b01 /* CURLOPT_TCP_NODELAY is available since curl 7.11.2 */
                case CURLOPT_TCP_NODELAY:
#endif
                        convert_to_long_ex(zvalue);
                        error = curl_easy_setopt(ch->cp, option, Z_LVAL_PP(zvalue));
                        break;
                case CURLOPT_FOLLOWLOCATION:
                        convert_to_long_ex(zvalue);
                        if ((PG(open_basedir) && *PG(open_basedir)) || PG(safe_mode)) {
                                if (Z_LVAL_PP(zvalue) != 0) {
                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "CURLOPT_FOLLOWLOCATION cannot be activated when in safe_mode or an open_basedir is set");
                                        RETVAL_FALSE;
                                        return 1;
                                }
                        }
                        error = curl_easy_setopt(ch->cp, option, Z_LVAL_PP(zvalue));
                        break;
                case CURLOPT_PRIVATE:
                case CURLOPT_URL:
                case CURLOPT_PROXY:
                case CURLOPT_USERPWD:
                case CURLOPT_PROXYUSERPWD:
                case CURLOPT_RANGE:
                case CURLOPT_CUSTOMREQUEST:
                case CURLOPT_USERAGENT:
                case CURLOPT_FTPPORT:
                case CURLOPT_COOKIE:
                case CURLOPT_REFERER:
                case CURLOPT_INTERFACE:
                case CURLOPT_KRB4LEVEL: 
                case CURLOPT_EGDSOCKET:
                case CURLOPT_CAINFO: 
                case CURLOPT_CAPATH:
                case CURLOPT_SSL_CIPHER_LIST: 
                case CURLOPT_SSLKEY:
                case CURLOPT_SSLKEYTYPE: 
                case CURLOPT_SSLKEYPASSWD: 
                case CURLOPT_SSLENGINE: 
                case CURLOPT_SSLENGINE_DEFAULT:
                case CURLOPT_SSLCERTTYPE:
                case CURLOPT_ENCODING: {
                        char *copystr = NULL;
        
                        convert_to_string_ex(zvalue);

                        if (option == CURLOPT_URL) {
                                PHP_CURL_CHECK_OPEN_BASEDIR(Z_STRVAL_PP(zvalue), Z_STRLEN_PP(zvalue), 1);
                        }

                        copystr = estrndup(Z_STRVAL_PP(zvalue), Z_STRLEN_PP(zvalue));
                        error = curl_easy_setopt(ch->cp, option, copystr);
                        zend_llist_add_element(&ch->to_free.str, &copystr);

                        break;
                }
                case CURLOPT_FILE:
                case CURLOPT_INFILE: 
                case CURLOPT_WRITEHEADER:
                case CURLOPT_STDERR: {
                        FILE *fp = NULL;
                        int type;
                        void * what;
                
                        what = zend_fetch_resource(zvalue TSRMLS_CC, -1, "File-Handle", &type, 1, php_file_le_stream());
                        if (!what) {
                                RETVAL_FALSE;
                                return 1;
                        }

                        if (FAILURE == php_stream_cast((php_stream *) what, PHP_STREAM_AS_STDIO, (void *) &fp, REPORT_ERRORS)) {
                                RETVAL_FALSE;
                                return 1;
                        }

                        if (!fp) {
                                RETVAL_FALSE;
                                return 1;
                        }

                        error = CURLE_OK;
                        switch (option) {
                                case CURLOPT_FILE:
                                        ch->handlers->write->fp = fp;
                                        ch->handlers->write->method = PHP_CURL_FILE;
                                        break;
                                case CURLOPT_WRITEHEADER:
                                        ch->handlers->write_header->fp = fp;
                                        ch->handlers->write_header->method = PHP_CURL_FILE;
                                        break;
                                case CURLOPT_INFILE:
                                        zend_list_addref(Z_LVAL_PP(zvalue));
                                        ch->handlers->read->fp = fp;
                                        ch->handlers->read->fd = Z_LVAL_PP(zvalue);
                                        break;
                                default:
                                        error = curl_easy_setopt(ch->cp, option, fp);
                                        break;
                        }

                        break;
                }
                case CURLOPT_RETURNTRANSFER:
                        convert_to_long_ex(zvalue);

                        if (Z_LVAL_PP(zvalue)) {
                                ch->handlers->write->method = PHP_CURL_RETURN;
                        } else {
                                ch->handlers->write->method = PHP_CURL_STDOUT;
                        }
                        break;
                case CURLOPT_BINARYTRANSFER:
                        convert_to_long_ex(zvalue);     

                        if (Z_LVAL_PP(zvalue)) {
                                ch->handlers->write->type = PHP_CURL_BINARY;
                        } else {
                                ch->handlers->write->type = PHP_CURL_ASCII;
                        }
                        break;
                case CURLOPT_WRITEFUNCTION:
                        if (ch->handlers->write->func_name) {
                                zval_ptr_dtor(&ch->handlers->write->func_name);
                                ch->handlers->write->fci_cache = empty_fcall_info_cache;
                        }
                        zval_add_ref(zvalue);
                        ch->handlers->write->func_name = *zvalue;
                        ch->handlers->write->method = PHP_CURL_USER;
                        break;
                case CURLOPT_READFUNCTION:
                        if (ch->handlers->read->func_name) {
                                zval_ptr_dtor(&ch->handlers->read->func_name);
                                ch->handlers->write->fci_cache = empty_fcall_info_cache;
                        }
                        zval_add_ref(zvalue);
                        ch->handlers->read->func_name = *zvalue;
                        ch->handlers->read->method = PHP_CURL_USER;
                        break;
                case CURLOPT_HEADERFUNCTION:
                        if (ch->handlers->write_header->func_name) {
                                zval_ptr_dtor(&ch->handlers->write_header->func_name);
                                ch->handlers->write->fci_cache = empty_fcall_info_cache;
                        }
                        zval_add_ref(zvalue);
                        ch->handlers->write_header->func_name = *zvalue;
                        ch->handlers->write_header->method = PHP_CURL_USER;
                        break;
#if CURLOPT_PASSWDFUNCTION != 0
                case CURLOPT_PASSWDFUNCTION:
                        if (ch->handlers->passwd) {
                                zval_ptr_dtor(&ch->handlers->passwd);
                        }
                        zval_add_ref(zvalue);
                        ch->handlers->passwd = *zvalue;
                        error = curl_easy_setopt(ch->cp, CURLOPT_PASSWDFUNCTION, curl_passwd);
                        error = curl_easy_setopt(ch->cp, CURLOPT_PASSWDDATA,     (void *) ch);
                        break;
#endif
                case CURLOPT_POSTFIELDS:
                        if (Z_TYPE_PP(zvalue) == IS_ARRAY || Z_TYPE_PP(zvalue) == IS_OBJECT) {
                                zval            **current;
                                HashTable        *postfields;
                                struct HttpPost  *first = NULL;
                                struct HttpPost  *last  = NULL;
                                char             *postval;
                                char             *string_key = NULL;
                                ulong             num_key;
                                uint              string_key_len;

                                postfields = HASH_OF(*zvalue);
                                if (! postfields) {
                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Couldn't get HashTable in CURLOPT_POSTFIELDS"); 
                                        RETVAL_FALSE;
                                        return 1;
                                }

                                for (zend_hash_internal_pointer_reset(postfields);
                                         zend_hash_get_current_data(postfields, (void **) &current) == SUCCESS;
                                         zend_hash_move_forward(postfields)
                                ) {

                                        SEPARATE_ZVAL(current);
                                        convert_to_string_ex(current);

                                        zend_hash_get_current_key_ex(postfields, &string_key, &string_key_len, &num_key, 0, NULL);
                                
                                        postval = Z_STRVAL_PP(current);

                                        /* The arguments after _NAMELENGTH and _CONTENTSLENGTH
                                         * must be explicitly cast to long in curl_formadd
                                         * use since curl needs a long not an int. */
                                        if (*postval == '@') {
                                                ++postval;
                                                /* safe_mode / open_basedir check */
                                                if (php_check_open_basedir(postval TSRMLS_CC) || (PG(safe_mode) && !php_checkuid(postval, "rb+", CHECKUID_CHECK_MODE_PARAM))) {
                                                        RETVAL_FALSE;
                                                        return 1;
                                                }
                                                error = curl_formadd(&first, &last, 
                                                                                         CURLFORM_COPYNAME, string_key,
                                                                                         CURLFORM_NAMELENGTH, (long)string_key_len - 1,
                                                                                         CURLFORM_FILE, postval, 
                                                                                         CURLFORM_END);
                                        } else {
                                                error = curl_formadd(&first, &last, 
                                                                                         CURLFORM_COPYNAME, string_key,
                                                                                         CURLFORM_NAMELENGTH, (long)string_key_len - 1,
                                                                                         CURLFORM_COPYCONTENTS, postval, 
                                                                                         CURLFORM_CONTENTSLENGTH, (long)Z_STRLEN_PP(current),
                                                                                         CURLFORM_END);
                                        }
                                }

                                SAVE_CURL_ERROR(ch, error);
                                if (error != CURLE_OK) {
                                        RETVAL_FALSE
                                        return 1;
                                }

                                zend_llist_add_element(&ch->to_free.post, &first);
                                error = curl_easy_setopt(ch->cp, CURLOPT_HTTPPOST, first);

                        } else {
                                char *post = NULL;

                                convert_to_string_ex(zvalue);
                                post = estrndup(Z_STRVAL_PP(zvalue), Z_STRLEN_PP(zvalue));
                                zend_llist_add_element(&ch->to_free.str, &post);

                                error = curl_easy_setopt(ch->cp, CURLOPT_POSTFIELDS, post);
                                error = curl_easy_setopt(ch->cp, CURLOPT_POSTFIELDSIZE, Z_STRLEN_PP(zvalue));
                        }
                        break;
                case CURLOPT_HTTPHEADER: 
                case CURLOPT_QUOTE:
                case CURLOPT_HTTP200ALIASES:
                case CURLOPT_POSTQUOTE: {
                        zval              **current;
                        HashTable          *ph;
                        struct curl_slist  *slist = NULL;

                        ph = HASH_OF(*zvalue);
                        if (!ph) {
                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "You must pass either an object or an array with the CURLOPT_HTTPHEADER, CURLOPT_QUOTE, CURLOPT_HTTP200ALIASES and CURLOPT_POSTQUOTE arguments");
                                RETVAL_FALSE;
                                return 1;
                        }

                        for (zend_hash_internal_pointer_reset(ph);
                                 zend_hash_get_current_data(ph, (void **) &current) == SUCCESS;
                                 zend_hash_move_forward(ph)
                        ) {
                                char *indiv = NULL;

                                SEPARATE_ZVAL(current);
                                convert_to_string_ex(current);

                                indiv = estrndup(Z_STRVAL_PP(current), Z_STRLEN_PP(current) + 1);
                                slist = curl_slist_append(slist, indiv);
                                if (!slist) {
                                        efree(indiv);
                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not build curl_slist"); 
                                        RETVAL_FALSE;
                                        return 1;
                                }
                                zend_llist_add_element(&ch->to_free.str, &indiv);
                        }
                        zend_llist_add_element(&ch->to_free.slist, &slist);

                        error = curl_easy_setopt(ch->cp, option, slist);

                        break;
                }
                /* the following options deal with files, therefor safe_mode & open_basedir checks
                 * are required.
                 */
                case CURLOPT_COOKIEJAR:
                case CURLOPT_SSLCERT:
                case CURLOPT_RANDOM_FILE:
                case CURLOPT_COOKIEFILE: {
                        char *copystr = NULL;

                        convert_to_string_ex(zvalue);

                        if (php_check_open_basedir(Z_STRVAL_PP(zvalue) TSRMLS_CC) || (PG(safe_mode) && !php_checkuid(Z_STRVAL_PP(zvalue), "rb+", CHECKUID_CHECK_MODE_PARAM))) {
                                RETVAL_FALSE;
                                return 1;
                        }

                        copystr = estrndup(Z_STRVAL_PP(zvalue), Z_STRLEN_PP(zvalue));

                        error = curl_easy_setopt(ch->cp, option, copystr);
                        zend_llist_add_element(&ch->to_free.str, &copystr);

                        break;
                }
                case CURLINFO_HEADER_OUT:
                        convert_to_long_ex(zvalue);
                        if (Z_LVAL_PP(zvalue) == 1) {
                                curl_easy_setopt(ch->cp, CURLOPT_DEBUGFUNCTION, curl_debug);
                                curl_easy_setopt(ch->cp, CURLOPT_DEBUGDATA, (void *)ch);
                                curl_easy_setopt(ch->cp, CURLOPT_VERBOSE, 1);
                        } else {
                                curl_easy_setopt(ch->cp, CURLOPT_DEBUGFUNCTION, NULL);
                                curl_easy_setopt(ch->cp, CURLOPT_DEBUGDATA, NULL);
                                curl_easy_setopt(ch->cp, CURLOPT_VERBOSE, 0);
                        }
                        break;
        }

        SAVE_CURL_ERROR(ch, error);
        if (error != CURLE_OK) {
                return 1;
        } else {
                return 0;
        }
}
/* }}} */

/* {{{ proto bool curl_setopt(resource ch, int option, mixed value)
   Set an option for a cURL transfer */
PHP_FUNCTION(curl_setopt)
{
        zval       **zid, **zoption, **zvalue;
        php_curl    *ch;

        if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &zid, &zoption, &zvalue) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        convert_to_long_ex(zoption);

        if (!_php_curl_setopt(ch, Z_LVAL_PP(zoption), zvalue, return_value TSRMLS_CC)) {
                RETURN_TRUE;
        } else {
                RETURN_FALSE;
        }
}
/* }}} */

/* {{{ proto bool curl_setopt_array(resource ch, array options)
   Set an array of option for a cURL transfer */
PHP_FUNCTION(curl_setopt_array)
{
        zval            *zid, *arr, **entry;
        php_curl        *ch;
        long            option;
        HashPosition    pos;
        char            *string_key;
        int             str_key_len;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "za", &zid, &arr) == FAILURE) {
                RETURN_FALSE;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, &zid, -1, le_curl_name, le_curl);

        zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(arr), &pos);
        while (zend_hash_get_current_data_ex(Z_ARRVAL_P(arr), (void **)&entry, &pos) == SUCCESS) {
                if (zend_hash_get_current_key_ex(Z_ARRVAL_P(arr), &string_key, &str_key_len, &option, 0, &pos) == HASH_KEY_IS_STRING) {
                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "Array keys must be CURLOPT constants or equivalent integer values"); 
                        RETURN_FALSE;
                }
                if (_php_curl_setopt(ch, option, entry, return_value TSRMLS_CC)) {
                        RETURN_FALSE;
                }
                zend_hash_move_forward_ex(Z_ARRVAL_P(arr), &pos);
        }
        RETURN_TRUE;
}
/* }}} */

/* {{{ _php_curl_cleanup_handle(ch) 
   Cleanup an execution phase */
void _php_curl_cleanup_handle(php_curl *ch)
{
        if (ch->handlers->write->buf.len > 0) {
                smart_str_free(&ch->handlers->write->buf);
        }
        if (ch->header.str_len) {
                efree(ch->header.str);
                ch->header.str_len = 0;
        }

        memset(ch->err.str, 0, CURL_ERROR_SIZE + 1);
        ch->err.no = 0;
}
/* }}} */

/* {{{ proto bool curl_exec(resource ch)
   Perform a cURL session */
PHP_FUNCTION(curl_exec)
{
        zval      **zid;
        php_curl   *ch;
        CURLcode    error;

        if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zid) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        _php_curl_cleanup_handle(ch);
        
        error = curl_easy_perform(ch->cp);
        SAVE_CURL_ERROR(ch, error);
        /* CURLE_PARTIAL_FILE is returned by HEAD requests */
        if (error != CURLE_OK && error != CURLE_PARTIAL_FILE) {
                if (ch->handlers->write->buf.len > 0) {
                        smart_str_free(&ch->handlers->write->buf);
                }
                RETURN_FALSE;
        }

        ch->uses++;

        if (ch->handlers->write->method == PHP_CURL_RETURN && ch->handlers->write->buf.len > 0) {
                --ch->uses;
                smart_str_0(&ch->handlers->write->buf);
                RETURN_STRINGL(ch->handlers->write->buf.c, ch->handlers->write->buf.len, 1);
        }
        --ch->uses;
        if (ch->handlers->write->method == PHP_CURL_RETURN) {
                RETURN_EMPTY_STRING();
        } else {
                RETURN_TRUE;
        }
}
/* }}} */

/* {{{ proto mixed curl_getinfo(resource ch [, int option])
   Get information regarding a specific transfer */
PHP_FUNCTION(curl_getinfo)
{
        zval       **zid, 
                   **zoption;
        php_curl    *ch;
        int          option, argc = ZEND_NUM_ARGS();

        if (argc < 1 || argc > 2 || zend_get_parameters_ex(argc, &zid, &zoption) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        if (argc < 2) {
                char   *s_code;
                long    l_code;
                double  d_code;

                array_init(return_value);

                if (curl_easy_getinfo(ch->cp, CURLINFO_EFFECTIVE_URL, &s_code) == CURLE_OK) {
                        CAAS("url", s_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_CONTENT_TYPE, &s_code) == CURLE_OK) {
                        if (s_code != NULL) {
                                CAAS("content_type", s_code);
                        }
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_HTTP_CODE, &l_code) == CURLE_OK) {
                        CAAL("http_code", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_HEADER_SIZE, &l_code) == CURLE_OK) {
                        CAAL("header_size", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_REQUEST_SIZE, &l_code) == CURLE_OK) {
                        CAAL("request_size", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_FILETIME, &l_code) == CURLE_OK) {
                        CAAL("filetime", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_SSL_VERIFYRESULT, &l_code) == CURLE_OK) {
                        CAAL("ssl_verify_result", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_REDIRECT_COUNT, &l_code) == CURLE_OK) {
                        CAAL("redirect_count", l_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_TOTAL_TIME, &d_code) == CURLE_OK) {
                        CAAD("total_time", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_NAMELOOKUP_TIME, &d_code) == CURLE_OK) {
                        CAAD("namelookup_time", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_CONNECT_TIME, &d_code) == CURLE_OK) {
                        CAAD("connect_time", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_PRETRANSFER_TIME, &d_code) == CURLE_OK) {
                        CAAD("pretransfer_time", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_SIZE_UPLOAD, &d_code) == CURLE_OK) {
                        CAAD("size_upload", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_SIZE_DOWNLOAD, &d_code) == CURLE_OK) {
                        CAAD("size_download", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_SPEED_DOWNLOAD, &d_code) == CURLE_OK) {
                        CAAD("speed_download", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_SPEED_UPLOAD, &d_code) == CURLE_OK) {
                        CAAD("speed_upload", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_CONTENT_LENGTH_DOWNLOAD, &d_code) == CURLE_OK) {
                        CAAD("download_content_length", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_CONTENT_LENGTH_UPLOAD, &d_code) == CURLE_OK) {
                        CAAD("upload_content_length", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_STARTTRANSFER_TIME, &d_code) == CURLE_OK) {
                        CAAD("starttransfer_time", d_code);
                }
                if (curl_easy_getinfo(ch->cp, CURLINFO_REDIRECT_TIME, &d_code) == CURLE_OK) {
                        CAAD("redirect_time", d_code);
                }
                if (ch->header.str_len > 0) {
                        CAAS("request_header", ch->header.str);
                }
        } else {
                option = Z_LVAL_PP(zoption);
                switch (option) {
                        case CURLINFO_PRIVATE:
                        case CURLINFO_EFFECTIVE_URL: 
                        case CURLINFO_CONTENT_TYPE: {
                                char *s_code = NULL;

                                if (curl_easy_getinfo(ch->cp, option, &s_code) == CURLE_OK && s_code) {
                                        RETURN_STRING(s_code, 1);
                                } else {
                                        RETURN_FALSE;
                                }
                                break;
                        }
                        case CURLINFO_HTTP_CODE: 
                        case CURLINFO_HEADER_SIZE: 
                        case CURLINFO_REQUEST_SIZE: 
                        case CURLINFO_FILETIME: 
                        case CURLINFO_SSL_VERIFYRESULT: 
                        case CURLINFO_REDIRECT_COUNT: {
                                long code = 0;

                                if (curl_easy_getinfo(ch->cp, option, &code) == CURLE_OK) {
                                        RETURN_LONG(code);
                                } else {
                                        RETURN_FALSE;
                                }
                                break;
                        }
                        case CURLINFO_TOTAL_TIME: 
                        case CURLINFO_NAMELOOKUP_TIME: 
                        case CURLINFO_CONNECT_TIME:
                        case CURLINFO_PRETRANSFER_TIME: 
                        case CURLINFO_SIZE_UPLOAD: 
                        case CURLINFO_SIZE_DOWNLOAD:
                        case CURLINFO_SPEED_DOWNLOAD: 
                        case CURLINFO_SPEED_UPLOAD: 
                        case CURLINFO_CONTENT_LENGTH_DOWNLOAD:
                        case CURLINFO_CONTENT_LENGTH_UPLOAD: 
                        case CURLINFO_STARTTRANSFER_TIME:
                        case CURLINFO_REDIRECT_TIME: {
                                double code = 0.0;

                                if (curl_easy_getinfo(ch->cp, option, &code) == CURLE_OK) {
                                        RETURN_DOUBLE(code);
                                } else {
                                        RETURN_FALSE;
                                }
                                break;
                        }
                        case CURLINFO_HEADER_OUT:
                                if (ch->header.str_len > 0) {
                                        RETURN_STRINGL(ch->header.str, ch->header.str_len, 1);
                                } else {
                                        RETURN_FALSE;
                                }
                }
        }
}
/* }}} */

/* {{{ proto string curl_error(resource ch)
   Return a string contain the last error for the current session */
PHP_FUNCTION(curl_error)
{
        zval      **zid;
        php_curl   *ch;
        
        if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zid) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        ch->err.str[CURL_ERROR_SIZE] = 0;
        RETURN_STRING(ch->err.str, 1);
}
/* }}} */

/* {{{ proto int curl_errno(resource ch)
   Return an integer containing the last error number */
PHP_FUNCTION(curl_errno)
{
        zval      **zid;
        php_curl   *ch;

        if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zid) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        RETURN_LONG(ch->err.no);
}
/* }}} */

/* {{{ proto void curl_close(resource ch)
   Close a cURL session */
PHP_FUNCTION(curl_close)
{
        zval      **zid;
        php_curl   *ch;

        if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &zid) == FAILURE) {
                WRONG_PARAM_COUNT;
        }

        ZEND_FETCH_RESOURCE(ch, php_curl *, zid, -1, le_curl_name, le_curl);

        if (ch->in_callback) {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Attempt to close cURL handle from a callback");
                return;
        }
        
        if (ch->uses) { 
                ch->uses--;
        } else {
                zend_list_delete(Z_LVAL_PP(zid));
        }
}
/* }}} */

/* {{{ _php_curl_close()
   List destructor for curl handles */
static void _php_curl_close(zend_rsrc_list_entry *rsrc TSRMLS_DC)
{
        php_curl *ch = (php_curl *) rsrc->ptr;

#if PHP_CURL_DEBUG
        fprintf(stderr, "DTOR CALLED, ch = %x\n", ch);
#endif
        
        curl_easy_cleanup(ch->cp);
        zend_llist_clean(&ch->to_free.str);
        zend_llist_clean(&ch->to_free.slist);
        zend_llist_clean(&ch->to_free.post);

        if (ch->handlers->write->buf.len > 0) {
                smart_str_free(&ch->handlers->write->buf);
        }
        if (ch->handlers->write->func_name) {
                zval_ptr_dtor(&ch->handlers->write->func_name);
        }
        if (ch->handlers->read->func_name) {
                zval_ptr_dtor(&ch->handlers->read->func_name);
        }
        if (ch->handlers->write_header->func_name) {
                zval_ptr_dtor(&ch->handlers->write_header->func_name);
        }
        if (ch->handlers->passwd) {
                zval_ptr_dtor(&ch->handlers->passwd);
        }
        if (ch->header.str_len > 0) {
                efree(ch->header.str);
        }
        
        efree(ch->handlers->write);
        efree(ch->handlers->write_header);
        efree(ch->handlers->read);
        efree(ch->handlers);
        efree(ch);
}       
/* }}} */

#endif /* HAVE_CURL */

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 * vim600: fdm=marker
 * vim: noet sw=4 ts=4
 */

/* [<][>][^][v][top][bottom][index][help] */