867 lines
28 KiB
PHP
867 lines
28 KiB
PHP
<?php
|
|
/*------------------------------------------------------------------------------
|
|
|
|
Copyright (c) 2004 Media Development Loan Fund
|
|
|
|
This file is part of the LiveSupport project.
|
|
http://livesupport.campware.org/
|
|
To report bugs, send an e-mail to bugs@campware.org
|
|
|
|
LiveSupport is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
LiveSupport is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with LiveSupport; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
|
|
Author : $Author: tomas $
|
|
Version : $Revision: 1.10 $
|
|
Location : $Source: /home/paul/cvs2svn-livesupport/newcvsrepo/livesupport/modules/storageServer/var/BasicStor.php,v $
|
|
|
|
------------------------------------------------------------------------------*/
|
|
define('GBERR_DENY', 40);
|
|
define('GBERR_FILEIO', 41);
|
|
define('GBERR_FILENEX', 42);
|
|
define('GBERR_FOBJNEX', 43);
|
|
define('GBERR_WRTYPE', 44);
|
|
define('GBERR_NONE', 45);
|
|
define('GBERR_AOBJNEX', 46);
|
|
define('GBERR_NOTF', 47);
|
|
|
|
define('GBERR_NOTIMPL', 50);
|
|
|
|
require_once "../../../alib/var/alib.php";
|
|
require_once "StoredFile.php";
|
|
require_once "Transport.php";
|
|
|
|
/**
|
|
* BasicStor class
|
|
*
|
|
* Core of LiveSupport file storage module
|
|
*
|
|
* @author $Author: tomas $
|
|
* @version $Revision: 1.10 $
|
|
* @see Alib
|
|
*/
|
|
class BasicStor extends Alib{
|
|
var $filesTable;
|
|
var $mdataTable;
|
|
var $accessTable;
|
|
var $storageDir;
|
|
var $bufferDir;
|
|
var $accessDir;
|
|
var $rootId;
|
|
var $storId;
|
|
var $doDebug = true;
|
|
|
|
/**
|
|
* Constructor
|
|
*
|
|
* @param dbc PEAR::db abstract class reference
|
|
* @param config config array from conf.php
|
|
* @return class instance
|
|
*/
|
|
function BasicStor(&$dbc, $config)
|
|
{
|
|
parent::Alib(&$dbc, $config);
|
|
$this->config = $config;
|
|
$this->filesTable = $config['tblNamePrefix'].'files';
|
|
$this->mdataTable = $config['tblNamePrefix'].'mdata';
|
|
$this->accessTable= $config['tblNamePrefix'].'access';
|
|
$this->storageDir = $config['storageDir'];
|
|
$this->bufferDir = $config['bufferDir'];
|
|
$this->transDir = $config['transDir'];
|
|
$this->accessDir = $config['accessDir'];
|
|
$this->dbc->setErrorHandling(PEAR_ERROR_RETURN);
|
|
$this->rootId = $this->getRootNode();
|
|
$this->storId = $this->wd =
|
|
$this->getObjId('StorageRoot', $this->rootId);
|
|
$this->dbc->setErrorHandling();
|
|
}
|
|
|
|
/**
|
|
* Create new folder
|
|
*
|
|
* @param parid int, parent id
|
|
* @param folderName string, name for new folder
|
|
* @return id of new folder
|
|
* @exception PEAR::error
|
|
*/
|
|
function bsCreateFolder($parid, $folderName)
|
|
{
|
|
return $this->addObj($folderName , 'Folder', $parid);
|
|
}
|
|
|
|
/**
|
|
* Store new file in the storage
|
|
*
|
|
* @param parid int, parent id
|
|
* @param fileName string, name for new file
|
|
* @param mediaFileLP string, local path of media file
|
|
* @param mdataFileLP string, local path of metadata file
|
|
* @param gunid string, global unique id OPTIONAL
|
|
* @param ftype string, internal file type
|
|
* @return int
|
|
* @exception PEAR::error
|
|
*/
|
|
function bsPutFile($parid, $fileName,
|
|
$mediaFileLP, $mdataFileLP, $gunid=NULL, $ftype='unKnown')
|
|
{
|
|
$name = "$fileName";
|
|
$id = $this->addObj($name , 'File', $parid);
|
|
$ac =& StoredFile::insert(
|
|
&$this, $id, $name, $mediaFileLP, $mdataFileLP, 'file',
|
|
$gunid, $ftype
|
|
);
|
|
if(PEAR::isError($ac)) return $ac;
|
|
return $id;
|
|
}
|
|
|
|
/**
|
|
* Analyze media file for internal metadata information
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @return array
|
|
*/
|
|
function bsAnalyzeFile($id)
|
|
{
|
|
$ac =& StoredFile::recall(&$this, $id);
|
|
if(PEAR::isError($ac)) return $ac;
|
|
$ia = $ac->analyzeMediaFile();
|
|
return $ia;
|
|
}
|
|
|
|
/**
|
|
* Rename file
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param newName string
|
|
* @return boolean or PEAR::error
|
|
*/
|
|
function bsRenameFile($id, $newName)
|
|
{
|
|
$parid = $this->getParent($id);
|
|
$ac =& StoredFile::recall(&$this, $id);
|
|
if(PEAR::isError($ac)){
|
|
// catch nonerror exception:
|
|
if($ac->getCode() != GBERR_FOBJNEX) return $ac;
|
|
}
|
|
$res = $ac->rename($newName);
|
|
if(PEAR::isError($res)) return $res;
|
|
return $this->renameObj($id, $newName);
|
|
}
|
|
|
|
/**
|
|
* Move file
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param did int, destination folder local id
|
|
* @return boolean or PEAR::error
|
|
*/
|
|
function bsMoveFile($id, $did)
|
|
{
|
|
if($this->getObjType($did) !== 'Folder')
|
|
return PEAR::raiseError(
|
|
'BasicStor::moveFile: destination is not folder', GBERR_WRTYPE
|
|
);
|
|
$this->_relocateSubtree($id, $did);
|
|
}
|
|
|
|
/**
|
|
* Copy file
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param did int, destination folder local id
|
|
* @return boolean or PEAR::error
|
|
*/
|
|
function bsCopyFile($id, $did)
|
|
{
|
|
if($this->getObjType($did) !== 'Folder')
|
|
return PEAR::raiseError(
|
|
'BasicStor::bsCopyFile: destination is not folder', GBERR_WRTYPE
|
|
);
|
|
return $this->_copySubtree($id, $did);
|
|
}
|
|
|
|
/**
|
|
* Delete file
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @return true or PEAR::error
|
|
*/
|
|
function bsDeleteFile($id)
|
|
{
|
|
$parid = $this->getParent($id);
|
|
$res = $this->removeObj($id);
|
|
if(PEAR::isError($res)) return $res;
|
|
return TRUE;
|
|
}
|
|
|
|
/* ----------------------------------------------------- put, access etc. */
|
|
/**
|
|
* Check validity of asscess/put token
|
|
*
|
|
* @param token string, access/put token
|
|
* @param type string 'put'|'access'|'download'
|
|
* @return boolean
|
|
*/
|
|
function bsCheckToken($token, $type='put')
|
|
{
|
|
$cnt = $this->dbc->getOne("
|
|
SELECT count(token) FROM {$this->accessTable}
|
|
WHERE token=x'{$token}'::bigint AND type='$type'
|
|
");
|
|
if(PEAR::isError($cnt)){ return FALSE; }
|
|
return ($cnt == 1);
|
|
}
|
|
|
|
/**
|
|
* Create and return access link to real file
|
|
*
|
|
* @param realFname string, local filepath to accessed file
|
|
* @param ext string, useful filename extension for accessed file
|
|
* @param gunid int, global unique id
|
|
* @param sessid string, session id
|
|
* @param type string 'access'|'download'
|
|
* @return array with: seekable filehandle, access token
|
|
*/
|
|
function bsAccess($realFname, $ext, $gunid, $sessid='', $type='access')
|
|
{
|
|
$token = StoredFile::_createGunid();
|
|
$res = $this->dbc->query("
|
|
INSERT INTO {$this->accessTable}
|
|
(gunid, sessid, token,
|
|
ext, type, ts)
|
|
VALUES
|
|
(x'{$gunid}'::bigint, '$sessid', x'$token'::bigint,
|
|
'$ext', '$type', now())
|
|
");
|
|
if(PEAR::isError($res)){ return $res; }
|
|
$linkFname = "{$this->accessDir}/$token.$ext";
|
|
|
|
if(!file_exists($realFname)){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsAccess: symlink create failed ($accLinkName)",
|
|
GBERR_FILEIO);
|
|
}
|
|
if(! @symlink($realFname, $linkFname)){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsAccess: symlink create failed ($linkFname)",
|
|
GBERR_FILEIO);
|
|
}
|
|
return array('fname'=>$linkFname, 'token'=>$token);
|
|
}
|
|
|
|
/**
|
|
* Release access link to real file
|
|
*
|
|
* @param token string, access token
|
|
* @param type string 'access'|'download'
|
|
* @return string, global unique ID
|
|
*/
|
|
function bsRelease($token, $type='access')
|
|
{
|
|
if(!$this->bsCheckToken($token, $type)){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsRelease: invalid token ($token)"
|
|
);
|
|
}
|
|
$acc = $this->dbc->getRow("
|
|
SELECT to_hex(gunid)as gunid, ext FROM {$this->accessTable}
|
|
WHERE token=x'{$token}'::bigint AND type='$type'
|
|
");
|
|
$ext = $acc['ext'];
|
|
$gunid = StoredFile::_normalizeGunid($acc['gunid']);
|
|
if(PEAR::isError($acc)){ return $acc; }
|
|
$linkFname = "{$this->accessDir}/$token.$ext";
|
|
$res = $this->dbc->query("
|
|
DELETE FROM {$this->accessTable} WHERE token=x'$token'::bigint
|
|
");
|
|
if(PEAR::isError($res)){ return $res; }
|
|
if(! @unlink($linkFname)){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsRelease: unlink failed ($linkFname)",
|
|
GBERR_FILEIO);
|
|
}
|
|
return $gunid;
|
|
}
|
|
|
|
/**
|
|
* Create and return downloadable URL for file
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param part string, 'media'|'metadata'
|
|
* @return array with: downloadable URL, download token
|
|
*/
|
|
function bsOpenDownload($id, $part='media')
|
|
{
|
|
$ac =& StoredFile::recall(&$this, $id);
|
|
if(PEAR::isError($ac)) return $ac;
|
|
$gunid = $ac->gunid;
|
|
switch($part){
|
|
case"media":
|
|
$fname = $ac->_getRealRADFname();
|
|
$ext = $ac->_getExt();
|
|
break;
|
|
case"metadata":
|
|
$fname = $ac->_getRealMDFname();
|
|
$ext = "xml";
|
|
break;
|
|
}
|
|
$sessid = '';
|
|
$acc = $this->bsAccess($fname, $ext, $gunid, $sessid, 'download');
|
|
$url = $this->getUrlPart()."access/".basename($acc['fname']);
|
|
return array('url'=>$url, 'token'=>$acc['token']);
|
|
}
|
|
|
|
/**
|
|
* Discard downloadable URL
|
|
*
|
|
* @param token string, download token
|
|
* @param part string, 'media'|'metadata'
|
|
* @return string, gunid
|
|
*/
|
|
function bsCloseDownload($token, $part='media')
|
|
{
|
|
if(!$this->bsCheckToken($token, 'download')){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsCloseDownload: invalid token ($token)"
|
|
);
|
|
}
|
|
return $this->bsRelease($token, 'download');
|
|
}
|
|
|
|
/**
|
|
* Create writable URL for HTTP PUT method file insert
|
|
*
|
|
* @param chsum string, md5sum of the file having been put
|
|
* @param gunid string, global unique id
|
|
* @return array with: writable URL, PUT token
|
|
*/
|
|
function bsOpenPut($chsum, $gunid)
|
|
{
|
|
$sessid = '';
|
|
$ext = '';
|
|
$token = StoredFile::_createGunid();
|
|
$res = $this->dbc->query("
|
|
INSERT INTO {$this->accessTable}
|
|
(gunid, sessid, token, ext, chsum, type, ts)
|
|
VALUES
|
|
(x'{$gunid}'::bigint, '$sessid', x'$token'::bigint,
|
|
'$ext', '$chsum', 'put', now())
|
|
");
|
|
if(PEAR::isError($res)){ return $res; }
|
|
$fname = "{$this->accessDir}/$token";
|
|
touch($fname); // is it needed?
|
|
$url = $this->getUrlPart()."xmlrpc/put.php?token=$token";
|
|
return array('url'=>$url, 'token'=>$token);
|
|
}
|
|
|
|
/**
|
|
* Get file from writable URL and return local filename.
|
|
* Caller should move or unlink this file.
|
|
*
|
|
* @param token string, PUT token
|
|
* @return string, local path of the file having been put
|
|
*/
|
|
function bsClosePut($token)
|
|
{
|
|
if(!$this->bsCheckToken($token, 'put')){
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsClosePut: invalid token ($token)"
|
|
);
|
|
}
|
|
$chsum = $this->dbc->getOne("
|
|
SELECT chsum FROM {$this->accessTable}
|
|
WHERE token=x'{$token}'::bigint
|
|
");
|
|
$res = $this->dbc->query("
|
|
DELETE FROM {$this->accessTable} WHERE token=x'$token'::bigint
|
|
");
|
|
if(PEAR::isError($res)){ return $res; }
|
|
$fname = "{$this->accessDir}/$token";
|
|
$md5sum = md5_file($fname);
|
|
if($chsum != $md5sum){
|
|
if(file_exists($fname)) @unlink($fname);
|
|
return PEAR::raiseError(
|
|
"BasicStor::bsClosePut: md5sum does not match (token=$token)"
|
|
);
|
|
}
|
|
return $fname;
|
|
}
|
|
|
|
/**
|
|
* Return starting part of storageServer URL
|
|
*
|
|
* @return string, url
|
|
*/
|
|
function getUrlPart()
|
|
{
|
|
$host = $this->config['storageUrlHost'];
|
|
$port = $this->config['storageUrlPort'];
|
|
$path = $this->config['storageUrlPath'];
|
|
return "http://$host:$port$path/";
|
|
}
|
|
|
|
/* ---------------------------------------------- replicas, versions etc. */
|
|
/**
|
|
* Create replica.<br>
|
|
* <b>TODO: NOT FINISHED</b>
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param did int, destination folder local id
|
|
* @param replicaName string, name of new replica
|
|
* @return int, local id of new object
|
|
*/
|
|
function bsCreateReplica($id, $did, $replicaName)
|
|
{
|
|
return PEAR::raiseError(
|
|
'BasicStor::bsCreateReplica: not implemented', GBERR_NOTIMPL
|
|
);
|
|
// ---
|
|
if($this->getObjType($did) !== 'Folder')
|
|
return PEAR::raiseError(
|
|
'BasicStor::bsCreateReplica: dest is not folder', GBERR_WRTYPE
|
|
);
|
|
if($replicaName=='') $replicaName = $this->getObjName($id);
|
|
while(($exid = $this->getObjId($replicaName, $did))<>'')
|
|
{ $replicaName.='_R'; }
|
|
$rid = $this->addObj($replicaName , 'Replica', $did, 0, $id);
|
|
if(PEAR::isError($rid)) return $rid;
|
|
# $this->addMdata($this->_pathFromId($rid), 'isReplOf', $id, $sessid);
|
|
return $rid;
|
|
}
|
|
|
|
/**
|
|
* Create version.<br>
|
|
* <b>TODO: NOT FINISHED</b>
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param did int, destination folder local id
|
|
* @param versionLabel string, name of new version
|
|
* @return int, local id of new object
|
|
*/
|
|
function bsCreateVersion($id, $did, $versionLabel)
|
|
{
|
|
return PEAR::raiseError(
|
|
'BasicStor::bsCreateVersion: not implemented', GBERR_NOTIMPL
|
|
);
|
|
}
|
|
|
|
/* ------------------------------------------------------------- metadata */
|
|
|
|
/**
|
|
* Replace metadata with new XML file or string
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @param mdata string, local path of metadata XML file
|
|
* @param mdataLoc string 'file'|'string'
|
|
* @return boolean or PEAR::error
|
|
*/
|
|
function bsReplaceMetadata($id, $mdata, $mdataLoc='file')
|
|
{
|
|
$ac =& StoredFile::recall(&$this, $id);
|
|
if(PEAR::isError($ac)) return $ac;
|
|
return $ac->replaceMetaData($mdata, $mdataLoc);
|
|
}
|
|
|
|
/**
|
|
* Get metadata as XML string
|
|
*
|
|
* @param id int, virt.file's local id
|
|
* @return string or PEAR::error
|
|
*/
|
|
function bsGetMetadata($id)
|
|
{
|
|
$ac =& StoredFile::recall(&$this, $id);
|
|
if(PEAR::isError($ac)) return $ac;
|
|
return $ac->getMetaData();
|
|
}
|
|
|
|
/**
|
|
* Search in local metadata database.<br>
|
|
* <b>TODO: NOT FINISHED</b><br>
|
|
* It will support structured queries - array of mode and query parts.
|
|
* Mode is "match all" or "match any".
|
|
* Query parts is array of [fieldname, operator, value] entities.
|
|
*
|
|
* @param criteria string, search query -
|
|
* only one SQL LIKE term supported now.
|
|
* It will be searched in all literal object values
|
|
* in metadata database
|
|
* @return array of gunid strings
|
|
*/
|
|
function bsLocalSearch($criteria)
|
|
{
|
|
$types = array('and'=>'AND', 'or'=>'OR');
|
|
$ops = array('full'=>"='%s'", 'partial'=>"like '%%%s%%'", 'prefix'=>"like '%s%%'",
|
|
'<'=>"< '%s'", '='=>"= '%s'", '>'=>"> '%s'", '<='=>"<= '%s'", '>='=>">= '%s'"
|
|
);
|
|
# var_dump($criteria);
|
|
echo "\n";
|
|
$type = strtolower($criteria['type']);
|
|
$conds = $criteria['conds'];
|
|
$whereArr = array();
|
|
foreach($conds as $cond){
|
|
$cat = strtolower($cond['cat']);
|
|
$opVal = sprintf($ops[$cond['op']], strtolower($cond['val']));
|
|
$sqlCond = "
|
|
%s.predicate = '".str_replace("%", "%%", $cat)."' AND
|
|
%s.objns='_L' AND lower(%s.object) ".str_replace("%", "%%", $opVal)."\n
|
|
";
|
|
# echo "$sqlCond\n";
|
|
$whereArr[] = "$sqlCond";
|
|
}
|
|
if($type == 'and'){
|
|
$from = array(); $joinArr = array();
|
|
foreach($whereArr as $i=>$v){
|
|
$from[] = "{$this->mdataTable} md$i";
|
|
$whereArr[$i] = sprintf($v, "md$i", "md$i", "md$i");
|
|
$joinArr[] = "md$i.gunid = md".($i+1).".gunid";
|
|
}
|
|
array_pop($joinArr);
|
|
$sql = "SELECT to_hex(md0.gunid)as gunid \nFROM ".join(", ", $from).
|
|
"\nWHERE ".join(' AND ', $whereArr);
|
|
if(count($joinArr)>0){ $sql .= " AND ".join(" AND ", $joinArr); }
|
|
}else{
|
|
foreach($whereArr as $i=>$v){
|
|
$whereArr[$i] = sprintf($v, "md", "md", "md");
|
|
}
|
|
$sql = "\nSELECT to_hex(gunid)as gunid \n".
|
|
"FROM {$this->mdataTable} md \nWHERE ".join(' OR ', $whereArr);
|
|
}
|
|
echo "$sql\n";
|
|
# var_dump($whereArr);
|
|
$sql0 = "SELECT to_hex(md.gunid)as gunid
|
|
FROM {$this->filesTable} f, {$this->mdataTable} md
|
|
WHERE f.gunid=md.gunid AND md.objns='_L' AND
|
|
md.object like '%$criteria%'
|
|
GROUP BY md.gunid
|
|
";
|
|
$res = $this->dbc->getCol($sql);
|
|
if(!is_array($res)) $res = array();
|
|
// $res = array_map("StoredFile::_normalizeGunid", $res); // TODO: correct!
|
|
return $res;
|
|
}
|
|
|
|
/* --------------------------------------------------------- info methods */
|
|
|
|
/**
|
|
* List files in folder
|
|
*
|
|
* @param id int, local id of folder
|
|
* @return array
|
|
*/
|
|
function bsListFolder($id)
|
|
{
|
|
if($this->getObjType($id) !== 'Folder')
|
|
return PEAR::raiseError(
|
|
'BasicStor::bsListFolder: not a folder', GBERR_NOTF
|
|
);
|
|
$a = $this->getDir($id, 'id, name, type, param as target', 'name');
|
|
return $a;
|
|
}
|
|
|
|
/**
|
|
* List files in folder
|
|
*
|
|
* @param id int, local id of object
|
|
* @param relPath string, relative path
|
|
* @return array
|
|
*/
|
|
function getObjIdFromRelPath($id, $relPath='.')
|
|
{
|
|
$a = split('/', $relPath);
|
|
if($this->getObjType($id) !== 'Folder') $nid = $this->getparent($id);
|
|
else $nid = $id;
|
|
foreach($a as $i=>$item){
|
|
switch($item){
|
|
case".":
|
|
break;
|
|
case"..":
|
|
$nid = $this->getparent($nid);
|
|
break;
|
|
case"":
|
|
break;
|
|
default:
|
|
$nid = $this->getObjId($item, $nid);
|
|
}
|
|
}
|
|
return $nid;
|
|
}
|
|
|
|
/* =============================================== test and debug methods */
|
|
/**
|
|
* dump
|
|
*
|
|
*/
|
|
function dump($id='', $indch=' ', $ind='', $format='{name}')
|
|
{
|
|
if($id=='') $id = $this->storId;
|
|
return parent::dump($id, $indch, $ind, $format);
|
|
}
|
|
|
|
/**
|
|
*
|
|
*
|
|
*/
|
|
function dumpDir($id='', $format='$o["name"]')
|
|
{
|
|
if($id=='') $id = $this->storId;
|
|
$arr = $this->getDir($id, 'id,name');
|
|
// if($this->doDebug){ $this->debug($arr); exit; }
|
|
$arr = array_map(create_function('$o', 'return "'.$format.'";'), $arr);
|
|
return join('', $arr);
|
|
}
|
|
|
|
/**
|
|
*
|
|
*
|
|
*/
|
|
function debug($va)
|
|
{
|
|
echo"<pre>\n"; print_r($va); #exit;
|
|
}
|
|
|
|
/**
|
|
* deleteData
|
|
*
|
|
* @return void
|
|
*/
|
|
function deleteData()
|
|
{
|
|
// $this->dbc->query("DELETE FROM {$this->filesTable}");
|
|
$ids = $this->dbc->getAll("SELECT id FROM {$this->filesTable}");
|
|
if(is_array($ids)) foreach($ids as $i=>$item){
|
|
$this->removeObj($item['id']);
|
|
}
|
|
parent::deleteData();
|
|
$this->initData();
|
|
}
|
|
/**
|
|
* testData
|
|
*
|
|
*/
|
|
function testData($d='')
|
|
{
|
|
$exdir = '../../../storageServer/var/tests';
|
|
$o[] = $this->addSubj('test1', 'a');
|
|
$o[] = $this->addSubj('test2', 'a');
|
|
$o[] = $this->addSubj('test3', 'a');
|
|
$o[] = $this->addSubj('test4', 'a');
|
|
|
|
$o[] = $t1hd = $this->getObjId('test1', $this->storId);
|
|
$o[] = $t1d1 = $this->bsCreateFolder($t1hd, 'test1_folder1');
|
|
$o[] = $this->bsCreateFolder($t1hd, 'test1_folder2');
|
|
$o[] = $this->bsCreateFolder($t1d1, 'test1_folder1_1');
|
|
$o[] = $t1d12 = $this->bsCreateFolder($t1d1, 'test1_folder1_2');
|
|
|
|
$o[] = $t2hd = $this->getObjId('test2', $this->storId);
|
|
$o[] = $this->bsCreateFolder($t2hd, 'test2_folder1');
|
|
|
|
$o[] = $this->bsPutFile($t1hd, 'file1.mp3', "$exdir/ex1.mp3", '', NULL, 'audioclip');
|
|
$o[] = $this->bsPutFile($t1d12, 'file2.wav', "$exdir/ex2.wav", '', NULL, 'audioclip');
|
|
/*
|
|
*/
|
|
$this->tdata['storage'] = $o;
|
|
}
|
|
|
|
/**
|
|
* test
|
|
*
|
|
*/
|
|
function test()
|
|
{
|
|
// if(PEAR::isError($p = parent::test())) return $p;
|
|
$this->deleteData();
|
|
$this->testData();
|
|
$this->test_correct = " StorageRoot
|
|
root
|
|
test1
|
|
test1_folder1
|
|
test1_folder1_1
|
|
test1_folder1_2
|
|
file2.wav
|
|
test1_folder2
|
|
file1.mp3
|
|
test2
|
|
test2_folder1
|
|
test3
|
|
test4
|
|
";
|
|
$this->test_dump = $this->dumpTree($this->storId);
|
|
if($this->test_dump==$this->test_correct)
|
|
{ $this->test_log.="storageServer: OK\n"; return true; }
|
|
else PEAR::raiseError('BasicStor::test:', 1, PEAR_ERROR_DIE, '%s'.
|
|
"<pre>\ncorrect:\n.{$this->test_correct}.\n".
|
|
"dump:\n.{$this->test_dump}.\n</pre>\n");
|
|
}
|
|
|
|
/**
|
|
* initData - initialize
|
|
*
|
|
*/
|
|
function initData()
|
|
{
|
|
$this->rootId = $this->getRootNode();
|
|
$this->storId = $this->wd =
|
|
$this->addObj('StorageRoot', 'Folder', $this->rootId);
|
|
$rootUid = parent::addSubj('root', $this->config['tmpRootPass']);
|
|
$res = $this->addPerm($rootUid, '_all', $this->rootId, 'A');
|
|
$fid = $this->bsCreateFolder($this->storId, 'root');
|
|
}
|
|
/**
|
|
* install - create tables
|
|
*
|
|
* file states:
|
|
* <ul>
|
|
* <li>empty</li>
|
|
* <li>incomplete</li>
|
|
* <li>ready</li>
|
|
* <li>edited</li>
|
|
* </ul>
|
|
|
|
* file types:
|
|
* <ul>
|
|
* <li>audioclip</li>
|
|
* <li>playlist</li>
|
|
* <li>preferences</li>
|
|
* </ul>
|
|
*/
|
|
function install()
|
|
{
|
|
parent::install();
|
|
#echo "{$this->filesTable}\n";
|
|
$r = $this->dbc->query("CREATE TABLE {$this->filesTable} (
|
|
id int not null,
|
|
gunid bigint not null, -- global unique ID
|
|
name varchar(255) not null default'', -- human file id ;)
|
|
mime varchar(255) not null default'', -- mime type
|
|
ftype varchar(128) not null default'', -- file type
|
|
state varchar(128) not null default'empty', -- file state
|
|
currentlyAccessing int not null default 0 -- access counter
|
|
)");
|
|
if(PEAR::isError($r)) return $r;
|
|
$this->dbc->query("CREATE UNIQUE INDEX {$this->filesTable}_id_idx
|
|
ON {$this->filesTable} (id)");
|
|
$this->dbc->query("CREATE UNIQUE INDEX {$this->filesTable}_gunid_idx
|
|
ON {$this->filesTable} (gunid)");
|
|
$this->dbc->query("CREATE INDEX {$this->filesTable}_name_idx
|
|
ON {$this->filesTable} (name)");
|
|
|
|
#echo "{$this->mdataTable}\n";
|
|
$this->dbc->createSequence("{$this->mdataTable}_id_seq");
|
|
$r = $this->dbc->query("CREATE TABLE {$this->mdataTable} (
|
|
id int not null,
|
|
gunid bigint,
|
|
subjns varchar(255), -- subject namespace shortcut/uri
|
|
subject varchar(255) not null default '',
|
|
predns varchar(255), -- predicate namespace shortcut/uri
|
|
predicate varchar(255) not null,
|
|
predxml char(1) not null default 'T', -- Tag or Attribute
|
|
objns varchar(255), -- object namespace shortcut/uri
|
|
object text
|
|
)");
|
|
if(PEAR::isError($r)) return $r;
|
|
$this->dbc->query("CREATE UNIQUE INDEX {$this->mdataTable}_id_idx
|
|
ON {$this->mdataTable} (id)");
|
|
$this->dbc->query("CREATE INDEX {$this->mdataTable}_gunid_idx
|
|
ON {$this->mdataTable} (gunid)");
|
|
$this->dbc->query("CREATE INDEX {$this->mdataTable}_subj_idx
|
|
ON {$this->mdataTable} (subjns, subject)");
|
|
$this->dbc->query("CREATE INDEX {$this->mdataTable}_pred_idx
|
|
ON {$this->mdataTable} (predns, predicate)");
|
|
|
|
#echo "{$this->accessTable}\n";
|
|
$r = $this->dbc->query("CREATE TABLE {$this->accessTable} (
|
|
gunid bigint,
|
|
sessid char(32) not null default'',
|
|
token bigint,
|
|
chsum char(32) not null default'',
|
|
ext varchar(128) not null default'',
|
|
type varchar(20) not null default'',
|
|
ts timestamp
|
|
)");
|
|
if(PEAR::isError($r)) return $r;
|
|
$this->dbc->query("CREATE INDEX {$this->accessTable}_token_idx
|
|
ON {$this->accessTable} (token)");
|
|
$this->dbc->query("CREATE INDEX {$this->accessTable}_gunid_idx
|
|
ON {$this->accessTable} (gunid)");
|
|
if(!file_exists($this->bufferDir)){
|
|
mkdir($this->bufferDir, 02775);
|
|
chmod($this->bufferDir, 02775); // may be obsolete
|
|
}
|
|
$this->initData();
|
|
}
|
|
/**
|
|
* id subjns subject predns predicate objns object
|
|
* y1 literal xmbf NULL namespace literal http://www.sotf.org/xbmf
|
|
* x1 gunid <gunid> xbmf contributor NULL NULL
|
|
* x2 mdid x1 xbmf role literal Editor
|
|
*
|
|
* predefined shortcuts:
|
|
* _L = literal
|
|
* _G = gunid (global id of media file)
|
|
* _I = mdid (local id of metadata record)
|
|
* _nssshortcut = namespace shortcut definition
|
|
* _blank = blank node
|
|
*/
|
|
|
|
/**
|
|
* uninstall
|
|
*
|
|
* @return void
|
|
*/
|
|
function uninstall()
|
|
{
|
|
$this->dbc->query("DROP TABLE {$this->mdataTable}");
|
|
$this->dbc->dropSequence("{$this->mdataTable}_id_seq");
|
|
$this->dbc->query("DROP TABLE {$this->filesTable}");
|
|
$this->dbc->query("DROP TABLE {$this->accessTable}");
|
|
$d = dir($this->storageDir);
|
|
while (is_object($d) && (false !== ($entry = $d->read()))){
|
|
if(filetype("{$this->storageDir}/$entry")=='dir' &&
|
|
$entry!='CVS' && strlen($entry)==3)
|
|
{
|
|
$dd = dir("{$this->storageDir}/$entry");
|
|
while (false !== ($ee = $dd->read())){
|
|
if(substr($ee, 0, 1)!=='.')
|
|
unlink("{$this->storageDir}/$entry/$ee");
|
|
}
|
|
$dd->close();
|
|
rmdir("{$this->storageDir}/$entry");
|
|
}
|
|
}
|
|
if(is_object($d)) $d->close();
|
|
if(file_exists($this->bufferDir)){
|
|
$d = dir($this->bufferDir);
|
|
while (false !== ($entry = $d->read())) if(substr($entry,0,1)!='.')
|
|
{ unlink("{$this->bufferDir}/$entry"); }
|
|
$d->close();
|
|
rmdir($this->bufferDir);
|
|
}
|
|
parent::uninstall();
|
|
}
|
|
|
|
/**
|
|
* Aux logging for debug
|
|
*
|
|
* @param msg string - log message
|
|
*/
|
|
function debugLog($msg)
|
|
{
|
|
$fp=fopen("{$this->storageDir}/log", "a") or die("Can't write to log\n");
|
|
fputs($fp, date("H:i:s").">$msg<\n");
|
|
fclose($fp);
|
|
}
|
|
|
|
}
|
|
?>
|