324 lines
10 KiB
PHP
Executable File
324 lines
10 KiB
PHP
Executable File
<?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;
|
|
}
|