<?php

//define(MAX_FILES_TO_SORT, 5);
//define(LISTING_TIMEOUT, 0.000001);
define(LISTING_TIMEOUT, 5);


//echo 'files: ';
//$files = scandir(__DIR__);


//echo '<pre>';
//print_r($files);


//$_REQUEST['sort_field'] = 'size';
$_REQUEST['sort_field'] = 'name';
//$_REQUEST['sort_field'] = 'atime';
//$_REQUEST['sort_field'] = 'mtime';
$_REQUEST['sort_desc'] = 1;


/*
+-  copy file / dir [ recursive ]
+-  rename(move) file / dir
+-  delete file / dir [ recursive ]
+-  chmod file / dir
+-  chown file / dir
+-  create file
+-  create dir
*/

switch($_REQUEST['action']){
    case 'copy': fm_copy($_REQUEST['source'], $_REQUEST['dest']); break;
    case 'rename': fm_rename($_REQUEST['source'], $_REQUEST['dest']); break;
    case 'delete': fm_delete($_REQUEST['source']); break;
    case 'chmod': fm_chmod($_REQUEST['source'], $_REQUEST['mode']); break;
    case 'chown': fm_chown($_REQUEST['source'], $_REQUEST['uid'], $_REQUEST['gid']); break;
    case 'create_file': fm_create_file($_REQUEST['source'], $_REQUEST['mode']  || FALSE); break;
    case 'create_dir': fm_create_dir($_REQUEST['source'], $_REQUEST['mode'] || FALSE); break;

    default: 
	$pwd = $_REQUEST['path'] ? $_REQUEST['path'] : __DIR__;
	$listing = dir_list($pwd, $_REQUEST['sort_field']); 
	$writable = is_writable($pwd);

	$pwd = array_merge(array('/'), explode('/', trim($pwd, '/'))); 

	include('templates/filemanager.php'); 
    break;
}


//echo $_GET['sort_field'];

//    if(in_array($_GET['sort_field'], $available_sort_fields)){
//	echo '1';
//    }	


/*
  upload_file

+  list_dir
+-  copy file / dir [ recursive ]
+-  rename(move) file / dir
+-  delete file / dir [ recursive ]
+-  chmod file / dir
+-  chown file / dir
+-  create file
+-  create dir

  view file / image
  download file / image   
*/


function fm_create_file($filename){
    if(is_file($filename))
        return array('error' => 'file exists', 'code' => 1);

    return !!fopen($filename, 'w');
}


function fm_create_dir($dirname){
    if(is_dir($filename))
        return array('error' => 'directory exists', 'code' => 1);

    // TODO set parent directory mode
    return mkdir($dirname);
}


function fm_chown($filename, $recursive = 0, $uid = FALSE, $gid = FALSE){
    if(is_dir($filename) && $recursive){
        $dir_handle  = opendir($dir);
	while ($item = readdir($dir_handle)){
    	    if (!in_array($item, array('.','..'))){
		$new_item = $filename.'/'.$item;

	        if($uid !== FALSE) chown($new_item, (int)$uid);
		if($gid !== FALSE) chgrp($new_item, (int)$gid); 

		if(is_dir($new_item)){
		    fm_chown($new_item, $recursive, $uid, $gid);
		}
	    }
	}
    }else{
        if($uid !== FALSE) chown($filename, (int)$uid);
	if($gid !== FALSE) chgrp($filename, (int)$gid); 
    }
}


function fm_chmod($filename, $recursive = 0, $mode){
    if(is_dir($filename) && $recursive){
        $dir_handle  = opendir($dir);
	while ($item = readdir($dir_handle)){
    	    if (!in_array($item, array('.','..'))){
		$new_item = $filename.'/'.$item;
	        chmod($new_item, octdec($mode));

		if(is_dir($new_item)){
		    fm_chmod($new_item, $recursive, $mode);
		}
	    }
	}
    }else{
	chmod($filename, octdec($mode));
    }
}


