wp/wp-admin/includes/class-wp-filesystem-direct.php
author ymh <ymh.work@gmail.com>
Wed, 06 Nov 2013 03:21:17 +0000
changeset 0 d970ebf37754
child 5 5e2f62d02dcd
permissions -rw-r--r--
first import
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
 * WordPress Direct Filesystem.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 * @subpackage Filesystem
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 * WordPress Filesystem Class for direct PHP file and folder manipulation.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
 * @since 2.5
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
 * @subpackage Filesystem
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
 * @uses WP_Filesystem_Base Extends class
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
class WP_Filesystem_Direct extends WP_Filesystem_Base {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
	 * constructor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
	 * @param mixed $arg ignored argument
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
	function __construct($arg) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
		$this->method = 'direct';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
		$this->errors = new WP_Error();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
	 * Reads entire file into a string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
	 * @param string $file Name of the file to read.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
	 * @return string|bool The function returns the read data or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
	function get_contents($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
		return @file_get_contents($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
	 * Reads entire file into an array
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
	 * @return array|bool the file contents in an array or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
	function get_contents_array($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
		return @file($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
	 * Write a string to a file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
	 * @param string $file Remote path to the file where to write the data.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
	 * @param string $contents The data to write.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
	 * @param int $mode (optional) The file permissions as octal number, usually 0644.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
	 * @return bool False upon failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
	function put_contents( $file, $contents, $mode = false ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
		$fp = @fopen( $file, 'wb' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
		if ( ! $fp )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
		mbstring_binary_safe_encoding();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
		$data_length = strlen( $contents );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
		$bytes_written = fwrite( $fp, $contents );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
		reset_mbstring_encoding();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
		fclose( $fp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
		if ( $data_length !== $bytes_written )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
		$this->chmod( $file, $mode );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
	 * Gets the current working directory
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
	 * @return string|bool the current working directory on success, or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
	function cwd() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
		return @getcwd();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
	 * Change directory
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
	 * @param string $dir The new current directory.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
	 * @return bool Returns true on success or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
	function chdir($dir) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
		return @chdir($dir);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
	 * Changes file group
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
	 * @param mixed $group A group name or number.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
	 * @param bool $recursive (optional) If set True changes file group recursively. Defaults to False.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
	 * @return bool Returns true on success or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
	function chgrp($file, $group, $recursive = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
		if ( ! $this->exists($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
		if ( ! $recursive )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
			return @chgrp($file, $group);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
		if ( ! $this->is_dir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
			return @chgrp($file, $group);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
		// Is a directory, and we want recursive
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
		$file = trailingslashit($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
		$filelist = $this->dirlist($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
		foreach ($filelist as $filename)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
			$this->chgrp($file . $filename, $group, $recursive);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
	 * Changes filesystem permissions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
	 * @param int $mode (optional) The permissions as octal number, usually 0644 for files, 0755 for dirs.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
	 * @param bool $recursive (optional) If set True changes file group recursively. Defaults to False.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
	 * @return bool Returns true on success or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
	function chmod($file, $mode = false, $recursive = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
		if ( ! $mode ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
			if ( $this->is_file($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
				$mode = FS_CHMOD_FILE;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
			elseif ( $this->is_dir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
				$mode = FS_CHMOD_DIR;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
		if ( ! $recursive || ! $this->is_dir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
			return @chmod($file, $mode);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
		// Is a directory, and we want recursive
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
		$file = trailingslashit($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
		$filelist = $this->dirlist($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
		foreach ( (array)$filelist as $filename => $filemeta)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
			$this->chmod($file . $filename, $mode, $recursive);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
	 * Changes file owner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
	 * @param mixed $owner A user name or number.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
	 * @param bool $recursive (optional) If set True changes file owner recursively. Defaults to False.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
	 * @return bool Returns true on success or false on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
	function chown($file, $owner, $recursive = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
		if ( ! $this->exists($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
		if ( ! $recursive )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
			return @chown($file, $owner);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
		if ( ! $this->is_dir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
			return @chown($file, $owner);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
		// Is a directory, and we want recursive
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
		$filelist = $this->dirlist($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
		foreach ($filelist as $filename) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
			$this->chown($file . '/' . $filename, $owner, $recursive);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
	 * Gets file owner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
	 * @return string|bool Username of the user or false on error.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
	function owner($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
		$owneruid = @fileowner($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
		if ( ! $owneruid )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
		if ( ! function_exists('posix_getpwuid') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
			return $owneruid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
		$ownerarray = posix_getpwuid($owneruid);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
		return $ownerarray['name'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
	 * Gets file permissions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
	 * FIXME does not handle errors in fileperms()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
	 * @param string $file Path to the file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
	 * @return string Mode of the file (last 4 digits).
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
	function getchmod($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
		return substr(decoct(@fileperms($file)),3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
	function group($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
		$gid = @filegroup($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
		if ( ! $gid )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
		if ( ! function_exists('posix_getgrgid') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
			return $gid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
		$grouparray = posix_getgrgid($gid);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
		return $grouparray['name'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
	function copy($source, $destination, $overwrite = false, $mode = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
		if ( ! $overwrite && $this->exists($destination) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
		$rtval = copy($source, $destination);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
		if ( $mode )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
			$this->chmod($destination, $mode);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
		return $rtval;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
	function move($source, $destination, $overwrite = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
		if ( ! $overwrite && $this->exists($destination) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
		// try using rename first. if that fails (for example, source is read only) try copy
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
		if ( @rename($source, $destination) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
		if ( $this->copy($source, $destination, $overwrite) && $this->exists($destination) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
			$this->delete($source);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
	function delete($file, $recursive = false, $type = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
		if ( empty( $file ) ) // Some filesystems report this as /, which can cause non-expected recursive deletion of all files in the filesystem.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
		$file = str_replace( '\\', '/', $file ); // for win32, occasional problems deleting files otherwise
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
		if ( 'f' == $type || $this->is_file($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
			return @unlink($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
		if ( ! $recursive && $this->is_dir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
			return @rmdir($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
		// At this point it's a folder, and we're in recursive mode
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
		$file = trailingslashit($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
		$filelist = $this->dirlist($file, true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
		$retval = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
		if ( is_array( $filelist ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
			foreach ( $filelist as $filename => $fileinfo ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
				if ( ! $this->delete($file . $filename, $recursive, $fileinfo['type']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
					$retval = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
		if ( file_exists($file) && ! @rmdir($file) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
			$retval = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
		return $retval;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
	function exists($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
		return @file_exists($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
	function is_file($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
		return @is_file($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
	function is_dir($path) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
		return @is_dir($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
	function is_readable($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
		return @is_readable($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
	function is_writable($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
		return @is_writable($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
	function atime($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
		return @fileatime($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
	function mtime($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
		return @filemtime($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
	function size($file) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
		return @filesize($file);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
	function touch($file, $time = 0, $atime = 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
		if ($time == 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
			$time = time();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
		if ($atime == 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
			$atime = time();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
		return @touch($file, $time, $atime);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
	function mkdir($path, $chmod = false, $chown = false, $chgrp = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
		// safe mode fails with a trailing slash under certain PHP versions.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
		$path = untrailingslashit($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
		if ( empty($path) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
		if ( ! $chmod )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
			$chmod = FS_CHMOD_DIR;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
		if ( ! @mkdir($path) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
		$this->chmod($path, $chmod);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
		if ( $chown )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
			$this->chown($path, $chown);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
		if ( $chgrp )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
			$this->chgrp($path, $chgrp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
	function rmdir($path, $recursive = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
		return $this->delete($path, $recursive);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
	function dirlist($path, $include_hidden = true, $recursive = false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
		if ( $this->is_file($path) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
			$limit_file = basename($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
			$path = dirname($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
			$limit_file = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
		if ( ! $this->is_dir($path) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   341
		$dir = @dir($path);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
		if ( ! $dir )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
		$ret = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
		while (false !== ($entry = $dir->read()) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
			$struc = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
			$struc['name'] = $entry;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
			if ( '.' == $struc['name'] || '..' == $struc['name'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
			if ( ! $include_hidden && '.' == $struc['name'][0] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
			if ( $limit_file && $struc['name'] != $limit_file)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
			$struc['perms'] 	= $this->gethchmod($path.'/'.$entry);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
			$struc['permsn']	= $this->getnumchmodfromh($struc['perms']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
			$struc['number'] 	= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
			$struc['owner']    	= $this->owner($path.'/'.$entry);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
			$struc['group']    	= $this->group($path.'/'.$entry);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
			$struc['size']    	= $this->size($path.'/'.$entry);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
			$struc['lastmodunix']= $this->mtime($path.'/'.$entry);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
			$struc['lastmod']   = date('M j',$struc['lastmodunix']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
			$struc['time']    	= date('h:i:s',$struc['lastmodunix']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
			$struc['type']		= $this->is_dir($path.'/'.$entry) ? 'd' : 'f';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
			if ( 'd' == $struc['type'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
				if ( $recursive )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
					$struc['files'] = $this->dirlist($path . '/' . $struc['name'], $include_hidden, $recursive);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
					$struc['files'] = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
			$ret[ $struc['name'] ] = $struc;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
		$dir->close();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
		unset($dir);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
		return $ret;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   383
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
}