* @copyright (c) 2009-16 by Ralf Becker * @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License * @version $Id$ */ use EGroupware\Api; use EGroupware\Api\Vfs; $GLOBALS['egw_info']['flags'] = array( 'currentapp' => 'filemanager' ); include('../header.inc.php'); if (!($path = Api\Cache::getSession('filemanger','test'))) { $path = '/home/'.$GLOBALS['egw_info']['user']['account_lid']; } if (isset($_REQUEST['path'])) $path = $_REQUEST['path']; echo Api\Html::form("

Path: ".Api\Html::input('path',$path,'text','size="40"'). Api\Html::submit_button('',lang('Submit'))."

\n",array(),'','','','','GET'); if (isset($path) && !empty($path)) { if ($path[0] != '/') { throw new Api\Exception\WrongUserinput('Not an absolute path!'); } Api\Cache::setSession('filemanger','test',$path); echo "

"; foreach(explode('/',$path) as $n => $part) { $p .= ($p != '/' ? '/' : '').$part; echo ($n > 1 ? ' / ' : '').Api\Html::a_href($n ? $part : ' / ','/filemanager/test.php',array('path'=>$p)); } echo "

\n"; echo "

egw_vfs::propfind('$path')=".array2string(Vfs::propfind($path))."

\n"; echo "

egw_vfs::resolve_url('$path')=".array2string(Vfs::resolve_url($path))."

\n"; $is_dir = Vfs::is_dir($path); echo "

is_dir('$path')=".array2string($is_dir)."

\n"; $time = microtime(true); $stat = Vfs::stat($path); $stime = number_format(1000*(microtime(true)-$time),1); $time2 = microtime(true); if ($is_dir)// && ($d = Vfs::opendir($path))) { $files = array(); //while(($file = readdir($d))) foreach(Vfs::scandir($path) as $file) { if (Vfs::is_readable($fpath=Vfs::concat($path,$file))) { $file = Api\Html::a_href($file,'/filemanager/test.php',array('path'=>$fpath)); } $file .= ' ('.Vfs::mime_content_type($fpath).')'; $files[] = $file; } //closedir($d); $time2f = number_format(1000*(microtime(true)-$time2),1); echo "

".($files ? 'Directory' : 'Empty directory')." took $time2f ms

\n"; if($files) echo '
  1. '.implode("
  2. \n
  3. ",$files).'
'."\n"; } echo "

stat('$path') took $stime ms (mode = ".(isset($stat['mode'])?sprintf('%o',$stat['mode']).' = '.Vfs::int2mode($stat['mode']):'NULL').')'; if (is_array($stat)) { _debug_array($stat); } else { echo "

".array2string($stat)."

\n"; } echo "

egw_vfs::is_readable('$path')=".array2string(Vfs::is_readable($path))."

\n"; echo "

egw_vfs::is_writable('$path')=".array2string(Vfs::is_writable($path))."

\n"; echo "

is_link('$path')=".array2string(Vfs::is_link($path))."

\n"; echo "

readlink('$path')=".array2string(Vfs::readlink($path))."

\n"; $time3 = microtime(true); $lstat = Vfs::lstat($path); $time3f = number_format(1000*(microtime(true)-$time3),1); echo "

lstat('$path') took $time3f ms (mode = ".(isset($lstat['mode'])?sprintf('%o',$lstat['mode']).' = '.Vfs::int2mode($lstat['mode']):'NULL').')'; if (is_array($lstat)) { _debug_array($lstat); } else { echo "

".array2string($lstat)."

\n"; } if (!$is_dir && $stat) { echo "

egw_vfs::mime_content_type('$path')=".array2string(Vfs::mime_content_type($path))."

\n"; echo "

filesize(Vfs::PREFIX.'$path')=".array2string(filesize(Vfs::PREFIX.$path))."

\n"; echo "

bytes(file_get_contents(Vfs::PREFIX.'$path'))=".array2string(bytes(file_get_contents(Vfs::PREFIX.$path)))."

\n"; } } $GLOBALS['egw']->framework->footer();