X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-http;a=blobdiff_plain;f=src%2Fphp_http_filter.c;fp=src%2Fphp_http_filter.c;h=b6d967b6f756eb27f62e57920086fabfa5655315;hp=0000000000000000000000000000000000000000;hb=bdd6edb59194cda9e5fcb393c48ab4230fceb32a;hpb=c05ef71b26a8d16bf5af2bd8275e08ba5ae02b52

diff --git a/src/php_http_filter.c b/src/php_http_filter.c
new file mode 100644
index 0000000..b6d967b
--- /dev/null
+++ b/src/php_http_filter.c
@@ -0,0 +1,453 @@
+/*
+    +--------------------------------------------------------------------+
+    | PECL :: http                                                       |
+    +--------------------------------------------------------------------+
+    | Redistribution and use in source and binary forms, with or without |
+    | modification, are permitted provided that the conditions mentioned |
+    | in the accompanying LICENSE file are met.                          |
+    +--------------------------------------------------------------------+
+    | Copyright (c) 2004-2014, Michael Wallner <mike@php.net>            |
+    +--------------------------------------------------------------------+
+*/
+
+#include "php_http_api.h"
+
+#ifndef DBG_FILTER
+#	define DBG_FILTER 0
+#endif
+
+PHP_MINIT_FUNCTION(http_filter)
+{
+	php_stream_filter_register_factory("http.*", &php_http_filter_factory TSRMLS_CC);
+	return SUCCESS;
+}
+
+#define PHP_HTTP_FILTER_PARAMS \
+	php_stream *stream, \
+	php_stream_filter *this, \
+	php_stream_bucket_brigade *buckets_in, \
+	php_stream_bucket_brigade *buckets_out, \
+	size_t *bytes_consumed, int flags \
+	TSRMLS_DC
+#define PHP_HTTP_FILTER_OP(filter) \
+	http_filter_op_ ##filter
+#define PHP_HTTP_FILTER_OPS(filter) \
+	php_stream_filter_ops PHP_HTTP_FILTER_OP(filter)
+#define PHP_HTTP_FILTER_DTOR(filter) \
+	http_filter_ ##filter## _dtor
+#define PHP_HTTP_FILTER_DESTRUCTOR(filter) \
+	void PHP_HTTP_FILTER_DTOR(filter)(php_stream_filter *this TSRMLS_DC)
+#define PHP_HTTP_FILTER_FUNC(filter) \
+	http_filter_ ##filter
+#define PHP_HTTP_FILTER_FUNCTION(filter) \
+	php_stream_filter_status_t PHP_HTTP_FILTER_FUNC(filter)(PHP_HTTP_FILTER_PARAMS)
+#define PHP_HTTP_FILTER_BUFFER(filter) \
+	http_filter_ ##filter## _buffer
+
+#define PHP_HTTP_FILTER_IS_CLOSING(stream, flags) \
+	(	(flags & PSFS_FLAG_FLUSH_CLOSE) \
+	||	php_stream_eof(stream) \
+	|| ((stream->ops == &php_stream_temp_ops || stream->ops == &php_stream_memory_ops) && stream->eof) \
+	)
+
+#define NEW_BUCKET(data, length) \
+	{ \
+		char *__data; \
+		php_stream_bucket *__buck; \
+		\
+		__data = pemalloc(length, this->is_persistent); \
+		if (!__data) { \
+			return PSFS_ERR_FATAL; \
+		} \
+		memcpy(__data, data, length); \
+		\
+		__buck = php_stream_bucket_new(stream, __data, length, 1, this->is_persistent TSRMLS_CC); \
+		if (!__buck) { \
+			pefree(__data, this->is_persistent); \
+			return PSFS_ERR_FATAL; \
+		} \
+		\
+		php_stream_bucket_append(buckets_out, __buck TSRMLS_CC); \
+	}
+
+typedef struct _http_chunked_decode_filter_buffer_t {
+	php_http_buffer_t	buffer;
+	ulong	hexlen;
+} PHP_HTTP_FILTER_BUFFER(chunked_decode);
+
+typedef php_http_encoding_stream_t PHP_HTTP_FILTER_BUFFER(zlib);
+
+static PHP_HTTP_FILTER_FUNCTION(chunked_decode)
+{
+	int out_avail = 0;
+	php_stream_bucket *ptr, *nxt;
+	PHP_HTTP_FILTER_BUFFER(chunked_decode) *buffer = (PHP_HTTP_FILTER_BUFFER(chunked_decode) *) (this->abstract);
+	
+	if (bytes_consumed) {
+		*bytes_consumed = 0;
+	}
+	
+	/* fetch available bucket data */
+	for (ptr = buckets_in->head; ptr; ptr = nxt) {
+		if (bytes_consumed) {
+			*bytes_consumed += ptr->buflen;
+		}
+
+		if (PHP_HTTP_BUFFER_NOMEM == php_http_buffer_append(PHP_HTTP_BUFFER(buffer), ptr->buf, ptr->buflen)) {
+			return PSFS_ERR_FATAL;
+		}
+
+		nxt = ptr->next;
+		php_stream_bucket_unlink(ptr TSRMLS_CC);
+		php_stream_bucket_delref(ptr TSRMLS_CC);
+	}
+	
+	if (!php_http_buffer_fix(PHP_HTTP_BUFFER(buffer))) {
+		return PSFS_ERR_FATAL;
+	}
+
+	/* we have data in our buffer */
+	while (PHP_HTTP_BUFFER(buffer)->used) {
+	
+		/* we already know the size of the chunk and are waiting for data */
+		if (buffer->hexlen) {
+		
+			/* not enough data buffered */
+			if (PHP_HTTP_BUFFER(buffer)->used < buffer->hexlen) {
+			
+				/* flush anyway? */
+				if (flags & PSFS_FLAG_FLUSH_INC) {
+				
+					/* flush all data (should only be chunk data) */
+					out_avail = 1;
+					NEW_BUCKET(PHP_HTTP_BUFFER(buffer)->data, PHP_HTTP_BUFFER(buffer)->used);
+					
+					/* waiting for less data now */
+					buffer->hexlen -= PHP_HTTP_BUFFER(buffer)->used;
+					/* no more buffered data */
+					php_http_buffer_reset(PHP_HTTP_BUFFER(buffer));
+					/* break */
+				} 
+				
+				/* we have too less data and don't need to flush */
+				else {
+					break;
+				}
+			} 
+			
+			/* we seem to have all data of the chunk */
+			else {
+				out_avail = 1;
+				NEW_BUCKET(PHP_HTTP_BUFFER(buffer)->data, buffer->hexlen);
+				
+				/* remove outgoing data from the buffer */
+				php_http_buffer_cut(PHP_HTTP_BUFFER(buffer), 0, buffer->hexlen);
+				/* reset hexlen */
+				buffer->hexlen = 0;
+				/* continue */
+			}
+		} 
+		
+		/* we don't know the length of the chunk yet */
+		else {
+			size_t off = 0;
+			
+			/* ignore preceeding CRLFs (too loose?) */
+			while (off < PHP_HTTP_BUFFER(buffer)->used && (
+					PHP_HTTP_BUFFER(buffer)->data[off] == '\n' || 
+					PHP_HTTP_BUFFER(buffer)->data[off] == '\r')) {
+				++off;
+			}
+			if (off) {
+				php_http_buffer_cut(PHP_HTTP_BUFFER(buffer), 0, off);
+			}
+			
+			/* still data there? */
+			if (PHP_HTTP_BUFFER(buffer)->used) {
+				int eollen;
+				const char *eolstr;
+				
+				/* we need eol, so we can be sure we have all hex digits */
+				php_http_buffer_fix(PHP_HTTP_BUFFER(buffer));
+				if ((eolstr = php_http_locate_bin_eol(PHP_HTTP_BUFFER(buffer)->data, PHP_HTTP_BUFFER(buffer)->used, &eollen))) {
+					char *stop = NULL;
+					
+					/* read in chunk size */
+					buffer->hexlen = strtoul(PHP_HTTP_BUFFER(buffer)->data, &stop, 16);
+					
+					/*	if strtoul() stops at the beginning of the buffered data
+						there's something oddly wrong, i.e. bad input */
+					if (stop == PHP_HTTP_BUFFER(buffer)->data) {
+						return PSFS_ERR_FATAL;
+					}
+					
+					/* cut out <chunk size hex><chunk extension><eol> */
+					php_http_buffer_cut(PHP_HTTP_BUFFER(buffer), 0, eolstr + eollen - PHP_HTTP_BUFFER(buffer)->data);
+					/* buffer->hexlen is 0 now or contains the size of the next chunk */
+					if (!buffer->hexlen) {
+						php_stream_notify_info(stream->context, PHP_STREAM_NOTIFY_COMPLETED, NULL, 0);
+						break;
+					}
+					/* continue */
+				} else {
+					/* we have not enough data buffered to read in chunk size */
+					break;
+				}
+			}
+			/* break */
+		}
+	}
+	
+	/* flush before close, but only if we are already waiting for more data */
+	if (PHP_HTTP_FILTER_IS_CLOSING(stream, flags) && buffer->hexlen && PHP_HTTP_BUFFER(buffer)->used) {
+		out_avail = 1;
+		NEW_BUCKET(PHP_HTTP_BUFFER(buffer)->data, PHP_HTTP_BUFFER(buffer)->used);
+		php_http_buffer_reset(PHP_HTTP_BUFFER(buffer));
+		buffer->hexlen = 0;
+	}
+	
+	return out_avail ? PSFS_PASS_ON : PSFS_FEED_ME;
+}
+
+static PHP_HTTP_FILTER_DESTRUCTOR(chunked_decode)
+{
+	PHP_HTTP_FILTER_BUFFER(chunked_decode) *b = (PHP_HTTP_FILTER_BUFFER(chunked_decode) *) (this->abstract);
+	
+	php_http_buffer_dtor(PHP_HTTP_BUFFER(b));
+	pefree(b, this->is_persistent);
+}
+
+static PHP_HTTP_FILTER_FUNCTION(chunked_encode)
+{
+	php_http_buffer_t buf;
+	php_stream_bucket *ptr, *nxt;
+	
+	if (bytes_consumed) {
+		*bytes_consumed = 0;
+	}
+	
+	/* new data available? */
+	php_http_buffer_init(&buf);
+
+	/* fetch available bucket data */
+	for (ptr = buckets_in->head; ptr; ptr = nxt) {
+		if (bytes_consumed) {
+			*bytes_consumed += ptr->buflen;
+		}
+#if DBG_FILTER
+		fprintf(stderr, "update: chunked (-> %zu) (w: %zu, r: %zu)\n", ptr->buflen, stream->writepos, stream->readpos);
+#endif
+		
+		nxt = ptr->next;
+		php_stream_bucket_unlink(ptr TSRMLS_CC);
+		php_http_buffer_appendf(&buf, "%lx" PHP_HTTP_CRLF, (long unsigned int) ptr->buflen);
+		php_http_buffer_append(&buf, ptr->buf, ptr->buflen);
+		php_http_buffer_appends(&buf, PHP_HTTP_CRLF);
+
+		/* pass through */
+		NEW_BUCKET(buf.data, buf.used);
+		/* reset */
+		php_http_buffer_reset(&buf);
+		php_stream_bucket_delref(ptr TSRMLS_CC);
+	}
+
+	/* free buffer */
+	php_http_buffer_dtor(&buf);
+	
+	/* terminate with "0" */
+	if (PHP_HTTP_FILTER_IS_CLOSING(stream, flags)) {
+#if DBG_FILTER
+		fprintf(stderr, "finish: chunked\n");
+#endif
+		
+		NEW_BUCKET("0" PHP_HTTP_CRLF PHP_HTTP_CRLF, lenof("0" PHP_HTTP_CRLF PHP_HTTP_CRLF));
+	}
+	
+	return PSFS_PASS_ON;
+}
+
+static PHP_HTTP_FILTER_OPS(chunked_decode) = {
+	PHP_HTTP_FILTER_FUNC(chunked_decode),
+	PHP_HTTP_FILTER_DTOR(chunked_decode),
+	"http.chunked_decode"
+};
+
+static PHP_HTTP_FILTER_OPS(chunked_encode) = {
+	PHP_HTTP_FILTER_FUNC(chunked_encode),
+	NULL,
+	"http.chunked_encode"
+};
+
+static PHP_HTTP_FILTER_FUNCTION(zlib)
+{
+	php_stream_bucket *ptr, *nxt;
+	PHP_HTTP_FILTER_BUFFER(zlib) *buffer = (PHP_HTTP_FILTER_BUFFER(zlib) *) this->abstract;
+	
+	if (bytes_consumed) {
+		*bytes_consumed = 0;
+	}
+	
+	/* fetch available bucket data */
+	for (ptr = buckets_in->head; ptr; ptr = nxt) {
+		char *encoded = NULL;
+		size_t encoded_len = 0;
+
+		if (bytes_consumed) {
+			*bytes_consumed += ptr->buflen;
+		}
+
+#if DBG_FILTER
+		fprintf(stderr, "bucket: b=%p p=%p p=%p\n", ptr->brigade, ptr->prev,  ptr->next);
+#endif
+		
+		nxt = ptr->next;
+		php_stream_bucket_unlink(ptr TSRMLS_CC);
+		php_http_encoding_stream_update(buffer, ptr->buf, ptr->buflen, &encoded, &encoded_len);
+		
+#if DBG_FILTER
+		fprintf(stderr, "update: deflate (-> %zu) (w: %zu, r: %zu)\n", encoded_len, stream->writepos, stream->readpos);
+#endif
+		
+		if (encoded) {
+			if (encoded_len) {
+				NEW_BUCKET(encoded, encoded_len);
+			}
+			efree(encoded);
+		}
+		php_stream_bucket_delref(ptr TSRMLS_CC);
+	}
+
+	/* flush & close */
+	if (flags & PSFS_FLAG_FLUSH_INC) {
+		char *encoded = NULL;
+		size_t encoded_len = 0;
+		
+		php_http_encoding_stream_flush(buffer, &encoded, &encoded_len);
+		
+#if DBG_FILTER
+		fprintf(stderr, "flush: deflate (-> %zu)\n", encoded_len);
+#endif
+		
+		if (encoded) {
+			if (encoded_len) {
+				NEW_BUCKET(encoded, encoded_len);
+			}
+			efree(encoded);
+		}
+	}
+	
+	if (PHP_HTTP_FILTER_IS_CLOSING(stream, flags)) {
+		char *encoded = NULL;
+		size_t encoded_len = 0;
+		
+		php_http_encoding_stream_finish(buffer, &encoded, &encoded_len);
+		
+#if DBG_FILTER
+		fprintf(stderr, "finish: deflate (-> %zu)\n", encoded_len);
+#endif
+		
+		if (encoded) {
+			if (encoded_len) {
+				NEW_BUCKET(encoded, encoded_len);
+			}
+			efree(encoded);
+		}
+	}
+	
+	return PSFS_PASS_ON;
+}
+static PHP_HTTP_FILTER_DESTRUCTOR(zlib)
+{
+	PHP_HTTP_FILTER_BUFFER(zlib) *buffer = (PHP_HTTP_FILTER_BUFFER(zlib) *) this->abstract;
+	php_http_encoding_stream_free(&buffer);
+}
+
+static PHP_HTTP_FILTER_OPS(deflate) = {
+	PHP_HTTP_FILTER_FUNC(zlib),
+	PHP_HTTP_FILTER_DTOR(zlib),
+	"http.deflate"
+};
+
+static PHP_HTTP_FILTER_OPS(inflate) = {
+	PHP_HTTP_FILTER_FUNC(zlib),
+	PHP_HTTP_FILTER_DTOR(zlib),
+	"http.inflate"
+};
+
+static php_stream_filter *http_filter_create(const char *name, zval *params, int p TSRMLS_DC)
+{
+	zval **tmp = &params;
+	php_stream_filter *f = NULL;
+	int flags = p ? PHP_HTTP_ENCODING_STREAM_PERSISTENT : 0;
+	
+	if (params) {
+		switch (Z_TYPE_P(params)) {
+			case IS_ARRAY:
+			case IS_OBJECT:
+				if (SUCCESS != zend_hash_find(HASH_OF(params), "flags", sizeof("flags"), (void *) &tmp)) {
+					break;
+				}
+				/* no break */
+			default:
+			{
+				zval *num = php_http_ztyp(IS_LONG, *tmp);
+				
+				flags |= (Z_LVAL_P(num) & 0x0fffffff);
+				zval_ptr_dtor(&num);
+
+			}
+			break;
+		}
+	}
+
+	if (!strcasecmp(name, "http.chunked_decode")) {
+		PHP_HTTP_FILTER_BUFFER(chunked_decode) *b = NULL;
+		
+		if ((b = pecalloc(1, sizeof(PHP_HTTP_FILTER_BUFFER(chunked_decode)), p))) {
+			php_http_buffer_init_ex(PHP_HTTP_BUFFER(b), 4096, p ? PHP_HTTP_BUFFER_INIT_PERSISTENT : 0);
+			if (!(f = php_stream_filter_alloc(&PHP_HTTP_FILTER_OP(chunked_decode), b, p))) {
+				pefree(b, p);
+			}
+		}
+	} else
+	
+	if (!strcasecmp(name, "http.chunked_encode")) {
+		f = php_stream_filter_alloc(&PHP_HTTP_FILTER_OP(chunked_encode), NULL, p);
+	} else
+	
+	if (!strcasecmp(name, "http.inflate")) {
+		PHP_HTTP_FILTER_BUFFER(zlib) *b = NULL;
+		
+		if ((b = php_http_encoding_stream_init(NULL, php_http_encoding_stream_get_inflate_ops(), flags TSRMLS_CC))) {
+			if (!(f = php_stream_filter_alloc(&PHP_HTTP_FILTER_OP(inflate), b, p))) {
+				php_http_encoding_stream_free(&b);
+			}
+		}
+	} else
+	
+	if (!strcasecmp(name, "http.deflate")) {
+		PHP_HTTP_FILTER_BUFFER(zlib) *b = NULL;
+		
+		if ((b = php_http_encoding_stream_init(NULL, php_http_encoding_stream_get_deflate_ops(), flags TSRMLS_CC))) {
+			if (!(f = php_stream_filter_alloc(&PHP_HTTP_FILTER_OP(deflate), b, p))) {
+				php_http_encoding_stream_free(&b);
+			}
+		}
+	}
+	
+	return f;
+}
+
+php_stream_filter_factory php_http_filter_factory = {
+	http_filter_create
+};
+
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ * vim600: noet sw=4 ts=4 fdm=marker
+ * vim<600: noet sw=4 ts=4
+ */