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

   1 /*
   2     +--------------------------------------------------------------------+
   3     | PECL :: http                                                       |
   4     +--------------------------------------------------------------------+
   5     | Redistribution and use in source and binary forms, with or without |
   6     | modification, are permitted provided that the conditions mentioned |
   7     | in the accompanying LICENSE file are met.                          |
   8     +--------------------------------------------------------------------+
   9     | Copyright (c) 2004-2010, Michael Wallner <mike@php.net>            |
  10     +--------------------------------------------------------------------+
  11 */
  12
  13 /* $Id$ */
  14
  15 #define HTTP_WANT_CURL
  16 #include "php_http.h"
  17
  18 #if defined(ZEND_ENGINE_2) && defined(HTTP_HAVE_CURL)
  19
  20 #include "zend_interfaces.h"
  21
  22 #include "php_http_api.h"
  23 #include "php_http_cookie_api.h"
  24 #include "php_http_exception_object.h"
  25 #include "php_http_message_api.h"
  26 #include "php_http_message_object.h"
  27 #include "php_http_request_api.h"
  28 #include "php_http_request_object.h"
  29 #include "php_http_request_pool_api.h"
  30 #include "php_http_url_api.h"
  31
  32 #define HTTP_BEGIN_ARGS(method, req_args)       HTTP_BEGIN_ARGS_EX(HttpRequest, method, 0, req_args)
  33 #define HTTP_EMPTY_ARGS(method)                         HTTP_EMPTY_ARGS_EX(HttpRequest, method, 0)
  34 #define HTTP_REQUEST_ME(method, visibility)     PHP_ME(HttpRequest, method, HTTP_ARGS(HttpRequest, method), visibility)
  35 #define HTTP_REQUEST_ALIAS(method, func)        HTTP_STATIC_ME_ALIAS(method, func, HTTP_ARGS(HttpRequest, method))
  36 #define HTTP_REQUEST_MALIAS(me, al, vis)        ZEND_FENTRY(me, ZEND_MN(HttpRequest_##al), HTTP_ARGS(HttpRequest, al), vis)
  37
  38 HTTP_BEGIN_ARGS(__construct, 0)
  39         HTTP_ARG_VAL(url, 0)
  40         HTTP_ARG_VAL(method, 0)
  41         HTTP_ARG_VAL(options, 0)
  42 HTTP_END_ARGS;
  43
  44 HTTP_BEGIN_ARGS(factory, 0)
  45         HTTP_ARG_VAL(url, 0)
  46         HTTP_ARG_VAL(method, 0)
  47         HTTP_ARG_VAL(options, 0)
  48         HTTP_ARG_VAL(class_name, 0)
  49 HTTP_END_ARGS;
  50
  51 HTTP_EMPTY_ARGS(getOptions);
  52 HTTP_BEGIN_ARGS(setOptions, 0)
  53         HTTP_ARG_VAL(options, 0)
  54 HTTP_END_ARGS;
  55
  56 HTTP_EMPTY_ARGS(getSslOptions);
  57 HTTP_BEGIN_ARGS(setSslOptions, 0)
  58         HTTP_ARG_VAL(ssl_options, 0)
  59 HTTP_END_ARGS;
  60
  61 HTTP_BEGIN_ARGS(addSslOptions, 0)
  62         HTTP_ARG_VAL(ssl_optins, 0)
  63 HTTP_END_ARGS;
  64
  65 HTTP_EMPTY_ARGS(getHeaders);
  66 HTTP_BEGIN_ARGS(setHeaders, 0)
  67         HTTP_ARG_VAL(headers, 0)
  68 HTTP_END_ARGS;
  69
  70 HTTP_BEGIN_ARGS(addHeaders, 1)
  71         HTTP_ARG_VAL(headers, 0)
  72 HTTP_END_ARGS;
  73
  74 HTTP_EMPTY_ARGS(getCookies);
  75 HTTP_BEGIN_ARGS(setCookies, 0)
  76         HTTP_ARG_VAL(cookies, 0)
  77 HTTP_END_ARGS;
  78
  79 HTTP_BEGIN_ARGS(addCookies, 1)
  80         HTTP_ARG_VAL(cookies, 0)
  81 HTTP_END_ARGS;
  82
  83 HTTP_EMPTY_ARGS(enableCookies);
  84 HTTP_BEGIN_ARGS(resetCookies, 0)
  85         HTTP_ARG_VAL(session_only, 0)
  86 HTTP_END_ARGS;
  87 HTTP_EMPTY_ARGS(flushCookies);
  88
  89 HTTP_EMPTY_ARGS(getUrl);
  90 HTTP_BEGIN_ARGS(setUrl, 1)
  91         HTTP_ARG_VAL(url, 0)
  92 HTTP_END_ARGS;
  93
  94 HTTP_EMPTY_ARGS(getMethod);
  95 HTTP_BEGIN_ARGS(setMethod, 1)
  96         HTTP_ARG_VAL(request_method, 0)
  97 HTTP_END_ARGS;
  98
  99 HTTP_EMPTY_ARGS(getContentType);
 100 HTTP_BEGIN_ARGS(setContentType, 1)
 101         HTTP_ARG_VAL(content_type, 0)
 102 HTTP_END_ARGS;
 103
 104 HTTP_EMPTY_ARGS(getQueryData);
 105 HTTP_BEGIN_ARGS(setQueryData, 0)
 106         HTTP_ARG_VAL(query_data, 0)
 107 HTTP_END_ARGS;
 108
 109 HTTP_BEGIN_ARGS(addQueryData, 1)
 110         HTTP_ARG_VAL(query_data, 0)
 111 HTTP_END_ARGS;
 112
 113 HTTP_EMPTY_ARGS(getPostFields);
 114 HTTP_BEGIN_ARGS(setPostFields, 0)
 115         HTTP_ARG_VAL(post_fields, 0)
 116 HTTP_END_ARGS;
 117
 118 HTTP_BEGIN_ARGS(addPostFields, 1)
 119         HTTP_ARG_VAL(post_fields, 0)
 120 HTTP_END_ARGS;
 121
 122 HTTP_EMPTY_ARGS(getPostFiles);
 123 HTTP_BEGIN_ARGS(setPostFiles, 0)
 124         HTTP_ARG_VAL(post_files, 0)
 125 HTTP_END_ARGS;
 126
 127 HTTP_BEGIN_ARGS(addPostFile, 2)
 128         HTTP_ARG_VAL(formname, 0)
 129         HTTP_ARG_VAL(filename, 0)
 130         HTTP_ARG_VAL(content_type, 0)
 131 HTTP_END_ARGS;
 132
 133 HTTP_EMPTY_ARGS(getBody);
 134 HTTP_BEGIN_ARGS(setBody, 0)
 135         HTTP_ARG_VAL(request_body_data, 0)
 136 HTTP_END_ARGS;
 137
 138 HTTP_BEGIN_ARGS(addBody, 1)
 139         HTTP_ARG_VAL(request_body_data, 0)
 140 HTTP_END_ARGS;
 141
 142 HTTP_EMPTY_ARGS(getPutFile);
 143 HTTP_BEGIN_ARGS(setPutFile, 0)
 144         HTTP_ARG_VAL(filename, 0)
 145 HTTP_END_ARGS;
 146
 147 HTTP_EMPTY_ARGS(getPutData);
 148 HTTP_BEGIN_ARGS(setPutData, 0)
 149         HTTP_ARG_VAL(put_data, 0)
 150 HTTP_END_ARGS;
 151
 152 HTTP_BEGIN_ARGS(addPutData, 1)
 153         HTTP_ARG_VAL(put_data, 0)
 154 HTTP_END_ARGS;
 155
 156 HTTP_EMPTY_ARGS(getResponseData);
 157 HTTP_BEGIN_ARGS(getResponseHeader, 0)
 158         HTTP_ARG_VAL(name, 0)
 159 HTTP_END_ARGS;
 160
 161 HTTP_BEGIN_ARGS(getResponseCookies, 0)
 162         HTTP_ARG_VAL(flags, 0)
 163         HTTP_ARG_VAL(allowed_extras, 0)
 164 HTTP_END_ARGS;
 165
 166 HTTP_EMPTY_ARGS(getResponseBody);
 167 HTTP_EMPTY_ARGS(getResponseCode);
 168 HTTP_EMPTY_ARGS(getResponseStatus);
 169 HTTP_BEGIN_ARGS(getResponseInfo, 0)
 170         HTTP_ARG_VAL(name, 0)
 171 HTTP_END_ARGS;
 172
 173 HTTP_EMPTY_ARGS(getMessageClass);
 174 HTTP_BEGIN_ARGS(setMessageClass, 1)
 175         HTTP_ARG_VAL(message_class_name, 0)
 176 HTTP_END_ARGS;
 177
 178 HTTP_EMPTY_ARGS(getResponseMessage);
 179 HTTP_EMPTY_ARGS(getRawResponseMessage);
 180 HTTP_EMPTY_ARGS(getRequestMessage);
 181 HTTP_EMPTY_ARGS(getRawRequestMessage);
 182 HTTP_EMPTY_ARGS(getHistory);
 183 HTTP_EMPTY_ARGS(clearHistory);
 184 HTTP_EMPTY_ARGS(send);
 185
 186 HTTP_BEGIN_ARGS(get, 1)
 187         HTTP_ARG_VAL(url, 0)
 188         HTTP_ARG_VAL(options, 0)
 189         HTTP_ARG_VAL(info, 1)
 190 HTTP_END_ARGS;
 191
 192 HTTP_BEGIN_ARGS(head, 1)
 193         HTTP_ARG_VAL(url, 0)
 194         HTTP_ARG_VAL(options, 0)
 195         HTTP_ARG_VAL(info, 1)
 196 HTTP_END_ARGS;
 197
 198 HTTP_BEGIN_ARGS(postData, 2)
 199         HTTP_ARG_VAL(url, 0)
 200         HTTP_ARG_VAL(data, 0)
 201         HTTP_ARG_VAL(options, 0)
 202         HTTP_ARG_VAL(info, 1)
 203 HTTP_END_ARGS;
 204
 205 HTTP_BEGIN_ARGS(postFields, 2)
 206         HTTP_ARG_VAL(url, 0)
 207         HTTP_ARG_VAL(data, 0)
 208         HTTP_ARG_VAL(options, 0)
 209         HTTP_ARG_VAL(info, 1)
 210 HTTP_END_ARGS;
 211
 212 HTTP_BEGIN_ARGS(putData, 2)
 213         HTTP_ARG_VAL(url, 0)
 214         HTTP_ARG_VAL(data, 0)
 215         HTTP_ARG_VAL(options, 0)
 216         HTTP_ARG_VAL(info, 1)
 217 HTTP_END_ARGS;
 218
 219 HTTP_BEGIN_ARGS(putFile, 2)
 220         HTTP_ARG_VAL(url, 0)
 221         HTTP_ARG_VAL(file, 0)
 222         HTTP_ARG_VAL(options, 0)
 223         HTTP_ARG_VAL(info, 1)
 224 HTTP_END_ARGS;
 225
 226 HTTP_BEGIN_ARGS(putStream, 2)
 227         HTTP_ARG_VAL(url, 0)
 228         HTTP_ARG_VAL(stream, 0)
 229         HTTP_ARG_VAL(options, 0)
 230         HTTP_ARG_VAL(info, 1)
 231 HTTP_END_ARGS;
 232
 233 HTTP_BEGIN_ARGS(methodRegister, 1)
 234         HTTP_ARG_VAL(method_name, 0)
 235 HTTP_END_ARGS;
 236
 237 HTTP_BEGIN_ARGS(methodUnregister, 1)
 238         HTTP_ARG_VAL(method, 0)
 239 HTTP_END_ARGS;
 240
 241 HTTP_BEGIN_ARGS(methodName, 1)
 242         HTTP_ARG_VAL(method_id, 0)
 243 HTTP_END_ARGS;
 244
 245 HTTP_BEGIN_ARGS(methodExists, 1)
 246         HTTP_ARG_VAL(method, 0)
 247 HTTP_END_ARGS;
 248
 249 #ifdef HAVE_CURL_FORMGET
 250 HTTP_BEGIN_ARGS(encodeBody, 2)
 251         HTTP_ARG_VAL(fields, 0)
 252         HTTP_ARG_VAL(files, 0)
 253 HTTP_END_ARGS;
 254 #endif
 255
 256 #define THIS_CE http_request_object_ce
 257 zend_class_entry *http_request_object_ce;
 258 zend_function_entry http_request_object_fe[] = {
 259         HTTP_REQUEST_ME(__construct, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
 260
 261         HTTP_REQUEST_ME(setOptions, ZEND_ACC_PUBLIC)
 262         HTTP_REQUEST_ME(getOptions, ZEND_ACC_PUBLIC)
 263         HTTP_REQUEST_ME(setSslOptions, ZEND_ACC_PUBLIC)
 264         HTTP_REQUEST_ME(getSslOptions, ZEND_ACC_PUBLIC)
 265         HTTP_REQUEST_ME(addSslOptions, ZEND_ACC_PUBLIC)
 266
 267         HTTP_REQUEST_ME(addHeaders, ZEND_ACC_PUBLIC)
 268         HTTP_REQUEST_ME(getHeaders, ZEND_ACC_PUBLIC)
 269         HTTP_REQUEST_ME(setHeaders, ZEND_ACC_PUBLIC)
 270
 271         HTTP_REQUEST_ME(addCookies, ZEND_ACC_PUBLIC)
 272         HTTP_REQUEST_ME(getCookies, ZEND_ACC_PUBLIC)
 273         HTTP_REQUEST_ME(setCookies, ZEND_ACC_PUBLIC)
 274
 275         HTTP_REQUEST_ME(enableCookies, ZEND_ACC_PUBLIC)
 276         HTTP_REQUEST_ME(resetCookies, ZEND_ACC_PUBLIC)
 277         HTTP_REQUEST_ME(flushCookies, ZEND_ACC_PUBLIC)
 278
 279         HTTP_REQUEST_ME(setMethod, ZEND_ACC_PUBLIC)
 280         HTTP_REQUEST_ME(getMethod, ZEND_ACC_PUBLIC)
 281
 282         HTTP_REQUEST_ME(setUrl, ZEND_ACC_PUBLIC)
 283         HTTP_REQUEST_ME(getUrl, ZEND_ACC_PUBLIC)
 284
 285         HTTP_REQUEST_ME(setContentType, ZEND_ACC_PUBLIC)
 286         HTTP_REQUEST_ME(getContentType, ZEND_ACC_PUBLIC)
 287
 288         HTTP_REQUEST_ME(setQueryData, ZEND_ACC_PUBLIC)
 289         HTTP_REQUEST_ME(getQueryData, ZEND_ACC_PUBLIC)
 290         HTTP_REQUEST_ME(addQueryData, ZEND_ACC_PUBLIC)
 291
 292         HTTP_REQUEST_ME(setPostFields, ZEND_ACC_PUBLIC)
 293         HTTP_REQUEST_ME(getPostFields, ZEND_ACC_PUBLIC)
 294         HTTP_REQUEST_ME(addPostFields, ZEND_ACC_PUBLIC)
 295
 296         HTTP_REQUEST_ME(setBody, ZEND_ACC_PUBLIC)
 297         HTTP_REQUEST_ME(getBody, ZEND_ACC_PUBLIC)
 298         HTTP_REQUEST_ME(addBody, ZEND_ACC_PUBLIC)
 299         HTTP_REQUEST_MALIAS(setRawPostData, setBody, ZEND_ACC_PUBLIC|ZEND_ACC_DEPRECATED)
 300         HTTP_REQUEST_MALIAS(getRawPostData, getBody, ZEND_ACC_PUBLIC|ZEND_ACC_DEPRECATED)
 301         HTTP_REQUEST_MALIAS(addRawPostData, addBody, ZEND_ACC_PUBLIC|ZEND_ACC_DEPRECATED)
 302
 303         HTTP_REQUEST_ME(setPostFiles, ZEND_ACC_PUBLIC)
 304         HTTP_REQUEST_ME(addPostFile, ZEND_ACC_PUBLIC)
 305         HTTP_REQUEST_ME(getPostFiles, ZEND_ACC_PUBLIC)
 306
 307         HTTP_REQUEST_ME(setPutFile, ZEND_ACC_PUBLIC)
 308         HTTP_REQUEST_ME(getPutFile, ZEND_ACC_PUBLIC)
 309
 310         HTTP_REQUEST_ME(setPutData, ZEND_ACC_PUBLIC)
 311         HTTP_REQUEST_ME(getPutData, ZEND_ACC_PUBLIC)
 312         HTTP_REQUEST_ME(addPutData, ZEND_ACC_PUBLIC)
 313
 314         HTTP_REQUEST_ME(send, ZEND_ACC_PUBLIC)
 315
 316         HTTP_REQUEST_ME(getResponseData, ZEND_ACC_PUBLIC)
 317         HTTP_REQUEST_ME(getResponseHeader, ZEND_ACC_PUBLIC)
 318         HTTP_REQUEST_ME(getResponseCookies, ZEND_ACC_PUBLIC)
 319         HTTP_REQUEST_ME(getResponseCode, ZEND_ACC_PUBLIC)
 320         HTTP_REQUEST_ME(getResponseStatus, ZEND_ACC_PUBLIC)
 321         HTTP_REQUEST_ME(getResponseBody, ZEND_ACC_PUBLIC)
 322         HTTP_REQUEST_ME(getResponseInfo, ZEND_ACC_PUBLIC)
 323         HTTP_REQUEST_ME(getResponseMessage, ZEND_ACC_PUBLIC)
 324         HTTP_REQUEST_ME(getRawResponseMessage, ZEND_ACC_PUBLIC)
 325         HTTP_REQUEST_ME(getRequestMessage, ZEND_ACC_PUBLIC)
 326         HTTP_REQUEST_ME(getRawRequestMessage, ZEND_ACC_PUBLIC)
 327         HTTP_REQUEST_ME(getHistory, ZEND_ACC_PUBLIC)
 328         HTTP_REQUEST_ME(clearHistory, ZEND_ACC_PUBLIC)
 329
 330         HTTP_REQUEST_ME(getMessageClass, ZEND_ACC_PUBLIC)
 331         HTTP_REQUEST_ME(setMessageClass, ZEND_ACC_PUBLIC)
 332
 333         HTTP_REQUEST_ME(factory, ZEND_ACC_PUBLIC|ZEND_ACC_STATIC)
 334
 335         HTTP_REQUEST_ALIAS(get, http_get)
 336         HTTP_REQUEST_ALIAS(head, http_head)
 337         HTTP_REQUEST_ALIAS(postData, http_post_data)
 338         HTTP_REQUEST_ALIAS(postFields, http_post_fields)
 339         HTTP_REQUEST_ALIAS(putData, http_put_data)
 340         HTTP_REQUEST_ALIAS(putFile, http_put_file)
 341         HTTP_REQUEST_ALIAS(putStream, http_put_stream)
 342
 343         HTTP_REQUEST_ALIAS(methodRegister, http_request_method_register)
 344         HTTP_REQUEST_ALIAS(methodUnregister, http_request_method_unregister)
 345         HTTP_REQUEST_ALIAS(methodName, http_request_method_name)
 346         HTTP_REQUEST_ALIAS(methodExists, http_request_method_exists)
 347 #ifdef HAVE_CURL_FORMGET
 348         HTTP_REQUEST_ALIAS(encodeBody, http_request_body_encode)
 349 #endif
 350         EMPTY_FUNCTION_ENTRY
 351 };
 352 static zend_object_handlers http_request_object_handlers;
 353
 354 PHP_MINIT_FUNCTION(http_request_object)
 355 {
 356         HTTP_REGISTER_CLASS_EX(HttpRequest, http_request_object, NULL, 0);
 357         http_request_object_handlers.clone_obj = _http_request_object_clone_obj;
 358
 359         zend_declare_property_null(THIS_CE, ZEND_STRS("options")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 360         zend_declare_property_null(THIS_CE, ZEND_STRS("postFields")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 361         zend_declare_property_null(THIS_CE, ZEND_STRS("postFiles")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 362         zend_declare_property_null(THIS_CE, ZEND_STRS("responseInfo")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 363         zend_declare_property_null(THIS_CE, ZEND_STRS("responseMessage")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 364         zend_declare_property_long(THIS_CE, ZEND_STRS("responseCode")-1, 0, ZEND_ACC_PRIVATE TSRMLS_CC);
 365         zend_declare_property_string(THIS_CE, ZEND_STRS("responseStatus")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 366         zend_declare_property_long(THIS_CE, ZEND_STRS("method")-1, HTTP_GET, ZEND_ACC_PRIVATE TSRMLS_CC);
 367         zend_declare_property_string(THIS_CE, ZEND_STRS("url")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 368         zend_declare_property_string(THIS_CE, ZEND_STRS("contentType")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 369         zend_declare_property_string(THIS_CE, ZEND_STRS("requestBody")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 370         zend_declare_property_string(THIS_CE, ZEND_STRS("queryData")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 371         zend_declare_property_string(THIS_CE, ZEND_STRS("putFile")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 372         zend_declare_property_string(THIS_CE, ZEND_STRS("putData")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 373         zend_declare_property_null(THIS_CE, ZEND_STRS("history")-1, ZEND_ACC_PRIVATE TSRMLS_CC);
 374         zend_declare_property_bool(THIS_CE, ZEND_STRS("recordHistory")-1, 0, ZEND_ACC_PUBLIC TSRMLS_CC);
 375         zend_declare_property_string(THIS_CE, ZEND_STRS("messageClass")-1, "", ZEND_ACC_PRIVATE TSRMLS_CC);
 376
 377 #ifndef WONKY
 378         /*
 379          * Request Method Constants
 380         */
 381         /* HTTP/1.1 */
 382         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_GET")-1, HTTP_GET TSRMLS_CC);
 383         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_HEAD")-1, HTTP_HEAD TSRMLS_CC);
 384         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_POST")-1, HTTP_POST TSRMLS_CC);
 385         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_PUT")-1, HTTP_PUT TSRMLS_CC);
 386         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_DELETE")-1, HTTP_DELETE TSRMLS_CC);
 387         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_OPTIONS")-1, HTTP_OPTIONS TSRMLS_CC);
 388         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_TRACE")-1, HTTP_TRACE TSRMLS_CC);
 389         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_CONNECT")-1, HTTP_CONNECT TSRMLS_CC);
 390         /* WebDAV - RFC 2518 */
 391         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_PROPFIND")-1, HTTP_PROPFIND TSRMLS_CC);
 392         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_PROPPATCH")-1, HTTP_PROPPATCH TSRMLS_CC);
 393         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_MKCOL")-1, HTTP_MKCOL TSRMLS_CC);
 394         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_COPY")-1, HTTP_COPY TSRMLS_CC);
 395         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_MOVE")-1, HTTP_MOVE TSRMLS_CC);
 396         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_LOCK")-1, HTTP_LOCK TSRMLS_CC);
 397         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_UNLOCK")-1, HTTP_UNLOCK TSRMLS_CC);
 398         /* WebDAV Versioning - RFC 3253 */
 399         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_VERSION_CONTROL")-1, HTTP_VERSION_CONTROL TSRMLS_CC);
 400         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_REPORT")-1, HTTP_REPORT TSRMLS_CC);
 401         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_CHECKOUT")-1, HTTP_CHECKOUT TSRMLS_CC);
 402         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_CHECKIN")-1, HTTP_CHECKIN TSRMLS_CC);
 403         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_UNCHECKOUT")-1, HTTP_UNCHECKOUT TSRMLS_CC);
 404         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_MKWORKSPACE")-1, HTTP_MKWORKSPACE TSRMLS_CC);
 405         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_UPDATE")-1, HTTP_UPDATE TSRMLS_CC);
 406         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_LABEL")-1, HTTP_LABEL TSRMLS_CC);
 407         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_MERGE")-1, HTTP_MERGE TSRMLS_CC);
 408         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_BASELINE_CONTROL")-1, HTTP_BASELINE_CONTROL TSRMLS_CC);
 409         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_MKACTIVITY")-1, HTTP_MKACTIVITY TSRMLS_CC);
 410         /* WebDAV Access Control - RFC 3744 */
 411         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("METH_ACL")-1, HTTP_ACL TSRMLS_CC);
 412
 413         /*
 414         * HTTP Protocol Version Constants
 415         */
 416         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("VERSION_1_0")-1, CURL_HTTP_VERSION_1_0 TSRMLS_CC);
 417         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("VERSION_1_1")-1, CURL_HTTP_VERSION_1_1 TSRMLS_CC);
 418         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("VERSION_NONE")-1, CURL_HTTP_VERSION_NONE TSRMLS_CC); /* to be removed */
 419         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("VERSION_ANY")-1, CURL_HTTP_VERSION_NONE TSRMLS_CC);
 420
 421         /*
 422         * SSL Version Constants
 423         */
 424         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("SSL_VERSION_TLSv1")-1, CURL_SSLVERSION_TLSv1 TSRMLS_CC);
 425         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("SSL_VERSION_SSLv2")-1, CURL_SSLVERSION_SSLv2 TSRMLS_CC);
 426         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("SSL_VERSION_SSLv3")-1, CURL_SSLVERSION_SSLv3 TSRMLS_CC);
 427         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("SSL_VERSION_ANY")-1, CURL_SSLVERSION_DEFAULT TSRMLS_CC);
 428
 429         /*
 430         * DNS IPvX resolving
 431         */
 432         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("IPRESOLVE_V4")-1, CURL_IPRESOLVE_V4 TSRMLS_CC);
 433         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("IPRESOLVE_V6")-1, CURL_IPRESOLVE_V6 TSRMLS_CC);
 434         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("IPRESOLVE_ANY")-1, CURL_IPRESOLVE_WHATEVER TSRMLS_CC);
 435
 436         /*
 437         * Auth Constants
 438         */
 439         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_BASIC")-1, CURLAUTH_BASIC TSRMLS_CC);
 440         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_DIGEST")-1, CURLAUTH_DIGEST TSRMLS_CC);
 441 #if HTTP_CURL_VERSION(7,19,3)
 442         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_DIGEST_IE")-1, CURLAUTH_DIGEST_IE TSRMLS_CC);
 443 #endif
 444         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_NTLM")-1, CURLAUTH_NTLM TSRMLS_CC);
 445         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_GSSNEG")-1, CURLAUTH_GSSNEGOTIATE TSRMLS_CC);
 446         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("AUTH_ANY")-1, CURLAUTH_ANY TSRMLS_CC);
 447
 448         /*
 449         * Proxy Type Constants
 450         */
 451 #       if HTTP_CURL_VERSION(7,15,2)
 452         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_SOCKS4")-1, CURLPROXY_SOCKS4 TSRMLS_CC);
 453 #       endif
 454 #if HTTP_CURL_VERSION(7,18,0)
 455         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_SOCKS4A")-1, CURLPROXY_SOCKS5 TSRMLS_CC);
 456         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_SOCKS5_HOSTNAME")-1, CURLPROXY_SOCKS5 TSRMLS_CC);
 457 #endif
 458         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_SOCKS5")-1, CURLPROXY_SOCKS5 TSRMLS_CC);
 459         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_HTTP")-1, CURLPROXY_HTTP TSRMLS_CC);
 460 #       if HTTP_CURL_VERSION(7,19,4)
 461         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("PROXY_HTTP_1_0")-1, CURLPROXY_HTTP_1_0 TSRMLS_CC);
 462 #       endif
 463 #endif /* WONKY */
 464
 465         /*
 466         * Post Redirection Constants
 467         */
 468 #if HTTP_CURL_VERSION(7,19,1)
 469         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("POSTREDIR_301")-1, CURL_REDIR_POST_301 TSRMLS_CC);
 470         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("POSTREDIR_302")-1, CURL_REDIR_POST_302 TSRMLS_CC);
 471         zend_declare_class_constant_long(THIS_CE, ZEND_STRS("POSTREDIR_ALL")-1, CURL_REDIR_POST_ALL TSRMLS_CC);
 472 #endif
 473
 474         return SUCCESS;
 475 }
 476
 477 zend_object_value _http_request_object_new(zend_class_entry *ce TSRMLS_DC)
 478 {
 479         return http_request_object_new_ex(ce, NULL, NULL);
 480 }
 481
 482 zend_object_value _http_request_object_new_ex(zend_class_entry *ce, CURL *ch, http_request_object **ptr TSRMLS_DC)
 483 {
 484         zend_object_value ov;
 485         http_request_object *o;
 486
 487         o = ecalloc(1, sizeof(http_request_object));
 488         o->zo.ce = ce;
 489         o->request = http_request_init_ex(NULL, ch, 0, NULL);
 490
 491         if (ptr) {
 492                 *ptr = o;
 493         }
 494
 495 #if PHP_VERSION_ID < 50399
 496         ALLOC_HASHTABLE(OBJ_PROP(o));
 497         zend_hash_init(OBJ_PROP(o), zend_hash_num_elements(&ce->default_properties), NULL, ZVAL_PTR_DTOR, 0);
 498         zend_hash_copy(OBJ_PROP(o), &ce->default_properties, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 499 #else
 500         object_properties_init(&o->zo, ce);
 501 #endif
 502
 503         ov.handle = putObject(http_request_object, o);
 504         ov.handlers = &http_request_object_handlers;
 505
 506         return ov;
 507 }
 508
 509 zend_object_value _http_request_object_clone_obj(zval *this_ptr TSRMLS_DC)
 510 {
 511         zend_object_value new_ov;
 512         http_request_object *new_obj;
 513         getObject(http_request_object, old_obj);
 514
 515         new_ov = http_request_object_new_ex(old_obj->zo.ce, NULL, &new_obj);
 516         if (old_obj->request->ch) {
 517                 http_curl_init_ex(http_curl_copy(old_obj->request->ch), new_obj->request);
 518         }
 519
 520         zend_objects_clone_members(&new_obj->zo, new_ov, &old_obj->zo, Z_OBJ_HANDLE_P(this_ptr) TSRMLS_CC);
 521         phpstr_append(&new_obj->request->conv.request, old_obj->request->conv.request.data, old_obj->request->conv.request.used);
 522         phpstr_append(&new_obj->request->conv.response, old_obj->request->conv.response.data, old_obj->request->conv.response.used);
 523
 524         return new_ov;
 525 }
 526
 527 void _http_request_object_free(zend_object *object TSRMLS_DC)
 528 {
 529         http_request_object *o = (http_request_object *) object;
 530
 531         http_request_free(&o->request);
 532         freeObject(o);
 533 }
 534
 535 #define http_request_object_check_request_content_type(t) _http_request_object_check_request_content_type((t) TSRMLS_CC)
 536 static inline void _http_request_object_check_request_content_type(zval *this_ptr TSRMLS_DC)
 537 {
 538         zval *ctype = zend_read_property(THIS_CE, getThis(), ZEND_STRS("contentType")-1, 0 TSRMLS_CC);
 539
 540         if (Z_STRLEN_P(ctype)) {
 541                 zval **headers, *opts = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 542
 543                 if (    (Z_TYPE_P(opts) == IS_ARRAY) &&
 544                                 (SUCCESS == zend_hash_find(Z_ARRVAL_P(opts), "headers", sizeof("headers"), (void *) &headers)) &&
 545                                 (Z_TYPE_PP(headers) == IS_ARRAY)) {
 546                         zval **ct_header;
 547
 548                         /* only override if not already set */
 549                         if ((SUCCESS != zend_hash_find(Z_ARRVAL_PP(headers), "Content-Type", sizeof("Content-Type"), (void *) &ct_header))) {
 550                                 add_assoc_stringl(*headers, "Content-Type", Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
 551                         } else
 552                         /* or not a string, zero length string or a string of spaces */
 553                         if ((Z_TYPE_PP(ct_header) != IS_STRING) || !Z_STRLEN_PP(ct_header)) {
 554                                 add_assoc_stringl(*headers, "Content-Type", Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
 555                         } else {
 556                                 int i, only_space = 1;
 557
 558                                 /* check for spaces only */
 559                                 for (i = 0; i < Z_STRLEN_PP(ct_header); ++i) {
 560                                         if (!HTTP_IS_CTYPE(space, Z_STRVAL_PP(ct_header)[i])) {
 561                                                 only_space = 0;
 562                                                 break;
 563                                         }
 564                                 }
 565                                 if (only_space) {
 566                                         add_assoc_stringl(*headers, "Content-Type", Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
 567                                 }
 568                         }
 569                 } else {
 570                         zval *headers;
 571
 572                         MAKE_STD_ZVAL(headers);
 573                         array_init(headers);
 574                         add_assoc_stringl(headers, "Content-Type", Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
 575                         zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "addheaders", NULL, headers);
 576                         zval_ptr_dtor(&headers);
 577                 }
 578         }
 579 }
 580
 581 #define http_request_object_message(zo, msg) _http_request_object_message((zo), (msg) TSRMLS_CC)
 582 static inline zend_object_value _http_request_object_message(zval *this_ptr, http_message *msg TSRMLS_DC)
 583 {
 584         zend_object_value ov;
 585         zval *zcn = zend_read_property(THIS_CE, getThis(), ZEND_STRS("messageClass")-1, 0 TSRMLS_CC);
 586
 587         if (Z_STRLEN_P(zcn) && (SUCCESS == http_object_new(&ov, Z_STRVAL_P(zcn), Z_STRLEN_P(zcn), _http_message_object_new_ex, http_message_object_ce, msg, NULL))) {
 588                 return ov;
 589         } else {
 590                 return http_message_object_new_ex(http_message_object_ce, msg, NULL);
 591         }
 592 }
 593
 594 STATUS _http_request_object_requesthandler(http_request_object *obj, zval *this_ptr TSRMLS_DC)
 595 {
 596         STATUS status = SUCCESS;
 597         char *url = http_absolute_url(Z_STRVAL_P(zend_read_property(THIS_CE, getThis(), ZEND_STRS("url")-1, 0 TSRMLS_CC)));
 598
 599         if (!url) {
 600                 return FAILURE;
 601         }
 602
 603         http_request_reset(obj->request);
 604         obj->request->url = url;
 605         HTTP_CHECK_CURL_INIT(obj->request->ch, http_curl_init(obj->request), return FAILURE);
 606
 607         switch (obj->request->meth = Z_LVAL_P(zend_read_property(THIS_CE, getThis(), ZEND_STRS("method")-1, 0 TSRMLS_CC)))
 608         {
 609                 case HTTP_GET:
 610                 case HTTP_HEAD:
 611                         break;
 612
 613                 case HTTP_PUT:
 614                 {
 615                         zval *put_file = zend_read_property(THIS_CE, getThis(), ZEND_STRS("putFile")-1, 0 TSRMLS_CC);
 616
 617                         http_request_object_check_request_content_type(getThis());
 618
 619                         if (Z_STRLEN_P(put_file)) {
 620                                 php_stream_statbuf ssb;
 621                                 php_stream *stream = php_stream_open_wrapper_ex(Z_STRVAL_P(put_file), "rb", REPORT_ERRORS|ENFORCE_SAFE_MODE, NULL, HTTP_DEFAULT_STREAM_CONTEXT);
 622
 623                                 if (stream && SUCCESS == php_stream_stat(stream, &ssb)) {
 624                                         obj->request->body = http_request_body_init_ex(obj->request->body, HTTP_REQUEST_BODY_UPLOADFILE, stream, ssb.sb.st_size, 1);
 625                                 } else {
 626                                         status = FAILURE;
 627                                 }
 628                         } else {
 629                                 zval *put_data = zend_read_property(THIS_CE, getThis(), ZEND_STRS("putData")-1, 0 TSRMLS_CC);
 630                                 obj->request->body = http_request_body_init_ex(obj->request->body, HTTP_REQUEST_BODY_CSTRING,
 631                                         estrndup(Z_STRVAL_P(put_data), Z_STRLEN_P(put_data)), Z_STRLEN_P(put_data), 1);
 632                         }
 633                         break;
 634                 }
 635
 636                 case HTTP_POST:
 637                 default:
 638                 {
 639                         /* check for raw request body */
 640                         zval *raw_data = zend_read_property(THIS_CE, getThis(), ZEND_STRS("requestBody")-1, 0 TSRMLS_CC);
 641
 642                         if (Z_STRLEN_P(raw_data)) {
 643                                 http_request_object_check_request_content_type(getThis());
 644                                 obj->request->body = http_request_body_init_ex(obj->request->body, HTTP_REQUEST_BODY_CSTRING,
 645                                         estrndup(Z_STRVAL_P(raw_data), Z_STRLEN_P(raw_data)), Z_STRLEN_P(raw_data), 1);
 646                         } else {
 647                                 zval *zfields = zend_read_property(THIS_CE, getThis(), ZEND_STRS("postFields")-1, 0 TSRMLS_CC), *zfiles = zend_read_property(THIS_CE, getThis(), ZEND_STRS("postFiles")-1, 0 TSRMLS_CC);
 648                                 HashTable *fields;
 649                                 HashTable *files;
 650
 651                                 fields = (Z_TYPE_P(zfields) == IS_ARRAY) ? Z_ARRVAL_P(zfields) : NULL;
 652                                 files = (Z_TYPE_P(zfiles) == IS_ARRAY) ? Z_ARRVAL_P(zfiles) : NULL;
 653
 654                                 if ((fields && zend_hash_num_elements(fields)) || (files && zend_hash_num_elements(files))) {
 655                                         if (!(obj->request->body = http_request_body_fill(obj->request->body, fields, files))) {
 656                                                 status = FAILURE;
 657                                         }
 658                                 }
 659                         }
 660                         break;
 661                 }
 662         }
 663
 664         if (status == SUCCESS) {
 665                 zval *qdata = zend_read_property(THIS_CE, getThis(), ZEND_STRS("queryData")-1, 0 TSRMLS_CC);
 666                 zval *options = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 667
 668                 if (Z_STRLEN_P(qdata)) {
 669                         if (!strchr(obj->request->url, '?')) {
 670                                 strlcat(obj->request->url, "?", HTTP_URL_MAXLEN);
 671                         } else {
 672                                 strlcat(obj->request->url, "&", HTTP_URL_MAXLEN);
 673                         }
 674                         strlcat(obj->request->url, Z_STRVAL_P(qdata), HTTP_URL_MAXLEN);
 675                 }
 676
 677                 http_request_prepare(obj->request, Z_ARRVAL_P(options));
 678
 679                 /* check if there's a onProgress method and add it as progress callback if one isn't already set */
 680                 if (zend_hash_exists(&Z_OBJCE_P(getThis())->function_table, "onprogress", sizeof("onprogress"))) {
 681                         zval **entry, *pcb;
 682
 683                         if (    (Z_TYPE_P(options) != IS_ARRAY)
 684                                 ||      (SUCCESS != zend_hash_find(Z_ARRVAL_P(options), "onprogress", sizeof("onprogress"), (void *) &entry)
 685                                 ||      (!IS_CALLABLE(*entry, 0, NULL)))) {
 686                                 MAKE_STD_ZVAL(pcb);
 687                                 array_init(pcb);
 688                                 ZVAL_ADDREF(getThis());
 689                                 add_next_index_zval(pcb, getThis());
 690                                 add_next_index_stringl(pcb, "onprogress", lenof("onprogress"), 1);
 691                                 http_request_set_progress_callback(obj->request, pcb);
 692                                 zval_ptr_dtor(&pcb);
 693                         }
 694                 }
 695         }
 696
 697         return status;
 698 }
 699
 700 STATUS _http_request_object_responsehandler(http_request_object *obj, zval *this_ptr TSRMLS_DC)
 701 {
 702         STATUS ret;
 703         zval *info;
 704         http_message *msg;
 705
 706         /* always fetch info */
 707         MAKE_STD_ZVAL(info);
 708         array_init(info);
 709         http_request_info(obj->request, Z_ARRVAL_P(info));
 710         zend_update_property(THIS_CE, getThis(), ZEND_STRS("responseInfo")-1, info TSRMLS_CC);
 711         zval_ptr_dtor(&info);
 712
 713         /* parse response message */
 714         phpstr_fix(&obj->request->conv.request);
 715         phpstr_fix(&obj->request->conv.response);
 716
 717         if ((msg = http_message_parse(PHPSTR_VAL(&obj->request->conv.response), PHPSTR_LEN(&obj->request->conv.response)))) {
 718                 zval *message;
 719
 720                 if (i_zend_is_true(zend_read_property(THIS_CE, getThis(), ZEND_STRS("recordHistory")-1, 0 TSRMLS_CC))) {
 721                         zval *hist, *history = zend_read_property(THIS_CE, getThis(), ZEND_STRS("history")-1, 0 TSRMLS_CC);
 722                         http_message *response = http_message_parse(PHPSTR_VAL(&obj->request->conv.response), PHPSTR_LEN(&obj->request->conv.response));
 723                         http_message *request = http_message_parse(PHPSTR_VAL(&obj->request->conv.request), PHPSTR_LEN(&obj->request->conv.request));
 724
 725                         MAKE_STD_ZVAL(hist);
 726                         ZVAL_OBJVAL(hist, http_request_object_message(getThis(), http_message_interconnect(response, request)), 0);
 727                         if (Z_TYPE_P(history) == IS_OBJECT) {
 728                                 http_message_object_prepend(hist, history);
 729                         }
 730                         zend_update_property(THIS_CE, getThis(), ZEND_STRS("history")-1, hist TSRMLS_CC);
 731                         zval_ptr_dtor(&hist);
 732                 }
 733
 734                 zend_update_property_long(THIS_CE, getThis(), ZEND_STRS("responseCode")-1, msg->http.info.response.code TSRMLS_CC);
 735                 zend_update_property_string(THIS_CE, getThis(), ZEND_STRS("responseStatus")-1, STR_PTR(msg->http.info.response.status) TSRMLS_CC);
 736
 737                 MAKE_STD_ZVAL(message);
 738                 ZVAL_OBJVAL(message, http_request_object_message(getThis(), msg), 0);
 739                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, message TSRMLS_CC);
 740                 zval_ptr_dtor(&message);
 741
 742                 ret = SUCCESS;
 743         } else {
 744                 /* update properties with empty values*/
 745                 zval *znull;
 746
 747                 MAKE_STD_ZVAL(znull);
 748                 ZVAL_NULL(znull);
 749                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, znull TSRMLS_CC);
 750                 zval_ptr_dtor(&znull);
 751
 752                 zend_update_property_long(THIS_CE, getThis(), ZEND_STRS("responseCode")-1, 0 TSRMLS_CC);
 753                 zend_update_property_string(THIS_CE, getThis(), ZEND_STRS("responseStatus")-1, "" TSRMLS_CC);
 754
 755                 /* append request message to history */
 756                 if (i_zend_is_true(zend_read_property(THIS_CE, getThis(), ZEND_STRS("recordHistory")-1, 0 TSRMLS_CC))) {
 757                         http_message *request;
 758
 759                         if ((request = http_message_parse(PHPSTR_VAL(&obj->request->conv.request), PHPSTR_LEN(&obj->request->conv.request)))) {
 760                                 zval *hist, *history = zend_read_property(THIS_CE, getThis(), ZEND_STRS("history")-1, 0 TSRMLS_CC);
 761
 762                                 MAKE_STD_ZVAL(hist);
 763                                 ZVAL_OBJVAL(hist, http_request_object_message(getThis(), request), 0);
 764                                 if (Z_TYPE_P(history) == IS_OBJECT) {
 765                                         http_message_object_prepend(hist, history);
 766                                 }
 767                                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("history")-1, hist TSRMLS_CC);
 768                                 zval_ptr_dtor(&hist);
 769                         }
 770                 }
 771
 772                 ret = FAILURE;
 773         }
 774
 775         http_request_set_progress_callback(obj->request, NULL);
 776
 777         if (!EG(exception) && zend_hash_exists(&Z_OBJCE_P(getThis())->function_table, "onfinish", sizeof("onfinish"))) {
 778                 zval *param;
 779
 780                 MAKE_STD_ZVAL(param);
 781                 ZVAL_BOOL(param, ret == SUCCESS);
 782                 with_error_handling(EH_NORMAL, NULL) {
 783                         zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "onfinish", NULL, param);
 784                 } end_error_handling();
 785                 zval_ptr_dtor(&param);
 786         }
 787
 788         return ret;
 789 }
 790
 791 static int apply_pretty_key(void *pDest, int num_args, va_list args, zend_hash_key *hash_key)
 792 {
 793         if (hash_key->arKey && hash_key->nKeyLength > 1) {
 794                 hash_key->h = zend_hash_func(pretty_key(hash_key->arKey, hash_key->nKeyLength - 1, 1, 0), hash_key->nKeyLength);
 795         }
 796         return ZEND_HASH_APPLY_KEEP;
 797 }
 798
 799 #define http_request_object_set_options_subr(key, ow, pk) \
 800         _http_request_object_set_options_subr(INTERNAL_FUNCTION_PARAM_PASSTHRU, (key), sizeof(key), (ow), (pk))
 801 static inline void _http_request_object_set_options_subr(INTERNAL_FUNCTION_PARAMETERS, char *key, size_t len, int overwrite, int prettify_keys)
 802 {
 803         zval *old_opts, *new_opts, *opts = NULL, **entry = NULL;
 804
 805         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|a/!", &opts)) {
 806                 RETURN_FALSE;
 807         }
 808
 809         MAKE_STD_ZVAL(new_opts);
 810         array_init(new_opts);
 811         old_opts = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 812         if (Z_TYPE_P(old_opts) == IS_ARRAY) {
 813                 array_copy(Z_ARRVAL_P(old_opts), Z_ARRVAL_P(new_opts));
 814         }
 815
 816         if (SUCCESS == zend_hash_find(Z_ARRVAL_P(new_opts), key, len, (void *) &entry)) {
 817                 if (overwrite) {
 818                         zend_hash_clean(Z_ARRVAL_PP(entry));
 819                 }
 820                 if (opts && zend_hash_num_elements(Z_ARRVAL_P(opts))) {
 821                         if (overwrite) {
 822                                 array_copy(Z_ARRVAL_P(opts), Z_ARRVAL_PP(entry));
 823                         } else {
 824                                 array_join(Z_ARRVAL_P(opts), Z_ARRVAL_PP(entry), 0, prettify_keys ? ARRAY_JOIN_PRETTIFY : 0);
 825                         }
 826                 }
 827         } else if (opts) {
 828                 if (prettify_keys) {
 829                         zend_hash_apply_with_arguments(Z_ARRVAL_P(opts) HTTP_ZAPI_HASH_TSRMLS_CC, apply_pretty_key, 0, NULL);
 830                 }
 831                 ZVAL_ADDREF(opts);
 832                 add_assoc_zval_ex(new_opts, key, len, opts);
 833         }
 834         zend_update_property(THIS_CE, getThis(), ZEND_STRS("options")-1, new_opts TSRMLS_CC);
 835         zval_ptr_dtor(&new_opts);
 836
 837         RETURN_TRUE;
 838 }
 839
 840 #define http_request_object_get_options_subr(key) \
 841         _http_request_get_options_subr(INTERNAL_FUNCTION_PARAM_PASSTHRU, (key), sizeof(key))
 842 static inline void _http_request_get_options_subr(INTERNAL_FUNCTION_PARAMETERS, char *key, size_t len)
 843 {
 844         NO_ARGS;
 845
 846         if (return_value_used) {
 847                 zval *opts, **options;
 848
 849                 opts = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 850                 array_init(return_value);
 851
 852                 if (    (Z_TYPE_P(opts) == IS_ARRAY) &&
 853                                 (SUCCESS == zend_hash_find(Z_ARRVAL_P(opts), key, len, (void *) &options))) {
 854                         convert_to_array(*options);
 855                         array_copy(Z_ARRVAL_PP(options), Z_ARRVAL_P(return_value));
 856                 }
 857         }
 858 }
 859
 860
 861 /* ### USERLAND ### */
 862
 863 /* {{{ proto void HttpRequest::__construct([string url[, int request_method = HTTP_METH_GET[, array options]]])
 864         Create a new HttpRequest object instance. */
 865 PHP_METHOD(HttpRequest, __construct)
 866 {
 867         char *URL = NULL;
 868         int URL_len;
 869         long meth = -1;
 870         zval *options = NULL;
 871
 872         SET_EH_THROW_HTTP();
 873         if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sla!", &URL, &URL_len, &meth, &options)) {
 874                 if (URL) {
 875                         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("url")-1, URL, URL_len TSRMLS_CC);
 876                 }
 877                 if (meth > -1) {
 878                         zend_update_property_long(THIS_CE, getThis(), ZEND_STRS("method")-1, meth TSRMLS_CC);
 879                 }
 880                 if (options) {
 881                         zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "setoptions", NULL, options);
 882                 }
 883         }
 884         SET_EH_NORMAL();
 885 }
 886 /* }}} */
 887
 888 /* {{{ proto HttpRequest HttpRequest::factory([string url[, int request_method HTTP_METH_GET[, array options[, string class_name = "HttpRequest"]]]])
 889         Create a new HttpRequest object instance. */
 890 PHP_METHOD(HttpRequest, factory)
 891 {
 892         char *cn = NULL, *URL = NULL;
 893         int cl = 0, URL_len = 0;
 894         long meth = -1;
 895         zval *options = NULL;
 896         zend_object_value ov;
 897
 898         SET_EH_THROW_HTTP();
 899         if (    SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sla!s", &URL, &URL_len, &meth, &options, &cn, &cl) &&
 900                         SUCCESS == http_object_new(&ov, cn, cl, _http_request_object_new_ex, http_request_object_ce, NULL, NULL)) {
 901                 RETVAL_OBJVAL(ov, 0);
 902                 getThis() = return_value;
 903                 if (URL) {
 904                         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("url")-1, URL, URL_len TSRMLS_CC);
 905                 }
 906                 if (meth > -1) {
 907                         zend_update_property_long(THIS_CE, getThis(), ZEND_STRS("method")-1, meth TSRMLS_CC);
 908                 }
 909                 if (options) {
 910                         zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "setoptions", NULL, options);
 911                 }
 912         }
 913         SET_EH_NORMAL();
 914 }
 915 /* }}} */
 916
 917 /* {{{ proto bool HttpRequest::setOptions([array options])
 918         Set the request options to use.  See http_get() for a full list of available options. */
 919 PHP_METHOD(HttpRequest, setOptions)
 920 {
 921         HashKey key = initHashKey(0);
 922         HashPosition pos;
 923         zval *opts = NULL, *old_opts, *new_opts, *add_opts, **opt;
 924
 925         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|a!/", &opts)) {
 926                 RETURN_FALSE;
 927         }
 928
 929         MAKE_STD_ZVAL(new_opts);
 930         array_init(new_opts);
 931
 932         if (!opts || !zend_hash_num_elements(Z_ARRVAL_P(opts))) {
 933                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("options")-1, new_opts TSRMLS_CC);
 934                 zval_ptr_dtor(&new_opts);
 935                 RETURN_TRUE;
 936         }
 937
 938         MAKE_STD_ZVAL(add_opts);
 939         array_init(add_opts);
 940         /* some options need extra attention -- thus cannot use array_merge() directly */
 941         FOREACH_KEYVAL(pos, opts, key, opt) {
 942                 if (key.type == HASH_KEY_IS_STRING) {
 943 #define KEYMATCH(k, s) ((sizeof(s)==k.len) && !strcasecmp(k.str, s))
 944                         if (KEYMATCH(key, "headers")) {
 945                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "addheaders", NULL, *opt);
 946                         } else if (KEYMATCH(key, "cookies")) {
 947                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "addcookies", NULL, *opt);
 948                         } else if (KEYMATCH(key, "ssl")) {
 949                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "addssloptions", NULL, *opt);
 950                         } else if (KEYMATCH(key, "url") || KEYMATCH(key, "uri")) {
 951                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "seturl", NULL, *opt);
 952                         } else if (KEYMATCH(key, "method")) {
 953                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "setmethod", NULL, *opt);
 954                         } else if (KEYMATCH(key, "flushcookies")) {
 955                                 getObject(http_request_object, obj);
 956                                 if (i_zend_is_true(*opt)) {
 957                                         http_request_flush_cookies(obj->request);
 958                                 }
 959                         } else if (KEYMATCH(key, "resetcookies")) {
 960                                 getObject(http_request_object, obj);
 961                                 http_request_reset_cookies(obj->request, (zend_bool) i_zend_is_true(*opt));
 962                         } else if (KEYMATCH(key, "enablecookies")) {
 963                                 getObject(http_request_object, obj);
 964                                 http_request_enable_cookies(obj->request);
 965                         } else if (KEYMATCH(key, "recordHistory")) {
 966                                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("recordHistory")-1, *opt TSRMLS_CC);
 967                         } else if (KEYMATCH(key, "messageClass")) {
 968                                 zend_call_method_with_1_params(&getThis(), Z_OBJCE_P(getThis()), NULL, "setmessageclass", NULL, *opt);
 969                         } else if (Z_TYPE_PP(opt) == IS_NULL) {
 970                                 old_opts = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 971                                 if (Z_TYPE_P(old_opts) == IS_ARRAY) {
 972                                         zend_hash_del(Z_ARRVAL_P(old_opts), key.str, key.len);
 973                                 }
 974                         } else {
 975                                 ZVAL_ADDREF(*opt);
 976                                 add_assoc_zval_ex(add_opts, key.str, key.len, *opt);
 977                         }
 978                 }
 979         }
 980
 981         old_opts = zend_read_property(THIS_CE, getThis(), ZEND_STRS("options")-1, 0 TSRMLS_CC);
 982         if (Z_TYPE_P(old_opts) == IS_ARRAY) {
 983                 array_copy(Z_ARRVAL_P(old_opts), Z_ARRVAL_P(new_opts));
 984         }
 985         array_join(Z_ARRVAL_P(add_opts), Z_ARRVAL_P(new_opts), 0, 0);
 986         zend_update_property(THIS_CE, getThis(), ZEND_STRS("options")-1, new_opts TSRMLS_CC);
 987         zval_ptr_dtor(&new_opts);
 988         zval_ptr_dtor(&add_opts);
 989
 990         RETURN_TRUE;
 991 }
 992 /* }}} */
 993
 994 /* {{{ proto array HttpRequest::getOptions()
 995         Get currently set options. */
 996 PHP_METHOD(HttpRequest, getOptions)
 997 {
 998         NO_ARGS;
 999
1000         if (return_value_used) {
1001                 RETURN_PROP(options);
1002         }
1003 }
1004 /* }}} */
1005
1006 /* {{{ proto bool HttpRequest::setSslOptions([array options])
1007         Set SSL options. */
1008 PHP_METHOD(HttpRequest, setSslOptions)
1009 {
1010         http_request_object_set_options_subr("ssl", 1, 0);
1011 }
1012 /* }}} */
1013
1014 /* {{{ proto bool HttpRequest::addSslOptions(array options)
1015         Set additional SSL options. */
1016 PHP_METHOD(HttpRequest, addSslOptions)
1017 {
1018         http_request_object_set_options_subr("ssl", 0, 0);
1019 }
1020 /* }}} */
1021
1022 /* {{{ proto array HttpRequest::getSslOtpions()
1023         Get previously set SSL options. */
1024 PHP_METHOD(HttpRequest, getSslOptions)
1025 {
1026         http_request_object_get_options_subr("ssl");
1027 }
1028 /* }}} */
1029
1030 /* {{{ proto bool HttpRequest::addHeaders(array headers)
1031         Add request header name/value pairs. */
1032 PHP_METHOD(HttpRequest, addHeaders)
1033 {
1034         http_request_object_set_options_subr("headers", 0, 1);
1035 }
1036
1037 /* {{{ proto bool HttpRequest::setHeaders([array headers])
1038         Set request header name/value pairs. */
1039 PHP_METHOD(HttpRequest, setHeaders)
1040 {
1041         http_request_object_set_options_subr("headers", 1, 1);
1042 }
1043 /* }}} */
1044
1045 /* {{{ proto array HttpRequest::getHeaders()
1046         Get previously set request headers. */
1047 PHP_METHOD(HttpRequest, getHeaders)
1048 {
1049         http_request_object_get_options_subr("headers");
1050 }
1051 /* }}} */
1052
1053 /* {{{ proto bool HttpRequest::setCookies([array cookies])
1054         Set cookies. */
1055 PHP_METHOD(HttpRequest, setCookies)
1056 {
1057         http_request_object_set_options_subr("cookies", 1, 0);
1058 }
1059 /* }}} */
1060
1061 /* {{{ proto bool HttpRequest::addCookies(array cookies)
1062         Add cookies. */
1063 PHP_METHOD(HttpRequest, addCookies)
1064 {
1065         http_request_object_set_options_subr("cookies", 0, 0);
1066 }
1067 /* }}} */
1068
1069 /* {{{ proto array HttpRequest::getCookies()
1070         Get previously set cookies. */
1071 PHP_METHOD(HttpRequest, getCookies)
1072 {
1073         http_request_object_get_options_subr("cookies");
1074 }
1075 /* }}} */
1076
1077 /* {{{ proto bool HttpRequest::enableCookies()
1078         Enable automatic sending of received cookies. Note that customly set cookies will be sent anyway. */
1079 PHP_METHOD(HttpRequest, enableCookies)
1080 {
1081         NO_ARGS {
1082                 getObject(http_request_object, obj);
1083                 RETURN_SUCCESS(http_request_enable_cookies(obj->request));
1084         }
1085
1086 }
1087 /* }}} */
1088
1089 /* {{{ proto bool HttpRequest::resetCookies([bool session_only = FALSE])
1090         Reset all automatically received/sent cookies. Note that customly set cookies are not affected. */
1091 PHP_METHOD(HttpRequest, resetCookies)
1092 {
1093         zend_bool session_only = 0;
1094         getObject(http_request_object, obj);
1095
1096         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|b", &session_only)) {
1097                 RETURN_FALSE;
1098         }
1099         RETURN_SUCCESS(http_request_reset_cookies(obj->request, session_only));
1100 }
1101 /* }}} */
1102
1103 /* {{{ proto bool HttpRequest::flushCookies()
1104         Flush internal cookies to the cookiestore file */
1105 PHP_METHOD(HttpRequest, flushCookies)
1106 {
1107         NO_ARGS {
1108                 getObject(http_request_object, obj);
1109                 RETURN_SUCCESS(http_request_flush_cookies(obj->request));
1110         }
1111 }
1112 /* }}} */
1113
1114 /* {{{ proto bool HttpRequest::setUrl(string url)
1115         Set the request URL. */
1116 PHP_METHOD(HttpRequest, setUrl)
1117 {
1118         char *URL = NULL;
1119         int URL_len;
1120
1121         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &URL, &URL_len)) {
1122                 RETURN_FALSE;
1123         }
1124
1125         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("url")-1, URL, URL_len TSRMLS_CC);
1126         RETURN_TRUE;
1127 }
1128 /* }}} */
1129
1130 /* {{{ proto string HttpRequest::getUrl()
1131         Get the previously set request URL. */
1132 PHP_METHOD(HttpRequest, getUrl)
1133 {
1134         NO_ARGS;
1135
1136         if (return_value_used) {
1137                 RETURN_PROP(url);
1138         }
1139 }
1140 /* }}} */
1141
1142 /* {{{ proto bool HttpRequest::setMethod(int request_method)
1143         Set the request method. */
1144 PHP_METHOD(HttpRequest, setMethod)
1145 {
1146         long meth;
1147
1148         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &meth)) {
1149                 RETURN_FALSE;
1150         }
1151
1152         zend_update_property_long(THIS_CE, getThis(), ZEND_STRS("method")-1, meth TSRMLS_CC);
1153         RETURN_TRUE;
1154 }
1155 /* }}} */
1156
1157 /* {{{ proto int HttpRequest::getMethod()
1158         Get the previously set request method. */
1159 PHP_METHOD(HttpRequest, getMethod)
1160 {
1161         NO_ARGS;
1162
1163         if (return_value_used) {
1164                 RETURN_PROP(method);
1165         }
1166 }
1167 /* }}} */
1168
1169 /* {{{ proto bool HttpRequest::setContentType(string content_type)
1170         Set the content type the post request should have. */
1171 PHP_METHOD(HttpRequest, setContentType)
1172 {
1173         char *ctype;
1174         int ct_len;
1175
1176         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &ctype, &ct_len)) {
1177                 RETURN_FALSE;
1178         }
1179
1180         if (ct_len) {
1181                 HTTP_CHECK_CONTENT_TYPE(ctype, RETURN_FALSE);
1182         }
1183         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("contentType")-1, ctype, ct_len TSRMLS_CC);
1184         RETURN_TRUE;
1185 }
1186 /* }}} */
1187
1188 /* {{{ proto string HttpRequest::getContentType()
1189         Get the previously content type. */
1190 PHP_METHOD(HttpRequest, getContentType)
1191 {
1192         NO_ARGS;
1193
1194         if (return_value_used) {
1195                 RETURN_PROP(contentType);
1196         }
1197 }
1198 /* }}} */
1199
1200 /* {{{ proto bool HttpRequest::setQueryData([mixed query_data])
1201         Set the URL query parameters to use, overwriting previously set query parameters. */
1202 PHP_METHOD(HttpRequest, setQueryData)
1203 {
1204         zval *qdata = NULL;
1205
1206         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z!", &qdata)) {
1207                 RETURN_FALSE;
1208         }
1209
1210         if ((!qdata) || Z_TYPE_P(qdata) == IS_NULL) {
1211                 zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("queryData")-1, "", 0 TSRMLS_CC);
1212         } else if ((Z_TYPE_P(qdata) == IS_ARRAY) || (Z_TYPE_P(qdata) == IS_OBJECT)) {
1213                 char *query_data = NULL;
1214
1215                 if (SUCCESS != http_urlencode_hash(HASH_OF(qdata), &query_data)) {
1216                         RETURN_FALSE;
1217                 }
1218
1219                 zend_update_property_string(THIS_CE, getThis(), ZEND_STRS("queryData")-1, query_data TSRMLS_CC);
1220                 efree(query_data);
1221         } else {
1222                 zval *data = http_zsep(IS_STRING, qdata);
1223
1224                 zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("queryData")-1, Z_STRVAL_P(data), Z_STRLEN_P(data) TSRMLS_CC);
1225                 zval_ptr_dtor(&data);
1226         }
1227         RETURN_TRUE;
1228 }
1229 /* }}} */
1230
1231 /* {{{ proto string HttpRequest::getQueryData()
1232         Get the current query data in form of an urlencoded query string. */
1233 PHP_METHOD(HttpRequest, getQueryData)
1234 {
1235         NO_ARGS;
1236
1237         if (return_value_used) {
1238                 RETURN_PROP(queryData);
1239         }
1240 }
1241 /* }}} */
1242
1243 /* {{{ proto bool HttpRequest::addQueryData(array query_params)
1244         Add parameters to the query parameter list, leaving previously set unchanged. */
1245 PHP_METHOD(HttpRequest, addQueryData)
1246 {
1247         zval *qdata, *old_qdata;
1248         char *query_data = NULL;
1249         size_t query_data_len = 0;
1250
1251         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a/", &qdata)) {
1252                 RETURN_FALSE;
1253         }
1254
1255         old_qdata = zend_read_property(THIS_CE, getThis(), ZEND_STRS("queryData")-1, 0 TSRMLS_CC);
1256
1257         if (SUCCESS != http_urlencode_hash_ex(HASH_OF(qdata), 1, Z_STRVAL_P(old_qdata), Z_STRLEN_P(old_qdata), &query_data, &query_data_len)) {
1258                 RETURN_FALSE;
1259         }
1260
1261         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("queryData")-1, query_data, query_data_len TSRMLS_CC);
1262         efree(query_data);
1263
1264         RETURN_TRUE;
1265 }
1266 /* }}} */
1267
1268 /* {{{ proto bool HttpRequest::addPostFields(array post_data)
1269         Adds POST data entries, leaving previously set unchanged, unless a post entry with the same name already exists. */
1270 PHP_METHOD(HttpRequest, addPostFields)
1271 {
1272         zval *post_data, *old_post, *new_post;
1273
1274         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a/", &post_data)) {
1275                 RETURN_FALSE;
1276         }
1277
1278         if (zend_hash_num_elements(Z_ARRVAL_P(post_data))) {
1279                 MAKE_STD_ZVAL(new_post);
1280                 array_init(new_post);
1281                 old_post = zend_read_property(THIS_CE, getThis(), ZEND_STRS("postFields")-1, 0 TSRMLS_CC);
1282                 if (Z_TYPE_P(old_post) == IS_ARRAY) {
1283                         array_copy(Z_ARRVAL_P(old_post), Z_ARRVAL_P(new_post));
1284                 }
1285                 array_join(Z_ARRVAL_P(post_data), Z_ARRVAL_P(new_post), 0, 0);
1286                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("postFields")-1, new_post TSRMLS_CC);
1287                 zval_ptr_dtor(&new_post);
1288         }
1289
1290         RETURN_TRUE;
1291 }
1292 /* }}} */
1293
1294 /* {{{ proto bool HttpRequest::setPostFields([array post_data])
1295         Set the POST data entries, overwriting previously set POST data. */
1296 PHP_METHOD(HttpRequest, setPostFields)
1297 {
1298         zval *post, *post_data = NULL;
1299
1300         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a/!", &post_data)) {
1301                 RETURN_FALSE;
1302         }
1303
1304         MAKE_STD_ZVAL(post);
1305         array_init(post);
1306         if (post_data && zend_hash_num_elements(Z_ARRVAL_P(post_data))) {
1307                 array_copy(Z_ARRVAL_P(post_data), Z_ARRVAL_P(post));
1308         }
1309         zend_update_property(THIS_CE, getThis(), ZEND_STRS("postFields")-1, post TSRMLS_CC);
1310         zval_ptr_dtor(&post);
1311
1312         RETURN_TRUE;
1313 }
1314 /* }}}*/
1315
1316 /* {{{ proto array HttpRequest::getPostFields()
1317         Get previously set POST data. */
1318 PHP_METHOD(HttpRequest, getPostFields)
1319 {
1320         NO_ARGS;
1321
1322         if (return_value_used) {
1323                 RETURN_PROP(postFields);
1324         }
1325 }
1326 /* }}} */
1327
1328 /* {{{ proto bool HttpRequest::setBody([string request_body_data])
1329         Set request body to send, overwriting previously set request body. Don't forget to specify a content type. */
1330 PHP_METHOD(HttpRequest, setBody)
1331 {
1332         char *raw_data = NULL;
1333         int data_len = 0;
1334
1335         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &raw_data, &data_len)) {
1336                 RETURN_FALSE;
1337         }
1338
1339         if (!raw_data) {
1340                 raw_data = "";
1341         }
1342
1343         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("requestBody")-1, raw_data, data_len TSRMLS_CC);
1344         RETURN_TRUE;
1345 }
1346 /* }}} */
1347
1348 /* {{{ proto bool HttpRequest::addBody(string request_body_data)
1349         Add request body data, leaving previously set request body data unchanged. */
1350 PHP_METHOD(HttpRequest, addBody)
1351 {
1352         char *raw_data;
1353         int data_len;
1354
1355         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &raw_data, &data_len)) {
1356                 RETURN_FALSE;
1357         }
1358
1359         if (data_len) {
1360                 zval *data = zend_read_property(THIS_CE, getThis(), ZEND_STRS("requestBody")-1, 0 TSRMLS_CC);
1361
1362                 if (Z_STRLEN_P(data)) {
1363                         Z_STRVAL_P(data) = erealloc(Z_STRVAL_P(data), (Z_STRLEN_P(data) += data_len) + 1);
1364                         Z_STRVAL_P(data)[Z_STRLEN_P(data)] = '\0';
1365                         memcpy(Z_STRVAL_P(data) + Z_STRLEN_P(data) - data_len, raw_data, data_len);
1366                 } else {
1367                         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("requestBody")-1, raw_data, data_len TSRMLS_CC);
1368                 }
1369         }
1370
1371         RETURN_TRUE;
1372 }
1373 /* }}} */
1374
1375 /* {{{ proto string HttpRequest::getBody()
1376         Get previously set request body data. */
1377 PHP_METHOD(HttpRequest, getBody)
1378 {
1379         NO_ARGS;
1380
1381         if (return_value_used) {
1382                 RETURN_PROP(requestBody);
1383         }
1384 }
1385 /* }}} */
1386
1387 /* {{{ proto bool HttpRequest::addPostFile(string name, string file[, string content_type = "application/x-octetstream"])
1388         Add a file to the POST request, leaving previously set files unchanged. */
1389 PHP_METHOD(HttpRequest, addPostFile)
1390 {
1391         zval *entry, *old_post, *new_post;
1392         char *name, *file, *type = NULL;
1393         int name_len, file_len, type_len = 0;
1394
1395         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss|s", &name, &name_len, &file, &file_len, &type, &type_len)) {
1396                 RETURN_FALSE;
1397         }
1398
1399         if (type_len) {
1400                 HTTP_CHECK_CONTENT_TYPE(type, RETURN_FALSE);
1401         } else {
1402                 type = "application/x-octetstream";
1403                 type_len = sizeof("application/x-octetstream") - 1;
1404         }
1405
1406         MAKE_STD_ZVAL(entry);
1407         array_init(entry);
1408
1409         add_assoc_stringl(entry, "name", name, name_len, 1);
1410         add_assoc_stringl(entry, "type", type, type_len, 1);
1411         add_assoc_stringl(entry, "file", file, file_len, 1);
1412
1413         MAKE_STD_ZVAL(new_post);
1414         array_init(new_post);
1415         old_post = zend_read_property(THIS_CE, getThis(), ZEND_STRS("postFiles")-1, 0 TSRMLS_CC);
1416         if (Z_TYPE_P(old_post) == IS_ARRAY) {
1417                 array_copy(Z_ARRVAL_P(old_post), Z_ARRVAL_P(new_post));
1418         }
1419         add_next_index_zval(new_post, entry);
1420         zend_update_property(THIS_CE, getThis(), ZEND_STRS("postFiles")-1, new_post TSRMLS_CC);
1421         zval_ptr_dtor(&new_post);
1422
1423         RETURN_TRUE;
1424 }
1425 /* }}} */
1426
1427 /* {{{ proto bool HttpRequest::setPostFiles([array post_files])
1428         Set files to post, overwriting previously set post files. */
1429 PHP_METHOD(HttpRequest, setPostFiles)
1430 {
1431         zval *files = NULL, *post;
1432
1433         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a!/", &files)) {
1434                 RETURN_FALSE;
1435         }
1436
1437         MAKE_STD_ZVAL(post);
1438         array_init(post);
1439         if (files && (Z_TYPE_P(files) == IS_ARRAY)) {
1440                 array_copy(Z_ARRVAL_P(files), Z_ARRVAL_P(post));
1441         }
1442         zend_update_property(THIS_CE, getThis(), ZEND_STRS("postFiles")-1, post TSRMLS_CC);
1443         zval_ptr_dtor(&post);
1444
1445         RETURN_TRUE;
1446 }
1447 /* }}} */
1448
1449 /* {{{ proto array HttpRequest::getPostFiles()
1450         Get all previously added POST files. */
1451 PHP_METHOD(HttpRequest, getPostFiles)
1452 {
1453         NO_ARGS;
1454
1455         if (return_value_used) {
1456                 RETURN_PROP(postFiles);
1457         }
1458 }
1459 /* }}} */
1460
1461 /* {{{ proto bool HttpRequest::setPutFile([string file])
1462         Set file to put. Affects only PUT requests. */
1463 PHP_METHOD(HttpRequest, setPutFile)
1464 {
1465         char *file = "";
1466         int file_len = 0;
1467
1468         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &file, &file_len)) {
1469                 RETURN_FALSE;
1470         }
1471
1472         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("putFile")-1, file, file_len TSRMLS_CC);
1473         RETURN_TRUE;
1474 }
1475 /* }}} */
1476
1477 /* {{{ proto string HttpRequest::getPutFile()
1478         Get previously set put file. */
1479 PHP_METHOD(HttpRequest, getPutFile)
1480 {
1481         NO_ARGS;
1482
1483         if (return_value_used) {
1484                 RETURN_PROP(putFile);
1485         }
1486 }
1487 /* }}} */
1488
1489 /* {{{ proto bool HttpRequest::setPutData([string put_data])
1490         Set PUT data to send, overwriting previously set PUT data. */
1491 PHP_METHOD(HttpRequest, setPutData)
1492 {
1493         char *put_data = NULL;
1494         int data_len = 0;
1495
1496         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &put_data, &data_len)) {
1497                 RETURN_FALSE;
1498         }
1499
1500         if (!put_data) {
1501                 put_data = "";
1502         }
1503
1504         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("putData")-1, put_data, data_len TSRMLS_CC);
1505         RETURN_TRUE;
1506 }
1507 /* }}} */
1508
1509 /* {{{ proto bool HttpRequest::addPutData(string put_data)
1510         Add PUT data, leaving previously set PUT data unchanged. */
1511 PHP_METHOD(HttpRequest, addPutData)
1512 {
1513         char *put_data;
1514         int data_len;
1515
1516         if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &put_data, &data_len)) {
1517                 RETURN_FALSE;
1518         }
1519
1520         if (data_len) {
1521                 zval *data = zend_read_property(THIS_CE, getThis(), ZEND_STRS("putData")-1, 0 TSRMLS_CC);
1522
1523                 if (Z_STRLEN_P(data)) {
1524                         Z_STRVAL_P(data) = erealloc(Z_STRVAL_P(data), (Z_STRLEN_P(data) += data_len) + 1);
1525                         Z_STRVAL_P(data)[Z_STRLEN_P(data)] = '\0';
1526                         memcpy(Z_STRVAL_P(data) + Z_STRLEN_P(data) - data_len, put_data, data_len);
1527                 } else {
1528                         zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("putData")-1, put_data, data_len TSRMLS_CC);
1529                 }
1530         }
1531
1532         RETURN_TRUE;
1533 }
1534 /* }}} */
1535
1536 /* {{{ proto string HttpRequest::getPutData()
1537         Get previously set PUT data. */
1538 PHP_METHOD(HttpRequest, getPutData)
1539 {
1540         NO_ARGS;
1541
1542         if (return_value_used) {
1543                 RETURN_PROP(putData);
1544         }
1545 }
1546 /* }}} */
1547
1548 /* {{{ proto array HttpRequest::getResponseData()
1549         Get all response data after the request has been sent. */
1550 PHP_METHOD(HttpRequest, getResponseData)
1551 {
1552         NO_ARGS;
1553
1554         if (return_value_used) {
1555                 char *body;
1556                 size_t body_len;
1557                 zval *headers, *message = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC);
1558
1559                 if (Z_TYPE_P(message) == IS_OBJECT) {
1560                         getObjectEx(http_message_object, msg, message);
1561
1562                         array_init(return_value);
1563
1564                         MAKE_STD_ZVAL(headers);
1565                         array_init(headers);
1566                         zend_hash_copy(Z_ARRVAL_P(headers), &msg->message->hdrs, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
1567                         add_assoc_zval(return_value, "headers", headers);
1568
1569                         phpstr_data(PHPSTR(msg->message), &body, &body_len);
1570                         add_assoc_stringl(return_value, "body", body, body_len, 0);
1571                 }
1572         }
1573 }
1574 /* }}} */
1575
1576 /* {{{ proto mixed HttpRequest::getResponseHeader([string name])
1577         Get response header(s) after the request has been sent. */
1578 PHP_METHOD(HttpRequest, getResponseHeader)
1579 {
1580         if (return_value_used) {
1581                 zval *header;
1582                 char *header_name = NULL;
1583                 int header_len = 0;
1584
1585                 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &header_name, &header_len)) {
1586                         zval *message = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC);
1587
1588                         if (Z_TYPE_P(message) == IS_OBJECT) {
1589                                 getObjectEx(http_message_object, msg, message);
1590
1591                                 if (header_len) {
1592                                         if ((header = http_message_header_ex(msg->message, pretty_key(header_name, header_len, 1, 1), header_len + 1, 0))) {
1593                                                 RETURN_ZVAL(header, 1, 1);
1594                                         }
1595                                 } else {
1596                                         array_init(return_value);
1597                                         zend_hash_copy(Z_ARRVAL_P(return_value), &msg->message->hdrs, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
1598                                         return;
1599                                 }
1600                         }
1601                 }
1602                 RETURN_FALSE;
1603         }
1604 }
1605 /* }}} */
1606
1607 /* {{{ proto array HttpRequest::getResponseCookies([int flags[, array allowed_extras]])
1608         Get response cookie(s) after the request has been sent. */
1609 PHP_METHOD(HttpRequest, getResponseCookies)
1610 {
1611         if (return_value_used) {
1612                 long flags = 0;
1613                 zval *allowed_extras_array = NULL;
1614
1615                 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|la!", &flags, &allowed_extras_array)) {
1616                         int i = 0;
1617                         HashKey key = initHashKey(0);
1618                         char **allowed_extras = NULL;
1619                         zval **header = NULL, **entry = NULL, *message = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC);
1620                         HashPosition pos, pos1, pos2;
1621
1622                         if (Z_TYPE_P(message) == IS_OBJECT) {
1623                                 getObjectEx(http_message_object, msg, message);
1624
1625                                 array_init(return_value);
1626
1627                                 if (allowed_extras_array) {
1628                                         allowed_extras = ecalloc(zend_hash_num_elements(Z_ARRVAL_P(allowed_extras_array)) + 1, sizeof(char *));
1629                                         FOREACH_VAL(pos, allowed_extras_array, entry) {
1630                                                 zval *data = http_zsep(IS_STRING, *entry);
1631                                                 allowed_extras[i++] = estrndup(Z_STRVAL_P(data), Z_STRLEN_P(data));
1632                                                 zval_ptr_dtor(&data);
1633                                         }
1634                                 }
1635
1636                                 FOREACH_HASH_KEYVAL(pos1, &msg->message->hdrs, key, header) {
1637                                         if (key.type == HASH_KEY_IS_STRING && !strcasecmp(key.str, "Set-Cookie")) {
1638                                                 http_cookie_list list;
1639
1640                                                 if (Z_TYPE_PP(header) == IS_ARRAY) {
1641                                                         zval **single_header;
1642
1643                                                         FOREACH_VAL(pos2, *header, single_header) {
1644                                                                 zval *data = http_zsep(IS_STRING, *single_header);
1645
1646                                                                 if (http_parse_cookie_ex(&list, Z_STRVAL_P(data), flags, allowed_extras)) {
1647                                                                         zval *cookie;
1648
1649                                                                         MAKE_STD_ZVAL(cookie);
1650                                                                         object_init(cookie);
1651                                                                         http_cookie_list_tostruct(&list, cookie);
1652                                                                         add_next_index_zval(return_value, cookie);
1653                                                                         http_cookie_list_dtor(&list);
1654                                                                 }
1655                                                                 zval_ptr_dtor(&data);
1656                                                         }
1657                                                 } else {
1658                                                         zval *data = http_zsep(IS_STRING, *header);
1659                                                         if (http_parse_cookie_ex(&list, Z_STRVAL_P(data), flags, allowed_extras)) {
1660                                                                 zval *cookie;
1661
1662                                                                 MAKE_STD_ZVAL(cookie);
1663                                                                 object_init(cookie);
1664                                                                 http_cookie_list_tostruct(&list, cookie);
1665                                                                 add_next_index_zval(return_value, cookie);
1666                                                                 http_cookie_list_dtor(&list);
1667                                                         }
1668                                                         zval_ptr_dtor(&data);
1669                                                 }
1670                                         }
1671                                 }
1672
1673                                 if (allowed_extras) {
1674                                         for (i = 0; allowed_extras[i]; ++i) {
1675                                                 efree(allowed_extras[i]);
1676                                         }
1677                                         efree(allowed_extras);
1678                                 }
1679
1680                                 return;
1681                         }
1682                 }
1683                 RETURN_FALSE;
1684         }
1685 }
1686 /* }}} */
1687
1688 /* {{{ proto string HttpRequest::getResponseBody()
1689         Get the response body after the request has been sent. */
1690 PHP_METHOD(HttpRequest, getResponseBody)
1691 {
1692         NO_ARGS;
1693
1694         if (return_value_used) {
1695                 zval *message = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC);
1696
1697                 if (Z_TYPE_P(message) == IS_OBJECT) {
1698                         getObjectEx(http_message_object, msg, message);
1699                         RETURN_PHPSTR_DUP(&msg->message->body);
1700                 } else {
1701                         RETURN_FALSE;
1702                 }
1703         }
1704 }
1705 /* }}} */
1706
1707 /* {{{ proto int HttpRequest::getResponseCode()
1708         Get the response code after the request has been sent. */
1709 PHP_METHOD(HttpRequest, getResponseCode)
1710 {
1711         NO_ARGS;
1712
1713         if (return_value_used) {
1714                 RETURN_PROP(responseCode);
1715         }
1716 }
1717 /* }}} */
1718
1719 /* {{{ proto string HttpRequest::getResponseStatus()
1720         Get the response status (i.e. the string after the response code) after the message has been sent. */
1721 PHP_METHOD(HttpRequest, getResponseStatus)
1722 {
1723         NO_ARGS;
1724
1725         if (return_value_used) {
1726                 RETURN_PROP(responseStatus);
1727         }
1728 }
1729 /* }}} */
1730
1731 /* {{{ proto mixed HttpRequest::getResponseInfo([string name])
1732         Get response info after the request has been sent. */
1733 PHP_METHOD(HttpRequest, getResponseInfo)
1734 {
1735         if (return_value_used) {
1736                 zval *info, **infop;
1737                 char *info_name = NULL;
1738                 int info_len = 0;
1739
1740                 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &info_name, &info_len)) {
1741                         RETURN_FALSE;
1742                 }
1743
1744                 info = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseInfo")-1, 0 TSRMLS_CC);
1745
1746                 if (Z_TYPE_P(info) != IS_ARRAY) {
1747                         RETURN_FALSE;
1748                 }
1749
1750                 if (info_len && info_name) {
1751                         if (SUCCESS == zend_hash_find(Z_ARRVAL_P(info), pretty_key(info_name, info_len, 0, 0), info_len + 1, (void *) &infop)) {
1752                                 RETURN_ZVAL(*infop, 1, 0);
1753                         } else {
1754                                 http_error_ex(HE_NOTICE, HTTP_E_INVALID_PARAM, "Could not find response info named %s", info_name);
1755                                 RETURN_FALSE;
1756                         }
1757                 } else {
1758                         RETURN_ZVAL(info, 1, 0);
1759                 }
1760         }
1761 }
1762 /* }}}*/
1763
1764 /* {{{ proto HttpMessage HttpRequest::getResponseMessage()
1765         Get the full response as HttpMessage object after the request has been sent. */
1766 PHP_METHOD(HttpRequest, getResponseMessage)
1767 {
1768         NO_ARGS {
1769                 zval *message;
1770
1771                 SET_EH_THROW_HTTP();
1772                 message = zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC);
1773                 if (Z_TYPE_P(message) == IS_OBJECT) {
1774                         RETVAL_OBJECT(message, 1);
1775                 } else {
1776                         http_error(HE_WARNING, HTTP_E_RUNTIME, "HttpRequest does not contain a response message");
1777                 }
1778                 SET_EH_NORMAL();
1779         }
1780 }
1781 /* }}} */
1782
1783 /* {{{ proto HttpMessage HttpRequest::getRequestMessage()
1784         Get sent HTTP message. */
1785 PHP_METHOD(HttpRequest, getRequestMessage)
1786 {
1787         NO_ARGS;
1788
1789         if (return_value_used) {
1790                 http_message *msg;
1791                 getObject(http_request_object, obj);
1792
1793                 SET_EH_THROW_HTTP();
1794                 if ((msg = http_message_parse(PHPSTR_VAL(&obj->request->conv.request), PHPSTR_LEN(&obj->request->conv.request)))) {
1795                         RETVAL_OBJVAL(http_request_object_message(getThis(), msg), 0);
1796                 }
1797                 SET_EH_NORMAL();
1798         }
1799 }
1800 /* }}} */
1801
1802 /* {{{ proto string HttpRequest::getRawRequestMessage()
1803         Get sent HTTP message. */
1804 PHP_METHOD(HttpRequest, getRawRequestMessage)
1805 {
1806         NO_ARGS;
1807
1808         if (return_value_used) {
1809                 getObject(http_request_object, obj);
1810
1811                 RETURN_PHPSTR_DUP(&obj->request->conv.request);
1812         }
1813 }
1814 /* }}} */
1815
1816 /* {{{ proto string HttpRequest::getRawResponseMessage()
1817         Get the entire HTTP response. */
1818 PHP_METHOD(HttpRequest, getRawResponseMessage)
1819 {
1820         NO_ARGS;
1821
1822         if (return_value_used) {
1823                 getObject(http_request_object, obj);
1824
1825                 RETURN_PHPSTR_DUP(&obj->request->conv.response);
1826         }
1827 }
1828 /* }}} */
1829
1830 /* {{{ proto HttpMessage HttpRequest::getHistory()
1831         Get all sent requests and received responses as an HttpMessage object. */
1832 PHP_METHOD(HttpRequest, getHistory)
1833 {
1834         NO_ARGS;
1835
1836         if (return_value_used) {
1837                 zval *hist;
1838
1839                 SET_EH_THROW_HTTP();
1840                 hist = zend_read_property(THIS_CE, getThis(), ZEND_STRS("history")-1, 0 TSRMLS_CC);
1841                 if (Z_TYPE_P(hist) == IS_OBJECT) {
1842                         RETVAL_OBJECT(hist, 1);
1843                 } else {
1844                         http_error(HE_WARNING, HTTP_E_RUNTIME, "The history is empty");
1845                 }
1846                 SET_EH_NORMAL();
1847         }
1848 }
1849 /* }}} */
1850
1851 /* {{{ proto void HttpRequest::clearHistory()
1852         Clear the history. */
1853 PHP_METHOD(HttpRequest, clearHistory)
1854 {
1855         NO_ARGS {
1856                 zval *hist;
1857
1858                 MAKE_STD_ZVAL(hist);
1859                 ZVAL_NULL(hist);
1860                 zend_update_property(THIS_CE, getThis(), ZEND_STRS("history")-1, hist TSRMLS_CC);
1861                 zval_ptr_dtor(&hist);
1862         }
1863 }
1864 /* }}} */
1865
1866 /* {{{ proto string HttpRequest::getMessageClass()
1867         Get the message class name. */
1868 PHP_METHOD(HttpRequest, getMessageClass)
1869 {
1870         NO_ARGS;
1871
1872         if (return_value_used) {
1873                 RETURN_PROP("messageClass");
1874         }
1875 }
1876 /* }}} */
1877
1878 /* {{{ proto void setMessageClass(string class_name)
1879         Set the message class name. */
1880 PHP_METHOD(HttpRequest, setMessageClass)
1881 {
1882         char *cn;
1883         int cl;
1884
1885         if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &cn, &cl)) {
1886                 zend_update_property_stringl(THIS_CE, getThis(), ZEND_STRS("messageClass")-1, cn, cl TSRMLS_CC);
1887         }
1888 }
1889 /* }}} */
1890
1891 /* {{{ proto HttpMessage HttpRequest::send()
1892         Send the HTTP request. */
1893 PHP_METHOD(HttpRequest, send)
1894 {
1895         getObject(http_request_object, obj);
1896
1897         NO_ARGS;
1898
1899         SET_EH_THROW_HTTP();
1900
1901         RETVAL_FALSE;
1902
1903         if (obj->pool) {
1904                 http_error(HE_WARNING, HTTP_E_RUNTIME, "Cannot perform HttpRequest::send() while attached to an HttpRequestPool");
1905         } else if (SUCCESS == http_request_object_requesthandler(obj, getThis())) {
1906                 http_request_exec(obj->request);
1907                 if (SUCCESS == http_request_object_responsehandler(obj, getThis())) {
1908                         RETVAL_OBJECT(zend_read_property(THIS_CE, getThis(), ZEND_STRS("responseMessage")-1, 0 TSRMLS_CC), 1);
1909                 }
1910         }
1911
1912         SET_EH_NORMAL();
1913 }
1914 /* }}} */
1915
1916 #endif /* ZEND_ENGINE_2 && HTTP_HAVE_CURL */
1917
1918 /*
1919  * Local variables:
1920  * tab-width: 4
1921  * c-basic-offset: 4
1922  * End:
1923  * vim600: noet sw=4 ts=4 fdm=marker
1924  * vim<600: noet sw=4 ts=4
1925  */
1926