function fm_delete($filename){
    if(is_dir($filename)){
	foreach (
	    $iterator = new RecursiveIteratorIterator(
	    new RecursiveDirectoryIterator($filename, RecursiveDirectoryIterator::SKIP_DOTS),
	    RecursiveIteratorIterator::SELF_FIRST) as $item
	) {
	  if ($item->isDir()) {
	    rmdir($item);
//	    mkdir($dest . DIRECTORY_SEPARATOR . $iterator->getSubPathName(), decoct(fileperms($item->getPerms())));
	  } else {
	    unlink($item);
//	    copy($item, $dest . DIRECTORY_SEPARATOR . $iterator->getSubPathName());
	  }
	}
    }else{
	return unlink($filename);
    }
}


function fm_rename($source, $dest){
    return rename($source, $dest);
}


function fm_copy($source, $dest){
    if(is_dir($source)){
	foreach (
	    $iterator = new RecursiveIteratorIterator(
	    new RecursiveDirectoryIterator($source, RecursiveDirectoryIterator::SKIP_DOTS),
	    RecursiveIteratorIterator::SELF_FIRST) as $item
	) {
	  if ($item->isDir()) {
	    // TODO set dir perms 
	    mkdir($dest . DIRECTORY_SEPARATOR . $iterator->getSubPathName(), decoct(fileperms($item->getPerms())));
	  } else {
	    copy($item, $dest . DIRECTORY_SEPARATOR . $iterator->getSubPathName());
	  }
	}
    
    }else{
	return copy($source, $dest);
    }
}


function list_dir(){
    $dir_iterator = new RecursiveDirectoryIterator("/path");
    $iterator = new RecursiveIteratorIterator($dir_iterator, RecursiveIteratorIterator::SELF_FIRST);
    // could use CHILD_FIRST if you so wish

    foreach ($iterator as $file) {
	echo $file, "\n";
    }

    $size = 0;
    foreach ($iterator as $file) {
	if ($file->isFile()) {
    	    echo substr($file->getPathname(), 27) . ": " . $file->getSize() . " B; modified " . date("Y-m-d", $file->getMTime()) . "\n";
            $size += $file->getSize();
	}
    }

    echo "\nTotal file size: ", $size, " bytes\n";
}


/// fast removing directory 
function rmrf($dir) {
    
    foreach (glob($dir) as $file) {
        if (is_dir($file)) {
            rmrf("$file/*");
            rmdir($file);
        } else {
            unlink($file);
        }
    }
}


