2008-02-18 07:52:07 +01:00
|
|
|
<?php
|
|
|
|
/**
|
|
|
|
* eGroupWare API: VFS - new DB based VFS stream wrapper
|
|
|
|
*
|
|
|
|
* @link http://www.egroupware.org
|
|
|
|
* @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
|
|
|
|
* @package api
|
|
|
|
* @subpackage vfs
|
|
|
|
* @author Ralf Becker <RalfBecker-AT-outdoor-training.de>
|
|
|
|
* @copyright (c) 2008 by Ralf Becker <RalfBecker-AT-outdoor-training.de>
|
|
|
|
* @version $Id$
|
|
|
|
*/
|
|
|
|
|
|
|
|
/**
|
|
|
|
* eGroupWare API: VFS - new DB based VFS stream wrapper
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* The sqlfs stream wrapper has 3 operation modi:
|
|
|
|
* - content of files is stored in the filesystem (eGW's files_dir) (default)
|
|
|
|
* - content of files is stored as BLOB in the DB
|
|
|
|
* - content of files is versioned (and stored in the DB) NOT YET IMPLEMENTED
|
|
|
|
* In the future it will be possible to activate eg. versioning in parts of the filesystem, via mount options in the vfs
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* I use the PDO DB interface, as it allows to access BLOB's as streams (avoiding to hold them complete in memory).
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-04-14 07:52:24 +02:00
|
|
|
* The stream wrapper interface is according to the docu on php.net
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @link http://de.php.net/manual/de/function.stream-wrapper-register.php
|
|
|
|
* @ToDo compare (and optimize) performance with old vfs system (eg. via webdav)
|
|
|
|
* @ToDo pass $operation parameter via context from vfs stream-wrappers mount table, to eg. allow to mount parts with(out) versioning
|
|
|
|
* @ToDo versioning
|
|
|
|
*/
|
2008-04-18 10:42:11 +02:00
|
|
|
class sqlfs_stream_wrapper implements iface_stream_wrapper
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
/**
|
|
|
|
* Mime type of directories, the old vfs uses 'Directory', while eg. WebDAV uses 'httpd/unix-directory'
|
|
|
|
*/
|
|
|
|
const DIR_MIME_TYPE = 'httpd/unix-directory';
|
|
|
|
/**
|
|
|
|
* Scheme / protocoll used for this stream-wrapper
|
|
|
|
*/
|
|
|
|
const SCHEME = 'sqlfs';
|
|
|
|
/**
|
|
|
|
* Does url_stat returns a mime type, or has it to be determined otherwise (string with attribute name)
|
|
|
|
*/
|
|
|
|
const STAT_RETURN_MIME_TYPE = 'mime';
|
|
|
|
/**
|
|
|
|
* Our tablename
|
|
|
|
*/
|
|
|
|
const TABLE = 'egw_sqlfs';
|
|
|
|
/**
|
|
|
|
* mode-bits, which have to be set for files
|
|
|
|
*/
|
|
|
|
const MODE_FILE = 0100000;
|
|
|
|
/**
|
|
|
|
* mode-bits, which have to be set for directories
|
|
|
|
*/
|
|
|
|
const MODE_DIR = 040000;
|
|
|
|
/**
|
|
|
|
* How much should be logged to the apache error-log
|
|
|
|
*
|
|
|
|
* 0 = Nothing
|
|
|
|
* 1 = only errors
|
|
|
|
* 2 = all function calls and errors (contains passwords too!)
|
|
|
|
*/
|
|
|
|
const LOG_LEVEL = 1;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* We do versioning AND store the content in the db, NOT YET IMPLEMENTED
|
|
|
|
*/
|
|
|
|
const VERSIONING = 0;
|
|
|
|
/**
|
|
|
|
* We store the content in the DB (no versioning)
|
|
|
|
*/
|
|
|
|
const STORE2DB = 1;
|
|
|
|
/**
|
|
|
|
* We store the content in the filesystem (egw_info/server/files_dir) (no versioning)
|
|
|
|
*/
|
|
|
|
const STORE2FS = 2;
|
|
|
|
/**
|
|
|
|
* default for operation, change that if you want to test with STORE2DB atm
|
|
|
|
*/
|
|
|
|
const DEFAULT_OPERATION = 2;
|
|
|
|
|
|
|
|
var $operation = self::DEFAULT_OPERATION;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* optional context param when opening the stream, null if no context passed
|
|
|
|
*
|
|
|
|
* @var mixed
|
|
|
|
*/
|
|
|
|
var $context;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* Path off the file opened by stream_open
|
|
|
|
*
|
|
|
|
* @var string
|
|
|
|
*/
|
|
|
|
protected $opened_path;
|
|
|
|
/**
|
|
|
|
* Mode of the file opened by stream_open
|
|
|
|
*
|
|
|
|
* @var int
|
|
|
|
*/
|
|
|
|
protected $opened_mode;
|
|
|
|
/**
|
|
|
|
* Stream of the opened file, either from the DB via PDO or the filesystem
|
|
|
|
*
|
|
|
|
* @var resource
|
|
|
|
*/
|
|
|
|
protected $opened_stream;
|
|
|
|
/**
|
|
|
|
* fs_id of opened file
|
|
|
|
*
|
|
|
|
* @var int
|
|
|
|
*/
|
|
|
|
protected $opened_fs_id;
|
|
|
|
/**
|
|
|
|
* Directory vfs::ls() of dir opened with dir_opendir()
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* This static var gets overwritten by each new dir_opendir, it helps to not read the entries twice.
|
|
|
|
*
|
|
|
|
* @var array $path => info-array pairs
|
|
|
|
*/
|
|
|
|
static private $stat_cache;
|
|
|
|
/**
|
|
|
|
* Reference to the PDO object we use
|
|
|
|
*
|
|
|
|
* @var PDO
|
|
|
|
*/
|
|
|
|
static private $pdo;
|
|
|
|
/**
|
|
|
|
* Array with filenames of dir opened with dir_opendir
|
|
|
|
*
|
|
|
|
* @var array
|
|
|
|
*/
|
|
|
|
protected $opened_dir;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* This method is called immediately after your stream object is created.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @param string $url URL that was passed to fopen() and that this object is expected to retrieve
|
|
|
|
* @param string $mode mode used to open the file, as detailed for fopen()
|
2008-04-18 10:42:11 +02:00
|
|
|
* @param int $options additional flags set by the streams API (or'ed together):
|
2008-02-18 07:52:07 +01:00
|
|
|
* - STREAM_USE_PATH If path is relative, search for the resource using the include_path.
|
2008-04-18 10:42:11 +02:00
|
|
|
* - STREAM_REPORT_ERRORS If this flag is set, you are responsible for raising errors using trigger_error() during opening of the stream.
|
2008-02-18 07:52:07 +01:00
|
|
|
* If this flag is not set, you should not raise any errors.
|
|
|
|
* @param string $opened_path full path of the file/resource, if the open was successfull and STREAM_USE_PATH was set
|
|
|
|
* @return boolean true if the ressource was opened successful, otherwise false
|
|
|
|
*/
|
|
|
|
function stream_open ( $url, $mode, $options, &$opened_path )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$mode,$options)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-14 07:52:24 +02:00
|
|
|
$dir = egw_vfs::dirname($url);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$this->opened_path = $path;
|
|
|
|
$this->opened_mode = $mode;
|
|
|
|
$this->opened_stream = null;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!($stat = self::url_stat($path,0)) || $mode[0] == 'x') // file not found or file should NOT exist
|
|
|
|
{
|
|
|
|
if ($mode[0] == 'r' || // does $mode require the file to exist (r,r+)
|
|
|
|
$mode[0] == 'x' || // or file should not exist, but does
|
2008-04-14 07:52:24 +02:00
|
|
|
!egw_vfs::check_access($dir,egw_vfs::WRITABLE,$dir_stat=self::url_stat($dir,0))) // or we are not allowed to create it
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$mode,$options) file does not exist or can not be created!");
|
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."($url,$mode,$options) file does not exist or can not be created!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
$this->opened_stream = $this->opened_path = $this->opened_mode = null;
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
// new file --> create it in the DB
|
|
|
|
if ($this->operation == self::STORE2FS)
|
|
|
|
{
|
2008-03-02 22:44:15 +01:00
|
|
|
$stmt = self::$pdo->prepare($query='INSERT INTO '.self::TABLE.' (fs_name,fs_dir,fs_mode,fs_uid,fs_gid,fs_created,fs_modified,fs_creator'.
|
2008-02-18 07:52:07 +01:00
|
|
|
') VALUES (:fs_name,:fs_dir,:fs_mode,:fs_uid,:fs_gid,:fs_created,:fs_modified,:fs_creator)');
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-03-02 22:44:15 +01:00
|
|
|
$stmt = self::$pdo->prepare($query='INSERT INTO '.self::TABLE.' (fs_name,fs_dir,fs_mode,fs_uid,fs_gid,fs_created,fs_modified,fs_creator,fs_content'.
|
2008-02-18 07:52:07 +01:00
|
|
|
') VALUES (:fs_name,:fs_dir,:fs_mode,:fs_uid,:fs_gid,:fs_created,:fs_modified,:fs_creator,:fs_content)');
|
2008-03-02 22:44:15 +01:00
|
|
|
$stmt->bindParam(':fs_content',$this->opened_stream,PDO::PARAM_LOB);
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
$values = array(
|
|
|
|
'fs_name' => basename($path),
|
|
|
|
'fs_dir' => $dir_stat['ino'],
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
// we use the mode of the dir, so files in group dirs stay accessible by all members
|
2008-02-18 07:52:07 +01:00
|
|
|
'fs_mode' => $dir_stat['mode'] & 0666,
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
// for the uid we use the uid of the dir if not 0=root or the current user otherwise
|
|
|
|
'fs_uid' => $dir_stat['uid'] ? $dir_stat['uid'] : egw_vfs::$user,
|
|
|
|
// we allways use the group of the dir
|
2008-02-18 07:52:07 +01:00
|
|
|
'fs_gid' => $dir_stat['gid'],
|
|
|
|
'fs_created' => self::_pdo_timestamp(time()),
|
|
|
|
'fs_modified' => self::_pdo_timestamp(time()),
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
'fs_creator' => egw_vfs::$user,
|
2008-02-18 07:52:07 +01:00
|
|
|
);
|
|
|
|
foreach($values as $name => &$val)
|
|
|
|
{
|
|
|
|
$stmt->bindParam(':'.$name,$val);
|
|
|
|
}
|
2008-03-02 22:44:15 +01:00
|
|
|
if (!$stmt->execute() || !($this->opened_fs_id = self::$pdo->lastInsertId('fs_id')))
|
|
|
|
{
|
|
|
|
$this->opened_stream = $this->opened_path = $this->opened_mode = null;
|
|
|
|
echo self::$pdo->errorInfo()."\n";
|
|
|
|
return false;
|
|
|
|
}
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
if ($mode != 'r' && !egw_vfs::check_access($url,egw_vfs::WRITABLE,$stat)) // we are not allowed to edit it
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$mode,$options) file can not be edited!");
|
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."($url,$mode,$options) file can not be edited!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
$this->opened_stream = $this->opened_path = $this->opened_mode = null;
|
2008-04-18 10:42:11 +02:00
|
|
|
return false;
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
$this->opened_fs_id = $stat['fs_id'];
|
|
|
|
}
|
|
|
|
// do we operate directly on the filesystem
|
|
|
|
if ($this->operation == self::STORE2FS)
|
|
|
|
{
|
|
|
|
$this->opened_stream = fopen(self::_fs_path($path),$mode);
|
|
|
|
}
|
|
|
|
if ($mode[0] == 'a') // append modes: a, a+
|
|
|
|
{
|
|
|
|
$this->stream_seek(0,SEEK_END);
|
|
|
|
}
|
|
|
|
return is_resource($this->opened_stream);
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
2008-04-18 10:42:11 +02:00
|
|
|
* This method is called when the stream is closed, using fclose().
|
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* You must release any resources that were locked or allocated by the stream.
|
|
|
|
*/
|
|
|
|
function stream_close ( )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."()");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-03-02 22:44:15 +01:00
|
|
|
if (is_null($this->opened_path) || !is_resource($this->opened_stream) || !$this->opened_fs_id)
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
return false;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if ($this->opened_mode != 'r')
|
|
|
|
{
|
|
|
|
$this->stream_seek(0,SEEK_END);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
static $mime_magic;
|
|
|
|
if (is_null($mime_magic))
|
|
|
|
{
|
|
|
|
$mime_magic = new mime_magic();
|
|
|
|
}
|
|
|
|
|
|
|
|
// we need to update the mime-type and size
|
|
|
|
$values = array(
|
|
|
|
':fs_size' => $this->stream_tell(),
|
|
|
|
// todo: analyse the file for the mime-type
|
|
|
|
':fs_mime' => $mime_magic->filename2mime($this->opened_path),
|
|
|
|
':fs_id' => $this->opened_fs_id,
|
|
|
|
);
|
|
|
|
$ret = fclose($this->opened_stream);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_size=:fs_size,fs_mime=:fs_mime WHERE fs_id=:fs_id');
|
|
|
|
$stmt->execute($values);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
$ret = fclose($this->opened_stream);
|
|
|
|
}
|
|
|
|
$this->opened_stream = $this->opened_path = $this->opened_mode = $this->opend_fs_id = null;
|
|
|
|
|
|
|
|
return $ret;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* This method is called in response to fread() and fgets() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* You must return up-to count bytes of data from the current read/write position as a string.
|
|
|
|
* If there are less than count bytes available, return as many as are available.
|
|
|
|
* If no more data is available, return either FALSE or an empty string.
|
2008-02-18 07:52:07 +01:00
|
|
|
* You must also update the read/write position of the stream by the number of bytes that were successfully read.
|
|
|
|
*
|
|
|
|
* @param int $count
|
|
|
|
* @return string/false up to count bytes read or false on EOF
|
|
|
|
*/
|
|
|
|
function stream_read ( $count )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($count) pos=$this->opened_pos");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return fread($this->opened_stream,$count);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to fwrite() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* You should store data into the underlying storage used by your stream.
|
|
|
|
* If there is not enough room, try to store as many bytes as possible.
|
|
|
|
* You should return the number of bytes that were successfully stored in the stream, or 0 if none could be stored.
|
2008-02-18 07:52:07 +01:00
|
|
|
* You must also update the read/write position of the stream by the number of bytes that were successfully written.
|
|
|
|
*
|
|
|
|
* @param string $data
|
|
|
|
* @return integer
|
|
|
|
*/
|
2008-04-18 10:42:11 +02:00
|
|
|
function stream_write ( $data )
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($data)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return fwrite($this->opened_stream,$data);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to feof() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* Important: PHP 5.0 introduced a bug that wasn't fixed until 5.1: the return value has to be the oposite!
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* if(version_compare(PHP_VERSION,'5.0','>=') && version_compare(PHP_VERSION,'5.1','<'))
|
|
|
|
* {
|
|
|
|
* $eof = !$eof;
|
|
|
|
* }
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return boolean true if the read/write position is at the end of the stream and no more data availible, false otherwise
|
|
|
|
*/
|
2008-04-18 10:42:11 +02:00
|
|
|
function stream_eof ( )
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return feof($this->opened_stream);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to ftell() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return integer current read/write position of the stream
|
|
|
|
*/
|
2008-04-18 10:42:11 +02:00
|
|
|
function stream_tell ( )
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."()");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return ftell($this->opened_stream);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to fseek() calls on the stream.
|
|
|
|
*
|
2008-04-18 10:42:11 +02:00
|
|
|
* You should update the read/write position of the stream according to offset and whence.
|
|
|
|
* See fseek() for more information about these parameters.
|
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @param integer $offset
|
|
|
|
* @param integer $whence SEEK_SET - Set position equal to offset bytes
|
|
|
|
* SEEK_CUR - Set position to current location plus offset.
|
|
|
|
* SEEK_END - Set position to end-of-file plus offset. (To move to a position before the end-of-file, you need to pass a negative value in offset.)
|
|
|
|
* @return boolean TRUE if the position was updated, FALSE otherwise.
|
|
|
|
*/
|
|
|
|
function stream_seek ( $offset, $whence )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($offset,$whence)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return fseek($this->opened_stream,$offset,$whence);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to fflush() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* If you have cached data in your stream but not yet stored it into the underlying storage, you should do so now.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return booelan TRUE if the cached data was successfully stored (or if there was no data to store), or FALSE if the data could not be stored.
|
|
|
|
*/
|
|
|
|
function stream_flush ( )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."()");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (is_resource($this->opened_stream))
|
|
|
|
{
|
|
|
|
return fflush($this->opened_stream);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to fstat() calls on the stream.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* If you plan to use your wrapper in a require_once you need to define stream_stat().
|
2008-02-18 07:52:07 +01:00
|
|
|
* If you plan to allow any other tests like is_file()/is_dir(), you have to define url_stat().
|
2008-04-18 10:42:11 +02:00
|
|
|
* stream_stat() must define the size of the file, or it will never be included.
|
2008-02-18 07:52:07 +01:00
|
|
|
* url_stat() must define mode, or is_file()/is_dir()/is_executable(), and any of those functions affected by clearstatcache() simply won't work.
|
2008-04-18 10:42:11 +02:00
|
|
|
* It's not documented, but directories must be a mode like 040777 (octal), and files a mode like 0100666.
|
|
|
|
* If you wish the file to be executable, use 7s instead of 6s.
|
|
|
|
* The last 3 digits are exactly the same thing as what you pass to chmod.
|
|
|
|
* 040000 defines a directory, and 0100000 defines a file.
|
2008-02-18 07:52:07 +01:00
|
|
|
*
|
|
|
|
* @return array containing the same values as appropriate for the stream.
|
|
|
|
*/
|
|
|
|
function stream_stat ( )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($this->opened_path)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
return $this->url_stat($this->opened_path,0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to unlink() calls on URL paths associated with the wrapper.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* It should attempt to delete the item specified by path.
|
|
|
|
* In order for the appropriate error message to be returned, do not define this method if your wrapper does not support unlinking!
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @return boolean TRUE on success or FALSE on failure
|
|
|
|
*/
|
|
|
|
static function unlink ( $url,$operation=self::DEFAULT_OPERATION )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!($stat = self::url_stat($path,0)) || !egw_vfs::check_access(dirname($path),egw_vfs::WRITABLE))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url) (type=$type) permission denied!");
|
|
|
|
return false; // no permission or file does not exist
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('DELETE FROM '.self::TABLE.' WHERE fs_id=:fs_id');
|
|
|
|
unset(self::$stat_cache[$path]);
|
|
|
|
|
|
|
|
if (($ret = $stmt->execute(array(':fs_id' => $stat['ino']))) && $operation == self::STORE2FS)
|
|
|
|
{
|
|
|
|
unlink(self::_fs_path($path));
|
|
|
|
}
|
|
|
|
return $ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to rename() calls on URL paths associated with the wrapper.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* It should attempt to rename the item specified by path_from to the specification given by path_to.
|
2008-02-18 07:52:07 +01:00
|
|
|
* In order for the appropriate error message to be returned, do not define this method if your wrapper does not support renaming.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* The regular filesystem stream-wrapper returns an error, if $url_from and $url_to are not either both files or both dirs!
|
|
|
|
*
|
|
|
|
* @param string $url_from
|
|
|
|
* @param string $url_to
|
|
|
|
* @return boolean TRUE on success or FALSE on failure
|
|
|
|
*/
|
|
|
|
static function rename ( $url_from, $url_to, $operation=self::DEFAULT_OPERATION )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url_from,$url_to)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path_from = parse_url($url_from,PHP_URL_PATH);
|
|
|
|
$path_to = parse_url($url_to,PHP_URL_PATH);
|
2008-04-14 07:52:24 +02:00
|
|
|
$to_dir = dirname($path_to);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!($from_stat = self::url_stat($path_from,0)) || !egw_vfs::check_access(dirname($path_from),egw_vfs::WRITABLE))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url_from);
|
|
|
|
self::_remove_password($url_to);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url_from,$url_to): $path_from permission denied!");
|
|
|
|
return false; // no permission or file does not exist
|
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!egw_vfs::check_access($to_dir,egw_vfs::WRITABLE,$to_dir_stat = self::url_stat($to_dir,0)))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url_from);
|
|
|
|
self::_remove_password($url_to);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url_from,$url_to): $path_to permission denied!");
|
|
|
|
return false; // no permission or parent-dir does not exist
|
|
|
|
}
|
|
|
|
// the filesystem stream-wrapper does NOT allow to rename files to directories, as this makes problems
|
|
|
|
// for our vfs too, we abort here with an error, like the filesystem one does
|
2008-04-18 10:42:11 +02:00
|
|
|
if (($to_stat = self::url_stat($path_to,0)) &&
|
2008-02-18 07:52:07 +01:00
|
|
|
($to_stat['mime'] === self::DIR_MIME_TYPE) !== ($from_stat['mime'] === self::DIR_MIME_TYPE))
|
|
|
|
{
|
|
|
|
self::_remove_password($url_from);
|
|
|
|
self::_remove_password($url_to);
|
|
|
|
$is_dir = $to_stat['mime'] === self::DIR_MIME_TYPE ? 'a' : 'no';
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url_to,$url_from) $path_to is $is_dir directory!");
|
|
|
|
return false; // no permission or file does not exist
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_dir=:fs_dir,fs_name=:fs_name WHERE fs_id=:fs_id');
|
|
|
|
if (($ret = $stmt->execute(array(
|
|
|
|
':fs_dir' => $to_dir_stat['ino'],
|
|
|
|
':fs_name' => basename($path_to),
|
|
|
|
':fs_id' => $from_stat['ino'],
|
|
|
|
))) && $operation == self::STORE2FS)
|
|
|
|
{
|
|
|
|
rename(self::_fs_path($path_from),self::_fs_path($path_to));
|
|
|
|
}
|
|
|
|
unset(self::$stat_cache[$path_from]);
|
|
|
|
|
|
|
|
return $ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to mkdir() calls on URL paths associated with the wrapper.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* It should attempt to create the directory specified by path.
|
|
|
|
* In order for the appropriate error message to be returned, do not define this method if your wrapper does not support creating directories.
|
2008-02-18 07:52:07 +01:00
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $mode
|
|
|
|
* @param int $options Posible values include STREAM_REPORT_ERRORS and STREAM_MKDIR_RECURSIVE
|
|
|
|
* @return boolean TRUE on success or FALSE on failure
|
|
|
|
*/
|
|
|
|
static function mkdir ( $url, $mode, $options, $operation=self::DEFAULT_OPERATION )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$mode,$options)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
if (self::url_stat($path,STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."('$url',$mode,$options) already exist!");
|
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."('$url',$mode,$options) already exist!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
2008-02-18 07:52:07 +01:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
$parent = self::url_stat($parent_path=dirname($path),STREAM_URL_STAT_QUIET);
|
2008-02-18 07:52:07 +01:00
|
|
|
|
2008-04-18 10:42:11 +02:00
|
|
|
// check if we should also create all non-existing path components and our parent does not exist,
|
2008-02-18 07:52:07 +01:00
|
|
|
// if yes call ourself recursive with the parent directory
|
|
|
|
if (($options & STREAM_MKDIR_RECURSIVE) && $path != '/' && !$parent)
|
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!self::mkdir($parent_path,$mode,$options))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
return false;
|
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
$parent = self::url_stat($parent_path=dirname($path),0);
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!$parent || !egw_vfs::check_access($parent_path,egw_vfs::WRITABLE,$parent))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."('$url',$mode,$options) permission denied!");
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."('$url',$mode,$options) permission denied!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
return false; // no permission or file does not exist
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('INSERT INTO '.self::TABLE.' (fs_name,fs_dir,fs_mode,fs_uid,fs_gid,fs_size,fs_mime,fs_created,fs_modified,fs_creator'.
|
|
|
|
') VALUES (:fs_name,:fs_dir,:fs_mode,:fs_uid,:fs_gid,:fs_size,:fs_mime,:fs_created,:fs_modified,:fs_creator)');
|
|
|
|
if (($ret = $stmt->execute(array(
|
|
|
|
':fs_name' => basename($path),
|
|
|
|
':fs_dir' => $parent['ino'],
|
|
|
|
':fs_mode' => $parent['mode'],
|
|
|
|
':fs_uid' => $parent['uid'],
|
|
|
|
':fs_gid' => $parent['gid'],
|
|
|
|
':fs_size' => 0,
|
|
|
|
':fs_mime' => self::DIR_MIME_TYPE,
|
|
|
|
':fs_created' => self::_pdo_timestamp(time()),
|
|
|
|
':fs_modified' => self::_pdo_timestamp(time()),
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
':fs_creator' => egw_vfs::$user,
|
2008-02-18 07:52:07 +01:00
|
|
|
))) && $operation == self::STORE2FS)
|
|
|
|
{
|
2008-04-21 17:37:11 +02:00
|
|
|
$ok = mkdir($dir = self::_fs_path($path),0700,true); // we create all missing parent dirs, as eg. /home might not yet exist
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
return $ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to rmdir() calls on URL paths associated with the wrapper.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* It should attempt to remove the directory specified by path.
|
2008-02-18 07:52:07 +01:00
|
|
|
* In order for the appropriate error message to be returned, do not define this method if your wrapper does not support removing directories.
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $options Possible values include STREAM_REPORT_ERRORS.
|
|
|
|
* @return boolean TRUE on success or FALSE on failure.
|
|
|
|
*/
|
|
|
|
static function rmdir ( $url, $options, $operation=self::DEFAULT_OPERATION )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-14 07:52:24 +02:00
|
|
|
$parent = dirname($path);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!($stat = self::url_stat($path,0)) || $stat['mime'] != self::DIR_MIME_TYPE ||
|
2008-04-14 07:52:24 +02:00
|
|
|
!egw_vfs::check_access($parent,egw_vfs::WRITABLE))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$options) (type=$type) permission denied!");
|
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."('$url',$options) (type=$type) permission denied!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
return false; // no permission or file does not exist
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('SELECT COUNT(*) FROM '.self::TABLE.' WHERE fs_dir=?');
|
|
|
|
$stmt->execute(array($stat['ino']));
|
|
|
|
if ($stmt->fetchColumn())
|
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$options) dir is not empty!");
|
|
|
|
if (!($options & STREAM_URL_STAT_QUIET))
|
|
|
|
{
|
|
|
|
trigger_error(__METHOD__."('$url',$options) dir is not empty!",E_USER_WARNING);
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
unset(self::$stat_cache[$path]);
|
2008-04-24 17:19:42 +02:00
|
|
|
unset($stmt); // free statement object, on some installs a new prepare fails otherwise!
|
2008-02-18 07:52:07 +01:00
|
|
|
|
|
|
|
$stmt = self::$pdo->prepare('DELETE FROM '.self::TABLE.' WHERE fs_id=?');
|
|
|
|
if (($ret = $stmt->execute(array($stat['ino']))) && $operation == self::STORE2FS)
|
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
self::eacl($path,null,false,$stat['ino']); // remove all (=false) evtl. existing extended acl for that dir
|
2008-02-18 07:52:07 +01:00
|
|
|
rmdir(self::_fs_path($path));
|
|
|
|
}
|
|
|
|
return $ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This is not (yet) a stream-wrapper function, but it's necessary and can be used static
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $time=null modification time (unix timestamp), default null = current time
|
|
|
|
* @param int $atime=null access time (unix timestamp), default null = current time, not implemented in the vfs!
|
|
|
|
*/
|
|
|
|
static function touch($url,$time=null,$atime=null)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
if (!($stat = self::url_stat($path,STREAM_URL_STAT_QUIET)))
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
// file does not exist --> create an empty one
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!($f = fopen(self::SCHEME.'://default'.$path,'w')) || !fclose($f))
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
return false;
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
if (is_null($time))
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
return true; // new (empty) file created with current mod time
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
$stat = self::url_stat($path,0);
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_modified=:fs_modified WHERE fs_id=:fs_id');
|
|
|
|
|
|
|
|
return $stmt->execute(array(
|
|
|
|
':fs_modified' => self::_pdo_timestamp($time ? $time : time()),
|
|
|
|
':fs_id' => $stat['ino'],
|
|
|
|
));
|
|
|
|
}
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
|
|
|
|
/**
|
|
|
|
* Chown command, not yet a stream-wrapper function, but necessary
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $owner
|
|
|
|
* @return boolean
|
|
|
|
*/
|
|
|
|
static function chown($url,$owner)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$owner)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
|
|
|
|
|
|
|
if (!($stat = self::url_stat($path,0)))
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) no such file or directory!");
|
|
|
|
trigger_error("No such file or directory $url !",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if (!egw_vfs::$is_root)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) only root can do that!");
|
|
|
|
trigger_error("Only root can do that!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if ($owner < 0 || !$GLOBALS['egw']->accounts->id2name($owner)) // not a user
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) unknown (numeric) user id!");
|
|
|
|
trigger_error("Unknown (numeric) user id!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_uid=:fs_uid WHERE fs_id=:fs_id');
|
|
|
|
|
|
|
|
return $stmt->execute(array(
|
|
|
|
':fs_uid' => (int) $owner,
|
|
|
|
':fs_id' => $stat['ino'],
|
|
|
|
));
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Chgrp command, not yet a stream-wrapper function, but necessary
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $group
|
|
|
|
* @return boolean
|
|
|
|
*/
|
|
|
|
static function chgrp($url,$owner)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$owner)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
|
|
|
|
|
|
|
if (!($stat = self::url_stat($path,0)))
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) no such file or directory!");
|
|
|
|
trigger_error("No such file or directory $url !",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if (!egw_vfs::$is_root && $stat['uid'] != egw_vfs::$user)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) only owner or root can do that!");
|
|
|
|
trigger_error("Only owner or root can do that!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if ($owner < 0) $owner = -$owner; // sqlfs uses a positiv group id's!
|
|
|
|
|
|
|
|
if ($owner && !$GLOBALS['egw']->accounts->id2name(-$owner)) // not a group
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) unknown (numeric) group id!");
|
|
|
|
trigger_error("Unknown (numeric) group id!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_gid=:fs_gid WHERE fs_id=:fs_id');
|
|
|
|
|
|
|
|
return $stmt->execute(array(
|
|
|
|
':fs_gid' => $owner,
|
|
|
|
':fs_id' => $stat['ino'],
|
|
|
|
));
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
/**
|
|
|
|
* Chmod command, not yet a stream-wrapper function, but necessary
|
|
|
|
*
|
|
|
|
* @param string $url
|
|
|
|
* @param int $mode
|
|
|
|
* @return boolean
|
|
|
|
*/
|
|
|
|
static function chmod($url,$mode)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$owner)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
|
|
|
|
|
|
|
if (!($stat = self::url_stat($path,0)))
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) no such file or directory!");
|
|
|
|
trigger_error("No such file or directory $url !",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if (!egw_vfs::$is_root && $stat['uid'] != egw_vfs::$user)
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) only owner or root can do that!");
|
|
|
|
trigger_error("Only owner or root can do that!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
if (!is_numeric($mode)) // not a mode
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."($url,$owner) no (numeric) mode!");
|
|
|
|
trigger_error("No (numeric) mode!",E_USER_WARNING);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
$stmt = self::$pdo->prepare('UPDATE '.self::TABLE.' SET fs_mode=:fs_mode WHERE fs_id=:fs_id');
|
|
|
|
|
|
|
|
return $stmt->execute(array(
|
|
|
|
':fs_mode' => ((int) $mode) & 0777, // we dont store the file and dir bits, give int overflow!
|
|
|
|
':fs_id' => $stat['ino'],
|
|
|
|
));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
2008-04-18 10:42:11 +02:00
|
|
|
* This method is called immediately when your stream object is created for examining directory contents with opendir().
|
|
|
|
*
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
* @ToDo check all parent dirs for readable (fastest would be with sql query) !!!
|
2008-02-18 07:52:07 +01:00
|
|
|
* @param string $path URL that was passed to opendir() and that this object is expected to explore.
|
|
|
|
* @param $options
|
2008-04-18 10:42:11 +02:00
|
|
|
* @return booelan
|
2008-02-18 07:52:07 +01:00
|
|
|
*/
|
|
|
|
function dir_opendir ( $url, $options )
|
|
|
|
{
|
|
|
|
$this->opened_dir = null;
|
|
|
|
|
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!($stat = self::url_stat($url,0)) || // dir not found
|
|
|
|
$stat['mime'] != self::DIR_MIME_TYPE || // no dir
|
2008-04-14 07:52:24 +02:00
|
|
|
!egw_vfs::check_access($url,egw_vfs::EXECUTABLE|egw_vfs::READABLE,$stat)) // no access
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
$msg = $stat['mime'] != self::DIR_MIME_TYPE ? "$url is no directory" : 'permission denied';
|
|
|
|
if (self::LOG_LEVEL) error_log(__METHOD__."('$url',$options) $msg!");
|
|
|
|
$this->opened_dir = null;
|
|
|
|
return false;
|
|
|
|
}
|
2008-03-02 22:44:15 +01:00
|
|
|
$this->opened_dir = array();
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$query = 'SELECT fs_id,fs_name,fs_mode,fs_uid,fs_gid,fs_size,fs_mime,fs_created,fs_modified FROM '.self::TABLE.' WHERE fs_dir=?';
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
// only return readable files, if dir is not writable by user
|
2008-04-14 07:52:24 +02:00
|
|
|
/* to value/check the extended acl later on, we have to return all files!
|
|
|
|
if (egw_vfs::HIDE_UNREADABLES && !egw_vfs::check_access($url,egw_vfs::WRITABLE,$stat))
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
{
|
|
|
|
$query .= ' AND '.self::_sql_readable();
|
2008-04-14 07:52:24 +02:00
|
|
|
}*/
|
|
|
|
//$query = "/* sqlfs::dir_opendir($path) */ ".$query;
|
2008-03-02 22:44:15 +01:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$stmt = self::$pdo->prepare($query);
|
2008-02-18 07:52:07 +01:00
|
|
|
$stmt->setFetchMode(PDO::FETCH_ASSOC);
|
|
|
|
if ($stmt->execute(array($stat['ino'])))
|
|
|
|
{
|
|
|
|
foreach($stmt as $file)
|
|
|
|
{
|
|
|
|
$this->opened_dir[] = $file['fs_name'];
|
2008-04-14 07:52:24 +02:00
|
|
|
self::$stat_cache[egw_vfs::concat($path,$file['fs_name'])] = $file;
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$options): ".implode(', ',$this->opened_dir));
|
2008-02-18 07:52:07 +01:00
|
|
|
//print_r($this->opened_dir);
|
|
|
|
reset($this->opened_dir);
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* This method is called in response to stat() calls on the URL paths associated with the wrapper.
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* It should return as many elements in common with the system function as possible.
|
2008-02-18 07:52:07 +01:00
|
|
|
* Unknown or unavailable values should be set to a rational value (usually 0).
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* If you plan to use your wrapper in a require_once you need to define stream_stat().
|
2008-02-18 07:52:07 +01:00
|
|
|
* If you plan to allow any other tests like is_file()/is_dir(), you have to define url_stat().
|
2008-04-18 10:42:11 +02:00
|
|
|
* stream_stat() must define the size of the file, or it will never be included.
|
2008-02-18 07:52:07 +01:00
|
|
|
* url_stat() must define mode, or is_file()/is_dir()/is_executable(), and any of those functions affected by clearstatcache() simply won't work.
|
2008-04-18 10:42:11 +02:00
|
|
|
* It's not documented, but directories must be a mode like 040777 (octal), and files a mode like 0100666.
|
|
|
|
* If you wish the file to be executable, use 7s instead of 6s.
|
|
|
|
* The last 3 digits are exactly the same thing as what you pass to chmod.
|
|
|
|
* 040000 defines a directory, and 0100000 defines a file.
|
2008-02-18 07:52:07 +01:00
|
|
|
*
|
|
|
|
* @param string $path
|
|
|
|
* @param int $flags holds additional flags set by the streams API. It can hold one or more of the following values OR'd together:
|
2008-04-18 10:42:11 +02:00
|
|
|
* - STREAM_URL_STAT_LINK For resources with the ability to link to other resource (such as an HTTP Location: forward,
|
|
|
|
* or a filesystem symlink). This flag specified that only information about the link itself should be returned,
|
|
|
|
* not the resource pointed to by the link.
|
2008-02-18 07:52:07 +01:00
|
|
|
* This flag is set in response to calls to lstat(), is_link(), or filetype().
|
2008-04-18 10:42:11 +02:00
|
|
|
* - STREAM_URL_STAT_QUIET If this flag is set, your wrapper should not raise any errors. If this flag is not set,
|
2008-02-18 07:52:07 +01:00
|
|
|
* you are responsible for reporting errors using the trigger_error() function during stating of the path.
|
|
|
|
* stat triggers it's own warning anyway, so it makes no sense to trigger one by our stream-wrapper!
|
2008-04-14 07:52:24 +02:00
|
|
|
* @param boolean $eacl_access=null allows extending classes to pass the value of their check_extended_acl() method (no lsb!)
|
2008-04-18 10:42:11 +02:00
|
|
|
* @return array
|
2008-02-18 07:52:07 +01:00
|
|
|
*/
|
2008-04-14 07:52:24 +02:00
|
|
|
static function url_stat ( $url, $flags, $eacl_access=null )
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."('$url',$flags)");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
// webdav adds a trailing slash to dirs, which causes url_stat to NOT find the file otherwise
|
|
|
|
if ($path != '/' && substr($path,-1) == '/')
|
|
|
|
{
|
|
|
|
$path = substr($path,0,-1);
|
|
|
|
}
|
|
|
|
// check if we already have the info from the last dir_open call, as the old vfs reads it anyway from the db
|
|
|
|
if (self::$stat_cache && isset(self::$stat_cache[$path]))
|
|
|
|
{
|
|
|
|
return self::_vfsinfo2stat(self::$stat_cache[$path]);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!is_object(self::$pdo))
|
|
|
|
{
|
|
|
|
self::_pdo();
|
|
|
|
}
|
|
|
|
$base_query = 'SELECT fs_id,fs_name,fs_mode,fs_uid,fs_gid,fs_size,fs_mime,fs_created,fs_modified FROM '.self::TABLE.' WHERE fs_name=? AND fs_dir=';
|
|
|
|
$parts = explode('/',$path);
|
2008-04-14 07:52:24 +02:00
|
|
|
|
|
|
|
// if we have extendes acl access to the url, we dont need and can NOT include the sql for the readable check
|
|
|
|
if (is_null($eacl_access))
|
|
|
|
{
|
|
|
|
$eacl_access = self::check_extended_acl($path,egw_vfs::READABLE); // should be static::check_extended_acl, but no lsb!
|
|
|
|
}
|
2008-02-18 07:52:07 +01:00
|
|
|
foreach($parts as $n => $name)
|
|
|
|
{
|
|
|
|
if ($n == 0)
|
|
|
|
{
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
$query = (int) ($path != '/'); // / always has fs_id == 1, no need to query it ($path=='/' needs fs_dir=0!)
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
elseif ($n < count($parts)-1)
|
|
|
|
{
|
|
|
|
$query = 'SELECT fs_id FROM '.self::TABLE.' WHERE fs_dir=('.$query.') AND fs_name='.self::$pdo->quote($name);
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
// if we are not root AND have no extended acl access, we need to make sure the user has the right to tranverse all parent directories (read-rights)
|
|
|
|
if (!egw_vfs::$is_root && !$eacl_access)
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!egw_vfs::$user)
|
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."('$url',$flags) permission denied, no user-id and not root!");
|
|
|
|
return false;
|
|
|
|
}
|
2008-02-29 08:23:14 +01:00
|
|
|
$query .= ' AND '.self::_sql_readable();
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
}
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
$query = str_replace('fs_name=?','fs_name='.self::$pdo->quote($name),$base_query).'('.$query.')';
|
|
|
|
}
|
|
|
|
}
|
2008-04-14 07:52:24 +02:00
|
|
|
//$query = "/* sqlfs::url_stat($path) */ ".$query;
|
2008-02-18 07:52:07 +01:00
|
|
|
//echo "query=$query\n";
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!($result = self::$pdo->query($query)) || !($info = $result->fetch(PDO::FETCH_ASSOC)))
|
|
|
|
{
|
|
|
|
self::_remove_password($url);
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."('$url',$flags) file or directory not found!");
|
2008-02-18 07:52:07 +01:00
|
|
|
return false;
|
|
|
|
}
|
|
|
|
self::$stat_cache[$path] = $info;
|
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."($url,$flags)=".str_replace("\n",'',print_r($info,true)));
|
2008-02-18 07:52:07 +01:00
|
|
|
return self::_vfsinfo2stat($info);
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
More improvments of the sqlfs code and the command line interface:
- read rights are not checks in each traversed directory (via sql in a single query to locate the path)
- diropen additionally checks for execute rights
- fopen checks for read or write depending on the mode
- chmod, chgrp, chown methods in sqlfs and egw_vfs/vfs plus an egw_vfs::$is_root var used to grant root rights (no access controll and chown or chgrp without being the owner of a file)
- find method (some more params to come) to recursivly search and optionaly execute some callback
- egw_vfs::remove doing a "rm -r" / recursive remove or dirs and files
- new files or dirs inherit the perms and ownership from the parent directory (no umask)
- files/dirs the user has no read rights, in a directory where he has no write rights, get hidden (eg. not showing all the other users / groups home dirs
- many new cli commands (chmod, chgrp, chown, find), recursive option for most commands and the ability to use it with root rights, see the usage message if called without options
- "cp -r -p" to copy a whole tree incl. ownership and perms, eg. backing up /home to /backup
2008-02-26 09:51:42 +01:00
|
|
|
/**
|
|
|
|
* Return readable check as sql (to be AND'ed into the query), only use if !egw_vfs::$is_root
|
|
|
|
*
|
|
|
|
* @return string
|
|
|
|
*/
|
|
|
|
private function _sql_readable()
|
|
|
|
{
|
|
|
|
static $sql_read_acl;
|
|
|
|
|
|
|
|
if (is_null($sql_read_acl))
|
|
|
|
{
|
|
|
|
foreach($GLOBALS['egw']->accounts->memberships(egw_vfs::$user,true) as $gid)
|
|
|
|
{
|
|
|
|
$memberships[] = abs($gid); // sqlfs stores the gid's positiv
|
|
|
|
}
|
|
|
|
$sql_read_acl = '(fs_mode & 04 OR fs_mode & 0400 AND fs_uid='.(int)egw_vfs::$user.
|
|
|
|
' OR fs_mode & 040 AND fs_gid IN('.implode(',',$memberships).'))';
|
|
|
|
}
|
|
|
|
return $sql_read_acl;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* This method is called in response to readdir().
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* It should return a string representing the next filename in the location opened by dir_opendir().
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return string
|
|
|
|
*/
|
|
|
|
function dir_readdir ( )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."( )");
|
|
|
|
|
|
|
|
if (!is_array($this->opened_dir)) return false;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$file = current($this->opened_dir); next($this->opened_dir);
|
2008-03-02 22:44:15 +01:00
|
|
|
|
|
|
|
return $file;
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* This method is called in response to rewinddir().
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* It should reset the output generated by dir_readdir(). i.e.:
|
2008-02-18 07:52:07 +01:00
|
|
|
* The next call to dir_readdir() should return the first entry in the location returned by dir_opendir().
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return boolean
|
|
|
|
*/
|
2008-04-18 10:42:11 +02:00
|
|
|
function dir_rewinddir ( )
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."( )");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!is_array($this->opened_dir)) return false;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
reset($this->opened_dir);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
return true;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* This method is called in response to closedir().
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
|
|
|
* You should release any resources which were locked or allocated during the opening and use of the directory stream.
|
|
|
|
*
|
2008-02-18 07:52:07 +01:00
|
|
|
* @return boolean
|
|
|
|
*/
|
|
|
|
function dir_closedir ( )
|
|
|
|
{
|
|
|
|
if (self::LOG_LEVEL > 1) error_log(__METHOD__."( )");
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if (!is_array($this->opened_dir)) return false;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
$this->opened_dir = null;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
return true;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
private static $extended_acl;
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Check if extendes ACL (stored in eGW's ACL table) grants access
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-04-14 07:52:24 +02:00
|
|
|
* The extended ACL is inherited, so it's valid for all subdirs and the included files!
|
|
|
|
* The used algorithm break on the first match. It could be used, to disallow further access.
|
|
|
|
*
|
|
|
|
* @param string $url url to check
|
|
|
|
* @param int $check mode to check: one or more or'ed together of: 4 = read, 2 = write, 1 = executable
|
|
|
|
* @return boolean
|
|
|
|
*/
|
|
|
|
static function check_extended_acl($url,$check)
|
|
|
|
{
|
|
|
|
$url_path = parse_url($url,PHP_URL_PATH);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if (is_null(self::$extended_acl))
|
|
|
|
{
|
|
|
|
self::_read_extended_acl();
|
|
|
|
}
|
|
|
|
$access = false;
|
|
|
|
foreach(self::$extended_acl as $path => $rights)
|
|
|
|
{
|
|
|
|
if ($path == $url_path || substr($url_path,0,strlen($path)+1) == $path.'/')
|
|
|
|
{
|
|
|
|
$access = ($rights & $check) == $check;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
//error_log(__METHOD__."($url,$check) ".($access?"access granted by $path=$rights":'no access!!!'));
|
|
|
|
return $access;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
/**
|
|
|
|
* Read the extended acl via acl::get_grants('sqlfs')
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
private static function _read_extended_acl()
|
|
|
|
{
|
|
|
|
if ((self::$extended_acl = $GLOBALS['egw']->session->appsession('extended_acl',self::EACL_APPNAME)) != false)
|
|
|
|
{
|
|
|
|
return; // ext. ACL read from session.
|
|
|
|
}
|
|
|
|
self::$extended_acl = array();
|
|
|
|
if (($rights = $GLOBALS['egw']->acl->get_all_location_rights(egw_vfs::$user,self::EACL_APPNAME)))
|
|
|
|
{
|
|
|
|
$pathes = self::id2path(array_keys($rights));
|
|
|
|
}
|
|
|
|
foreach($rights as $fs_id => $right)
|
|
|
|
{
|
|
|
|
$path = $pathes[$fs_id];
|
|
|
|
if (isset($path))
|
|
|
|
{
|
|
|
|
self::$extended_acl[$path] = (int)$right;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// sort by length descending, to allow more specific pathes to have precedence
|
|
|
|
uksort(self::$extended_acl,create_function('$a,$b','return strlen($b)-strlen($a);'));
|
|
|
|
$GLOBALS['egw']->session->appsession('extended_acl',self::EACL_APPNAME,self::$extended_acl);
|
|
|
|
//echo __METHOD__; print_r(self::$extended_acl);
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
/**
|
|
|
|
* Appname used with the acl class to store the extended acl
|
|
|
|
*/
|
|
|
|
const EACL_APPNAME = 'sqlfs';
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Set or delete extended acl for a given path and owner (or delete them if is_null($rights)
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-04-14 07:52:24 +02:00
|
|
|
* Only root, the owner of the path or an eGW admin (only if there's no owner but a group) are allowd to set eACL's!
|
|
|
|
*
|
|
|
|
* @param string $path string with path
|
|
|
|
* @param int $rights=null rights to set, or null to delete the entry
|
|
|
|
* @param int/boolean $owner=null owner for whom to set the rights, null for the current user, or false to delete all rights for $path
|
|
|
|
* @param int $fs_id=null fs_id to use, to not query it again (eg. because it's already deleted)
|
|
|
|
* @return boolean true if acl is set/deleted, false on error
|
|
|
|
*/
|
|
|
|
static function eacl($path,$rights=null,$owner=null,$fs_id=null)
|
|
|
|
{
|
|
|
|
if ($path[0] != '/')
|
|
|
|
{
|
|
|
|
$path = parse_url($path,PHP_URL_PATH);
|
|
|
|
}
|
|
|
|
if (is_null($fs_id))
|
|
|
|
{
|
|
|
|
if (!($stat = self::url_stat($path,0)))
|
|
|
|
{
|
|
|
|
error_log(__METHOD__."($path,$rights,$owner,$fs_id) no such file or directory!");
|
|
|
|
return false; // $path not found
|
|
|
|
}
|
|
|
|
if (!egw_vfs::has_owner_rights($path,$stat)) // not group dir and user is eGW admin
|
|
|
|
{
|
|
|
|
error_log(__METHOD__."($path,$rights,$owner,$fs_id) permission denied!");
|
|
|
|
return false; // permission denied
|
|
|
|
}
|
|
|
|
$fs_id = $stat['ino'];
|
|
|
|
}
|
|
|
|
if (is_null($owner))
|
|
|
|
{
|
|
|
|
$owner = egw_vfs::$user;
|
|
|
|
}
|
|
|
|
if (is_null($rights) || $owner === false)
|
|
|
|
{
|
|
|
|
// delete eacl
|
|
|
|
if (is_null($owner) || $owner == egw_vfs::$user)
|
|
|
|
{
|
|
|
|
unset(self::$extended_acl[$path]);
|
|
|
|
}
|
|
|
|
$ret = $GLOBALS['egw']->acl->delete_repository(self::EACL_APPNAME,$fs_id,(int)$owner);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2008-04-18 10:42:11 +02:00
|
|
|
if (isset(self::$extended_acl) && ($owner == egw_vfs::$user ||
|
2008-04-14 07:52:24 +02:00
|
|
|
$owner < 0 && egw_vfs::$user && in_array($owner,$GLOBALS['egw']->accounts->memberships(egw_vfs::$user,true))))
|
|
|
|
{
|
|
|
|
// set rights for this class, if applicable
|
|
|
|
self::$extended_acl[$path] = $rights;
|
|
|
|
}
|
|
|
|
$ret = $GLOBALS['egw']->acl->add_repository(self::EACL_APPNAME,$fs_id,$owner,$rights);
|
|
|
|
}
|
|
|
|
if ($ret)
|
|
|
|
{
|
2008-04-18 10:42:11 +02:00
|
|
|
$GLOBALS['egw']->session->appsession('extended_acl',self::EACL_APPNAME,self::$extended_acl);
|
2008-04-14 07:52:24 +02:00
|
|
|
}
|
|
|
|
//error_log(__METHOD__."($path,$rights,$owner,$fs_id)=".(int)$ret);
|
|
|
|
return $ret;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
/**
|
|
|
|
* Get all ext. ACL set for a path
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-04-14 07:52:24 +02:00
|
|
|
* Calls itself recursive, to get the parent directories
|
|
|
|
*
|
|
|
|
* @param string $path
|
|
|
|
* @return array/boolean array with array('path'=>$path,'owner'=>$owner,'rights'=>$rights) or false if $path not found
|
|
|
|
*/
|
|
|
|
function get_eacl($path)
|
|
|
|
{
|
|
|
|
if (!($stat = self::url_stat($path,STREAM_URL_STAT_QUIET)))
|
|
|
|
{
|
|
|
|
return false; // not found
|
|
|
|
}
|
|
|
|
$eacls = array();
|
|
|
|
foreach($GLOBALS['egw']->acl->get_all_rights($stat['ino'],self::EACL_APPNAME) as $owner => $rights)
|
|
|
|
{
|
|
|
|
$eacls[] = array(
|
|
|
|
'path' => $path,
|
|
|
|
'owner' => $owner,
|
|
|
|
'rights' => $rights,
|
|
|
|
'ino' => $stat['ino'],
|
|
|
|
);
|
|
|
|
}
|
|
|
|
if (($path = egw_vfs::dirname($path)))
|
|
|
|
{
|
|
|
|
return array_merge(self::get_eacl($path),$eacls);
|
|
|
|
}
|
|
|
|
// sort by length descending, to show precedence
|
|
|
|
usort($eacls,create_function('$a,$b','return strlen($b["path"])-strlen($a["path"]);'));
|
|
|
|
|
|
|
|
return $eacls;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
/**
|
|
|
|
* Return the path of given fs_id(s)
|
2008-04-18 10:42:11 +02:00
|
|
|
*
|
2008-04-14 07:52:24 +02:00
|
|
|
* Calls itself recursive to to determine the path of the parent/directory
|
|
|
|
*
|
|
|
|
* @param int/array $fs_ids integer fs_id or array of them
|
|
|
|
* @return string/array path or array or pathes indexed by fs_id
|
|
|
|
*/
|
|
|
|
static function id2path($fs_ids)
|
|
|
|
{
|
|
|
|
//error_log(__METHOD__.'('.print_r($fs_id,true).')');
|
|
|
|
|
|
|
|
$ids = (array)$fs_ids;
|
|
|
|
if (count($ids) > 1) array_map(create_function('&$v','$v = (int)$v;'),$ids);
|
|
|
|
$query = 'SELECT fs_id,fs_dir,fs_name FROM '.self::TABLE.' WHERE fs_id'.
|
|
|
|
(count($ids) == 1 ? '='.(int)$ids[0] : ' IN ('.implode(',',$ids).')');
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if (!is_object(self::$pdo))
|
|
|
|
{
|
|
|
|
self::_pdo();
|
|
|
|
}
|
|
|
|
//$query = '/* sqlfs::id2path('.implode(',',$ids).') */ '.$query;
|
|
|
|
$stmt = self::$pdo->prepare($query);
|
|
|
|
$stmt->setFetchMode(PDO::FETCH_ASSOC);
|
|
|
|
if (!$stmt->execute())
|
|
|
|
{
|
|
|
|
return false; // not found
|
|
|
|
}
|
|
|
|
$parents = array();
|
|
|
|
foreach($stmt as $row)
|
|
|
|
{
|
|
|
|
if ($row['fs_dir'] > 1 && !in_array($row['fs_dir'],$parents))
|
|
|
|
{
|
|
|
|
$parents[] = $row['fs_dir'];
|
|
|
|
}
|
|
|
|
$rows[$row['fs_id']] = $row;
|
|
|
|
}
|
|
|
|
unset($stmt);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
if ($parents && !($parents = self::id2path($parents)))
|
|
|
|
{
|
|
|
|
return false; // parent not found, should never happen ...
|
|
|
|
}
|
|
|
|
$pathes = array();
|
|
|
|
foreach($rows as $fs_id => $row)
|
|
|
|
{
|
|
|
|
$parent = $row['fs_dir'] > 1 ? $parents[$row['fs_dir']] : '';
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
$pathes[$fs_id] = $parent . '/' . $row['fs_name'];
|
|
|
|
}
|
|
|
|
//error_log(__METHOD__.'('.print_r($fs_ids,true).')='.print_r($pathes,true));
|
|
|
|
return is_array($fs_ids) ? $pathes : array_shift($pathes);
|
|
|
|
}
|
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* Convert a sqlfs-file-info into a stat array
|
|
|
|
*
|
|
|
|
* @param array $info
|
|
|
|
* @return array
|
|
|
|
*/
|
|
|
|
static private function _vfsinfo2stat($info)
|
|
|
|
{
|
|
|
|
$stat = array(
|
|
|
|
'ino' => $info['fs_id'],
|
|
|
|
'name' => $info['fs_name'],
|
2008-04-18 10:42:11 +02:00
|
|
|
'mode' => $info['fs_mode'] |
|
2008-02-18 07:52:07 +01:00
|
|
|
($info['fs_mime'] == self::DIR_MIME_TYPE ? self::MODE_DIR : self::MODE_FILE), // required by the stream wrapper
|
|
|
|
'size' => $info['fs_size'],
|
|
|
|
'uid' => $info['fs_uid'],
|
|
|
|
'gid' => $info['fs_gid'],
|
|
|
|
'mtime' => strtotime($info['fs_modified']),
|
|
|
|
'ctime' => strtotime($info['fs_created']),
|
|
|
|
'nlink' => $info['fs_mime'] == self::DIR_MIME_TYPE ? 2 : 1,
|
|
|
|
// eGW addition to return the mime type
|
|
|
|
'mime' => $info['fs_mime'],
|
|
|
|
);
|
|
|
|
//error_log(__METHOD__."($info[name]) = ".print_r($stat,true));
|
|
|
|
return $stat;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* Create pdo object / connection, as long as pdo is not generally used in eGW
|
|
|
|
*
|
|
|
|
* @return PDO
|
|
|
|
*/
|
|
|
|
static private function _pdo()
|
|
|
|
{
|
2008-04-14 07:52:24 +02:00
|
|
|
$egw_db = isset($GLOBALS['egw_setup']) ? $GLOBALS['egw_setup']->db : $GLOBALS['egw']->db;
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-04-14 07:52:24 +02:00
|
|
|
switch($egw_db->Type)
|
2008-02-18 07:52:07 +01:00
|
|
|
{
|
2008-04-18 10:42:11 +02:00
|
|
|
case 'mysqlt':
|
2008-04-18 11:08:38 +02:00
|
|
|
$type = 'mysql';
|
2008-04-18 10:42:11 +02:00
|
|
|
break;
|
2008-02-18 07:52:07 +01:00
|
|
|
default:
|
2008-04-18 11:08:38 +02:00
|
|
|
$type = $egw_db->Type;
|
2008-02-18 07:52:07 +01:00
|
|
|
break;
|
|
|
|
}
|
2008-04-18 11:08:38 +02:00
|
|
|
switch($type)
|
|
|
|
{
|
|
|
|
default:
|
|
|
|
$dsn = $egw_db->Type.':host='.$egw_db->Host.';port='.$egw_db->Port.';dbname='.$egw_db->Database;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
try {
|
|
|
|
self::$pdo = new PDO($dsn,$egw_db->User,$egw_db->Password);
|
|
|
|
} catch(Exception $e) {
|
|
|
|
// Exception reveals password, so we ignore the exception and connect again without pw, to get the right exception without pw
|
|
|
|
self::$pdo = new PDO($dsn,$egw_db->User,'$egw_db->Password');
|
|
|
|
}
|
2008-03-02 22:44:15 +01:00
|
|
|
// set client charset of the connection
|
|
|
|
$charset = $GLOBALS['egw']->translation->charset();
|
|
|
|
switch($server['db_type'])
|
|
|
|
{
|
|
|
|
case 'mysql':
|
2008-04-14 07:52:24 +02:00
|
|
|
if (isset($egw_db->Link_ID->charset2mysql[$charset])) $charset = $egw_db->Link_ID->charset2mysql[$charset];
|
2008-03-02 22:44:15 +01:00
|
|
|
// fall throught
|
|
|
|
case 'pgsql':
|
|
|
|
$query = "SET NAMES '$charset'";
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if ($query)
|
|
|
|
{
|
|
|
|
self::$pdo->exec($query);
|
|
|
|
}
|
|
|
|
return self::$pdo;
|
2008-02-18 07:52:07 +01:00
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* Just a little abstration 'til I know how to organise stuff like that with PDO
|
|
|
|
*
|
|
|
|
* @param mixed $time
|
|
|
|
* @return string Y-m-d H:i:s
|
|
|
|
*/
|
|
|
|
static private function _pdo_timestamp($time)
|
|
|
|
{
|
|
|
|
if (is_numeric($time))
|
|
|
|
{
|
|
|
|
$time = date('Y-m-d H:i:s',$time);
|
|
|
|
}
|
|
|
|
return $time;
|
|
|
|
}
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
/**
|
|
|
|
* Return the path of the stored content of a file if $this->operation == self::STORE2FS
|
|
|
|
*
|
|
|
|
* @param string $path
|
|
|
|
* @return string
|
|
|
|
*/
|
|
|
|
static private function _fs_path($path)
|
|
|
|
{
|
2008-04-21 17:37:11 +02:00
|
|
|
if (!isset($GLOBALS['egw_info']['server']['files_dir']) || $GLOBALS['egw_info']['server']['files_dir'])
|
|
|
|
{
|
|
|
|
if (is_object($GLOBALS['egw_setup']->db)) // if we run under setup, query the db for the files dir
|
|
|
|
{
|
|
|
|
$GLOBALS['egw_info']['server']['files_dir'] = $GLOBALS['egw_setup']->db->select('egw_config','config_value',array(
|
|
|
|
'config_name' => 'files_dir',
|
|
|
|
'config_app' => 'phpgwapi',
|
|
|
|
),__LINE__,__FILE__)->fetchSingle();
|
|
|
|
}
|
|
|
|
if (!$GLOBALS['egw_info']['server']['files_dir'])
|
|
|
|
{
|
|
|
|
throw new egw_exception_assertion_failed("\$GLOBALS['egw_info']['server']['files_dir'] not set!");
|
|
|
|
}
|
|
|
|
}
|
2008-02-18 07:52:07 +01:00
|
|
|
return $GLOBALS['egw_info']['server']['files_dir'].$path;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Replace the password of an url with '...' for error messages
|
|
|
|
*
|
|
|
|
* @param string &$url
|
|
|
|
*/
|
|
|
|
static private function _remove_password(&$url)
|
|
|
|
{
|
|
|
|
$parts = parse_url($url);
|
2008-04-18 10:42:11 +02:00
|
|
|
|
2008-02-18 07:52:07 +01:00
|
|
|
if ($parts['pass'] || $parts['scheme'])
|
|
|
|
{
|
|
|
|
$url = $parts['scheme'].'://'.($parts['user'] ? $parts['user'].($parts['pass']?':...':'').'@' : '').
|
|
|
|
$parts['host'].$parts['path'];
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
stream_register_wrapper(sqlfs_stream_wrapper::SCHEME ,'sqlfs_stream_wrapper');
|