- added custom error function which is able to throw exceptions
[m6w6/ext-http] / http_curl_api.c
index b4a8077b299cb30c361437efd84fdae0dd8ffcc3..b576b2f473dee05d5841e4c379295655d5e8a8bd 100644 (file)
 #endif
 
 #ifdef PHP_WIN32
-#      define _WINSOCKAPI_
 #      include <winsock2.h>
-#      include <sys/types.h>
 #endif
 
 #include <curl/curl.h>
-#include <curl/easy.h>
+
+#include "phpstr/phpstr.h"
 
 #include "php.h"
 #include "php_http.h"
+#include "php_http_std_defs.h"
 #include "php_http_api.h"
 #include "php_http_curl_api.h"
-#include "php_http_std_defs.h"
-
-#ifdef ZEND_ENGINE_2
-#      include "ext/standard/php_http.h"
-#endif
+#include "php_http_url_api.h"
 
-#include "ext/standard/php_smart_str.h"
-
-ZEND_DECLARE_MODULE_GLOBALS(http)
+ZEND_EXTERN_MODULE_GLOBALS(http)
 
 #if LIBCURL_VERSION_NUM >= 0x070c01
 #      define http_curl_reset(ch) curl_easy_reset(ch)
@@ -48,6 +42,13 @@ ZEND_DECLARE_MODULE_GLOBALS(http)
 #      define http_curl_reset(ch)
 #endif
 
+#if LIBCURL_VERSION_NUM < 0x070c00
+#      define http_curl_error(dummy) HTTP_G(curlerr)
+#      define curl_easy_strerror(code) "unkown error"
+#else
+#      define http_curl_error(code) curl_easy_strerror(code)
+#endif
+
 #define http_curl_startup(ch, clean_curl, URL, options) \
        if (!ch) { \
                if (!(ch = curl_easy_init())) { \
@@ -58,7 +59,6 @@ ZEND_DECLARE_MODULE_GLOBALS(http)
        } else { \
                http_curl_reset(ch); \
        } \
-       http_curl_initbuf(); \
        http_curl_setopts(ch, URL, options);
 
 #define http_curl_perform(ch, clean_curl) \
@@ -72,60 +72,21 @@ ZEND_DECLARE_MODULE_GLOBALS(http)
        }
 
 #define http_curl_cleanup(ch, clean_curl) \
-       http_curl_freestr(); \
-       http_curl_freebuf(); \
+       phpstr_dtor(&HTTP_G(curlbuf)); \
+       zend_llist_clean(&HTTP_G(to_free)); \
        if (clean_curl) { \
                curl_easy_cleanup(ch); \
                ch = NULL; \
        }
 
-#define http_curl_freestr() \
-       zend_llist_clean(&HTTP_G(to_free))
-
-#define http_curl_initbuf() http_curl_initbuf_ex(0)
-
-#define http_curl_initbuf_ex(chunk_size) \
-       { \
-               size_t size = (chunk_size > 0) ? chunk_size : HTTP_CURLBUF_SIZE; \
-               http_curl_freebuf(); \
-               HTTP_G(curlbuf).data = emalloc(size); \
-               HTTP_G(curlbuf).free = size; \
-               HTTP_G(curlbuf).size = size; \
-       }
-
-#define http_curl_freebuf() \
-       if (HTTP_G(curlbuf).data) { \
-               efree(HTTP_G(curlbuf).data); \
-               HTTP_G(curlbuf).data = NULL; \
-       } \
-       HTTP_G(curlbuf).used = 0; \
-       HTTP_G(curlbuf).free = 0; \
-       HTTP_G(curlbuf).size = 0;
-
-#define http_curl_copybuf(data, size) \
-       *size = HTTP_G(curlbuf).used; \
-       *data = ecalloc(1, HTTP_G(curlbuf).used + 1); \
-       memcpy(*data, HTTP_G(curlbuf).data, HTTP_G(curlbuf).used);
-
-#define http_curl_sizebuf(for_size) \
-       { \
-               size_t size = (for_size); \
-               if (size > HTTP_G(curlbuf).free) { \
-                       size_t bsize = HTTP_G(curlbuf).size; \
-                       while (size > bsize) { \
-                               bsize *= 2; \
-                       } \
-                       HTTP_G(curlbuf).data = erealloc(HTTP_G(curlbuf).data, HTTP_G(curlbuf).used + bsize); \
-                       HTTP_G(curlbuf).free += bsize; \
-               } \
-       }
-
+#define http_curl_copybuf(d, l) \
+       phpstr_data(&HTTP_G(curlbuf), d, l)
 
 #define http_curl_copystr(s) _http_curl_copystr((s) TSRMLS_CC)
 static inline char *_http_curl_copystr(const char *str TSRMLS_DC);
 
 #define http_curl_setopts(c, u, o) _http_curl_setopts((c), (u), (o) TSRMLS_CC)
