<?php
if (!defined('sugarEntry') || !sugarEntry) {
    die('Not A Valid Entry Point');
}
/**
 *
 * SugarCRM Community Edition is a customer relationship management program developed by
 * SugarCRM, Inc. Copyright (C) 2004-2013 SugarCRM Inc.
 *
 * SuiteCRM is an extension to SugarCRM Community Edition developed by SalesAgility Ltd.
 * Copyright (C) 2011 - 2018 SalesAgility Ltd.
 *
 * This program is free software; you can redistribute it and/or modify it under
 * the terms of the GNU Affero General Public License version 3 as published by the
 * Free Software Foundation with the addition of the following permission added
 * to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED WORK
 * IN WHICH THE COPYRIGHT IS OWNED BY SUGARCRM, SUGARCRM DISCLAIMS THE WARRANTY
 * OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
 *
 * This program 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 Affero General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Affero General Public License along with
 * this program; if not, see http://www.gnu.org/licenses or write to the Free
 * Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 * 02110-1301 USA.
 *
 * You can contact SugarCRM, Inc. headquarters at 10050 North Wolfe Road,
 * SW2-130, Cupertino, CA 95014, USA. or at email address contact@sugarcrm.com.
 *
 * The interactive user interfaces in modified source and object code versions
 * of this program must display Appropriate Legal Notices, as required under
 * Section 5 of the GNU Affero General Public License version 3.
 *
 * In accordance with Section 7(b) of the GNU Affero General Public License version 3,
 * these Appropriate Legal Notices must retain the display of the "Powered by
 * SugarCRM" logo and "Supercharged by SuiteCRM" logo. If the display of the logos is not
 * reasonably feasible for technical reasons, the Appropriate Legal Notices must
 * display the words "Powered by SugarCRM" and "Supercharged by SuiteCRM".
 */


require_once 'include/SugarCache/SugarCache.php';

function copy_recursive($source, $dest)
{
    if (is_file($source)) {
        $result = copy($source, $dest);
        if ((new SplFileInfo($dest))->getExtension() == 'php') {
            SugarCache::cleanFile($dest);
        }
        return $result;
    }
    if (!is_dir($dest)) {
        sugar_mkdir($dest);
    }

    $status = true;

    $d = dir($source);
    if ($d === false) {
        return false;
    }
    while (false !== ($f = $d->read())) {
        if ($f == "." || $f == "..") {
            continue;
        }
        $status &= copy_recursive("$source/$f", "$dest/$f");
    }
    $d->close();
    return $status;
}

function mkdir_recursive($path, $check_is_parent_dir = false)
{
    if (is_dir($path)) {
        return(true);
    }
    if (is_file($path)) {
        if (!empty($GLOBALS['log'])) {
            $GLOBALS['log']->fatal("ERROR: mkdir_recursive(): argument $path is already a file.");
        }
        return false;
    }

    //make variables with file paths
    $pathcmp = $path = rtrim(clean_path($path), '/');
    $basecmp =$base = rtrim(clean_path(getcwd()), '/');
    if (is_windows()) {
        //make path variable lower case for comparison in windows
        $pathcmp = strtolower($path);
        $basecmp = strtolower($base);
    }

    if ($basecmp == $pathcmp) {
        return true;
    }
    $base .= "/";
    if (strncmp($pathcmp, $basecmp, strlen($basecmp)) == 0) {
        /* strip current path prefix */
        $path = substr($path, strlen($base));
    }
    $thePath = '';
    $dirStructure = explode("/", $path);
    if ($dirStructure[0] == '') {
        // absolute path
        $base = '/';
        array_shift($dirStructure);
    }
    if (is_windows()) {
        if (strlen($dirStructure[0]) == 2 && $dirStructure[0][1] == ':') {
            /* C: prefix */
            $base = array_shift($dirStructure)."\\";
        } elseif ($dirStructure[0][0].$dirStructure[0][1] == "\\\\") {
            /* UNC absolute path */
            $base = array_shift($dirStructure)."\\".array_shift($dirStructure)."\\"; // we won't try to mkdir UNC share name
        }
    }
    foreach ($dirStructure as $dirPath) {
        $thePath .= $dirPath."/";
        $mkPath = $base.$thePath;

        if (!is_dir($mkPath)) {
            if (!sugar_mkdir($mkPath)) {
                return false;
            }
        }
    }
    return true;
}

function rmdir_recursive($path)
{
    if (is_file($path)) {
        return(unlink($path));
    }
    if (!is_dir($path)) {
        if (file_exists($path) && !empty($GLOBALS['log'])) {
            $GLOBALS['log']->fatal("ERROR: rmdir_recursive(): argument $path is not a file or a dir.");
        }
        return false;
    }

    $status = true;

    $d = dir($path);
    
    while (($f = $d->read()) !== false) {
        if ($f == "." || $f == "..") {
            continue;
        }
        $status &= rmdir_recursive("$path/$f");
    }
    $d->close();
    $rmOk = @rmdir($path);
    if ($rmOk === false) {
        $GLOBALS['log']->error("ERROR: Unable to remove directory $path");
    }
    return($status);
}

