Line data Source code
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-2014, Michael Wallner <mike@php.net> |
10 : +--------------------------------------------------------------------+
11 : */
12 :
13 : #include "php_http_api.h"
14 :
15 : #include <ext/standard/php_lcg.h>
16 : #include <zend_exceptions.h>
17 :
18 : /* SLEEP */
19 :
20 1625 : void php_http_sleep(double s)
21 : {
22 : #if defined(PHP_WIN32)
23 : Sleep((DWORD) PHP_HTTP_MSEC(s));
24 : #elif defined(HAVE_USLEEP)
25 1625 : usleep(PHP_HTTP_USEC(s));
26 : #elif defined(HAVE_NANOSLEEP)
27 : struct timespec req, rem;
28 :
29 : req.tv_sec = (time_t) s;
30 : req.tv_nsec = PHP_HTTP_NSEC(s) % PHP_HTTP_NANOSEC;
31 :
32 : while (nanosleep(&req, &rem) && (errno == EINTR) && (PHP_HTTP_NSEC(rem.tv_sec) + rem.tv_nsec) > PHP_HTTP_NSEC(PHP_HTTP_DIFFSEC))) {
33 : req.tv_sec = rem.tv_sec;
34 : req.tv_nsec = rem.tv_nsec;
35 : }
36 : #else
37 : struct timeval timeout;
38 :
39 : timeout.tv_sec = (time_t) s;
40 : timeout.tv_usec = PHP_HTTP_USEC(s) % PHP_HTTP_MCROSEC;
41 :
42 : select(0, NULL, NULL, NULL, &timeout);
43 : #endif
44 1625 : }
45 :
46 :
47 : /* STRING UTILITIES */
48 :
49 14 : int php_http_match(const char *haystack_str, const char *needle_str, int flags)
50 : {
51 14 : int result = 0;
52 :
53 14 : if (!haystack_str || !needle_str) {
54 0 : return result;
55 : }
56 :
57 14 : if (flags & PHP_HTTP_MATCH_FULL) {
58 3 : if (flags & PHP_HTTP_MATCH_CASE) {
59 2 : result = !strcmp(haystack_str, needle_str);
60 : } else {
61 1 : result = !strcasecmp(haystack_str, needle_str);
62 : }
63 : } else {
64 : const char *found;
65 11 : char *haystack = estrdup(haystack_str), *needle = estrdup(needle_str);
66 :
67 11 : if (flags & PHP_HTTP_MATCH_CASE) {
68 2 : found = zend_memnstr(haystack, needle, strlen(needle), haystack+strlen(haystack));
69 : } else {
70 9 : found = php_stristr(haystack, needle, strlen(haystack), strlen(needle));
71 : }
72 :
73 11 : if (found) {
74 9 : if (!(flags & PHP_HTTP_MATCH_WORD)
75 9 : || ( (found == haystack || !PHP_HTTP_IS_CTYPE(alnum, *(found - 1)))
76 8 : && (!*(found + strlen(needle)) || !PHP_HTTP_IS_CTYPE(alnum, *(found + strlen(needle))))
77 : )
78 : ) {
79 8 : result = 1;
80 : }
81 : }
82 :
83 11 : PTR_FREE(haystack);
84 11 : PTR_FREE(needle);
85 : }
86 :
87 14 : return result;
88 : }
89 :
90 1418 : char *php_http_pretty_key(register char *key, size_t key_len, zend_bool uctitle, zend_bool xhyphen)
91 : {
92 1418 : size_t i = 1;
93 : int wasalpha;
94 :
95 1418 : if (key && key_len) {
96 1418 : if ((wasalpha = PHP_HTTP_IS_CTYPE(alpha, key[0]))) {
97 1415 : key[0] = (char) (uctitle ? PHP_HTTP_TO_CTYPE(upper, key[0]) : PHP_HTTP_TO_CTYPE(lower, key[0]));
98 : }
99 1418 : PHP_HTTP_DUFF(key_len,
100 : if (PHP_HTTP_IS_CTYPE(alpha, key[i])) {
101 : key[i] = (char) (((!wasalpha) && uctitle) ? PHP_HTTP_TO_CTYPE(upper, key[i]) : PHP_HTTP_TO_CTYPE(lower, key[i]));
102 : wasalpha = 1;
103 : } else {
104 : if (xhyphen && (key[i] == '_')) {
105 : key[i] = '-';
106 : }
107 : wasalpha = 0;
108 : }
109 : ++i;
110 : );
111 : }
112 1418 : return key;
113 : }
114 :
115 :
116 1 : size_t php_http_boundary(char *buf, size_t buf_len TSRMLS_DC)
117 : {
118 1 : return snprintf(buf, buf_len, "%15.15F", sapi_get_request_time(TSRMLS_C) * php_combined_lcg(TSRMLS_C));
119 : }
120 :
121 81 : int php_http_select_str(const char *cmp, int argc, ...)
122 : {
123 : va_list argv;
124 81 : int match = -1;
125 :
126 81 : if (cmp && argc > 0) {
127 : int i;
128 :
129 81 : va_start(argv, argc);
130 119 : for (i = 0; i < argc; ++i) {
131 117 : const char *test = va_arg(argv, const char *);
132 :
133 117 : if (!strcasecmp(cmp, test)) {
134 79 : match = i;
135 79 : break;
136 : }
137 : }
138 81 : va_end(argv);
139 : }
140 :
141 81 : return match;
142 : }
143 :
144 :
145 : /* ARRAYS */
146 :
147 17 : unsigned php_http_array_list(HashTable *ht TSRMLS_DC, unsigned argc, ...)
148 : {
149 : HashPosition pos;
150 17 : unsigned argl = 0;
151 : va_list argv;
152 :
153 17 : va_start(argv, argc);
154 62 : for ( zend_hash_internal_pointer_reset_ex(ht, &pos);
155 73 : SUCCESS == zend_hash_has_more_elements_ex(ht, &pos) && (argl < argc);
156 28 : zend_hash_move_forward_ex(ht, &pos))
157 : {
158 28 : zval **data, ***argp = (zval ***) va_arg(argv, zval ***);
159 :
160 28 : if (SUCCESS == zend_hash_get_current_data_ex(ht, (void *) &data, &pos)) {
161 28 : *argp = data;
162 28 : ++argl;
163 : }
164 : }
165 17 : va_end(argv);
166 :
167 17 : return argl;
168 : }
169 :
170 2 : void php_http_array_copy_strings(void *zpp)
171 : {
172 2 : zval **zvpp = ((zval **) zpp);
173 :
174 2 : *zvpp = php_http_zsep(1, IS_STRING, *zvpp);
175 2 : }
176 :
177 4 : int php_http_array_apply_append_func(void *pDest TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key)
178 : {
179 : int flags;
180 4 : char *key = NULL;
181 : HashTable *dst;
182 4 : zval **data = NULL, *value = *((zval **) pDest);
183 :
184 4 : dst = va_arg(args, HashTable *);
185 4 : flags = va_arg(args, int);
186 :
187 4 : if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->nKeyLength) {
188 4 : if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->nKeyLength) {
189 0 : key = php_http_pretty_key(estrndup(hash_key->arKey, hash_key->nKeyLength - 1), hash_key->nKeyLength - 1, 1, 1);
190 0 : zend_hash_find(dst, key, hash_key->nKeyLength, (void *) &data);
191 4 : } else if (hash_key->nKeyLength) {
192 4 : zend_hash_quick_find(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void *) &data);
193 : } else {
194 0 : zend_hash_index_find(dst, hash_key->h, (void *) &data);
195 : }
196 :
197 4 : if (flags & ARRAY_JOIN_STRINGIFY) {
198 4 : value = php_http_zsep(1, IS_STRING, value);
199 : } else {
200 0 : Z_ADDREF_P(value);
201 : }
202 :
203 4 : if (data) {
204 0 : if (Z_TYPE_PP(data) != IS_ARRAY) {
205 0 : convert_to_array(*data);
206 : }
207 0 : add_next_index_zval(*data, value);
208 4 : } else if (key) {
209 0 : zend_symtable_update(dst, key, hash_key->nKeyLength, &value, sizeof(zval *), NULL);
210 4 : } else if (hash_key->nKeyLength) {
211 4 : zend_hash_quick_add(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, &value, sizeof(zval *), NULL);
212 : } else {
213 0 : zend_hash_index_update(dst, hash_key->h, (void *) &value, sizeof(zval *), NULL);
214 : }
215 :
216 4 : if (key) {
217 0 : efree(key);
218 : }
219 : }
220 :
221 4 : return ZEND_HASH_APPLY_KEEP;
222 : }
223 :
224 107 : int php_http_array_apply_merge_func(void *pDest TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key)
225 : {
226 : int flags;
227 107 : char *key = NULL;
228 : HashTable *dst;
229 107 : zval *value = *((zval **) pDest);
230 :
231 107 : dst = va_arg(args, HashTable *);
232 107 : flags = va_arg(args, int);
233 :
234 107 : if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->nKeyLength) {
235 107 : if (flags & ARRAY_JOIN_STRINGIFY) {
236 0 : value = php_http_zsep(1, IS_STRING, value);
237 : } else {
238 107 : Z_ADDREF_P(value);
239 : }
240 :
241 107 : if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->nKeyLength) {
242 5 : key = php_http_pretty_key(estrndup(hash_key->arKey, hash_key->nKeyLength - 1), hash_key->nKeyLength - 1, 1, 1);
243 5 : zend_hash_update(dst, key, hash_key->nKeyLength, (void *) &value, sizeof(zval *), NULL);
244 5 : efree(key);
245 102 : } else if (hash_key->nKeyLength) {
246 102 : zend_hash_quick_update(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void *) &value, sizeof(zval *), NULL);
247 : } else {
248 0 : zend_hash_index_update(dst, hash_key->h, (void *) &value, sizeof(zval *), NULL);
249 : }
250 : }
251 :
252 107 : return ZEND_HASH_APPLY_KEEP;
253 : }
254 :
255 : /* PASS CALLBACK */
256 :
257 4 : size_t php_http_pass_fcall_callback(void *cb_arg, const char *str, size_t len)
258 : {
259 4 : php_http_pass_fcall_arg_t *fcd = cb_arg;
260 : zval *zdata;
261 : TSRMLS_FETCH_FROM_CTX(fcd->ts);
262 :
263 4 : MAKE_STD_ZVAL(zdata);
264 4 : ZVAL_STRINGL(zdata, str, len, 1);
265 4 : if (SUCCESS == zend_fcall_info_argn(&fcd->fci TSRMLS_CC, 2, &fcd->fcz, &zdata)) {
266 4 : zend_fcall_info_call(&fcd->fci, &fcd->fcc, NULL, NULL TSRMLS_CC);
267 4 : zend_fcall_info_args_clear(&fcd->fci, 0);
268 : }
269 4 : zval_ptr_dtor(&zdata);
270 4 : return len;
271 : }
272 :
273 :
274 : /* ZEND */
275 :
276 : /*
277 : * Local variables:
278 : * tab-width: 4
279 : * c-basic-offset: 4
280 : * End:
281 : * vim600: noet sw=4 ts=4 fdm=marker
282 : * vim<600: noet sw=4 ts=4
283 : */
|
