1999-04-17 00:37:12 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2009-03-10 23:40:06 +00:00
|
|
|
| PHP Version 6 |
|
1999-04-17 00:37:12 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2008-12-31 11:12:40 +00:00
|
|
|
| Copyright (c) 1997-2009 The PHP Group |
|
1999-04-17 00:37:12 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 13:10:10 +00:00
|
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
1999-07-16 13:13:16 +00:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
| available through the world-wide-web at the following url: |
|
2006-01-01 13:10:10 +00:00
|
|
|
| http://www.php.net/license/3_01.txt |
|
1999-07-16 13:13:16 +00:00
|
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
|
|
| license@php.net so we can mail you a copy immediately. |
|
1999-04-17 00:37:12 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2002-02-28 08:29:35 +00:00
|
|
|
| Author: |
|
1999-04-17 00:37:12 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* $Id$ */
|
1999-04-23 20:06:01 +00:00
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
#include "php.h"
|
1999-12-04 19:19:57 +00:00
|
|
|
#include "php_filestat.h"
|
1999-04-17 00:37:12 +00:00
|
|
|
#include "php_globals.h"
|
|
|
|
|
2000-06-13 18:07:19 +00:00
|
|
|
#ifdef HAVE_SYMLINK
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
#include <stdlib.h>
|
|
|
|
#if HAVE_UNISTD_H
|
|
|
|
#include <unistd.h>
|
|
|
|
#endif
|
|
|
|
#include <sys/stat.h>
|
|
|
|
#include <string.h>
|
|
|
|
#if HAVE_PWD_H
|
2000-02-11 15:59:30 +00:00
|
|
|
#ifdef PHP_WIN32
|
1999-04-17 00:37:12 +00:00
|
|
|
#include "win32/pwd.h"
|
|
|
|
#else
|
|
|
|
#include <pwd.h>
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#if HAVE_GRP_H
|
2000-02-11 15:59:30 +00:00
|
|
|
#ifdef PHP_WIN32
|
1999-04-17 00:37:12 +00:00
|
|
|
#include "win32/grp.h"
|
|
|
|
#else
|
|
|
|
#include <grp.h>
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#include <errno.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
|
1999-12-04 19:19:57 +00:00
|
|
|
#include "php_link.h"
|
2006-10-26 20:25:45 +00:00
|
|
|
#include "ext/standard/file.h"
|
2008-08-11 15:29:06 +00:00
|
|
|
#include "php_string.h"
|
1999-04-17 00:37:12 +00:00
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
/* {{{ proto string readlink(string filename) U
|
1999-04-17 00:37:12 +00:00
|
|
|
Return the target of a symbolic link */
|
1999-05-16 11:19:26 +00:00
|
|
|
PHP_FUNCTION(readlink)
|
1999-04-17 00:37:12 +00:00
|
|
|
{
|
2006-10-26 20:25:45 +00:00
|
|
|
zval **pp_link;
|
|
|
|
char *link;
|
|
|
|
UChar *target;
|
|
|
|
int link_len, target_len;
|
2002-10-21 23:35:29 +00:00
|
|
|
char buff[MAXPATHLEN];
|
1999-04-17 00:37:12 +00:00
|
|
|
int ret;
|
2002-11-04 23:24:15 +00:00
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "Z", &pp_link) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_link, &link, &link_len, REPORT_ERRORS, FG(default_context)) == FAILURE) {
|
|
|
|
return;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
if (php_check_open_basedir(link TSRMLS_CC)) {
|
2004-11-02 00:37:32 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
ret = readlink(link, buff, MAXPATHLEN-1);
|
2002-10-21 23:35:29 +00:00
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
if (ret == -1) {
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", strerror(errno));
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
/* Append NULL to the end of the string */
|
|
|
|
buff[ret] = '\0';
|
2002-11-04 23:24:15 +00:00
|
|
|
|
2009-03-26 20:02:53 +00:00
|
|
|
if (SUCCESS == php_stream_path_decode(NULL, &target, &target_len, buff, strlen(buff), REPORT_ERRORS, FG(default_context))) {
|
|
|
|
RETURN_UNICODEL(target, target_len, 0);
|
2006-10-26 20:25:45 +00:00
|
|
|
} else {
|
2009-03-26 20:02:53 +00:00
|
|
|
RETURN_FALSE;
|
2006-10-26 20:25:45 +00:00
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
/* {{{ proto int linkinfo(string filename) U
|
1999-04-17 00:37:12 +00:00
|
|
|
Returns the st_dev field of the UNIX C stat structure describing the link */
|
1999-05-16 11:19:26 +00:00
|
|
|
PHP_FUNCTION(linkinfo)
|
1999-04-17 00:37:12 +00:00
|
|
|
{
|
2006-10-26 20:25:45 +00:00
|
|
|
zval **pp_link;
|
|
|
|
char *link;
|
|
|
|
int link_len;
|
1999-04-17 00:37:12 +00:00
|
|
|
struct stat sb;
|
|
|
|
int ret;
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "Z", &pp_link) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_link, &link, &link_len, REPORT_ERRORS, FG(default_context)) == FAILURE) {
|
|
|
|
return;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
ret = VCWD_LSTAT(link, &sb);
|
1999-04-17 00:37:12 +00:00
|
|
|
if (ret == -1) {
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", strerror(errno));
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_LONG(-1L);
|
|
|
|
}
|
2001-09-05 06:55:37 +00:00
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_LONG((long) sb.st_dev);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
/* {{{ proto int symlink(string target, string link) U
|
1999-04-17 00:37:12 +00:00
|
|
|
Create a symbolic link */
|
1999-05-16 11:19:26 +00:00
|
|
|
PHP_FUNCTION(symlink)
|
1999-04-17 00:37:12 +00:00
|
|
|
{
|
2006-10-26 20:25:45 +00:00
|
|
|
zval **pp_topath, **pp_frompath;
|
|
|
|
char *topath, *frompath;
|
|
|
|
int topath_len, frompath_len;
|
1999-04-17 00:37:12 +00:00
|
|
|
int ret;
|
2002-10-21 23:35:29 +00:00
|
|
|
char source_p[MAXPATHLEN];
|
|
|
|
char dest_p[MAXPATHLEN];
|
2008-08-11 15:29:06 +00:00
|
|
|
char dirname[MAXPATHLEN];
|
|
|
|
size_t len;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ZZ", &pp_topath, &pp_frompath) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_topath, &topath, &topath_len, REPORT_ERRORS, FG(default_context)) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_frompath, &frompath, &frompath_len, REPORT_ERRORS, FG(default_context)) == FAILURE) {
|
|
|
|
return;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
|
|
|
|
2008-08-11 15:29:06 +00:00
|
|
|
if (!expand_filepath(frompath, source_p TSRMLS_CC)) {
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "No such file or directory");
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
memcpy(dirname, source_p, sizeof(source_p));
|
|
|
|
len = php_dirname(dirname, strlen(dirname));
|
|
|
|
|
|
|
|
if (!expand_filepath_ex(topath, dest_p, dirname, len TSRMLS_CC)) {
|
2007-07-10 13:21:31 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "No such file or directory");
|
2006-09-16 18:31:07 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2002-10-21 23:35:29 +00:00
|
|
|
|
|
|
|
if (php_stream_locate_url_wrapper(source_p, NULL, STREAM_LOCATE_WRAPPERS_ONLY TSRMLS_CC) ||
|
|
|
|
php_stream_locate_url_wrapper(dest_p, NULL, STREAM_LOCATE_WRAPPERS_ONLY TSRMLS_CC) )
|
|
|
|
{
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to symlink to a URL");
|
2006-09-16 18:31:07 +00:00
|
|
|
RETURN_FALSE;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
2001-09-05 06:55:37 +00:00
|
|
|
|
2002-10-21 23:35:29 +00:00
|
|
|
if (php_check_open_basedir(dest_p TSRMLS_CC)) {
|
2002-06-16 21:24:15 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2002-10-21 23:35:29 +00:00
|
|
|
if (php_check_open_basedir(source_p TSRMLS_CC)) {
|
1999-11-28 16:23:30 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
2008-08-10 11:54:18 +00:00
|
|
|
/* For the source, an expanded path must be used (in ZTS an other thread could have changed the CWD).
|
|
|
|
* For the target the exact string given by the user must be used, relative or not, existing or not.
|
|
|
|
* The target is relative to the link itself, not to the CWD. */
|
|
|
|
ret = symlink(topath, source_p);
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
if (ret == -1) {
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", strerror(errno));
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2001-09-05 06:55:37 +00:00
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
/* {{{ proto int link(string target, string link) U
|
1999-04-17 00:37:12 +00:00
|
|
|
Create a hard link */
|
1999-05-16 11:19:26 +00:00
|
|
|
PHP_FUNCTION(link)
|
1999-04-17 00:37:12 +00:00
|
|
|
{
|
2006-10-26 20:25:45 +00:00
|
|
|
zval **pp_topath, **pp_frompath;
|
|
|
|
char *topath, *frompath;
|
|
|
|
int topath_len, frompath_len;
|
1999-04-17 00:37:12 +00:00
|
|
|
int ret;
|
2002-10-21 23:35:29 +00:00
|
|
|
char source_p[MAXPATHLEN];
|
|
|
|
char dest_p[MAXPATHLEN];
|
1999-04-17 00:37:12 +00:00
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ZZ", &pp_topath, &pp_frompath) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_topath, &topath, &topath_len, REPORT_ERRORS, FG(default_context)) == FAILURE ||
|
|
|
|
php_stream_path_param_encode(pp_frompath, &frompath, &frompath_len, REPORT_ERRORS, FG(default_context)) == FAILURE) {
|
|
|
|
return;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
|
|
|
|
2006-10-26 20:25:45 +00:00
|
|
|
if (!expand_filepath(frompath, source_p TSRMLS_CC) || !expand_filepath(topath, dest_p TSRMLS_CC)) {
|
2007-07-10 13:21:31 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "No such file or directory");
|
2006-09-16 18:31:07 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2002-10-21 23:35:29 +00:00
|
|
|
|
|
|
|
if (php_stream_locate_url_wrapper(source_p, NULL, STREAM_LOCATE_WRAPPERS_ONLY TSRMLS_CC) ||
|
|
|
|
php_stream_locate_url_wrapper(dest_p, NULL, STREAM_LOCATE_WRAPPERS_ONLY TSRMLS_CC) )
|
|
|
|
{
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unable to link to a URL");
|
2006-09-16 18:31:07 +00:00
|
|
|
RETURN_FALSE;
|
1999-04-17 00:37:12 +00:00
|
|
|
}
|
2001-09-05 06:55:37 +00:00
|
|
|
|
2002-10-21 23:35:29 +00:00
|
|
|
if (php_check_open_basedir(dest_p TSRMLS_CC)) {
|
2002-06-16 21:24:15 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2002-10-21 23:35:29 +00:00
|
|
|
if (php_check_open_basedir(source_p TSRMLS_CC)) {
|
1999-11-28 16:35:26 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
2002-11-15 16:34:16 +00:00
|
|
|
#ifndef ZTS
|
2006-10-26 20:25:45 +00:00
|
|
|
ret = link(topath, frompath);
|
2002-11-15 16:34:16 +00:00
|
|
|
#else
|
|
|
|
ret = link(dest_p, source_p);
|
|
|
|
#endif
|
1999-04-17 00:37:12 +00:00
|
|
|
if (ret == -1) {
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", strerror(errno));
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2001-09-05 06:55:37 +00:00
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
2000-06-13 18:07:19 +00:00
|
|
|
#endif
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* End:
|
2001-09-09 13:29:31 +00:00
|
|
|
* vim600: noet sw=4 ts=4 fdm=marker
|
|
|
|
* vim<600: noet sw=4 ts=4
|
1999-04-17 00:37:12 +00:00
|
|
|
*/
|