function findTextFiles($the_dir, $the_array)
{
    if (!is_dir($the_dir)) {
        return $the_array;
    }
    $d = dir($the_dir);
    while (false !== ($f = $d->read())) {
        if ($f == "." || $f == "..") {
            continue;
        }
        if (is_dir("$the_dir/$f")) {
            // i think depth first is ok, given our cvs repo structure -Bob.
            $the_array = findTextFiles("$the_dir/$f", $the_array);
        } else {
            switch (mime_content_type("$the_dir/$f")) {
                // we take action on these cases
                case "text/html":
                case "text/plain":
                    array_push($the_array, "$the_dir/$f");
                    break;
                // we consciously skip these types
                case "application/pdf":
                case "application/x-zip":
                case "image/gif":
                case "image/jpeg":
                case "image/png":
                case "text/rtf":
                    break;
                default:
                    $GLOBALS['log']->info("no type handler for $the_dir/$f with mime_content_type: " . mime_content_type("$the_dir/$f") . "\n");
            }
        }
    }
    return($the_array);
}


function getBacktraceString()
{
    ob_start();
    debug_print_backtrace();
    $contents = ob_get_contents();
    ob_end_clean();
    return $contents;
}


function findAllFiles($the_dir, $the_array, $include_dirs=false, $ext='', $exclude_dir='')
{
    // jchi  #24296
    if (!empty($exclude_dir)) {
        $exclude_dir = is_array($exclude_dir)?$exclude_dir:array($exclude_dir);
        foreach ($exclude_dir as $ex_dir) {
            if ($the_dir == $ex_dir) {
                return $the_array;
            }
        }
    }
    $the_dir = rtrim($the_dir, "/\\");
    //end
    if (!is_dir($the_dir)) {
        return $the_array;
    }
    $d = dir($the_dir);

    if (is_null($d)) {
        $backtrace = getBacktraceString();
        $emsg = 'wrong parameter for dir() function: ' . $the_dir . "\n" . $backtrace;
        $GLOBALS['log']->fatal($emsg);
        return $the_array;
    }
    if ($d === false) {
        $backtrace = getBacktraceString();
        $emsg = 'dir() function return with another error: ' . $the_dir . "\n" . $backtrace;
        $GLOBALS['log']->fatal($emsg);
        return $the_array;
    }

    while (false !== ($f = $d->read())) {
        if ($f == "." || $f == "..") {
            continue;
        }

        if (is_dir("$the_dir/$f")) {
            // jchi  #24296
            if (!empty($exclude_dir)) {
                //loop through array to compare directories..
                foreach ($exclude_dir as $ex_dir) {
                    if ("$the_dir/$f" == $ex_dir) {
                        continue 2;
                    }
                }
            }
            //end

            if ($include_dirs) {
                $the_array[] = clean_path("$the_dir/$f");
            }
            $the_array = findAllFiles("$the_dir/$f", $the_array, $include_dirs, $ext);
        } else {
            if (empty($ext) || preg_match('/'.$ext.'$/i', $f)) {
                $the_array[] = "$the_dir/$f";
            }
        }
    }
    rsort($the_array);
    return $the_array;
}

function findAllFilesRelative($the_dir, $the_array)
{
    if (!is_dir($the_dir)) {
        return $the_array;
    }
    $original_dir   = getCwd();
    if (is_dir($the_dir)) {
        chdir($the_dir);
        $the_array = findAllFiles(".", $the_array);
        if (is_dir($original_dir)) {
            chdir($original_dir);
        }
    }
    return($the_array);
}

/*
 * Obtain an array of files that have been modified after the $date_modified
 *
 * @param the_dir			the directory to begin the search
 * @param the_array			array to hold the results
 * @param date_modified		the date to use when searching for files that have
 * 							been modified
 * @param filter			optional regular expression filter
 *
 * return					an array containing all of the files that have been
 * 							modified since date_modified
 */
function findAllTouchedFiles($the_dir, $the_array, $date_modified, $filter='')
{
    if (!is_dir($the_dir)) {
        return $the_array;
    }
    $d = dir($the_dir);
    while (false !== ($f = $d->read())) {
        if ($f == "." || $f == "..") {
            continue;
        }
        if (is_dir("$the_dir/$f")) {
            // i think depth first is ok, given our cvs repo structure -Bob.
            $the_array = findAllTouchedFiles("$the_dir/$f", $the_array, $date_modified, $filter);
        } else {
            $file_date = date('Y-m-d H:i:s', strtotime(date('Y-m-d H:i:s', filemtime("$the_dir/$f"))) - date('Z'));

            if (strtotime($file_date) > strtotime($date_modified) && (empty($filter) || preg_match($filter, $f))) {
                array_push($the_array, "$the_dir/$f");
            }
        }
    }
    return $the_array;
}