projects / m6w6 / ext-http / blob
? search:
summary | shortlog | log | commit | commitdiff | tree | github
history | raw | HEAD
* release 0.5.1
[m6w6/ext-http] / http.c
1 /*
2 +----------------------------------------------------------------------+
3 | PECL :: http |
4 +----------------------------------------------------------------------+
5 | This source file is subject to version 3.0 of the PHP license, that |
6 | is bundled with this package in the file LICENSE, and is available |
7 | through the world-wide-web at http://www.php.net/license/3_0.txt. |
8 | If you did not receive a copy of the PHP license and are unable to |
9 | obtain it through the world-wide-web, please send a note to |
10 | license@php.net so we can mail you a copy immediately. |
11 +----------------------------------------------------------------------+
12 | Copyright (c) 2004-2005 Michael Wallner <mike@php.net> |
13 +----------------------------------------------------------------------+
14 */
15
16 /* $Id$ */
17
18 #define _WINSOCKAPI_
19 #define ZEND_INCLUDE_FULL_WINDOWS_HEADERS
20
21 #ifdef HAVE_CONFIG_H
22 # include "config.h"
23 #endif
24
25 #include "php.h"
26 #include "php_ini.h"
27 #include "snprintf.h"
28 #include "ext/standard/info.h"
29 #include "ext/session/php_session.h"
30 #include "ext/standard/php_string.h"
31 #include "ext/standard/php_smart_str.h"
32
33 #include "SAPI.h"
34
35 #include "php_http.h"
36 #include "php_http_api.h"
37
38 #ifdef ZEND_ENGINE_2
39 # include "ext/standard/php_http.h"
40 #endif
41
42 #ifdef HTTP_HAVE_CURL
43
44 # ifdef PHP_WIN32
45 # include <winsock2.h>
46 # include <sys/types.h>
47 # endif
48
49 # include <curl/curl.h>
50
51 /* {{{ ARG_INFO */
52 # ifdef ZEND_BEGIN_ARG_INFO
53 ZEND_BEGIN_ARG_INFO(http_request_info_ref_3, 0)
54 ZEND_ARG_PASS_INFO(0)
55 ZEND_ARG_PASS_INFO(0)
56 ZEND_ARG_PASS_INFO(1)
57 ZEND_END_ARG_INFO();
58
59 ZEND_BEGIN_ARG_INFO(http_request_info_ref_4, 0)
60 ZEND_ARG_PASS_INFO(0)
61 ZEND_ARG_PASS_INFO(0)
62 ZEND_ARG_PASS_INFO(0)
63 ZEND_ARG_PASS_INFO(1)
64 ZEND_END_ARG_INFO();
65 # else
66 static unsigned char http_request_info_ref_3[] = {3, BYREF_NONE, BYREF_NONE, BYREF_FORCE};
67 static unsigned char http_request_info_ref_4[] = {4, BYREF_NONE, BYREF_NONE, BYREF_NONE, BYREF_FORCE};
68 # endif
69 /* }}} ARG_INFO */
70
71 #endif /* HTTP_HAVE_CURL */
72
73 ZEND_DECLARE_MODULE_GLOBALS(http)
74
75 #ifdef COMPILE_DL_HTTP
76 ZEND_GET_MODULE(http)
77 #endif
78
79 /* {{{ http_functions[] */
80 function_entry http_functions[] = {
81 PHP_FE(http_date, NULL)
82 PHP_FE(http_absolute_uri, NULL)
83 PHP_FE(http_negotiate_language, NULL)
84 PHP_FE(http_negotiate_charset, NULL)
85 PHP_FE(http_redirect, NULL)
86 PHP_FE(http_send_status, NULL)
87 PHP_FE(http_send_last_modified, NULL)
88 PHP_FE(http_send_content_type, NULL)
89 PHP_FE(http_send_content_disposition, NULL)
90 PHP_FE(http_match_modified, NULL)
91 PHP_FE(http_match_etag, NULL)
92 PHP_FE(http_cache_last_modified, NULL)
93 PHP_FE(http_cache_etag, NULL)
94 PHP_FE(http_send_data, NULL)
95 PHP_FE(http_send_file, NULL)
96 PHP_FE(http_send_stream, NULL)
97 PHP_FE(http_chunked_decode, NULL)
98 PHP_FE(http_split_response, NULL)
99 PHP_FE(http_parse_headers, NULL)
100 PHP_FE(http_get_request_headers, NULL)
101 #ifdef HTTP_HAVE_CURL
102 PHP_FE(http_get, http_request_info_ref_3)
103 PHP_FE(http_head, http_request_info_ref_3)
104 PHP_FE(http_post_data, http_request_info_ref_4)
105 PHP_FE(http_post_array, http_request_info_ref_4)
106 #endif
107 PHP_FE(http_auth_basic, NULL)
108 PHP_FE(http_auth_basic_cb, NULL)
109 #ifndef ZEND_ENGINE_2
110 PHP_FE(http_build_query, NULL)
111 #endif
112 PHP_FE(ob_httpetaghandler, NULL)
113 {NULL, NULL, NULL}
114 };
115 /* }}} */
116
117 #define RETURN_SUCCESS(v) RETURN_BOOL(SUCCESS == (v))
118 #define HASH_ORNULL(z) ((z) ? Z_ARRVAL_P(z) : NULL)
119 #define NO_ARGS if (ZEND_NUM_ARGS()) WRONG_PARAM_COUNT
120 #define HTTP_URL_ARGSEP_OVERRIDE zend_alter_ini_entry("arg_separator.output", sizeof("arg_separator.output") - 1, "&", 1, ZEND_INI_ALL, ZEND_INI_STAGE_RUNTIME)
121 #define HTTP_URL_ARGSEP_RESTORE zend_restore_ini_entry("arg_separator.output", sizeof("arg_separator.output") - 1, ZEND_INI_STAGE_RUNTIME)
122
123 #define array_copy(src, dst) zend_hash_copy(Z_ARRVAL_P(dst), Z_ARRVAL_P(src), (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *))
124 #define array_merge(src, dst) zend_hash_merge(Z_ARRVAL_P(dst), Z_ARRVAL_P(src), (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *), 1)
125
126 #ifdef ZEND_ENGINE_2
127
128 # define HTTP_REGISTER_CLASS_EX(classname, name, parent, flags) \
129 { \
130 zend_class_entry ce; \
131 INIT_CLASS_ENTRY(ce, #classname, name## _class_methods); \
132 ce.create_object = name## _new_object; \
133 name## _ce = zend_register_internal_class_ex(&ce, parent, NULL TSRMLS_CC); \
134 name## _ce->ce_flags |= flags; \
135 memcpy(& name## _object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers)); \
136 name## _object_handlers.clone_obj = NULL; \
137 name## _declare_default_properties(name## _ce); \
138 }
139
140 # define HTTP_REGISTER_CLASS(classname, name, parent, flags) \
141 { \
142 zend_class_entry ce; \
143 INIT_CLASS_ENTRY(ce, #classname, name## _class_methods); \
144 ce.create_object = NULL; \
145 name## _ce = zend_register_internal_class_ex(&ce, parent, NULL TSRMLS_CC); \
146 name## _ce->ce_flags |= flags; \
147 }
148
149 # define getObject(t, o) t * o = ((t *) zend_object_store_get_object(getThis() TSRMLS_CC))
150 # define OBJ_PROP(o) o->zo.properties
151 # define DCL_PROP(a, t, n, v) zend_declare_property_ ##t(ce, (#n), sizeof(#n), (v), (ZEND_ACC_ ##a) TSRMLS_CC)
152 # define DCL_PROP_Z(a, n, v) zend_declare_property(ce, (#n), sizeof(#n), (v), (ZEND_ACC_ ##a) TSRMLS_CC)
153 # define DCL_PROP_N(a, n) zend_declare_property_null(ce, (#n), sizeof(#n), (ZEND_ACC_ ##a) TSRMLS_CC)
154 # define UPD_PROP(o, t, n, v) zend_update_property_ ##t(o->zo.ce, getThis(), (#n), sizeof(#n), (v) TSRMLS_CC)
155 # define SET_PROP(o, n, z) zend_update_property(o->zo.ce, getThis(), (#n), sizeof(#n), (z) TSRMLS_CC)
156 # define GET_PROP(o, n) zend_read_property(o->zo.ce, getThis(), (#n), sizeof(#n), 0 TSRMLS_CC)
157
158 # define INIT_PARR(o, n) \
159 { \
160 zval *__tmp; \
161 MAKE_STD_ZVAL(__tmp); \
162 array_init(__tmp); \
163 SET_PROP(o, n, __tmp); \
164 }
165
166 # define FREE_PARR(o, p) \
167 { \
168 zval *__tmp = NULL; \
169 if (__tmp = GET_PROP(o, p)) { \
170 zval_dtor(__tmp); \
171 FREE_ZVAL(__tmp); \
172 __tmp = NULL; \
173 } \
174 }
175
176 /* {{{ HTTPi */
177
178 zend_class_entry *httpi_ce;
179
180 #define HTTPi_ME(me, al, ai) ZEND_FENTRY(me, ZEND_FN(al), ai, ZEND_ACC_PUBLIC | ZEND_ACC_STATIC)
181
182 zend_function_entry httpi_class_methods[] = {
183 HTTPi_ME(date, http_date, NULL)
184 HTTPi_ME(absoluteURI, http_absolute_uri, NULL)
185 HTTPi_ME(negotiateLanguage, http_negotiate_language, NULL)
186 HTTPi_ME(negotiateCharset, http_negotiate_charset, NULL)
187 HTTPi_ME(redirect, http_redirect, NULL)
188 HTTPi_ME(sendStatus, http_send_status, NULL)
189 HTTPi_ME(sendLastModified, http_send_last_modified, NULL)
190 HTTPi_ME(sendContentType, http_send_content_type, NULL)
191 HTTPi_ME(sendContentDisposition, http_send_content_disposition, NULL)
192 HTTPi_ME(matchModified, http_match_modified, NULL)
193 HTTPi_ME(matchEtag, http_match_etag, NULL)
194 HTTPi_ME(cacheLastModified, http_cache_last_modified, NULL)
195 HTTPi_ME(cacheEtag, http_cache_etag, NULL)
196 HTTPi_ME(chunkedDecode, http_chunked_decode, NULL)
197 HTTPi_ME(splitResponse, http_split_response, NULL)
198 HTTPi_ME(parseHeaders, http_parse_headers, NULL)
199 HTTPi_ME(getRequestHeaders, http_get_request_headers, NULL)
200 #ifdef HTTP_HAVE_CURL
201 HTTPi_ME(get, http_get, http_request_info_ref_3)
202 HTTPi_ME(head, http_head, http_request_info_ref_3)
203 HTTPi_ME(postData, http_post_data, http_request_info_ref_4)
204 HTTPi_ME(postArray, http_post_array, http_request_info_ref_4)
205 #endif
206 HTTPi_ME(authBasic, http_auth_basic, NULL)
207 HTTPi_ME(authBasicCallback, http_auth_basic_cb, NULL)
208 {NULL, NULL, NULL}
209 };
210 /* }}} HTTPi */
211
212 /* {{{ HTTPi_Response */
213
214 zend_class_entry *httpi_response_ce;
215 static zend_object_handlers httpi_response_object_handlers;
216
217 typedef struct {
218 zend_object zo;
219 } httpi_response_object;
220
221 #define httpi_response_declare_default_properties(ce) _httpi_response_declare_default_properties(ce TSRMLS_CC)
222 static inline void _httpi_response_declare_default_properties(zend_class_entry *ce TSRMLS_DC)
223 {
224 DCL_PROP(PROTECTED, string, contentType, "application/x-octetstream");
225 DCL_PROP(PROTECTED, string, eTag, "");
226 DCL_PROP(PROTECTED, string, dispoFile, "");
227 DCL_PROP(PROTECTED, string, cacheControl, "public");
228 DCL_PROP(PROTECTED, string, data, "");
229 DCL_PROP(PROTECTED, string, file, "");
230 DCL_PROP(PROTECTED, long, stream, 0);
231 DCL_PROP(PROTECTED, long, lastModified, 0);
232 DCL_PROP(PROTECTED, long, dispoInline, 0);
233 DCL_PROP(PROTECTED, long, cache, 0);
234 DCL_PROP(PROTECTED, long, gzip, 0);
235
236 DCL_PROP(PRIVATE, long, raw_cache_header, 0);
237 DCL_PROP(PRIVATE, long, send_mode, -1);
238 }
239
240 #define httpi_response_destroy_object _httpi_response_destroy_object
241 void _httpi_response_destroy_object(void *object, zend_object_handle handle TSRMLS_DC)
242 {
243 httpi_response_object *o = object;
244 if (OBJ_PROP(o)) {
245 zend_hash_destroy(OBJ_PROP(o));
246 FREE_HASHTABLE(OBJ_PROP(o));
247 }
248 efree(o);
249 }
250
251 #define httpi_response_new_object _httpi_response_new_object
252 zend_object_value _httpi_response_new_object(zend_class_entry *ce TSRMLS_DC)
253 {
254 zend_object_value ov;
255 httpi_response_object *o;
256
257 o = ecalloc(sizeof(httpi_response_object), 1);
258 o->zo.ce = ce;
259
260 ALLOC_HASHTABLE(OBJ_PROP(o));
261 zend_hash_init(OBJ_PROP(o), 0, NULL, ZVAL_PTR_DTOR, 0);
262 zend_hash_copy(OBJ_PROP(o), &ce->default_properties, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
263
264 ov.handle = zend_objects_store_put(o, httpi_response_destroy_object, NULL, NULL TSRMLS_CC);
265 ov.handlers = &httpi_response_object_handlers;
266
267 return ov;
268 }
269
270 zend_function_entry httpi_response_class_methods[] = {
271 PHP_ME(HTTPi_Response, __construct, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
272 /* PHP_ME(HTTPi_Response, __destruct, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_DTOR)
273 */
274 PHP_ME(HTTPi_Response, setETag, NULL, ZEND_ACC_PUBLIC)
275 PHP_ME(HTTPi_Response, getETag, NULL, ZEND_ACC_PUBLIC)
276
277 PHP_ME(HTTPi_Response, setContentDisposition, NULL, ZEND_ACC_PUBLIC)
278 PHP_ME(HTTPi_Response, getContentDisposition, NULL, ZEND_ACC_PUBLIC)
279
280 PHP_ME(HTTPi_Response, setContentType, NULL, ZEND_ACC_PUBLIC)
281 PHP_ME(HTTPi_Response, getContentType, NULL, ZEND_ACC_PUBLIC)
282
283 PHP_ME(HTTPi_Response, setCache, NULL, ZEND_ACC_PUBLIC)
284 PHP_ME(HTTPi_Response, getCache, NULL, ZEND_ACC_PUBLIC)
285
286 PHP_ME(HTTPi_Response, setCacheControl, NULL, ZEND_ACC_PUBLIC)
287 PHP_ME(HTTPi_Response, getCacheControl, NULL, ZEND_ACC_PUBLIC)
288
289 PHP_ME(HTTPi_Response, setGzip, NULL, ZEND_ACC_PUBLIC)
290 PHP_ME(HTTPi_Response, getGzip, NULL, ZEND_ACC_PUBLIC)
291
292 PHP_ME(HTTPi_Response, setData, NULL, ZEND_ACC_PUBLIC)
293 PHP_ME(HTTPi_Response, getData, NULL, ZEND_ACC_PUBLIC)
294
295 PHP_ME(HTTPi_Response, setFile, NULL, ZEND_ACC_PUBLIC)
296 PHP_ME(HTTPi_Response, getFile, NULL, ZEND_ACC_PUBLIC)
297
298 PHP_ME(HTTPi_Response, setStream, NULL, ZEND_ACC_PUBLIC)
299 PHP_ME(HTTPi_Response, getStream, NULL, ZEND_ACC_PUBLIC)
300
301 PHP_ME(HTTPi_Response, send, NULL, ZEND_ACC_PUBLIC)
302
303 {NULL, NULL, NULL}
304 };
305
306 /* {{{ proto void HTTPi_Response::__construct(bool cache, bool gzip)
307 *
308 */
309 PHP_METHOD(HTTPi_Response, __construct)
310 {
311 zend_bool do_cache = 0, do_gzip = 0;
312 getObject(httpi_response_object, obj);
313
314 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|bb", &do_cache, &do_gzip)) {
315 // throw exception
316 return;
317 }
318
319 UPD_PROP(obj, long, cache, do_cache);
320 UPD_PROP(obj, long, gzip, do_gzip);
321 }
322 /* }}} */
323
324 /* {{{ proto bool HTTPi_Response::setCache(bool cache)
325 *
326 */
327 PHP_METHOD(HTTPi_Response, setCache)
328 {
329 zend_bool do_cache = 0;
330 getObject(httpi_response_object, obj);
331
332 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "b", &do_cache)) {
333 RETURN_FALSE;
334 }
335
336 UPD_PROP(obj, long, cache, do_cache);
337 RETURN_TRUE;
338 }
339 /* }}} */
340
341 /* {{{ proto bool HTTPi_Response::getCache()
342 *
343 */
344 PHP_METHOD(HTTPi_Response, getCache)
345 {
346 zval *do_cache = NULL;
347 getObject(httpi_response_object, obj);
348
349 NO_ARGS;
350
351 do_cache = GET_PROP(obj, cache);
352 RETURN_BOOL(Z_LVAL_P(do_cache));
353 }
354 /* }}}*/
355
356 /* {{{ proto bool HTTPi_Response::setGzip(bool gzip)
357 *
358 */
359 PHP_METHOD(HTTPi_Response, setGzip)
360 {
361 zend_bool do_gzip = 0;
362 getObject(httpi_response_object, obj);
363
364 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "b", &do_gzip)) {
365 RETURN_FALSE;
366 }
367
368 UPD_PROP(obj, long, gzip, do_gzip);
369 RETURN_TRUE;
370 }
371 /* }}} */
372
373 /* {{{ proto bool HTTPi_Response::getGzip()
374 *
375 */
376 PHP_METHOD(HTTPi_Response, getGzip)
377 {
378 zval *do_gzip = NULL;
379 getObject(httpi_response_object, obj);
380
381 NO_ARGS;
382
383 do_gzip = GET_PROP(obj, gzip);
384 RETURN_BOOL(Z_LVAL_P(do_gzip));
385 }
386 /* }}} */
387
388 /* {{{ proto bool HTTPi_Response::setCacheControl(string control[, bool raw = false])
389 *
390 */
391 PHP_METHOD(HTTPi_Response, setCacheControl)
392 {
393 char *ccontrol;
394 int cc_len;
395 zend_bool raw = 0;
396 getObject(httpi_response_object, obj);
397
398 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|b", &ccontrol, &cc_len, &raw)) {
399 RETURN_FALSE;
400 }
401
402 if ((!raw) && (strcmp(ccontrol, "public") && strcmp(ccontrol, "private") && strcmp(ccontrol, "no-cache"))) {
403 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cache-Control '%s' doesn't match public, private or no-cache", ccontrol);
404 RETURN_FALSE;
405 }
406
407 UPD_PROP(obj, long, raw_cache_header, raw);
408 UPD_PROP(obj, string, cacheControl, ccontrol);
409 RETURN_TRUE;
410 }
411 /* }}} */
412
413 /* {{{ proto string HTTPi_Response::getCacheControl()
414 *
415 */
416 PHP_METHOD(HTTPi_Response, getCacheControl)
417 {
418 zval *ccontrol;
419 getObject(httpi_response_object, obj);
420
421 NO_ARGS;
422
423 ccontrol = GET_PROP(obj, cacheControl);
424 RETURN_STRINGL(Z_STRVAL_P(ccontrol), Z_STRLEN_P(ccontrol), 1);
425 }
426 /* }}} */
427
428 /* {{{ proto bool HTTPi::setContentType(string content_type)
429 *
430 */
431 PHP_METHOD(HTTPi_Response, setContentType)
432 {
433 char *ctype;
434 int ctype_len;
435 getObject(httpi_response_object, obj);
436
437 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &ctype, &ctype_len)) {
438 RETURN_FALSE;
439 }
440
441 if (!strchr(ctype, '/')) {
442 php_error_docref(NULL TSRMLS_CC, E_WARNING,
443 "Content type '%s' doesn't seem to contain a primary and a secondary part", ctype);
444 RETURN_FALSE;
445 }
446
447 UPD_PROP(obj, string, contentType, ctype);
448
449 RETURN_TRUE;
450 }
451 /* }}} */
452
453 /* {{{ proto string HTTPi_Response::getContentType()
454 *
455 */
456 PHP_METHOD(HTTPi_Response, getContentType)
457 {
458 zval *ctype;
459 getObject(httpi_response_object, obj);
460
461 NO_ARGS;
462
463 ctype = GET_PROP(obj, contentType);
464 RETURN_STRINGL(Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
465 }
466 /* }}} */
467
468 /* {{{ proto bool HTTPi_Response::setContentDisposition(string filename[, bool inline = false])
469 *
470 */
471 PHP_METHOD(HTTPi_Response, setContentDisposition)
472 {
473 char *file;
474 int file_len;
475 zend_bool is_inline = 0;
476 getObject(httpi_response_object, obj);
477
478 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|b", &file, &file_len, &is_inline)) {
479 RETURN_FALSE;
480 }
481
482 UPD_PROP(obj, string, dispoFile, file);
483 UPD_PROP(obj, long, dispoInline, is_inline);
484 RETURN_TRUE;
485 }
486 /* }}} */
487
488 /* {{{ proto array HTTPi_Response::getContentDisposition()
489 *
490 */
491 PHP_METHOD(HTTPi_Response, getContentDisposition)
492 {
493 zval *file;
494 zval *is_inline;
495 getObject(httpi_response_object, obj);
496
497 if (ZEND_NUM_ARGS()) {
498 WRONG_PARAM_COUNT;
499 }
500
501 file = GET_PROP(obj, dispoFile);
502 is_inline = GET_PROP(obj, dispoInline);
503
504 array_init(return_value);
505 add_assoc_stringl(return_value, "filename", Z_STRVAL_P(file), Z_STRLEN_P(file), 1);
506 add_assoc_bool(return_value, "inline", Z_LVAL_P(is_inline));
507 }
508 /* }}} */
509
510 /* {{{ proto bool HTTPi_Response::setETag(string etag)
511 *
512 */
513 PHP_METHOD(HTTPi_Response, setETag)
514 {
515 char *etag;
516 int etag_len;
517 getObject(httpi_response_object, obj);
518
519 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &etag, &etag_len)) {
520 RETURN_FALSE;
521 }
522
523 UPD_PROP(obj, string, eTag, etag);
524 RETURN_TRUE;
525 }
526 /* }}} */
527
528 /* {{{ proto string HTTPi_Response::getETag()
529 *
530 */
531 PHP_METHOD(HTTPi_Response, getETag)
532 {
533 zval *etag;
534 getObject(httpi_response_object, obj);
535
536 NO_ARGS;
537
538 etag = GET_PROP(obj, eTag);
539 RETURN_STRINGL(Z_STRVAL_P(etag), Z_STRLEN_P(etag), 1);
540 }
541 /* }}} */
542
543 /* {{{ proto bool HTTPi_Response::setData(string data)
544 *
545 */
546 PHP_METHOD(HTTPi_Response, setData)
547 {
548 zval *the_data;
549 char *etag;
550 getObject(httpi_response_object, obj);
551
552 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &the_data)) {
553 RETURN_FALSE;
554 }
555
556 convert_to_string_ex(&the_data);
557 SET_PROP(obj, data, the_data);
558 UPD_PROP(obj, long, lastModified, http_lmod(the_data, SEND_DATA));
559 UPD_PROP(obj, long, send_mode, SEND_DATA);
560 RETURN_TRUE;
561 }
562 /* }}} */
563
564 /* {{{ proto string HTTPi_Response::getData()
565 *
566 */
567 PHP_METHOD(HTTPi_Response, getData)
568 {
569 zval *the_data;
570 getObject(httpi_response_object, obj);
571
572 NO_ARGS;
573
574 the_data = GET_PROP(obj, data);
575 RETURN_STRINGL(Z_STRVAL_P(the_data), Z_STRLEN_P(the_data), 1);
576 }
577 /* }}} */
578
579 /* {{{ proto bool HTTPi_Response::setStream(resource stream)
580 *
581 */
582 PHP_METHOD(HTTPi_Response, setStream)
583 {
584 zval *the_stream;
585 php_stream *the_real_stream;
586 char *etag;
587 getObject(httpi_response_object, obj);
588
589 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &the_stream)) {
590 RETURN_FALSE;
591 }
592
593 php_stream_from_zval(the_real_stream, &the_stream);
594
595 SET_PROP(obj, stream, the_stream);
596 UPD_PROP(obj, long, lastModified, http_lmod(the_real_stream, SEND_RSRC));
597 UPD_PROP(obj, long, send_mode, SEND_RSRC);
598 RETURN_TRUE;
599 }
600 /* }}} */
601
602 /* {{{ proto resource HTTPi_Response::getStream()
603 *
604 */
605 PHP_METHOD(HTTPi_Response, getStream)
606 {
607 zval *the_stream;
608 getObject(httpi_response_object, obj);
609
610 NO_ARGS;
611
612 the_stream = GET_PROP(obj, stream);
613 RETURN_RESOURCE(Z_LVAL_P(the_stream));
614 }
615 /* }}} */
616
617 /* {{{ proto bool HTTPi_Response::setFile(string file)
618 *
619 */
620 PHP_METHOD(HTTPi_Response, setFile)
621 {
622 zval *the_file;
623 getObject(httpi_response_object, obj);
624
625 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &the_file)) {
626 RETURN_FALSE;
627 }
628
629 convert_to_string_ex(&the_file);
630
631 UPD_PROP(obj, string, file, Z_STRVAL_P(the_file));
632 UPD_PROP(obj, long, lastModified, http_lmod(the_file, -1));
633 UPD_PROP(obj, long, send_mode, -1);
634 RETURN_TRUE;
635 }
636 /* }}} */
637
638 /* {{{ proto string HTTPi_Response::getFile()
639 *
640 */
641 PHP_METHOD(HTTPi_Response, getFile)
642 {
643 zval *the_file;
644 getObject(httpi_response_object, obj);
645
646 NO_ARGS;
647
648 the_file = GET_PROP(obj, file);
649 RETURN_STRINGL(Z_STRVAL_P(the_file), Z_STRLEN_P(the_file), 1);
650 }
651 /* }}} */
652
653 PHP_METHOD(HTTPi_Response, send)
654 {
655 zval *do_cache, *do_gzip;
656 getObject(httpi_response_object, obj);
657
658 do_cache = GET_PROP(obj, cache);
659 do_gzip = GET_PROP(obj, gzip);
660
661 /* caching */
662 if (Z_LVAL_P(do_cache)) {
663 zval *cctrl, *etag, *lmod, *ccraw;
664
665 etag = GET_PROP(obj, eTag);
666 lmod = GET_PROP(obj, lastModified);
667 cctrl = GET_PROP(obj, cacheControl);
668 ccraw = GET_PROP(obj, raw_cache_header);
669
670 if (Z_LVAL_P(ccraw)) {
671 http_cache_etag(Z_STRVAL_P(etag), Z_STRLEN_P(etag), Z_STRVAL_P(cctrl), Z_STRLEN_P(cctrl));
672 http_cache_last_modified(Z_LVAL_P(lmod), Z_LVAL_P(lmod) ? Z_LVAL_P(lmod) : time(NULL), Z_STRVAL_P(cctrl), Z_STRLEN_P(cctrl));
673 } else {
674 char cc_header[42] = {0};
675 sprintf(cc_header, "%s, must-revalidate, max-age=0", Z_STRVAL_P(cctrl));
676 http_cache_etag(Z_STRVAL_P(etag), Z_STRLEN_P(etag), cc_header, strlen(cc_header));
677 http_cache_last_modified(Z_LVAL_P(lmod), Z_LVAL_P(lmod) ? Z_LVAL_P(lmod) : time(NULL), cc_header, strlen(cc_header));
678 }
679 }
680
681 /* gzip */
682 if (Z_LVAL_P(do_gzip)) {
683 /* ... */
684 }
685
686 /* content type */
687 {
688 zval *ctype = GET_PROP(obj, contentType);
689 if (Z_STRLEN_P(ctype)) {
690 http_send_content_type(Z_STRVAL_P(ctype), Z_STRLEN_P(ctype));
691 } else {
692 http_send_content_type("application/x-octetstream", sizeof("application/x-octetstream") - 1);
693 }
694 }
695
696 /* content disposition */
697 {
698 zval *dispo_file = GET_PROP(obj, dispoFile);
699 if (Z_STRLEN_P(dispo_file)) {
700 zval *dispo_inline = GET_PROP(obj, dispoInline);
701 http_send_content_disposition(Z_STRVAL_P(dispo_file), Z_STRLEN_P(dispo_file), Z_LVAL_P(dispo_inline));
702 }
703 }
704
705 /* send */
706 {
707 zval *send_mode = GET_PROP(obj, send_mode);
708 switch (Z_LVAL_P(send_mode))
709 {
710 case SEND_DATA:
711 {
712 RETURN_SUCCESS(http_send_data(GET_PROP(obj, data)));
713 }
714
715 case SEND_RSRC:
716 {
717 php_stream *the_real_stream;
718 zval *the_stream = GET_PROP(obj, stream);
719 php_stream_from_zval(the_real_stream, &the_stream);
720 RETURN_SUCCESS(http_send_stream(the_real_stream));
721 }
722
723 default:
724 {
725 RETURN_SUCCESS(http_send_file(GET_PROP(obj, file)));
726 }
727 }
728 }
729 }
730 /* }}} */
731
732 /* {{{ HTTPi_Request */
733 #ifdef HTTP_HAVE_CURL
734
735 zend_class_entry *httpi_request_ce;
736 static zend_object_handlers httpi_request_object_handlers;
737
738 typedef struct {
739 zend_object zo;
740 CURL *ch;
741 } httpi_request_object;
742
743 #define httpi_request_declare_default_properties(ce) _httpi_request_declare_default_properties(ce TSRMLS_CC)
744 static inline void _httpi_request_declare_default_properties(zend_class_entry *ce TSRMLS_DC)
745 {
746 DCL_PROP_N(PROTECTED, options);
747 DCL_PROP_N(PROTECTED, responseInfo);
748 DCL_PROP_N(PROTECTED, responseData);
749
750 DCL_PROP(PROTECTED, long, method, HTTP_GET);
751
752 DCL_PROP(PROTECTED, string, url, "");
753 DCL_PROP(PROTECTED, string, contentType, "");
754 DCL_PROP(PROTECTED, string, queryData, "");
755 DCL_PROP(PROTECTED, string, postData, "");
756 }
757
758 #define httpi_request_free_object _httpi_request_free_object
759 void _httpi_request_free_object(zend_object /* void */ *object TSRMLS_DC)
760 {
761 httpi_request_object *o = (httpi_request_object *) object;
762
763 if (OBJ_PROP(o)) {
764 zend_hash_destroy(OBJ_PROP(o));
765 FREE_HASHTABLE(OBJ_PROP(o));
766 }
767 if (o->ch) {
768 curl_easy_cleanup(o->ch);
769 o->ch = NULL;
770 }
771 efree(o);
772 }
773
774 #define httpi_request_new_object _httpi_request_new_object
775 zend_object_value _httpi_request_new_object(zend_class_entry *ce TSRMLS_DC)
776 {
777 zend_object_value ov;
778 httpi_request_object *o;
779
780 o = ecalloc(sizeof(httpi_request_object), 1);
781 o->zo.ce = ce;
782 o->ch = curl_easy_init();
783
784 ALLOC_HASHTABLE(OBJ_PROP(o));
785 zend_hash_init(OBJ_PROP(o), 0, NULL, ZVAL_PTR_DTOR, 0);
786 zend_hash_copy(OBJ_PROP(o), &ce->default_properties, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
787
788 ov.handle = zend_objects_store_put(o, (zend_objects_store_dtor_t) zend_objects_destroy_object, httpi_request_free_object, NULL TSRMLS_CC);
789 ov.handlers = &httpi_request_object_handlers;
790
791 return ov;
792 }
793
794 zend_function_entry httpi_request_class_methods[] = {
795 PHP_ME(HTTPi_Request, __construct, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
796 PHP_ME(HTTPi_Request, __destruct, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_DTOR)
797
798 PHP_ME(HTTPi_Request, setOptions, NULL, ZEND_ACC_PUBLIC)
799 PHP_ME(HTTPi_Request, getOptions, NULL, ZEND_ACC_PUBLIC)
800
801 PHP_ME(HTTPi_Request, setMethod, NULL, ZEND_ACC_PUBLIC)
802 PHP_ME(HTTPi_Request, getMethod, NULL, ZEND_ACC_PUBLIC)
803
804 PHP_ME(HTTPi_Request, setURL, NULL, ZEND_ACC_PUBLIC)
805 PHP_ME(HTTPi_Request, getURL, NULL, ZEND_ACC_PUBLIC)
806
807 PHP_ME(HTTPi_Request, setContentType, NULL, ZEND_ACC_PUBLIC)
808 PHP_ME(HTTPi_Request, getContentType, NULL, ZEND_ACC_PUBLIC)
809
810 PHP_ME(HTTPi_Request, setQueryData, NULL, ZEND_ACC_PUBLIC)
811 PHP_ME(HTTPi_Request, getQueryData, NULL, ZEND_ACC_PUBLIC)
812 PHP_ME(HTTPi_Request, addQueryData, NULL, ZEND_ACC_PUBLIC)
813 PHP_ME(HTTPi_Request, unsetQueryData, NULL, ZEND_ACC_PUBLIC)
814 /*
815 PHP_ME(HTTPi_Request, setPostData, NULL, ZEND_ACC_PUBLIC)
816 PHP_ME(HTTPi_Request, addPostData, NULL, ZEND_ACC_PUBLIC)
817 PHP_ME(HTTPi_Request, unsetPostData, NULL, ZEND_ACC_PUBLIC)
818
819 PHP_ME(HTTPi_Request, addPostFile, NULL, ZEND_ACC_PUBLIC)
820 */
821 PHP_ME(HTTPi_Request, send, NULL, ZEND_ACC_PUBLIC)
822
823 PHP_ME(HTTPi_Request, getResponseData, NULL, ZEND_ACC_PUBLIC)
824 PHP_ME(HTTPi_Request, getResponseHeaders, NULL, ZEND_ACC_PUBLIC)
825 PHP_ME(HTTPi_Request, getResponseBody, NULL, ZEND_ACC_PUBLIC)
826 PHP_ME(HTTPi_Request, getResponseInfo, NULL, ZEND_ACC_PUBLIC)
827
828 {NULL, NULL, NULL}
829 };
830
831 /* {{{ proto void HTTPi_Request::__construct([string url[, long request_method = HTTP_GET]])
832 *
833 */
834 PHP_METHOD(HTTPi_Request, __construct)
835 {
836 char *URL = NULL;
837 int URL_len;
838 long meth = -1;
839 zval *info, *opts, *resp;
840 getObject(httpi_request_object, obj);
841
842 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sl", &URL, &URL_len, &meth)) {
843 return;
844 }
845
846 INIT_PARR(obj, options);
847 INIT_PARR(obj, responseInfo);
848 INIT_PARR(obj, responseData);
849
850 if (URL) {
851 UPD_PROP(obj, string, url, URL);
852 }
853 if (meth > -1) {
854 UPD_PROP(obj, long, method, meth);
855 }
856 }
857 /* }}} */
858
859 /* {{{ proto void HTTPi_Request::__destruct()
860 *
861 */
862 PHP_METHOD(HTTPi_Request, __destruct)
863 {
864 getObject(httpi_request_object, obj);
865
866 NO_ARGS;
867
868 FREE_PARR(obj, options);
869 FREE_PARR(obj, responseInfo);
870 FREE_PARR(obj, responseData);
871 }
872 /* }}} */
873
874 /* {{{ proto bool HTTPi_Request::setOptions(array options)
875 *
876 */
877 PHP_METHOD(HTTPi_Request, setOptions)
878 {
879 zval *opts, *old_opts, **opt;
880 getObject(httpi_request_object, obj);
881
882 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a/", &opts)) {
883 RETURN_FALSE;
884 }
885
886 old_opts = GET_PROP(obj, options);
887
888 /* headers and cookies need extra attention -- thus cannot use zend_hash_merge() or php_array_merge() directly */
889 for ( zend_hash_internal_pointer_reset(Z_ARRVAL_P(opts));
890 zend_hash_get_current_data(Z_ARRVAL_P(opts), (void **) &opt) == SUCCESS;
891 zend_hash_move_forward(Z_ARRVAL_P(opts))) {
892 char *key;
893 long idx;
894 if (HASH_KEY_IS_STRING == zend_hash_get_current_key(Z_ARRVAL_P(opts), &key, &idx, 0)) {
895 if (!strcmp(key, "headers")) {
896 zval **headers;
897 if (SUCCESS == zend_hash_find(Z_ARRVAL_P(old_opts), "headers", sizeof("headers"), (void **) &headers)) {
898 array_merge(*opt, *headers);
899 continue;
900 }
901 } else if (!strcmp(key, "cookies")) {
902 zval **cookies;
903 if (SUCCESS == zend_hash_find(Z_ARRVAL_P(old_opts), "cookies", sizeof("cookies"), (void **) &cookies)) {
904 array_merge(*opt, *cookies);
905 continue;
906 }
907 }
908 zval_add_ref(opt);
909 add_assoc_zval(old_opts, key, *opt);
910 }
911 }
912 RETURN_TRUE;
913 }
914 /* }}} */
915
916 /* {{{ proto array HTTPi_Request::getOptions()
917 *
918 */
919 PHP_METHOD(HTTPi_Request, getOptions)
920 {
921 zval *opts;
922 getObject(httpi_request_object, obj);
923
924 NO_ARGS;
925
926 opts = GET_PROP(obj, options);
927 array_init(return_value);
928 array_copy(opts, return_value);
929 }
930 /* }}} */
931
932 /* {{{ proto bool HTTPi_Request::setURL(string url)
933 *
934 */
935 PHP_METHOD(HTTPi_Request, setURL)
936 {
937 char *URL = NULL;
938 int URL_len;
939 getObject(httpi_request_object, obj);
940
941 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &URL, &URL_len)) {
942 RETURN_FALSE;
943 }
944
945 UPD_PROP(obj, string, url, URL);
946 RETURN_TRUE;
947 }
948 /* }}} */
949
950 /* {{{ proto string HTTPi_Request::getUrl()
951 *
952 */
953 PHP_METHOD(HTTPi_Request, getURL)
954 {
955 zval *URL;
956 getObject(httpi_request_object, obj);
957
958 NO_ARGS;
959
960 URL = GET_PROP(obj, url);
961 RETURN_STRINGL(Z_STRVAL_P(URL), Z_STRLEN_P(URL), 1);
962 }
963 /* }}} */
964
965 /* {{{ proto bool HTTPi_Request::setMethod(long request_method)
966 *
967 */
968 PHP_METHOD(HTTPi_Request, setMethod)
969 {
970 long meth;
971 getObject(httpi_request_object, obj);
972
973 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &meth)) {
974 RETURN_FALSE;
975 }
976
977 UPD_PROP(obj, long, method, meth);
978 RETURN_TRUE;
979 }
980 /* }}} */
981
982 /* {{{ proto long HTTPi_Request::getMethod()
983 *
984 */
985 PHP_METHOD(HTTPi_Request, getMethod)
986 {
987 zval *meth;
988 getObject(httpi_request_object, obj);
989
990 NO_ARGS;
991
992 meth = GET_PROP(obj, method);
993 RETURN_LONG(Z_LVAL_P(meth));
994 }
995 /* }}} */
996
997 /* {{{ proto bool HTTPi_Request::setContentType(string content_type)
998 *
999 */
1000 PHP_METHOD(HTTPi_Request, setContentType)
1001 {
1002 char *ctype;
1003 int ct_len;
1004 getObject(httpi_request_object, obj);
1005
1006 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &ctype, &ct_len)) {
1007 RETURN_FALSE;
1008 }
1009
1010 if (!strchr(ctype, '/')) {
1011 php_error_docref(NULL TSRMLS_CC, E_WARNING,
1012 "Content-Type '%s' doesn't seem to contain a primary and a secondary part",
1013 ctype);
1014 RETURN_FALSE;
1015 }
1016
1017 UPD_PROP(obj, string, contentType, ctype);
1018 RETURN_TRUE;
1019 }
1020 /* }}} */
1021
1022 /* {{{ proto string HTTPi_Request::getContentType()
1023 *
1024 */
1025 PHP_METHOD(HTTPi_Request, getContentType)
1026 {
1027 zval *ctype;
1028 getObject(httpi_request_object, obj);
1029
1030 NO_ARGS;
1031
1032 ctype = GET_PROP(obj, contentType);
1033 RETURN_STRINGL(Z_STRVAL_P(ctype), Z_STRLEN_P(ctype), 1);
1034 }
1035 /* }}} */
1036
1037 /* {{{ proto bool HTTPi_Request::setQueryData(mixed query_data)
1038 *
1039 */
1040 PHP_METHOD(HTTPi_Request, setQueryData)
1041 {
1042 zval *qdata;
1043 getObject(httpi_request_object, obj);
1044
1045 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &qdata)) {
1046 RETURN_FALSE;
1047 }
1048
1049 if ((Z_TYPE_P(qdata) == IS_ARRAY) || (Z_TYPE_P(qdata) == IS_OBJECT)) {
1050 smart_str qstr = {0};
1051 HTTP_URL_ARGSEP_OVERRIDE;
1052 if (SUCCESS != php_url_encode_hash_ex(HASH_OF(qdata), &qstr, NULL, 0, NULL, 0, NULL, 0, NULL TSRMLS_CC)) {
1053 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Couldn't encode query data");
1054 if (qstr.c) {
1055 efree(qstr.c);
1056 }
1057 HTTP_URL_ARGSEP_RESTORE;
1058 RETURN_FALSE;
1059 }
1060 HTTP_URL_ARGSEP_RESTORE;
1061 smart_str_0(&qstr);
1062 UPD_PROP(obj, string, queryData, qstr.c);
1063 efree(qstr.c);
1064 RETURN_TRUE;
1065 }
1066
1067 convert_to_string(qdata);
1068 UPD_PROP(obj, string, queryData, Z_STRVAL_P(qdata));
1069 RETURN_TRUE;
1070 }
1071 /* }}} */
1072
1073 /* {{{ proto string HTTPi_Request::getQueryData()
1074 *
1075 */
1076 PHP_METHOD(HTTPi_Request, getQueryData)
1077 {
1078 zval *qdata;
1079 getObject(httpi_request_object, obj);
1080
1081 NO_ARGS;
1082
1083 qdata = GET_PROP(obj, queryData);
1084 RETURN_STRINGL(Z_STRVAL_P(qdata), Z_STRLEN_P(qdata), 1);
1085 }
1086 /* }}} */
1087
1088 /* {{{ proto bool HTTPi_Request::addQueryData(array query_params)
1089 *
1090 */
1091 PHP_METHOD(HTTPi_Request, addQueryData)
1092 {
1093 zval *qdata, *old_qdata;
1094 smart_str qstr = {0};
1095 char *separator;
1096 getObject(httpi_request_object, obj);
1097
1098 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", &qdata)) {
1099 RETURN_FALSE;
1100 }
1101
1102 old_qdata = GET_PROP(obj, queryData);
1103 if (Z_STRLEN_P(old_qdata)) {
1104 smart_str_appendl(&qstr, Z_STRVAL_P(old_qdata), Z_STRLEN_P(old_qdata));
1105 }
1106
1107 HTTP_URL_ARGSEP_OVERRIDE;
1108 if (SUCCESS != php_url_encode_hash_ex(HASH_OF(qdata), &qstr, NULL, 0, NULL, 0, NULL, 0, NULL TSRMLS_CC)) {
1109 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Couldn't encode query data");
1110 if (qstr.c) {
1111 efree(qstr.c);
1112 }
1113 HTTP_URL_ARGSEP_RESTORE;
1114 RETURN_FALSE;
1115 }
1116 HTTP_URL_ARGSEP_RESTORE;
1117
1118 smart_str_0(&qstr);
1119
1120 UPD_PROP(obj, string, queryData, qstr.c);
1121 efree(qstr.c);
1122 RETURN_TRUE;
1123 }
1124 /* }}} */
1125
1126 /* {{{ proto void HTTPi_Request::unsetQueryData()
1127 *
1128 */
1129 PHP_METHOD(HTTPi_Request, unsetQueryData)
1130 {
1131 getObject(httpi_request_object, obj);
1132
1133 NO_ARGS;
1134
1135 UPD_PROP(obj, string, queryData, "");
1136 }
1137 /* }}} */
1138
1139 /* {{{ proto array HTTPi_Request::getResponseData()
1140 *
1141 */
1142 PHP_METHOD(HTTPi_Request, getResponseData)
1143 {
1144 zval *data;
1145 getObject(httpi_request_object, obj);
1146
1147 NO_ARGS;
1148
1149 data = GET_PROP(obj, responseData);
1150 array_init(return_value);
1151 array_copy(data, return_value);
1152 }
1153 /* }}} */
1154
1155 /* {{{ proto array HTTPi_Request::getResponseHeaders()
1156 *
1157 */
1158 PHP_METHOD(HTTPi_Request, getResponseHeaders)
1159 {
1160 zval *data, **headers;
1161 getObject(httpi_request_object, obj);
1162
1163 NO_ARGS;
1164
1165 array_init(return_value);
1166 data = GET_PROP(obj, responseData);
1167 if (SUCCESS == zend_hash_find(Z_ARRVAL_P(data), "headers", sizeof("headers"), (void **) &headers)) {
1168 array_copy(*headers, return_value);
1169 }
1170 }
1171 /* }}} */
1172
1173 /* {{{ proto string HTTPi_Request::getResponseBody()
1174 *
1175 */
1176 PHP_METHOD(HTTPi_Request, getResponseBody)
1177 {
1178 zval *data, **body;
1179 getObject(httpi_request_object, obj);
1180
1181 NO_ARGS;
1182
1183 data = GET_PROP(obj, responseData);
1184 if (SUCCESS == zend_hash_find(Z_ARRVAL_P(data), "body", sizeof("body"), (void **) &body)) {
1185 RETURN_STRINGL(Z_STRVAL_PP(body), Z_STRLEN_PP(body), 1);
1186 } else {
1187 Z_TYPE_P(return_value) = IS_NULL;
1188 }
1189 }
1190 /* }}} */
1191
1192 /* {{{ proto array HTTPi_Request::getResponseInfo()
1193 *
1194 */
1195 PHP_METHOD(HTTPi_Request, getResponseInfo)
1196 {
1197 zval *info;
1198 getObject(httpi_request_object, obj);
1199
1200 NO_ARGS;
1201
1202 info = GET_PROP(obj, responseInfo);
1203 array_init(return_value);
1204 array_copy(info, return_value);
1205 }
1206 /* }}}*/
1207
1208 /* {{{ proto bool HTTPi_Request::send()
1209 *
1210 */
1211 PHP_METHOD(HTTPi_Request, send)
1212 {
1213 STATUS status = FAILURE;
1214 zval *meth, *URL, *qdata, *opts, *info, *resp;
1215 char *response_data, *request_uri, *uri;
1216 size_t response_len;
1217 getObject(httpi_request_object, obj);
1218
1219 NO_ARGS;
1220
1221 if ((!obj->ch) && (!(obj->ch = curl_easy_init()))) {
1222 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not initilaize cURL");
1223 RETURN_FALSE;
1224 }
1225
1226 meth = GET_PROP(obj, method);
1227 URL = GET_PROP(obj, url);
1228 qdata = GET_PROP(obj, queryData);
1229 opts = GET_PROP(obj, options);
1230 info = GET_PROP(obj, responseInfo);
1231 resp = GET_PROP(obj, responseData);
1232
1233 uri = http_absolute_uri(Z_STRVAL_P(URL), NULL);
1234 request_uri = ecalloc(HTTP_URI_MAXLEN + 1, 1);
1235 strcpy(request_uri, uri);
1236 efree(uri);
1237
1238 if (Z_STRLEN_P(qdata) && (strlen(request_uri) < HTTP_URI_MAXLEN)) {
1239 if (!strchr(request_uri, '?')) {
1240 strcat(request_uri, "?");
1241 } else {
1242 strcat(request_uri, "&");
1243 }
1244 strncat(request_uri, Z_STRVAL_P(qdata), HTTP_URI_MAXLEN - strlen(request_uri));
1245 }
1246
1247 switch (Z_LVAL_P(meth))
1248 {
1249 case HTTP_GET:
1250 status = http_get_ex(obj->ch, request_uri, Z_ARRVAL_P(opts), Z_ARRVAL_P(info), &response_data, &response_len);
1251 break;
1252
1253 case HTTP_HEAD:
1254 status = http_head_ex(obj->ch, request_uri, Z_ARRVAL_P(opts), Z_ARRVAL_P(info), &response_data, &response_len);
1255 break;
1256
1257 case HTTP_POST:
1258 break;
1259
1260 default:
1261 break;
1262 }
1263
1264 efree(request_uri);
1265
1266 /* final data handling */
1267 if (status != SUCCESS) {
1268 RETURN_FALSE;
1269 } else {
1270 zval *zheaders, *zbody;
1271
1272 MAKE_STD_ZVAL(zbody);
1273 MAKE_STD_ZVAL(zheaders)
1274 array_init(zheaders);
1275
1276 if (SUCCESS != http_split_response_ex(response_data, response_len, zheaders, zbody)) {
1277 zval_dtor(zheaders);
1278 efree(zheaders),
1279 efree(zbody);
1280 efree(response_data);
1281 RETURN_FALSE;
1282 }
1283
1284 add_assoc_zval(resp, "headers", zheaders);
1285 add_assoc_zval(resp, "body", zbody);
1286
1287 efree(response_data);
1288
1289 RETURN_TRUE;
1290 }
1291 /* */
1292 }
1293 /* }}} */
1294
1295 #endif /* HTTP_HAVE_CURL */
1296 /* }}} */
1297
1298 #endif /* ZEND_ENGINE_2 */
1299
1300 /* {{{ http_module_entry */
1301 zend_module_entry http_module_entry = {
1302 #if ZEND_MODULE_API_NO >= 20010901
1303 STANDARD_MODULE_HEADER,
1304 #endif
1305 "http",
1306 http_functions,
1307 PHP_MINIT(http),
1308 PHP_MSHUTDOWN(http),
1309 PHP_RINIT(http),
1310 PHP_RSHUTDOWN(http),
1311 PHP_MINFO(http),
1312 #if ZEND_MODULE_API_NO >= 20010901
1313 PHP_EXT_HTTP_VERSION,
1314 #endif
1315 STANDARD_MODULE_PROPERTIES
1316 };
1317 /* }}} */
1318
1319 /* {{{ proto string http_date([int timestamp])
1320 *
1321 * This function returns a valid HTTP date regarding RFC 822/1123
1322 * looking like: "Wed, 22 Dec 2004 11:34:47 GMT"
1323 *
1324 */
1325 PHP_FUNCTION(http_date)
1326 {
1327 long t = -1;
1328
1329 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &t) != SUCCESS) {
1330 RETURN_FALSE;
1331 }
1332
1333 if (t == -1) {
1334 t = (long) time(NULL);
1335 }
1336
1337 RETURN_STRING(http_date(t), 0);
1338 }
1339 /* }}} */
1340
1341 /* {{{ proto string http_absolute_uri(string url[, string proto])
1342 *
1343 * This function returns an absolute URI constructed from url.
1344 * If the url is already abolute but a different proto was supplied,
1345 * only the proto part of the URI will be updated. If url has no
1346 * path specified, the path of the current REQUEST_URI will be taken.
1347 * The host will be taken either from the Host HTTP header of the client
1348 * the SERVER_NAME or just localhost if prior are not available.
1349 *
1350 * Some examples:
1351 * <pre>
1352 * url = "page.php" => http://www.example.com/current/path/page.php
1353 * url = "/page.php" => http://www.example.com/page.php
1354 * url = "/page.php", proto = "https" => https://www.example.com/page.php
1355 * </pre>
1356 *
1357 */
1358 PHP_FUNCTION(http_absolute_uri)
1359 {
1360 char *url = NULL, *proto = NULL;
1361 int url_len = 0, proto_len = 0;
1362
1363 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|s", &url, &url_len, &proto, &proto_len) != SUCCESS) {
1364 RETURN_FALSE;
1365 }
1366
1367 RETURN_STRING(http_absolute_uri(url, proto), 0);
1368 }
1369 /* }}} */
1370
1371 /* {{{ proto string http_negotiate_language(array supported[, string default = 'en-US'])
1372 *
1373 * This function negotiates the clients preferred language based on its
1374 * Accept-Language HTTP header. It returns the negotiated language or
1375 * the default language if none match.
1376 *
1377 * The qualifier is recognized and languages without qualifier are rated highest.
1378 *
1379 * The supported parameter is expected to be an array having
1380 * the supported languages as array values.
1381 *
1382 * Example:
1383 * <pre>
1384 * <?php
1385 * $langs = array(
1386 * 'en-US',// default
1387 * 'fr',
1388 * 'fr-FR',
1389 * 'de',
1390 * 'de-DE',
1391 * 'de-AT',
1392 * 'de-CH',
1393 * );
1394 * include './langs/'. http_negotiate_language($langs) .'.php';
1395 * ?>
1396 * </pre>
1397 *
1398 */
1399 PHP_FUNCTION(http_negotiate_language)
1400 {
1401 zval *supported;
1402 char *def = NULL;
1403 int def_len = 0;
1404
1405 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a|s", &supported, &def, &def_len) != SUCCESS) {
1406 RETURN_FALSE;
1407 }
1408
1409 if (!def) {
1410 def = "en-US";
1411 }
1412
1413 RETURN_STRING(http_negotiate_language(supported, def), 0);
1414 }
1415 /* }}} */
1416
1417 /* {{{ proto string http_negotiate_charset(array supported[, string default = 'iso-8859-1'])
1418 *
1419 * This function negotiates the clients preferred charset based on its
1420 * Accept-Charset HTTP header. It returns the negotiated charset or
1421 * the default charset if none match.
1422 *
1423 * The qualifier is recognized and charset without qualifier are rated highest.
1424 *
1425 * The supported parameter is expected to be an array having
1426 * the supported charsets as array values.
1427 *
1428 * Example:
1429 * <pre>
1430 * <?php
1431 * $charsets = array(
1432 * 'iso-8859-1', // default
1433 * 'iso-8859-2',
1434 * 'iso-8859-15',
1435 * 'utf-8'
1436 * );
1437 * $pref = http_negotiate_charset($charsets);
1438 * if (!strcmp($pref, 'iso-8859-1')) {
1439 * iconv_set_encoding('internal_encoding', 'iso-8859-1');
1440 * iconv_set_encoding('output_encoding', $pref);
1441 * ob_start('ob_iconv_handler');
1442 * }
1443 * ?>
1444 * </pre>
1445 */
1446 PHP_FUNCTION(http_negotiate_charset)
1447 {
1448 zval *supported;
1449 char *def = NULL;
1450 int def_len = 0;
1451
1452 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a|s", &supported, &def, &def_len) != SUCCESS) {
1453 RETURN_FALSE;
1454 }
1455
1456 if (!def) {
1457 def = "iso-8859-1";
1458 }
1459
1460 RETURN_STRING(http_negotiate_charset(supported, def), 0);
1461 }
1462 /* }}} */
1463
1464 /* {{{ proto bool http_send_status(int status)
1465 *
1466 * Send HTTP status code.
1467 *
1468 */
1469 PHP_FUNCTION(http_send_status)
1470 {
1471 int status = 0;
1472
1473 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &status) != SUCCESS) {
1474 RETURN_FALSE;
1475 }
1476 if (status < 100 || status > 510) {
1477 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid HTTP status code (100-510): %d", status);
1478 RETURN_FALSE;
1479 }
1480
1481 RETURN_SUCCESS(http_send_status(status));
1482 }
1483 /* }}} */
1484
1485 /* {{{ proto bool http_send_last_modified([int timestamp])
1486 *
1487 * This converts the given timestamp to a valid HTTP date and
1488 * sends it as "Last-Modified" HTTP header. If timestamp is
1489 * omitted, current time is sent.
1490 *
1491 */
1492 PHP_FUNCTION(http_send_last_modified)
1493 {
1494 long t = -1;
1495
1496 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &t) != SUCCESS) {
1497 RETURN_FALSE;
1498 }
1499
1500 if (t == -1) {
1501 t = (long) time(NULL);
1502 }
1503
1504 RETURN_SUCCESS(http_send_last_modified(t));
1505 }
1506 /* }}} */
1507
1508 /* {{{ proto bool http_send_content_type([string content_type = 'application/x-octetstream'])
1509 *
1510 * Sets the content type.
1511 *
1512 */
1513 PHP_FUNCTION(http_send_content_type)
1514 {
1515 char *ct;
1516 int ct_len = 0;
1517
1518 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &ct, &ct_len) != SUCCESS) {
1519 RETURN_FALSE;
1520 }
1521
1522 if (!ct_len) {
1523 RETURN_SUCCESS(http_send_content_type("application/x-octetstream", sizeof("application/x-octetstream") - 1));
1524 }
1525 RETURN_SUCCESS(http_send_content_type(ct, ct_len));
1526 }
1527 /* }}} */
1528
1529 /* {{{ proto bool http_send_content_disposition(string filename[, bool inline = false])
1530 *
1531 * Set the Content Disposition. The Content-Disposition header is very useful
1532 * if the data actually sent came from a file or something similar, that should
1533 * be "saved" by the client/user (i.e. by browsers "Save as..." popup window).
1534 *
1535 */
1536 PHP_FUNCTION(http_send_content_disposition)
1537 {
1538 char *filename;
1539 int f_len;
1540 zend_bool send_inline = 0;
1541
1542 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|b", &filename, &f_len, &send_inline) != SUCCESS) {
1543 RETURN_FALSE;
1544 }
1545 RETURN_SUCCESS(http_send_content_disposition(filename, f_len, send_inline));
1546 }
1547 /* }}} */
1548
1549 /* {{{ proto bool http_match_modified([int timestamp])
1550 *
1551 * Matches the given timestamp against the clients "If-Modified-Since" resp.
1552 * "If-Unmodified-Since" HTTP headers.
1553 *
1554 */
1555 PHP_FUNCTION(http_match_modified)
1556 {
1557 long t = -1;
1558
1559 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &t) != SUCCESS) {
1560 RETURN_FALSE;
1561 }
1562
1563 // current time if not supplied (senseless though)
1564 if (t == -1) {
1565 t = (long) time(NULL);
1566 }
1567
1568 RETURN_BOOL(http_modified_match("HTTP_IF_MODIFIED_SINCE", t) || http_modified_match("HTTP_IF_UNMODIFIED_SINCE", t));
1569 }
1570 /* }}} */
1571
1572 /* {{{ proto bool http_match_etag(string etag)
1573 *
1574 * This matches the given ETag against the clients
1575 * "If-Match" resp. "If-None-Match" HTTP headers.
1576 *
1577 */
1578 PHP_FUNCTION(http_match_etag)
1579 {
1580 int etag_len;
1581 char *etag;
1582
1583 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &etag, &etag_len) != SUCCESS) {
1584 RETURN_FALSE;
1585 }
1586
1587 RETURN_BOOL(http_etag_match("HTTP_IF_NONE_MATCH", etag) || http_etag_match("HTTP_IF_MATCH", etag));
1588 }
1589 /* }}} */
1590
1591 /* {{{ proto bool http_cache_last_modified([int timestamp_or_expires]])
1592 *
1593 * If timestamp_or_exires is greater than 0, it is handled as timestamp
1594 * and will be sent as date of last modification. If it is 0 or omitted,
1595 * the current time will be sent as Last-Modified date. If it's negative,
1596 * it is handled as expiration time in seconds, which means that if the
1597 * requested last modification date is not between the calculated timespan,
1598 * the Last-Modified header is updated and the actual body will be sent.
1599 *
1600 */
1601 PHP_FUNCTION(http_cache_last_modified)
1602 {
1603 long last_modified = 0, send_modified = 0, t;
1604 zval *zlm;
1605
1606 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &last_modified) != SUCCESS) {
1607 RETURN_FALSE;
1608 }
1609
1610 t = (long) time(NULL);
1611
1612 /* 0 or omitted */
1613 if (!last_modified) {
1614 /* does the client have? (att: caching "forever") */
1615 if (zlm = http_get_server_var("HTTP_IF_MODIFIED_SINCE")) {
1616 last_modified = send_modified = http_parse_date(Z_STRVAL_P(zlm));
1617 /* send current time */
1618 } else {
1619 send_modified = t;
1620 }
1621 /* negative value is supposed to be expiration time */
1622 } else if (last_modified < 0) {
1623 last_modified += t;
1624 send_modified = t;
1625 /* send supplied time explicitly */
1626 } else {
1627 send_modified = last_modified;
1628 }
1629
1630 RETURN_SUCCESS(http_cache_last_modified(last_modified, send_modified, HTTP_DEFAULT_CACHECONTROL, sizeof(HTTP_DEFAULT_CACHECONTROL) - 1));
1631 }
1632 /* }}} */
1633
1634 /* {{{ proto bool http_cache_etag([string etag])
1635 *
1636 * This function attempts to cache the HTTP body based on an ETag,
1637 * either supplied or generated through calculation of the MD5
1638 * checksum of the output (uses output buffering).
1639 *
1640 * If clients "If-None-Match" header matches the supplied/calculated
1641 * ETag, the body is considered cached on the clients side and
1642 * a "304 Not Modified" status code is issued.
1643 *
1644 */
1645 PHP_FUNCTION(http_cache_etag)
1646 {
1647 char *etag;
1648 int etag_len = 0;
1649
1650 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &etag, &etag_len) != SUCCESS) {
1651 RETURN_FALSE;
1652 }
1653
1654 RETURN_SUCCESS(http_cache_etag(etag, etag_len, HTTP_DEFAULT_CACHECONTROL, sizeof(HTTP_DEFAULT_CACHECONTROL) - 1));
1655 }
1656 /* }}} */
1657
1658 /* {{{ proto string ob_httpetaghandler(string data, int mode)
1659 *
1660 * For use with ob_start().
1661 * Note that this has to be started as first output buffer.
1662 * WARNING: Don't use with http_send_*().
1663 */
1664 PHP_FUNCTION(ob_httpetaghandler)
1665 {
1666 char *data;
1667 int data_len;
1668 long mode;
1669
1670 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl", &data, &data_len, &mode)) {
1671 RETURN_FALSE;
1672 }
1673
1674 if (mode & PHP_OUTPUT_HANDLER_START) {
1675 if (HTTP_G(etag_started)) {
1676 php_error_docref(NULL TSRMLS_CC, E_WARNING, "ob_httpetaghandler can only be used once");
1677 RETURN_STRINGL(data, data_len, 1);
1678 }
1679 http_send_header("Cache-Control: " HTTP_DEFAULT_CACHECONTROL);
1680 HTTP_G(etag_started) = 1;
1681 }
1682
1683 if (OG(ob_nesting_level) > 1) {
1684 php_error_docref(NULL TSRMLS_CC, E_WARNING, "ob_httpetaghandler must be started prior to other output buffers");
1685 RETURN_STRINGL(data, data_len, 1);
1686 }
1687
1688 Z_TYPE_P(return_value) = IS_STRING;
1689 http_ob_etaghandler(data, data_len, &Z_STRVAL_P(return_value), &Z_STRLEN_P(return_value), mode);
1690 }
1691 /* }}} */
1692
1693 /* {{{ proto void http_redirect([string url[, array params[, bool session,[ bool permanent]]]])
1694 *
1695 * Redirect to a given url.
1696 * The supplied url will be expanded with http_absolute_uri(), the params array will
1697 * be treated with http_build_query() and the session identification will be appended
1698 * if session is true.
1699 *
1700 * Depending on permanent the redirection will be issued with a permanent
1701 * ("301 Moved Permanently") or a temporary ("302 Found") redirection
1702 * status code.
1703 *
1704 * To be RFC compliant, "Redirecting to <a>URI</a>." will be displayed,
1705 * if the client doesn't redirect immediatly.
1706 */
1707 PHP_FUNCTION(http_redirect)
1708 {
1709 int url_len;
1710 zend_bool session = 0, permanent = 0;
1711 zval *params = NULL;
1712 smart_str qstr = {0};
1713 char *url, *URI, LOC[HTTP_URI_MAXLEN + 9], RED[HTTP_URI_MAXLEN * 2 + 34];
1714
1715 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sa!/bb", &url, &url_len, &params, &session, &permanent) != SUCCESS) {
1716 RETURN_FALSE;
1717 }
1718
1719 /* append session info */
1720 if (session && (PS(session_status) == php_session_active)) {
1721 if (!params) {
1722 MAKE_STD_ZVAL(params);
1723 array_init(params);
1724 }
1725 if (add_assoc_string(params, PS(session_name), PS(id), 1) != SUCCESS) {
1726 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not append session information");
1727 }
1728 }
1729
1730 /* treat params array with http_build_query() */
1731 if (params) {
1732 if (php_url_encode_hash_ex(Z_ARRVAL_P(params), &qstr, NULL,0,NULL,0,NULL,0,NULL TSRMLS_CC) != SUCCESS) {
1733 if (qstr.c) {
1734 efree(qstr.c);
1735 }
1736 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not encode query parameters");
1737 RETURN_FALSE;
1738 }
1739 smart_str_0(&qstr);
1740 }
1741
1742 URI = http_absolute_uri(url, NULL);
1743 if (qstr.c) {
1744 snprintf(LOC, HTTP_URI_MAXLEN + strlen("Location: "), "Location: %s?%s", URI, qstr.c);
1745 sprintf(RED, "Redirecting to <a href=\"%s?%s\">%s?%s</a>.\n", URI, qstr.c, URI, qstr.c);
1746 efree(qstr.c);
1747 } else {
1748 snprintf(LOC, HTTP_URI_MAXLEN + strlen("Location: "), "Location: %s", URI);
1749 sprintf(RED, "Redirecting to <a href=\"%s\">%s</a>.\n", URI, URI);
1750 }
1751 efree(URI);
1752
1753 if ((SUCCESS == http_send_header(LOC)) && (SUCCESS == http_send_status((permanent ? 301 : 302)))) {
1754 php_body_write(RED, strlen(RED) TSRMLS_CC);
1755 RETURN_TRUE;
1756 }
1757 RETURN_FALSE;
1758 }
1759 /* }}} */
1760
1761 /* {{{ proto bool http_send_data(string data)
1762 *
1763 * Sends raw data with support for (multiple) range requests.
1764 *
1765 */
1766 PHP_FUNCTION(http_send_data)
1767 {
1768 zval *zdata;
1769
1770 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zdata) != SUCCESS) {
1771 RETURN_FALSE;
1772 }
1773
1774 convert_to_string_ex(&zdata);
1775 http_send_header("Accept-Ranges: bytes");
1776 RETURN_SUCCESS(http_send_data(zdata));
1777 }
1778 /* }}} */
1779
1780 /* {{{ proto bool http_send_file(string file)
1781 *
1782 * Sends a file with support for (multiple) range requests.
1783 *
1784 */
1785 PHP_FUNCTION(http_send_file)
1786 {
1787 zval *zfile;
1788
1789 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zfile) != SUCCESS) {
1790 RETURN_FALSE;
1791 }
1792
1793 convert_to_string_ex(&zfile);
1794 http_send_header("Accept-Ranges: bytes");
1795 RETURN_SUCCESS(http_send_file(zfile));
1796 }
1797 /* }}} */
1798
1799 /* {{{ proto bool http_send_stream(resource stream)
1800 *
1801 * Sends an already opened stream with support for (multiple) range requests.
1802 *
1803 */
1804 PHP_FUNCTION(http_send_stream)
1805 {
1806 zval *zstream;
1807 php_stream *file;
1808
1809 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "r", &zstream) != SUCCESS) {
1810 RETURN_FALSE;
1811 }
1812
1813 php_stream_from_zval(file, &zstream);
1814 http_send_header("Accept-Ranges: bytes");
1815 RETURN_SUCCESS(http_send_stream(file));
1816 }
1817 /* }}} */
1818
1819 /* {{{ proto string http_chunked_decode(string encoded)
1820 *
1821 * This function decodes a string that was HTTP-chunked encoded.
1822 * Returns false on failure.
1823 */
1824 PHP_FUNCTION(http_chunked_decode)
1825 {
1826 char *encoded = NULL, *decoded = NULL;
1827 int encoded_len = 0, decoded_len = 0;
1828
1829 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &encoded, &encoded_len) != SUCCESS) {
1830 RETURN_FALSE;
1831 }
1832
1833 if (SUCCESS == http_chunked_decode(encoded, encoded_len, &decoded, &decoded_len)) {
1834 RETURN_STRINGL(decoded, decoded_len, 0);
1835 } else {
1836 RETURN_FALSE;
1837 }
1838 }
1839 /* }}} */
1840
1841 /* {{{ proto array http_split_response(string http_response)
1842 *
1843 * This function splits an HTTP response into an array with headers and the
1844 * content body. The returned array may look simliar to the following example:
1845 *
1846 * <pre>
1847 * <?php
1848 * array(
1849 * 0 => array(
1850 * 'Status' => '200 Ok',
1851 * 'Content-Type' => 'text/plain',
1852 * 'Content-Language' => 'en-US'
1853 * ),
1854 * 1 => "Hello World!"
1855 * );
1856 * ?>
1857 * </pre>
1858 */
1859 PHP_FUNCTION(http_split_response)
1860 {
1861 zval *zresponse, *zbody, *zheaders;
1862
1863 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zresponse) != SUCCESS) {
1864 RETURN_FALSE;
1865 }
1866
1867 convert_to_string_ex(&zresponse);
1868
1869 MAKE_STD_ZVAL(zbody);
1870 MAKE_STD_ZVAL(zheaders);
1871 array_init(zheaders);
1872
1873 if (SUCCESS != http_split_response(zresponse, zheaders, zbody)) {
1874 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not parse HTTP response");
1875 RETURN_FALSE;
1876 }
1877
1878 array_init(return_value);
1879 add_index_zval(return_value, 0, zheaders);
1880 add_index_zval(return_value, 1, zbody);
1881 }
1882 /* }}} */
1883
1884 /* {{{ proto array http_parse_headers(string header)
1885 *
1886 */
1887 PHP_FUNCTION(http_parse_headers)
1888 {
1889 char *header, *rnrn;
1890 int header_len;
1891
1892 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &header, &header_len)) {
1893 RETURN_FALSE;
1894 }
1895
1896 array_init(return_value);
1897
1898 if (rnrn = strstr(header, HTTP_CRLF HTTP_CRLF)) {
1899 header_len = rnrn - header + 2;
1900 }
1901 if (SUCCESS != http_parse_headers(header, header_len, return_value)) {
1902 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Could not parse HTTP header");
1903 zval_dtor(return_value);
1904 RETURN_FALSE;
1905 }
1906 }
1907 /* }}}*/
1908
1909 /* {{{ proto array http_get_request_headers(void)
1910 *
1911 */
1912 PHP_FUNCTION(http_get_request_headers)
1913 {
1914 if (ZEND_NUM_ARGS()) {
1915 WRONG_PARAM_COUNT;
1916 }
1917
1918 array_init(return_value);
1919 http_get_request_headers(return_value);
1920 }
1921 /* }}} */
1922
1923 /* {{{ HAVE_CURL */
1924 #ifdef HTTP_HAVE_CURL
1925
1926 /* {{{ proto string http_get(string url[, array options[, array &info]])
1927 *
1928 * Performs an HTTP GET request on the supplied url.
1929 *
1930 * The second parameter is expected to be an associative
1931 * array where the following keys will be recognized:
1932 * <pre>
1933 * - redirect: int, whether and how many redirects to follow
1934 * - unrestrictedauth: bool, whether to continue sending credentials on
1935 * redirects to a different host
1936 * - proxyhost: string, proxy host in "host[:port]" format
1937 * - proxyport: int, use another proxy port as specified in proxyhost
1938 * - proxyauth: string, proxy credentials in "user:pass" format
1939 * - proxyauthtype: int, HTTP_AUTH_BASIC and/or HTTP_AUTH_NTLM
1940 * - httpauth: string, http credentials in "user:pass" format
1941 * - httpauthtype: int, HTTP_AUTH_BASIC, DIGEST and/or NTLM
1942 * - compress: bool, whether to allow gzip/deflate content encoding
1943 * (defaults to true)
1944 * - port: int, use another port as specified in the url
1945 * - referer: string, the referer to sends
1946 * - useragent: string, the user agent to send
1947 * (defaults to PECL::HTTP/version (PHP/version)))
1948 * - headers: array, list of custom headers as associative array
1949 * like array("header" => "value")
1950 * - cookies: array, list of cookies as associative array
1951 * like array("cookie" => "value")
1952 * - cookiestore: string, path to a file where cookies are/will be stored
1953 * </pre>
1954 *
1955 * The optional third parameter will be filled with some additional information
1956 * in form af an associative array, if supplied, like the following example:
1957 * <pre>
1958 * <?php
1959 * array (
1960 * 'effective_url' => 'http://localhost',
1961 * 'response_code' => 403,
1962 * 'total_time' => 0.017,
1963 * 'namelookup_time' => 0.013,
1964 * 'connect_time' => 0.014,
1965 * 'pretransfer_time' => 0.014,
1966 * 'size_upload' => 0,
1967 * 'size_download' => 202,
1968 * 'speed_download' => 11882,
1969 * 'speed_upload' => 0,
1970 * 'header_size' => 145,
1971 * 'request_size' => 62,
1972 * 'ssl_verifyresult' => 0,
1973 * 'filetime' => -1,
1974 * 'content_length_download' => 202,
1975 * 'content_length_upload' => 0,
1976 * 'starttransfer_time' => 0.017,
1977 * 'content_type' => 'text/html; charset=iso-8859-1',
1978 * 'redirect_time' => 0,
1979 * 'redirect_count' => 0,
1980 * 'private' => '',
1981 * 'http_connectcode' => 0,
1982 * 'httpauth_avail' => 0,
1983 * 'proxyauth_avail' => 0,
1984 * )
1985 * ?>
1986 * </pre>
1987 */
1988 PHP_FUNCTION(http_get)
1989 {
1990 char *URL, *data = NULL;
1991 size_t data_len = 0;
1992 int URL_len;
1993 zval *options = NULL, *info = NULL;
1994
1995 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|a/!z", &URL, &URL_len, &options, &info) != SUCCESS) {
1996 RETURN_FALSE;
1997 }
1998
1999 if (info) {
2000 zval_dtor(info);
2001 array_init(info);
2002 }
2003
2004 if (SUCCESS == http_get(URL, HASH_ORNULL(options), HASH_ORNULL(info), &data, &data_len)) {
2005 RETURN_STRINGL(data, data_len, 0);
2006 } else {
2007 RETURN_FALSE;
2008 }
2009 }
2010 /* }}} */
2011
2012 /* {{{ proto string http_head(string url[, array options[, array &info]])
2013 *
2014 * Performs an HTTP HEAD request on the suppied url.
2015 * Returns the HTTP response as string.
2016 * See http_get() for a full list of available options.
2017 */
2018 PHP_FUNCTION(http_head)
2019 {
2020 char *URL, *data = NULL;
2021 size_t data_len = 0;
2022 int URL_len;
2023 zval *options = NULL, *info = NULL;
2024
2025 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|a/!z", &URL, &URL_len, &options, &info) != SUCCESS) {
2026 RETURN_FALSE;
2027 }
2028
2029 if (info) {
2030 zval_dtor(info);
2031 array_init(info);
2032 }
2033
2034 if (SUCCESS == http_head(URL, HASH_ORNULL(options), HASH_ORNULL(info), &data, &data_len)) {
2035 RETURN_STRINGL(data, data_len, 0);
2036 } else {
2037 RETURN_FALSE;
2038 }
2039 }
2040 /* }}} */
2041
2042 /* {{{ proto string http_post_data(string url, string data[, array options[, &info]])
2043 *
2044 * Performs an HTTP POST request, posting data.
2045 * Returns the HTTP response as string.
2046 * See http_get() for a full list of available options.
2047 */
2048 PHP_FUNCTION(http_post_data)
2049 {
2050 char *URL, *postdata, *data = NULL;
2051 size_t data_len = 0;
2052 int postdata_len, URL_len;
2053 zval *options = NULL, *info = NULL;
2054
2055 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss|a/!z", &URL, &URL_len, &postdata, &postdata_len, &options, &info) != SUCCESS) {
2056 RETURN_FALSE;
2057 }
2058
2059 if (info) {
2060 zval_dtor(info);
2061 array_init(info);
2062 }
2063
2064 if (SUCCESS == http_post_data(URL, postdata, (size_t) postdata_len, HASH_ORNULL(options), HASH_ORNULL(info), &data, &data_len)) {
2065 RETURN_STRINGL(data, data_len, 0);
2066 } else {
2067 RETURN_FALSE;
2068 }
2069 }
2070 /* }}} */
2071
2072 /* {{{ proto string http_post_array(string url, array data[, array options[, array &info]])
2073 *
2074 * Performs an HTTP POST request, posting www-form-urlencoded array data.
2075 * Returns the HTTP response as string.
2076 * See http_get() for a full list of available options.
2077 */
2078 PHP_FUNCTION(http_post_array)
2079 {
2080 char *URL, *data = NULL;
2081 size_t data_len = 0;
2082 int URL_len;
2083 zval *options = NULL, *info = NULL, *postdata;
2084
2085 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sa|a/!z", &URL, &URL_len, &postdata, &options, &info) != SUCCESS) {
2086 RETURN_FALSE;
2087 }
2088
2089 if (info) {
2090 zval_dtor(info);
2091 array_init(info);
2092 }
2093
2094 if (SUCCESS == http_post_array(URL, Z_ARRVAL_P(postdata), HASH_ORNULL(options), HASH_ORNULL(info), &data, &data_len)) {
2095 RETURN_STRINGL(data, data_len, 0);
2096 } else {
2097 RETURN_FALSE;
2098 }
2099 }
2100 /* }}} */
2101
2102 #endif
2103 /* }}} HAVE_CURL */
2104
2105
2106 /* {{{ proto bool http_auth_basic(string user, string pass[, string realm = "Restricted"])
2107 *
2108 * Example:
2109 * <pre>
2110 * <?php
2111 * if (!http_auth_basic('mike', 's3c|r3t')) {
2112 * die('<h1>Authorization failed!</h1>');
2113 * }
2114 * ?>
2115 * </pre>
2116 */
2117 PHP_FUNCTION(http_auth_basic)
2118 {
2119 char *realm = NULL, *user, *pass, *suser, *spass;
2120 int r_len, u_len, p_len;
2121
2122 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss|s", &user, &u_len, &pass, &p_len, &realm, &r_len) != SUCCESS) {
2123 RETURN_FALSE;
2124 }
2125
2126 if (!realm) {
2127 realm = "Restricted";
2128 }
2129
2130 if (SUCCESS != http_auth_credentials(&suser, &spass)) {
2131 http_auth_header("Basic", realm);
2132 RETURN_FALSE;
2133 }
2134
2135 if (strcasecmp(suser, user)) {
2136 http_auth_header("Basic", realm);
2137 RETURN_FALSE;
2138 }
2139
2140 if (strcmp(spass, pass)) {
2141 http_auth_header("Basic", realm);
2142 RETURN_FALSE;
2143 }
2144
2145 RETURN_TRUE;
2146 }
2147 /* }}} */
2148
2149 /* {{{ proto bool http_auth_basic_cb(mixed callback[, string realm = "Restricted"])
2150 *
2151 * Example:
2152 * <pre>
2153 * <?php
2154 * function auth_cb($user, $pass)
2155 * {
2156 * global $db;
2157 * $query = 'SELECT pass FROM users WHERE user='. $db->quoteSmart($user);
2158 * if (strlen($realpass = $db->getOne($query)) {
2159 * return $pass === $realpass;
2160 * }
2161 * return false;
2162 * }
2163 *
2164 * if (!http_auth_basic_cb('auth_cb')) {
2165 * die('<h1>Authorization failed</h1>');
2166 * }
2167 * ?>
2168 * </pre>
2169 */
2170 PHP_FUNCTION(http_auth_basic_cb)
2171 {
2172 zval *cb;
2173 char *realm = NULL, *user, *pass;
2174 int r_len;
2175
2176 if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|s", &cb, &realm, &r_len) != SUCCESS) {
2177 RETURN_FALSE;
2178 }
2179
2180 if (!realm) {
2181 realm = "Restricted";
2182 }
2183
2184 if (SUCCESS != http_auth_credentials(&user, &pass)) {
2185 http_auth_header("Basic", realm);
2186 RETURN_FALSE;
2187 }
2188 {
2189 zval *zparams[2] = {NULL, NULL}, retval;
2190 int result = 0;
2191
2192 MAKE_STD_ZVAL(zparams[0]);
2193 MAKE_STD_ZVAL(zparams[1]);
2194 ZVAL_STRING(zparams[0], user, 0);
2195 ZVAL_STRING(zparams[1], pass, 0);
2196
2197 if (SUCCESS == call_user_function(EG(function_table), NULL, cb,
2198 &retval, 2, zparams TSRMLS_CC)) {
2199 result = Z_LVAL(retval);
2200 }
2201
2202 efree(user);
2203 efree(pass);
2204 efree(zparams[0]);
2205 efree(zparams[1]);
2206
2207 if (!result) {
2208 http_auth_header("Basic", realm);
2209 }
2210
2211 RETURN_BOOL(result);
2212 }
2213 }
2214 /* }}}*/
2215
2216
2217 /* {{{ php_http_init_globals(zend_http_globals *) */
2218 static void php_http_init_globals(zend_http_globals *http_globals)
2219 {
2220 http_globals->etag_started = 0;
2221 http_globals->ctype = NULL;
2222 http_globals->etag = NULL;
2223 http_globals->lmod = 0;
2224 #ifdef HTTP_HAVE_CURL
2225 http_globals->curlbuf.body.data = NULL;
2226 http_globals->curlbuf.body.used = 0;
2227 http_globals->curlbuf.body.free = 0;
2228 http_globals->curlbuf.hdrs.data = NULL;
2229 http_globals->curlbuf.hdrs.used = 0;
2230 http_globals->curlbuf.hdrs.free = 0;
2231 #endif
2232 http_globals->allowed_methods = NULL;
2233 }
2234 /* }}} */
2235
2236 /* {{{ static inline STATUS http_check_allowed_methods(char *, int) */
2237 #define http_check_allowed_methods(m, l) _http_check_allowed_methods((m), (l) TSRMLS_CC)
2238 static inline void _http_check_allowed_methods(char *methods, int length TSRMLS_DC)
2239 {
2240 if (length && SG(request_info).request_method && (!strstr(methods, SG(request_info).request_method))) {
2241 char *allow_header = emalloc(length + sizeof("Allow: "));
2242 sprintf(allow_header, "Allow: %s", methods);
2243 http_send_header(allow_header);
2244 efree(allow_header);
2245 http_send_status(405);
2246 zend_bailout();
2247 }
2248 }
2249 /* }}} */
2250
2251 /* {{{ PHP_INI */
2252 PHP_INI_MH(update_allowed_methods)
2253 {
2254 http_check_allowed_methods(new_value, new_value_length);
2255 return OnUpdateString(entry, new_value, new_value_length, mh_arg1, mh_arg2, mh_arg3, stage TSRMLS_CC);
2256 }
2257
2258 PHP_INI_BEGIN()
2259 STD_PHP_INI_ENTRY("http.allowed_methods", "OPTIONS,GET,HEAD,POST,PUT,DELETE,TRACE,CONNECT", PHP_INI_ALL, update_allowed_methods, allowed_methods, zend_http_globals, http_globals)
2260 PHP_INI_END()
2261 /* }}} */
2262
2263 /* {{{ PHP_MINIT_FUNCTION */
2264 PHP_MINIT_FUNCTION(http)
2265 {
2266 ZEND_INIT_MODULE_GLOBALS(http, php_http_init_globals, NULL);
2267 REGISTER_INI_ENTRIES();
2268
2269 #if defined(HTTP_HAVE_CURL) && (LIBCURL_VERSION_NUM >= 0x070a05)
2270 REGISTER_LONG_CONSTANT("HTTP_AUTH_BASIC", CURLAUTH_BASIC, CONST_CS | CONST_PERSISTENT);
2271 REGISTER_LONG_CONSTANT("HTTP_AUTH_DIGEST", CURLAUTH_DIGEST, CONST_CS | CONST_PERSISTENT);
2272 REGISTER_LONG_CONSTANT("HTTP_AUTH_NTLM", CURLAUTH_NTLM, CONST_CS | CONST_PERSISTENT);
2273 #endif
2274
2275 #ifdef ZEND_ENGINE_2
2276 HTTP_REGISTER_CLASS(HTTPi, httpi, NULL, ZEND_ACC_FINAL_CLASS);
2277 HTTP_REGISTER_CLASS_EX(HTTPi_Response, httpi_response, NULL, 0);
2278 # ifdef HTTP_HAVE_CURL
2279 HTTP_REGISTER_CLASS_EX(HTTPi_Request, httpi_request, NULL, 0);
2280 REGISTER_LONG_CONSTANT("HTTP_GET", HTTP_GET, CONST_CS | CONST_PERSISTENT);
2281 REGISTER_LONG_CONSTANT("HTTP_HEAD", HTTP_HEAD, CONST_CS | CONST_PERSISTENT);
2282 REGISTER_LONG_CONSTANT("HTTP_POST", HTTP_POST, CONST_CS | CONST_PERSISTENT);
2283 # endif /* HTTP_HAVE_CURL */
2284 #endif /* ZEND_ENGINE_2 */
2285 return SUCCESS;
2286 }
2287 /* }}} */
2288
2289 /* {{{ PHP_MSHUTDOWN_FUNCTION */
2290 PHP_MSHUTDOWN_FUNCTION(http)
2291 {
2292 UNREGISTER_INI_ENTRIES();
2293 return SUCCESS;
2294 }
2295 /* }}} */
2296
2297 /* {{{ PHP_RINIT_FUNCTION */
2298 PHP_RINIT_FUNCTION(http)
2299 {
2300 char *allowed_methods = INI_STR("http.allowed_methods");
2301 http_check_allowed_methods(allowed_methods, strlen(allowed_methods));
2302 return SUCCESS;
2303 }
2304 /* }}} */
2305
2306 /* {{{ PHP_RSHUTDOWN_FUNCTION */
2307 PHP_RSHUTDOWN_FUNCTION(http)
2308 {
2309 HTTP_G(etag_started) = 0;
2310 HTTP_G(lmod) = 0;
2311
2312 if (HTTP_G(etag)) {
2313 efree(HTTP_G(etag));
2314 HTTP_G(etag) = NULL;
2315 }
2316
2317 if (HTTP_G(ctype)) {
2318 efree(HTTP_G(ctype));
2319 HTTP_G(ctype) = NULL;
2320 }
2321 #ifdef HTTP_HAVE_CURL
2322 if (HTTP_G(curlbuf).body.data) {
2323 efree(HTTP_G(curlbuf).body.data);
2324 HTTP_G(curlbuf).body.data = NULL;
2325 }
2326 if (HTTP_G(curlbuf).hdrs.data) {
2327 efree(HTTP_G(curlbuf).hdrs.data);
2328 HTTP_G(curlbuf).hdrs.data = NULL;
2329 }
2330 #endif
2331 return SUCCESS;
2332 }
2333 /* }}} */
2334
2335 /* {{{ PHP_MINFO_FUNCTION */
2336 PHP_MINFO_FUNCTION(http)
2337 {
2338 php_info_print_table_start();
2339 php_info_print_table_header(2, "Extended HTTP support", "enabled");
2340 php_info_print_table_row(2, "Version:", PHP_EXT_HTTP_VERSION);
2341 php_info_print_table_row(2, "cURL convenience functions:",
2342 #ifdef HTTP_HAVE_CURL
2343 "enabled"
2344 #else
2345 "disabled"
2346 #endif
2347 );
2348 php_info_print_table_end();
2349
2350 DISPLAY_INI_ENTRIES();
2351 }
2352 /* }}} */
2353
2354 /*
2355 * Local variables:
2356 * tab-width: 4
2357 * c-basic-offset: 4
2358 * End:
2359 * vim600: noet sw=4 ts=4 fdm=marker
2360 * vim<600: noet sw=4 ts=4
2361 */
2362
Extended HTTP Support