-static inline void _http_curl_setopts(CURL *ch, const char *url, HashTable *options TSRMLS_DC);
+static void _http_curl_setopts(CURL *ch, const char *url, HashTable *options TSRMLS_DC);
 
 #define http_curl_getopt(o, k) _http_curl_getopt((o), (k) TSRMLS_CC, 0)
 #define http_curl_getopt1(o, k, t1) _http_curl_getopt((o), (k) TSRMLS_CC, 1, (t1))
@@ -151,12 +112,7 @@ static inline char *_http_curl_copystr(const char *str TSRMLS_DC)
 static size_t http_curl_body_callback(char *buf, size_t len, size_t n, void *s)
 {
        TSRMLS_FETCH();
-
-       http_curl_sizebuf(len *= n);
-
-       memcpy(HTTP_G(curlbuf).data + HTTP_G(curlbuf).used, buf, len);
-       HTTP_G(curlbuf).free -= len;
-       HTTP_G(curlbuf).used += len;
+       phpstr_append(&HTTP_G(curlbuf), buf, len *= n);
        return len;
 }
 /* }}} */
@@ -167,14 +123,10 @@ static size_t http_curl_hdrs_callback(char *buf, size_t len, size_t n, void *s)
        TSRMLS_FETCH();
 
        /* discard previous headers */
-       if ((HTTP_G(curlbuf).used) && (!strncmp(buf, "HTTP/1.", sizeof("HTTP/1.") - 1))) {
-               http_curl_initbuf();
+       if (HTTP_G(curlbuf).used && (!strncmp(buf, "HTTP/1.", sizeof("HTTP/1.") - 1))) {
+               phpstr_free(&HTTP_G(curlbuf));
        }
-       http_curl_sizebuf(len *= n);
-
-       memcpy(HTTP_G(curlbuf).data + HTTP_G(curlbuf).used, buf, len);
-       HTTP_G(curlbuf).free -= len;
-       HTTP_G(curlbuf).used += len;
+       phpstr_append(&HTTP_G(curlbuf), buf, len *= n);
        return len;
 }
 /* }}} */
@@ -205,22 +157,27 @@ static inline zval *_http_curl_getopt(HashTable *options, char *key TSRMLS_DC, i
 }
 /* }}} */
 
