1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 5 |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1997-2016 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: Rasmus Lerdorf <rasmus@lerdorf.on.ca> |
16 | Jim Winstead <jimw@php.net> |
17 +----------------------------------------------------------------------+
18 */
19
20 /* $Id$ */
21
22 /* {{{ includes
23 */
24 #include "php.h"
25 #include "php_globals.h"
26 #include "SAPI.h"
27
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <errno.h>
31 #include <sys/types.h>
32 #include <sys/stat.h>
33 #include <fcntl.h>
34
35 #ifdef PHP_WIN32
36 #define O_RDONLY _O_RDONLY
37 #include "win32/param.h"
38 #else
39 #include <sys/param.h>
40 #endif
41
42 #include "ext/standard/head.h"
43 #include "ext/standard/php_standard.h"
44 #include "zend_compile.h"
45 #include "php_network.h"
46
47 #if HAVE_PWD_H
48 #include <pwd.h>
49 #endif
50
51 #include <sys/types.h>
52 #if HAVE_SYS_SOCKET_H
53 #include <sys/socket.h>
54 #endif
55
56 #ifndef S_ISREG
57 #define S_ISREG(mode) (((mode) & S_IFMT) == S_IFREG)
58 #endif
59
60 #ifdef PHP_WIN32
61 #include <winsock2.h>
62 #elif defined(NETWARE) && defined(USE_WINSOCK)
63 #include <novsock2.h>
64 #else
65 #include <netinet/in.h>
66 #include <netdb.h>
67 #if HAVE_ARPA_INET_H
68 #include <arpa/inet.h>
69 #endif
70 #endif
71
72 #if defined(PHP_WIN32) || defined(__riscos__) || defined(NETWARE)
73 #undef AF_UNIX
74 #endif
75
76 #if defined(AF_UNIX)
77 #include <sys/un.h>
78 #endif
79 /* }}} */
80
81 /* {{{ OnUpdateBaseDir
82 Allows any change to open_basedir setting in during Startup and Shutdown events,
83 or a tightening during activation/runtime/deactivation */
ZEND_INI_MH(OnUpdateBaseDir)84 PHPAPI ZEND_INI_MH(OnUpdateBaseDir)
85 {
86 char **p, *pathbuf, *ptr, *end;
87 #ifndef ZTS
88 char *base = (char *) mh_arg2;
89 #else
90 char *base = (char *) ts_resource(*((int *) mh_arg2));
91 #endif
92
93 p = (char **) (base + (size_t) mh_arg1);
94
95 if (stage == PHP_INI_STAGE_STARTUP || stage == PHP_INI_STAGE_SHUTDOWN || stage == PHP_INI_STAGE_ACTIVATE || stage == PHP_INI_STAGE_DEACTIVATE) {
96 /* We're in a PHP_INI_SYSTEM context, no restrictions */
97 *p = new_value;
98 return SUCCESS;
99 }
100
101 /* Otherwise we're in runtime */
102 if (!*p || !**p) {
103 /* open_basedir not set yet, go ahead and give it a value */
104 *p = new_value;
105 return SUCCESS;
106 }
107
108 /* Shortcut: When we have a open_basedir and someone tries to unset, we know it'll fail */
109 if (!new_value || !*new_value) {
110 return FAILURE;
111 }
112
113 /* Is the proposed open_basedir at least as restrictive as the current setting? */
114 ptr = pathbuf = estrdup(new_value);
115 while (ptr && *ptr) {
116 end = strchr(ptr, DEFAULT_DIR_SEPARATOR);
117 if (end != NULL) {
118 *end = '\0';
119 end++;
120 }
121 if (php_check_open_basedir_ex(ptr, 0 TSRMLS_CC) != 0) {
122 /* At least one portion of this open_basedir is less restrictive than the prior one, FAIL */
123 efree(pathbuf);
124 return FAILURE;
125 }
126 ptr = end;
127 }
128 efree(pathbuf);
129
130 /* Everything checks out, set it */
131 *p = new_value;
132
133 return SUCCESS;
134 }
135 /* }}} */
136
137 /* {{{ php_check_specific_open_basedir
138 When open_basedir is not NULL, check if the given filename is located in
139 open_basedir. Returns -1 if error or not in the open_basedir, else 0.
140 When open_basedir is NULL, always return 0.
141 */
php_check_specific_open_basedir(const char * basedir,const char * path TSRMLS_DC)142 PHPAPI int php_check_specific_open_basedir(const char *basedir, const char *path TSRMLS_DC)
143 {
144 char resolved_name[MAXPATHLEN];
145 char resolved_basedir[MAXPATHLEN];
146 char local_open_basedir[MAXPATHLEN];
147 char path_tmp[MAXPATHLEN];
148 char *path_file;
149 int resolved_basedir_len;
150 int resolved_name_len;
151 int path_len;
152 int nesting_level = 0;
153
154 /* Special case basedir==".": Use script-directory */
155 if (strcmp(basedir, ".") || !VCWD_GETCWD(local_open_basedir, MAXPATHLEN)) {
156 /* Else use the unmodified path */
157 strlcpy(local_open_basedir, basedir, sizeof(local_open_basedir));
158 }
159
160 path_len = strlen(path);
161 if (path_len > (MAXPATHLEN - 1)) {
162 /* empty and too long paths are invalid */
163 return -1;
164 }
165
166 /* normalize and expand path */
167 if (expand_filepath(path, resolved_name TSRMLS_CC) == NULL) {
168 return -1;
169 }
170
171 path_len = strlen(resolved_name);
172 memcpy(path_tmp, resolved_name, path_len + 1); /* safe */
173
174 while (VCWD_REALPATH(path_tmp, resolved_name) == NULL) {
175 #if defined(PHP_WIN32) || defined(HAVE_SYMLINK)
176 #if defined(PHP_WIN32)
177 if (EG(windows_version_info).dwMajorVersion > 5) {
178 #endif
179 if (nesting_level == 0) {
180 int ret;
181 char buf[MAXPATHLEN];
182
183 ret = php_sys_readlink(path_tmp, buf, MAXPATHLEN - 1);
184 if (ret < 0) {
185 /* not a broken symlink, move along.. */
186 } else {
187 /* put the real path into the path buffer */
188 memcpy(path_tmp, buf, ret);
189 path_tmp[ret] = '\0';
190 }
191 }
192 #if defined(PHP_WIN32)
193 }
194 #endif
195 #endif
196
197 #if defined(PHP_WIN32) || defined(NETWARE)
198 path_file = strrchr(path_tmp, DEFAULT_SLASH);
199 if (!path_file) {
200 path_file = strrchr(path_tmp, '/');
201 }
202 #else
203 path_file = strrchr(path_tmp, DEFAULT_SLASH);
204 #endif
205 if (!path_file) {
206 /* none of the path components exist. definitely not in open_basedir.. */
207 return -1;
208 } else {
209 path_len = path_file - path_tmp + 1;
210 #if defined(PHP_WIN32) || defined(NETWARE)
211 if (path_len > 1 && path_tmp[path_len - 2] == ':') {
212 if (path_len != 3) {
213 return -1;
214 }
215 /* this is c:\ */
216 path_tmp[path_len] = '\0';
217 } else {
218 path_tmp[path_len - 1] = '\0';
219 }
220 #else
221 path_tmp[path_len - 1] = '\0';
222 #endif
223 }
224 nesting_level++;
225 }
226
227 /* Resolve open_basedir to resolved_basedir */
228 if (expand_filepath(local_open_basedir, resolved_basedir TSRMLS_CC) != NULL) {
229 /* Handler for basedirs that end with a / */
230 resolved_basedir_len = strlen(resolved_basedir);
231 #if defined(PHP_WIN32) || defined(NETWARE)
232 if (basedir[strlen(basedir) - 1] == PHP_DIR_SEPARATOR || basedir[strlen(basedir) - 1] == '/') {
233 #else
234 if (basedir[strlen(basedir) - 1] == PHP_DIR_SEPARATOR) {
235 #endif
236 if (resolved_basedir[resolved_basedir_len - 1] != PHP_DIR_SEPARATOR) {
237 resolved_basedir[resolved_basedir_len] = PHP_DIR_SEPARATOR;
238 resolved_basedir[++resolved_basedir_len] = '\0';
239 }
240 } else {
241 resolved_basedir[resolved_basedir_len++] = PHP_DIR_SEPARATOR;
242 resolved_basedir[resolved_basedir_len] = '\0';
243 }
244
245 resolved_name_len = strlen(resolved_name);
246 if (path_tmp[path_len - 1] == PHP_DIR_SEPARATOR) {
247 if (resolved_name[resolved_name_len - 1] != PHP_DIR_SEPARATOR) {
248 resolved_name[resolved_name_len] = PHP_DIR_SEPARATOR;
249 resolved_name[++resolved_name_len] = '\0';
250 }
251 }
252
253 /* Check the path */
254 #if defined(PHP_WIN32) || defined(NETWARE)
255 if (strncasecmp(resolved_basedir, resolved_name, resolved_basedir_len) == 0) {
256 #else
257 if (strncmp(resolved_basedir, resolved_name, resolved_basedir_len) == 0) {
258 #endif
259 if (resolved_name_len > resolved_basedir_len &&
260 resolved_name[resolved_basedir_len - 1] != PHP_DIR_SEPARATOR) {
261 return -1;
262 } else {
263 /* File is in the right directory */
264 return 0;
265 }
266 } else {
267 /* /openbasedir/ and /openbasedir are the same directory */
268 if (resolved_basedir_len == (resolved_name_len + 1) && resolved_basedir[resolved_basedir_len - 1] == PHP_DIR_SEPARATOR) {
269 #if defined(PHP_WIN32) || defined(NETWARE)
270 if (strncasecmp(resolved_basedir, resolved_name, resolved_name_len) == 0) {
271 #else
272 if (strncmp(resolved_basedir, resolved_name, resolved_name_len) == 0) {
273 #endif
274 return 0;
275 }
276 }
277 return -1;
278 }
279 } else {
280 /* Unable to resolve the real path, return -1 */
281 return -1;
282 }
283 }
284 /* }}} */
285
286 PHPAPI int php_check_open_basedir(const char *path TSRMLS_DC)
287 {
288 return php_check_open_basedir_ex(path, 1 TSRMLS_CC);
289 }
290
291 /* {{{ php_check_open_basedir
292 */
293 PHPAPI int php_check_open_basedir_ex(const char *path, int warn TSRMLS_DC)
294 {
295 /* Only check when open_basedir is available */
296 if (PG(open_basedir) && *PG(open_basedir)) {
297 char *pathbuf;
298 char *ptr;
299 char *end;
300
301 /* Check if the path is too long so we can give a more useful error
302 * message. */
303 if (strlen(path) > (MAXPATHLEN - 1)) {
304 php_error_docref(NULL TSRMLS_CC, E_WARNING, "File name is longer than the maximum allowed path length on this platform (%d): %s", MAXPATHLEN, path);
305 errno = EINVAL;
306 return -1;
307 }
308
309 pathbuf = estrdup(PG(open_basedir));
310
311 ptr = pathbuf;
312
313 while (ptr && *ptr) {
314 end = strchr(ptr, DEFAULT_DIR_SEPARATOR);
315 if (end != NULL) {
316 *end = '\0';
317 end++;
318 }
319
320 if (php_check_specific_open_basedir(ptr, path TSRMLS_CC) == 0) {
321 efree(pathbuf);
322 return 0;
323 }
324
325 ptr = end;
326 }
327 if (warn) {
328 php_error_docref(NULL TSRMLS_CC, E_WARNING, "open_basedir restriction in effect. File(%s) is not within the allowed path(s): (%s)", path, PG(open_basedir));
329 }
330 efree(pathbuf);
331 errno = EPERM; /* we deny permission to open it */
332 return -1;
333 }
334
335 /* Nothing to check... */
336 return 0;
337 }
338 /* }}} */
339
340 /* {{{ php_fopen_and_set_opened_path
341 */
342 static FILE *php_fopen_and_set_opened_path(const char *path, const char *mode, char **opened_path TSRMLS_DC)
343 {
344 FILE *fp;
345
346 if (php_check_open_basedir((char *)path TSRMLS_CC)) {
347 return NULL;
348 }
349 fp = VCWD_FOPEN(path, mode);
350 if (fp && opened_path) {
351 *opened_path = expand_filepath_with_mode(path, NULL, NULL, 0, CWD_EXPAND TSRMLS_CC);
352 }
353 return fp;
354 }
355 /* }}} */
356
357 /* {{{ php_fopen_primary_script
358 */
359 PHPAPI int php_fopen_primary_script(zend_file_handle *file_handle TSRMLS_DC)
360 {
361 char *path_info;
362 char *filename = NULL;
363 char *resolved_path = NULL;
364 int length;
365 zend_bool orig_display_errors;
366
367 path_info = SG(request_info).request_uri;
368 #if HAVE_PWD_H
369 if (PG(user_dir) && *PG(user_dir) && path_info && '/' == path_info[0] && '~' == path_info[1]) {
370 char *s = strchr(path_info + 2, '/');
371
372 if (s) { /* if there is no path name after the file, do not bother */
373 char user[32]; /* to try open the directory */
374 struct passwd *pw;
375 #if defined(ZTS) && defined(HAVE_GETPWNAM_R) && defined(_SC_GETPW_R_SIZE_MAX)
376 struct passwd pwstruc;
377 long pwbuflen = sysconf(_SC_GETPW_R_SIZE_MAX);
378 char *pwbuf;
379
380 if (pwbuflen < 1) {
381 return FAILURE;
382 }
383
384 pwbuf = emalloc(pwbuflen);
385 #endif
386 length = s - (path_info + 2);
387 if (length > (int)sizeof(user) - 1) {
388 length = sizeof(user) - 1;
389 }
390 memcpy(user, path_info + 2, length);
391 user[length] = '\0';
392 #if defined(ZTS) && defined(HAVE_GETPWNAM_R) && defined(_SC_GETPW_R_SIZE_MAX)
393 if (getpwnam_r(user, &pwstruc, pwbuf, pwbuflen, &pw)) {
394 efree(pwbuf);
395 return FAILURE;
396 }
397 #else
398 pw = getpwnam(user);
399 #endif
400 if (pw && pw->pw_dir) {
401 spprintf(&filename, 0, "%s%c%s%c%s", pw->pw_dir, PHP_DIR_SEPARATOR, PG(user_dir), PHP_DIR_SEPARATOR, s + 1); /* Safe */
402 } else {
403 filename = SG(request_info).path_translated;
404 }
405 #if defined(ZTS) && defined(HAVE_GETPWNAM_R) && defined(_SC_GETPW_R_SIZE_MAX)
406 efree(pwbuf);
407 #endif
408 }
409 } else
410 #endif
411 if (PG(doc_root) && path_info && (length = strlen(PG(doc_root))) &&
412 IS_ABSOLUTE_PATH(PG(doc_root), length)) {
413 int path_len = strlen(path_info);
414 filename = emalloc(length + path_len + 2);
415 if (filename) {
416 memcpy(filename, PG(doc_root), length);
417 if (!IS_SLASH(filename[length - 1])) { /* length is never 0 */
418 filename[length++] = PHP_DIR_SEPARATOR;
419 }
420 if (IS_SLASH(path_info[0])) {
421 length--;
422 }
423 strncpy(filename + length, path_info, path_len + 1);
424 }
425 } else {
426 filename = SG(request_info).path_translated;
427 }
428
429
430 if (filename) {
431 resolved_path = zend_resolve_path(filename, strlen(filename) TSRMLS_CC);
432 }
433
434 if (!resolved_path) {
435 if (SG(request_info).path_translated != filename) {
436 STR_FREE(filename);
437 }
438 /* we have to free SG(request_info).path_translated here because
439 * php_destroy_request_info assumes that it will get
440 * freed when the include_names hash is emptied, but
441 * we're not adding it in this case */
442 STR_FREE(SG(request_info).path_translated);
443 SG(request_info).path_translated = NULL;
444 return FAILURE;
445 }
446 efree(resolved_path);
447
448 orig_display_errors = PG(display_errors);
449 PG(display_errors) = 0;
450 if (zend_stream_open(filename, file_handle TSRMLS_CC) == FAILURE) {
451 PG(display_errors) = orig_display_errors;
452 if (SG(request_info).path_translated != filename) {
453 STR_FREE(filename);
454 }
455 STR_FREE(SG(request_info).path_translated); /* for same reason as above */
456 SG(request_info).path_translated = NULL;
457 return FAILURE;
458 }
459 PG(display_errors) = orig_display_errors;
460
461 if (SG(request_info).path_translated != filename) {
462 STR_FREE(SG(request_info).path_translated); /* for same reason as above */
463 SG(request_info).path_translated = filename;
464 }
465
466 return SUCCESS;
467 }
468 /* }}} */
469
470 /* {{{ php_resolve_path
471 * Returns the realpath for given filename according to include path
472 */
473 PHPAPI char *php_resolve_path(const char *filename, int filename_length, const char *path TSRMLS_DC)
474 {
475 char resolved_path[MAXPATHLEN];
476 char trypath[MAXPATHLEN];
477 const char *ptr, *end, *p;
478 const char *actual_path;
479 php_stream_wrapper *wrapper;
480
481 if (!filename || CHECK_NULL_PATH(filename, filename_length)) {
482 return NULL;
483 }
484
485 /* Don't resolve paths which contain protocol (except of file://) */
486 for (p = filename; isalnum((int)*p) || *p == '+' || *p == '-' || *p == '.'; p++);
487 if ((*p == ':') && (p - filename > 1) && (p[1] == '/') && (p[2] == '/')) {
488 wrapper = php_stream_locate_url_wrapper(filename, &actual_path, STREAM_OPEN_FOR_INCLUDE TSRMLS_CC);
489 if (wrapper == &php_plain_files_wrapper) {
490 if (tsrm_realpath(actual_path, resolved_path TSRMLS_CC)) {
491 return estrdup(resolved_path);
492 }
493 }
494 return NULL;
495 }
496
497 if ((*filename == '.' &&
498 (IS_SLASH(filename[1]) ||
499 ((filename[1] == '.') && IS_SLASH(filename[2])))) ||
500 IS_ABSOLUTE_PATH(filename, filename_length) ||
501 !path ||
502 !*path) {
503 if (tsrm_realpath(filename, resolved_path TSRMLS_CC)) {
504 return estrdup(resolved_path);
505 } else {
506 return NULL;
507 }
508 }
509
510 ptr = path;
511 while (ptr && *ptr) {
512 /* Check for stream wrapper */
513 int is_stream_wrapper = 0;
514
515 for (p = ptr; isalnum((int)*p) || *p == '+' || *p == '-' || *p == '.'; p++);
516 if ((*p == ':') && (p - ptr > 1) && (p[1] == '/') && (p[2] == '/')) {
517 /* .:// or ..:// is not a stream wrapper */
518 if (p[-1] != '.' || p[-2] != '.' || p - 2 != ptr) {
519 p += 3;
520 is_stream_wrapper = 1;
521 }
522 }
523 end = strchr(p, DEFAULT_DIR_SEPARATOR);
524 if (end) {
525 if (filename_length > (MAXPATHLEN - 2) || (end-ptr) > MAXPATHLEN || (end-ptr) + 1 + (size_t)filename_length + 1 >= MAXPATHLEN) {
526 ptr = end + 1;
527 continue;
528 }
529 memcpy(trypath, ptr, end-ptr);
530 trypath[end-ptr] = '/';
531 memcpy(trypath+(end-ptr)+1, filename, filename_length+1);
532 ptr = end+1;
533 } else {
534 size_t len = strlen(ptr);
535
536 if (filename_length > (MAXPATHLEN - 2) || len > MAXPATHLEN || (size_t)len + 1 + (size_t)filename_length + 1 >= MAXPATHLEN) {
537 break;
538 }
539 memcpy(trypath, ptr, len);
540 trypath[len] = '/';
541 memcpy(trypath+len+1, filename, filename_length+1);
542 ptr = NULL;
543 }
544 actual_path = trypath;
545 if (is_stream_wrapper) {
546 wrapper = php_stream_locate_url_wrapper(trypath, &actual_path, STREAM_OPEN_FOR_INCLUDE TSRMLS_CC);
547 if (!wrapper) {
548 continue;
549 } else if (wrapper != &php_plain_files_wrapper) {
550 if (wrapper->wops->url_stat) {
551 php_stream_statbuf ssb;
552
553 if (SUCCESS == wrapper->wops->url_stat(wrapper, trypath, 0, &ssb, NULL TSRMLS_CC)) {
554 return estrdup(trypath);
555 }
556 }
557 continue;
558 }
559 }
560 if (tsrm_realpath(actual_path, resolved_path TSRMLS_CC)) {
561 return estrdup(resolved_path);
562 }
563 } /* end provided path */
564
565 /* check in calling scripts' current working directory as a fall back case
566 */
567 if (zend_is_executing(TSRMLS_C)) {
568 const char *exec_fname = zend_get_executed_filename(TSRMLS_C);
569 int exec_fname_length = strlen(exec_fname);
570
571 while ((--exec_fname_length >= 0) && !IS_SLASH(exec_fname[exec_fname_length]));
572 if (exec_fname && exec_fname[0] != '[' &&
573 exec_fname_length > 0 &&
574 filename_length < (MAXPATHLEN - 2) &&
575 exec_fname_length + 1 + filename_length + 1 < MAXPATHLEN) {
576 memcpy(trypath, exec_fname, exec_fname_length + 1);
577 memcpy(trypath+exec_fname_length + 1, filename, filename_length+1);
578 actual_path = trypath;
579
580 /* Check for stream wrapper */
581 for (p = trypath; isalnum((int)*p) || *p == '+' || *p == '-' || *p == '.'; p++);
582 if ((*p == ':') && (p - trypath > 1) && (p[1] == '/') && (p[2] == '/')) {
583 wrapper = php_stream_locate_url_wrapper(trypath, &actual_path, STREAM_OPEN_FOR_INCLUDE TSRMLS_CC);
584 if (!wrapper) {
585 return NULL;
586 } else if (wrapper != &php_plain_files_wrapper) {
587 if (wrapper->wops->url_stat) {
588 php_stream_statbuf ssb;
589
590 if (SUCCESS == wrapper->wops->url_stat(wrapper, trypath, 0, &ssb, NULL TSRMLS_CC)) {
591 return estrdup(trypath);
592 }
593 }
594 return NULL;
595 }
596 }
597
598 if (tsrm_realpath(actual_path, resolved_path TSRMLS_CC)) {
599 return estrdup(resolved_path);
600 }
601 }
602 }
603
604 return NULL;
605 }
606 /* }}} */
607
608 /* {{{ php_fopen_with_path
609 * Tries to open a file with a PATH-style list of directories.
610 * If the filename starts with "." or "/", the path is ignored.
611 */
612 PHPAPI FILE *php_fopen_with_path(const char *filename, const char *mode, const char *path, char **opened_path TSRMLS_DC)
613 {
614 char *pathbuf, *ptr, *end;
615 const char *exec_fname;
616 char trypath[MAXPATHLEN];
617 FILE *fp;
618 int path_length;
619 int filename_length;
620 int exec_fname_length;
621
622 if (opened_path) {
623 *opened_path = NULL;
624 }
625
626 if (!filename) {
627 return NULL;
628 }
629
630 filename_length = strlen(filename);
631
632 /* Relative path open */
633 if ((*filename == '.')
634 /* Absolute path open */
635 || IS_ABSOLUTE_PATH(filename, filename_length)
636 || (!path || (path && !*path))
637 ) {
638 return php_fopen_and_set_opened_path(filename, mode, opened_path TSRMLS_CC);
639 }
640
641 /* check in provided path */
642 /* append the calling scripts' current working directory
643 * as a fall back case
644 */
645 if (zend_is_executing(TSRMLS_C)) {
646 exec_fname = zend_get_executed_filename(TSRMLS_C);
647 exec_fname_length = strlen(exec_fname);
648 path_length = strlen(path);
649
650 while ((--exec_fname_length >= 0) && !IS_SLASH(exec_fname[exec_fname_length]));
651 if ((exec_fname && exec_fname[0] == '[') || exec_fname_length <= 0) {
652 /* [no active file] or no path */
653 pathbuf = estrdup(path);
654 } else {
655 pathbuf = (char *) emalloc(exec_fname_length + path_length + 1 + 1);
656 memcpy(pathbuf, path, path_length);
657 pathbuf[path_length] = DEFAULT_DIR_SEPARATOR;
658 memcpy(pathbuf + path_length + 1, exec_fname, exec_fname_length);
659 pathbuf[path_length + exec_fname_length + 1] = '\0';
660 }
661 } else {
662 pathbuf = estrdup(path);
663 }
664
665 ptr = pathbuf;
666
667 while (ptr && *ptr) {
668 end = strchr(ptr, DEFAULT_DIR_SEPARATOR);
669 if (end != NULL) {
670 *end = '\0';
671 end++;
672 }
673 if (snprintf(trypath, MAXPATHLEN, "%s/%s", ptr, filename) >= MAXPATHLEN) {
674 php_error_docref(NULL TSRMLS_CC, E_NOTICE, "%s/%s path was truncated to %d", ptr, filename, MAXPATHLEN);
675 }
676 fp = php_fopen_and_set_opened_path(trypath, mode, opened_path TSRMLS_CC);
677 if (fp) {
678 efree(pathbuf);
679 return fp;
680 }
681 ptr = end;
682 } /* end provided path */
683
684 efree(pathbuf);
685 return NULL;
686 }
687 /* }}} */
688
689 /* {{{ php_strip_url_passwd
690 */
691 PHPAPI char *php_strip_url_passwd(char *url)
692 {
693 register char *p, *url_start;
694
695 if (url == NULL) {
696 return "";
697 }
698
699 p = url;
700
701 while (*p) {
702 if (*p == ':' && *(p + 1) == '/' && *(p + 2) == '/') {
703 /* found protocol */
704 url_start = p = p + 3;
705
706 while (*p) {
707 if (*p == '@') {
708 int i;
709
710 for (i = 0; i < 3 && url_start < p; i++, url_start++) {
711 *url_start = '.';
712 }
713 for (; *p; p++) {
714 *url_start++ = *p;
715 }
716 *url_start=0;
717 break;
718 }
719 p++;
720 }
721 return url;
722 }
723 p++;
724 }
725 return url;
726 }
727 /* }}} */
728
729 /* {{{ expand_filepath
730 */
731 PHPAPI char *expand_filepath(const char *filepath, char *real_path TSRMLS_DC)
732 {
733 return expand_filepath_ex(filepath, real_path, NULL, 0 TSRMLS_CC);
734 }
735 /* }}} */
736
737 /* {{{ expand_filepath_ex
738 */
739 PHPAPI char *expand_filepath_ex(const char *filepath, char *real_path, const char *relative_to, size_t relative_to_len TSRMLS_DC)
740 {
741 return expand_filepath_with_mode(filepath, real_path, relative_to, relative_to_len, CWD_FILEPATH TSRMLS_CC);
742 }
743 /* }}} */
744
745 /* {{{ expand_filepath_use_realpath
746 */
747 PHPAPI char *expand_filepath_with_mode(const char *filepath, char *real_path, const char *relative_to, size_t relative_to_len, int realpath_mode TSRMLS_DC)
748 {
749 cwd_state new_state;
750 char cwd[MAXPATHLEN];
751 int copy_len;
752
753 if (!filepath[0]) {
754 return NULL;
755 } else if (IS_ABSOLUTE_PATH(filepath, strlen(filepath))) {
756 cwd[0] = '\0';
757 } else {
758 const char *iam = SG(request_info).path_translated;
759 const char *result;
760 if (relative_to) {
761 if (relative_to_len > MAXPATHLEN-1U) {
762 return NULL;
763 }
764 result = relative_to;
765 memcpy(cwd, relative_to, relative_to_len+1U);
766 } else {
767 result = VCWD_GETCWD(cwd, MAXPATHLEN);
768 }
769
770 if (!result && (iam != filepath)) {
771 int fdtest = -1;
772
773 fdtest = VCWD_OPEN(filepath, O_RDONLY);
774 if (fdtest != -1) {
775 /* return a relative file path if for any reason
776 * we cannot cannot getcwd() and the requested,
777 * relatively referenced file is accessible */
778 copy_len = strlen(filepath) > MAXPATHLEN - 1 ? MAXPATHLEN - 1 : strlen(filepath);
779 if (real_path) {
780 memcpy(real_path, filepath, copy_len);
781 real_path[copy_len] = '\0';
782 } else {
783 real_path = estrndup(filepath, copy_len);
784 }
785 close(fdtest);
786 return real_path;
787 } else {
788 cwd[0] = '\0';
789 }
790 } else if (!result) {
791 cwd[0] = '\0';
792 }
793 }
794
795 new_state.cwd = estrdup(cwd);
796 new_state.cwd_length = strlen(cwd);
797
798 if (virtual_file_ex(&new_state, filepath, NULL, realpath_mode TSRMLS_CC)) {
799 efree(new_state.cwd);
800 return NULL;
801 }
802
803 if (real_path) {
804 copy_len = new_state.cwd_length > MAXPATHLEN - 1 ? MAXPATHLEN - 1 : new_state.cwd_length;
805 memcpy(real_path, new_state.cwd, copy_len);
806 real_path[copy_len] = '\0';
807 } else {
808 real_path = estrndup(new_state.cwd, new_state.cwd_length);
809 }
810 efree(new_state.cwd);
811
812 return real_path;
813 }
814 /* }}} */
815
816 /*
817 * Local variables:
818 * tab-width: 4
819 * c-basic-offset: 4
820 * End:
821 * vim600: sw=4 ts=4 fdm=marker
822 * vim<600: sw=4 ts=4
823 */
824