function dir_list($dir, $sort = 0)
{
    $sort_order_for_filename = SORT_ASC;
    //$available_sort_fields = array('size, type', 'mtime', 'atime', 'owner', 'group');
    $available_sort_fields = array('name', 'size', 'type', 'mtime', 'atime', 'owner', 'group');
    $sort_order = SORT_ASC;

    if ($dir[strlen($dir)-1] != '/') $dir .= '/';
    if (!is_dir($dir)) return array();

    $start = microtime(TRUE);

    $listing = array('dirs' => array(), 'files' => array(), 'dir_names' => array(), 'file_names' => array() ,'count' => 0, 'timeout_exeeded' => 0, 'time' => 0);
    $dir_handle  = opendir($dir);
    $dir_objects = array();
    while ($object = readdir($dir_handle)){
        if (!in_array($object, array('.','..'))){
            $filename    = $dir . $object;
	    $time = microtime(true) - $start;
	    if($time <= LISTING_TIMEOUT){
    		$stats = stat($filename);
    		$mode = explain_mode($stats['mode']);
		$perms = decoct(fileperms($filename));
	        $item = array(
            	    'name' => $object,
		    'size' => $stats['size'],
            	    'mode' => array('owner' => $mode['owner'], 'group' => $mode['owner'], 'other' => $mode['owner']),
            	    'perms' => decoct($stats['mode']),
            	    'type' => $mode['type'],
            	    'mtime' => $stats['mtime'],
            	    'atime' => $stats['atime'],
            	    'mdate_human' => date("Y F d", $stats['mtime']),
            	    'mtime_human' => date("H:i:s", $stats['mtime']),
            	    'adate_human' => date("Y F d", $stats['atime']),
            	    'atime_human' => date("H:i:s", $stats['atime']),
	    	    'nlink' => $stats['nlink'],
	    	    'owner' => posix_getpwuid($stats['uid'])['name'],
	    	    'group' => posix_getgrgid($stats['gid'])['name']
            	);
	    }else{
		$listing['timeout_exeeded'] = TRUE;
		if(is_dir($filename)){   $type = 'd';
		}else{   $type = '-'; }

	        $item = array(
            	    'name' => $object,
		    'size' => FALSE,
            	    'mode' => array('owner' => FALSE, 'group' => FALSE, 'other' => FALSE),
            	    'type' => $type,
            	    'mtime' => FALSE,
            	    'atime' => FALSE,
            	    'mdate_human' => FALSE,
            	    'mtime_human' => FALSE,
            	    'adate_human' => FALSE,
            	    'atime_human' => FALSE,
	    	    'nlink' => FALSE,
	    	    'owner' => FALSE,
	    	    'group' => FALSE
            	);
	    }


	    $listing['count']++;

	    if($item['type'] == 'd'){
		$listing['dirs'][] = $item;
		$listing['dir_names'][] = $item['name'];
	    }else{
		if($sort && !$listing['timeout_exeeded']){
		    $listing[$sort][] = $item[$sort];
		}
		$listing['files'][] = $item;
		$listing['file_names'][] = $item['name'];
	    }
        }
    }
    $listing['time'] = microtime(TRUE) - $start;


    if(!$listing['timeout_exeeded']){
	if(in_array($_REQUEST['sort_field'], $available_sort_fields)){
	    if($_REQUEST['sort_desc']){
		$sort_order = SORT_DESC;
	    }
	    array_multisort($listing[$_REQUEST['sort_field']], $sort_order, $listing['file_names'], $sort_order_for_filename, $listing['files']);
	}
	array_multisort($listing['dir_names'], $sort_order_for_filename, $listing['dirs']);
    }

    return $listing;
}

	
function explain_mode($mode)
{
    $info = array();
    
    if     (($mode & 0xC000) == 0xC000) { $info['type'] = 's'; }
    elseif (($mode & 0xA000) == 0xA000) { $info['type'] = 'l'; }
    elseif (($mode & 0x8000) == 0x8000) { $info['type'] = '-'; }
    elseif (($mode & 0x6000) == 0x6000) { $info['type'] = 'b'; }
    elseif (($mode & 0x4000) == 0x4000) { $info['type'] = 'd'; }
    elseif (($mode & 0x2000) == 0x2000) { $info['type'] = 'c'; }
    elseif (($mode & 0x1000) == 0x1000) { $info['type'] = 'p'; }
    else                                { $info['type'] = 'u'; }

    $info['owner'] = (($mode & 0x0100) ? 'r' : '-');
    $info['owner'] .= (($mode & 0x0080) ? 'w' : '-');
    $info['owner'] .= (($mode & 0x0040) ? (($mode & 0x0800) ? 's' : 'x' ) : (($mode & 0x0800) ? 'S' : '-'));

    // group
    $info['group'] = (($mode & 0x0020) ? 'r' : '-');
    $info['group'] .= (($mode & 0x0010) ? 'w' : '-');
    $info['group'] .= (($mode & 0x0008) ? (($mode & 0x0400) ? 's' : 'x' ) : (($mode & 0x0400) ? 'S' : '-'));

    // other
    $info['other'] = (($mode & 0x0004) ? 'r' : '-');
    $info['other'] .= (($mode & 0x0002) ? 'w' : '-');
    $info['other'] .= (($mode & 0x0001) ? (($mode & 0x0200) ? 't' : 'x' ) : (($mode & 0x0200) ? 'T' : '-'));

    return $info;
}

?>