-/* {{{ static inline void http_curl_setopts(CURL *, char *, HashTable *) */
-static inline void _http_curl_setopts(CURL *ch, const char *url, HashTable *options TSRMLS_DC)
+/* {{{ static void http_curl_setopts(CURL *, char *, HashTable *) */
+static void _http_curl_setopts(CURL *ch, const char *url, HashTable *options TSRMLS_DC)
 {
        zval *zoption;
        zend_bool range_req = 0;
 
+#define HTTP_CURL_OPT(OPTION, p) curl_easy_setopt(ch, CURLOPT_##OPTION, (p))
+
        /* standard options */
-       curl_easy_setopt(ch, CURLOPT_URL, url);
-       curl_easy_setopt(ch, CURLOPT_HEADER, 0);
-       curl_easy_setopt(ch, CURLOPT_FILETIME, 1);
-       curl_easy_setopt(ch, CURLOPT_NOPROGRESS, 1);
-       curl_easy_setopt(ch, CURLOPT_AUTOREFERER, 1);
-       curl_easy_setopt(ch, CURLOPT_WRITEFUNCTION, http_curl_body_callback);
-       curl_easy_setopt(ch, CURLOPT_HEADERFUNCTION, http_curl_hdrs_callback);
+       HTTP_CURL_OPT(URL, url);
+       HTTP_CURL_OPT(HEADER, 0);
+       HTTP_CURL_OPT(FILETIME, 1);
+       HTTP_CURL_OPT(NOPROGRESS, 1);
+       HTTP_CURL_OPT(AUTOREFERER, 1);
+       HTTP_CURL_OPT(WRITEFUNCTION, http_curl_body_callback);
+       HTTP_CURL_OPT(HEADERFUNCTION, http_curl_hdrs_callback);
 #if defined(ZTS) && (LIBCURL_VERSION_NUM >= 0x070a00)
-       curl_easy_setopt(ch, CURLOPT_NOSIGNAL, 1);
+       HTTP_CURL_OPT(NOSIGNAL, 1);
+#endif
+#if LIBCURL_VERSION_NUM < 0x070c00
+       HTTP_CURL_OPT(ERRORBUFFER, HTTP_G(curlerr));
 #endif
 
        if ((!options) || (1 > zend_hash_num_elements(options))) {
@@ -229,72 +186,72 @@ static inline void _http_curl_setopts(CURL *ch, const char *url, HashTable *opti
 
        /* proxy */
        if (zoption = http_curl_getopt1(options, "proxyhost", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_PROXY, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(PROXY, http_curl_copystr(Z_STRVAL_P(zoption)));
                /* port */
                if (zoption = http_curl_getopt1(options, "proxyport", IS_LONG)) {
-                       curl_easy_setopt(ch, CURLOPT_PROXYPORT, Z_LVAL_P(zoption));
+                       HTTP_CURL_OPT(PROXYPORT, Z_LVAL_P(zoption));
                }
                /* user:pass */
                if (zoption = http_curl_getopt1(options, "proxyauth", IS_STRING)) {
-                       curl_easy_setopt(ch, CURLOPT_PROXYUSERPWD, http_curl_copystr(Z_STRVAL_P(zoption)));
+                       HTTP_CURL_OPT(PROXYUSERPWD, http_curl_copystr(Z_STRVAL_P(zoption)));
                }
 #if LIBCURL_VERSION_NUM >= 0x070a07
                /* auth method */
                if (zoption = http_curl_getopt1(options, "proxyauthtype", IS_LONG)) {
-                       curl_easy_setopt(ch, CURLOPT_PROXYAUTH, Z_LVAL_P(zoption));
+                       HTTP_CURL_OPT(PROXYAUTH, Z_LVAL_P(zoption));
                }
 #endif
        }
 
        /* outgoing interface */
        if (zoption = http_curl_getopt1(options, "interface", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_INTERFACE, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(INTERFACE, http_curl_copystr(Z_STRVAL_P(zoption)));
        }
 
        /* another port */
        if (zoption = http_curl_getopt1(options, "port", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_PORT, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(PORT, Z_LVAL_P(zoption));
        }
 
        /* auth */
        if (zoption = http_curl_getopt1(options, "httpauth", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_USERPWD, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(USERPWD, http_curl_copystr(Z_STRVAL_P(zoption)));
        }
 #if LIBCURL_VERSION_NUM >= 0x070a06
        if (zoption = http_curl_getopt1(options, "httpauthtype", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_HTTPAUTH, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(HTTPAUTH, Z_LVAL_P(zoption));
        }
 #endif
 
        /* compress, empty string enables deflate and gzip */
        if (zoption = http_curl_getopt2(options, "compress", IS_LONG, IS_BOOL)) {
                if (Z_LVAL_P(zoption)) {
-                       curl_easy_setopt(ch, CURLOPT_ENCODING, "");
+                       HTTP_CURL_OPT(ENCODING, "");
                }
        }
 
        /* redirects, defaults to 0 */
        if (zoption = http_curl_getopt1(options, "redirect", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_FOLLOWLOCATION, Z_LVAL_P(zoption) ? 1 : 0);
-               curl_easy_setopt(ch, CURLOPT_MAXREDIRS, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(FOLLOWLOCATION, Z_LVAL_P(zoption) ? 1 : 0);
+               HTTP_CURL_OPT(MAXREDIRS, Z_LVAL_P(zoption));
                if (zoption = http_curl_getopt2(options, "unrestrictedauth", IS_LONG, IS_BOOL)) {
-                       curl_easy_setopt(ch, CURLOPT_UNRESTRICTED_AUTH, Z_LVAL_P(zoption));
+                       HTTP_CURL_OPT(UNRESTRICTED_AUTH, Z_LVAL_P(zoption));
                }
        } else {
-               curl_easy_setopt(ch, CURLOPT_FOLLOWLOCATION, 0);
+               HTTP_CURL_OPT(FOLLOWLOCATION, 0);
        }
 
        /* referer */
        if (zoption = http_curl_getopt1(options, "referer", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_REFERER, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(REFERER, http_curl_copystr(Z_STRVAL_P(zoption)));
        }
 
        /* useragent, default "PECL::HTTP/version (PHP/version)" */
        if (zoption = http_curl_getopt1(options, "useragent", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_USERAGENT, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(USERAGENT, http_curl_copystr(Z_STRVAL_P(zoption)));
        } else {
-               curl_easy_setopt(ch, CURLOPT_USERAGENT,
-                       "PECL::HTTP/" PHP_EXT_HTTP_VERSION " (PHP/" PHP_VERSION ")");
+               HTTP_CURL_OPT(USERAGENT,
+                       "PECL::HTTP/" HTTP_PEXT_VERSION " (PHP/" PHP_VERSION ")");
        }
 
        /* additional headers, array('name' => 'value') */
@@ -318,7 +275,7 @@ static inline void _http_curl_setopts(CURL *ch, const char *url, HashTable *opti
                }
 
                if (headers) {
-                       curl_easy_setopt(ch, CURLOPT_HTTPHEADER, headers);
+                       HTTP_CURL_OPT(HTTPHEADER, headers);
                }
        }
 
@@ -326,61 +283,118 @@ static inline void _http_curl_setopts(CURL *ch, const char *url, HashTable *opti
        if (zoption = http_curl_getopt1(options, "cookies", IS_ARRAY)) {
                char *cookie_key = NULL;
                long cookie_idx = 0;
-               smart_str qstr = {0};
+               phpstr *qstr = phpstr_new();
 
                FOREACH_KEY(zoption, cookie_key, cookie_idx) {
                        if (cookie_key) {
                                zval **cookie_val;
                                if (SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zoption), (void **) &cookie_val)) {
-                                       smart_str_appends(&qstr, cookie_key);
-                                       smart_str_appendl(&qstr, "=", 1);
-                                       smart_str_appendl(&qstr, Z_STRVAL_PP(cookie_val), Z_STRLEN_PP(cookie_val));
-                                       smart_str_appendl(&qstr, "; ", 2);
+                                       phpstr_appendf(qstr, "%s=%s; ", cookie_key, Z_STRVAL_PP(cookie_val));
                                }
 
                                /* reset */
                                cookie_key = NULL;
                        }
                }
-               smart_str_0(&qstr);
 
-               if (qstr.c) {
-                       curl_easy_setopt(ch, CURLOPT_COOKIE, http_curl_copystr(qstr.c));
-                       efree(qstr.c);
+               if (qstr->used) {
+                       phpstr_fix(qstr);
+                       HTTP_CURL_OPT(COOKIE, http_curl_copystr(qstr->data));
                }
+               phpstr_free(qstr);
        }
 
        /* cookiestore */
        if (zoption = http_curl_getopt1(options, "cookiestore", IS_STRING)) {
-               curl_easy_setopt(ch, CURLOPT_COOKIEFILE, http_curl_copystr(Z_STRVAL_P(zoption)));
-               curl_easy_setopt(ch, CURLOPT_COOKIEJAR, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(COOKIEFILE, http_curl_copystr(Z_STRVAL_P(zoption)));
+               HTTP_CURL_OPT(COOKIEJAR, http_curl_copystr(Z_STRVAL_P(zoption)));
        }
 
        /* resume */
        if (zoption = http_curl_getopt1(options, "resume", IS_LONG)) {
                range_req = 1;
-               curl_easy_setopt(ch, CURLOPT_RESUME_FROM, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(RESUME_FROM, Z_LVAL_P(zoption));
        }
 
        /* maxfilesize */
        if (zoption = http_curl_getopt1(options, "maxfilesize", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_MAXFILESIZE, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(MAXFILESIZE, Z_LVAL_P(zoption));
        }
 
        /* lastmodified */
        if (zoption = http_curl_getopt1(options, "lastmodified", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_TIMECONDITION, range_req ? CURL_TIMECOND_IFUNMODSINCE : CURL_TIMECOND_IFMODSINCE);
-               curl_easy_setopt(ch, CURLOPT_TIMEVALUE, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(TIMECONDITION, range_req ? CURL_TIMECOND_IFUNMODSINCE : CURL_TIMECOND_IFMODSINCE);
+               HTTP_CURL_OPT(TIMEVALUE, Z_LVAL_P(zoption));
        }
 
        /* timeout */
        if (zoption = http_curl_getopt1(options, "timeout", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_TIMEOUT, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(TIMEOUT, Z_LVAL_P(zoption));
        }
 
        /* connecttimeout */
        if (zoption = http_curl_getopt1(options, "connecttimeout", IS_LONG)) {
-               curl_easy_setopt(ch, CURLOPT_CONNECTTIMEOUT, Z_LVAL_P(zoption));
+               HTTP_CURL_OPT(CONNECTTIMEOUT, Z_LVAL_P(zoption));
+       }
+
+       /* ssl */
+       if (zoption = http_curl_getopt1(options, "ssl", IS_ARRAY)) {
+               long idx;
+               char *key = NULL;
+               zval **param;
+
+#define HTTP_CURL_OPT_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, keyname)
+#define HTTP_CURL_OPT_SSL_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL##keyname)
+#define HTTP_CURL_OPT_SSL_STRING_(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL_##keyname)
+#define HTTP_CURL_OPT_STRING_EX(keyname, optname) \
+       if (!strcasecmp(key, #keyname)) { \
+               convert_to_string_ex(param); \
+               HTTP_CURL_OPT(optname, Z_STRVAL_PP(param)); \
+               key = NULL; \
+               continue; \
+       }
+#define HTTP_CURL_OPT_LONG(keyname) HTTP_OPT_SSL_LONG_EX(keyname, keyname)
+#define HTTP_CURL_OPT_SSL_LONG(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL##keyname)
+#define HTTP_CURL_OPT_SSL_LONG_(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL_##keyname)
+#define HTTP_CURL_OPT_LONG_EX(keyname, optname) \
+       if (!strcasecmp(key, #keyname)) { \
+               convert_to_long_ex(param); \
+               HTTP_CURL_OPT(optname, Z_LVAL_PP(param)); \
+               key = NULL; \
+               continue; \
+       }
+
+               FOREACH_KEYVAL(zoption, key, idx, param) {
+                       if (key) {
+                               HTTP_CURL_OPT_SSL_STRING(CERT);
+#if LIBCURL_VERSION_NUM >= 0x070903
+                               HTTP_CURL_OPT_SSL_STRING(CERTTYPE);
+#endif
+                               HTTP_CURL_OPT_SSL_STRING(CERTPASSWD);
+
+                               HTTP_CURL_OPT_SSL_STRING(KEY);
+                               HTTP_CURL_OPT_SSL_STRING(KEYTYPE);
+                               HTTP_CURL_OPT_SSL_STRING(KEYPASSWD);
+
+                               HTTP_CURL_OPT_SSL_STRING(ENGINE);
+                               HTTP_CURL_OPT_SSL_LONG(VERSION);
+
+                               HTTP_CURL_OPT_SSL_LONG_(VERIFYPEER);
+                               HTTP_CURL_OPT_SSL_LONG_(VERIFYHOST);
+                               HTTP_CURL_OPT_SSL_STRING_(CIPHER_LIST);
+
+
+                               HTTP_CURL_OPT_STRING(CAINFO);
+#if LIBCURL_VERSION_NUM >= 0x070908
+                               HTTP_CURL_OPT_STRING(CAPATH);
+#endif
+                               HTTP_CURL_OPT_STRING(RANDOM_FILE);
+                               HTTP_CURL_OPT_STRING(EGDSOCKET);
+
+                               /* reset key */
+                               key = NULL;
+                       }
+               }
        }
 }
 /* }}} */
@@ -550,26 +564,18 @@ PHP_HTTP_API STATUS _http_post_data_ex(CURL *ch, const char *URL, char *postdata
 PHP_HTTP_API STATUS _http_post_array_ex(CURL *ch, const char *URL, HashTable *postarray,
        HashTable *options, HashTable *info, char **data, size_t *data_len TSRMLS_DC)
 {
-       smart_str qstr = {0};
        STATUS status;
+       char *encoded;
+       size_t encoded_len;
 
-       HTTP_URL_ARGSEP_OVERRIDE;
-       if (php_url_encode_hash_ex(postarray, &qstr, NULL,0,NULL,0,NULL,0,NULL TSRMLS_CC) != SUCCESS) {
-               if (qstr.c) {
-                       efree(qstr.c);
-               }
+       if (SUCCESS != http_urlencode_hash_ex(postarray, 1, NULL, 0, &encoded, &encoded_len)) {
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not encode post data");
-               HTTP_URL_ARGSEP_RESTORE;
                return FAILURE;
        }
-       smart_str_0(&qstr);
-       HTTP_URL_ARGSEP_RESTORE;
 
-       status = http_post_data_ex(ch, URL, qstr.c, qstr.len, options, info, data, data_len);
+       status = http_post_data_ex(ch, URL, encoded, encoded_len, options, info, data, data_len);
+       efree(encoded);
 
-       if (qstr.c) {
-               efree(qstr.c);
-       }
        return status;
 }
 /* }}} */
@@ -605,4 +611,3 @@ PHP_HTTP_API STATUS _http_post_curldata_ex(CURL *ch, const char *URL,
  * vim600: noet sw=4 ts=4 fdm=marker
  * vim<600: noet sw=4 ts=4
  */
-