function Archive_Tar::_pathReduction

Compress path by changing for example "/dir/foo/../bar" to "/dir/bar", rand emove double slashes.

Parameters

string $p_dir path to reduce:

Return value

string reduced path

File

modules/system/system.tar.inc, line 2530

Class

Archive_Tar

Code

private function _pathReduction($p_dir) {
    $v_result = '';
    // ----- Look for not empty path
    if ($p_dir != '') {
        // ----- Explode path by directory names
        $v_list = explode('/', $p_dir);
        // ----- Study directories from last to first
        for ($i = sizeof($v_list) - 1; $i >= 0; $i--) {
            // ----- Look for current path
            if ($v_list[$i] == ".") {
                // ----- Ignore this directory
                // Should be the first $i=0, but no check is done
            }
            else {
                if ($v_list[$i] == "..") {
                    // ----- Ignore it and ignore the $i-1
                    $i--;
                }
                else {
                    if ($v_list[$i] == '' && $i != sizeof($v_list) - 1 && $i != 0) {
                        // ----- Ignore only the double '//' in path,
                        // but not the first and last /
                    }
                    else {
                        $v_result = $v_list[$i] . ($i != sizeof($v_list) - 1 ? '/' . $v_result : '');
                    }
                }
            }
        }
    }
    if (defined('OS_WINDOWS') && OS_WINDOWS) {
        $v_result = strtr($v_result, '\\', '/');
    }
    return $v_result;
}