1 /*
2    +----------------------------------------------------------------------+
3    | PHP Version 7                                                        |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1997-2017 The PHP Group                                |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 3.01 of the PHP license,      |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.php.net/license/3_01.txt                                  |
11    | If you did not receive a copy of the PHP license and are unable to   |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@php.net so we can mail you a copy immediately.               |
14    +----------------------------------------------------------------------+
15    | Authors: Bob Weinand <bwoebi@php.net>                                |
16    +----------------------------------------------------------------------+
17 */
18 
19 #include "phpdbg_webdata_transfer.h"
20 #include "ext/standard/php_var.h"
21 
phpdbg_is_auto_global(char * name,int len)22 static int phpdbg_is_auto_global(char *name, int len) {
23 	int ret;
24 	zend_string *str = zend_string_init(name, len, 0);
25 	ret = zend_is_auto_global(str);
26 	zend_string_free(str);
27 	return ret;
28 }
29 
phpdbg_webdata_compress(char ** msg,int * len)30 PHPDBG_API void phpdbg_webdata_compress(char **msg, int *len) {
31 	zval array;
32 	HashTable *ht;
33 	zval zv[9] = {{{0}}};
34 
35 	array_init(&array);
36 	ht = Z_ARRVAL(array);
37 
38 	/* fetch superglobals */
39 	{
40 		phpdbg_is_auto_global(ZEND_STRL("GLOBALS"));
41 		/* might be JIT */
42 		phpdbg_is_auto_global(ZEND_STRL("_ENV"));
43 		phpdbg_is_auto_global(ZEND_STRL("_SERVER"));
44 		phpdbg_is_auto_global(ZEND_STRL("_REQUEST"));
45 		array_init(&zv[1]);
46 		zend_hash_copy(Z_ARRVAL(zv[1]), &EG(symbol_table), NULL);
47 		Z_ARRVAL(zv[1])->pDestructor = NULL; /* we're operating on a copy! Don't double free zvals */
48 		zend_hash_str_del(Z_ARRVAL(zv[1]), ZEND_STRL("GLOBALS")); /* do not use the reference to itself in json */
49 		zend_hash_str_add(ht, ZEND_STRL("GLOBALS"), &zv[1]);
50 	}
51 
52 	/* save php://input */
53 	{
54 		php_stream *stream;
55 		zend_string *str;
56 
57 		stream = php_stream_temp_create_ex(TEMP_STREAM_DEFAULT, SAPI_POST_BLOCK_SIZE, PG(upload_tmp_dir));
58 		if ((str = php_stream_copy_to_mem(stream, PHP_STREAM_COPY_ALL, 0))) {
59 			ZVAL_STR(&zv[2], str);
60 		} else {
61 			ZVAL_EMPTY_STRING(&zv[2]);
62 		}
63 		Z_SET_REFCOUNT(zv[2], 1);
64 		zend_hash_str_add(ht, ZEND_STRL("input"), &zv[2]);
65 	}
66 
67 	/* change sapi name */
68 	{
69 		if (sapi_module.name) {
70 			ZVAL_STRING(&zv[6], sapi_module.name);
71 		} else {
72 			Z_TYPE_INFO(zv[6]) = IS_NULL;
73 		}
74 		zend_hash_str_add(ht, ZEND_STRL("sapi_name"), &zv[6]);
75 		Z_SET_REFCOUNT(zv[6], 1);
76 	}
77 
78 	/* handle modules / extensions */
79 	{
80 		zend_module_entry *module;
81 		zend_extension *extension;
82 		zend_llist_position pos;
83 
84 		array_init(&zv[7]);
85 		ZEND_HASH_FOREACH_PTR(&module_registry, module) {
86 			zval *value = ecalloc(sizeof(zval), 1);
87 			ZVAL_STRING(value, module->name);
88 			zend_hash_next_index_insert(Z_ARRVAL(zv[7]), value);
89 		} ZEND_HASH_FOREACH_END();
90 		zend_hash_str_add(ht, ZEND_STRL("modules"), &zv[7]);
91 
92 		array_init(&zv[8]);
93 		extension = (zend_extension *) zend_llist_get_first_ex(&zend_extensions, &pos);
94 		while (extension) {
95 			zval *value = ecalloc(sizeof(zval), 1);
96 			ZVAL_STRING(value, extension->name);
97 			zend_hash_next_index_insert(Z_ARRVAL(zv[8]), value);
98 			extension = (zend_extension *) zend_llist_get_next_ex(&zend_extensions, &pos);
99 		}
100 		zend_hash_str_add(ht, ZEND_STRL("extensions"), &zv[8]);
101 	}
102 
103 	/* switch cwd */
104 	if (SG(options) & SAPI_OPTION_NO_CHDIR) {
105 		char *ret = NULL;
106 		char path[MAXPATHLEN];
107 
108 #if HAVE_GETCWD
109 		ret = VCWD_GETCWD(path, MAXPATHLEN);
110 #elif HAVE_GETWD
111 		ret = VCWD_GETWD(path);
112 #endif
113 		if (ret) {
114 			ZVAL_STRING(&zv[5], path);
115 			Z_SET_REFCOUNT(zv[5], 1);
116 			zend_hash_str_add(ht, ZEND_STRL("cwd"), &zv[5]);
117 		}
118 	}
119 
120 	/* get system ini entries */
121 	{
122 		zend_ini_entry *ini_entry;
123 
124 		array_init(&zv[3]);
125 		ZEND_HASH_FOREACH_PTR(EG(ini_directives), ini_entry) {
126 			zval *value = ecalloc(sizeof(zval), 1);
127 			if (ini_entry->modified) {
128 				if (!ini_entry->orig_value) {
129 					efree(value);
130 					continue;
131 				}
132 				ZVAL_STR(value, ini_entry->orig_value);
133 			} else {
134 				if (!ini_entry->value) {
135 					efree(value);
136 					continue;
137 				}
138 				ZVAL_STR(value, ini_entry->value);
139 			}
140 			zend_hash_add(Z_ARRVAL(zv[3]), ini_entry->name, value);
141 		} ZEND_HASH_FOREACH_END();
142 		zend_hash_str_add(ht, ZEND_STRL("systemini"), &zv[3]);
143 	}
144 
145 	/* get perdir ini entries */
146 	if (EG(modified_ini_directives)) {
147 		zend_ini_entry *ini_entry;
148 
149 		array_init(&zv[4]);
150 		ZEND_HASH_FOREACH_PTR(EG(ini_directives), ini_entry) {
151 			zval *value = ecalloc(sizeof(zval), 1);
152 			if (!ini_entry->value) {
153 				efree(value);
154 				continue;
155 			}
156 			ZVAL_STR(value, ini_entry->value);
157 			zend_hash_add(Z_ARRVAL(zv[4]), ini_entry->name, value);
158 		} ZEND_HASH_FOREACH_END();
159 		zend_hash_str_add(ht, ZEND_STRL("userini"), &zv[4]);
160 	}
161 
162 	/* encode data */
163 	{
164 		php_serialize_data_t var_hash;
165 		smart_str buf = {0};
166 
167 		PHP_VAR_SERIALIZE_INIT(var_hash);
168 		php_var_serialize(&buf, &array, &var_hash);
169 		PHP_VAR_SERIALIZE_DESTROY(var_hash);
170 		*msg = ZSTR_VAL(buf.s);
171 		*len = ZSTR_LEN(buf.s);
172 	}
173 
174 	zval_dtor(&array);
175 }
176