246 lines
7.5 KiB
PHP
Executable File
246 lines
7.5 KiB
PHP
Executable File
<?php
|
|
if(!defined('sugarEntry') || !sugarEntry) die('Not A Valid Entry Point');
|
|
/*********************************************************************************
|
|
* SugarCRM is a customer relationship management program developed by
|
|
* SugarCRM, Inc. Copyright (C) 2004-2010 SugarCRM Inc.
|
|
*
|
|
* 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. If the display of the logo is not reasonably feasible for
|
|
* technical reasons, the Appropriate Legal Notices must display the words
|
|
* "Powered by SugarCRM".
|
|
********************************************************************************/
|
|
|
|
|
|
function copy_recursive( $source, $dest ){
|
|
|
|
|
|
if( is_file( $source ) ){
|
|
return( copy( $source, $dest ) );
|
|
}
|
|
if( !sugar_is_dir($dest, 'instance') ){
|
|
sugar_mkdir( $dest );
|
|
}
|
|
|
|
$status = true;
|
|
|
|
$d = dir( $source );
|
|
while( $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(sugar_is_dir($path, 'instance')) {
|
|
return(true);
|
|
}
|
|
if(sugar_is_file($path, 'instance')) {
|
|
print("ERROR: mkdir_recursive(): argument $path is already a file.\n");
|
|
return false;
|
|
}
|
|
|
|
$path = clean_path($path);
|
|
$path = str_replace(clean_path(getcwd()), '', $path);
|
|
$thePath = '';
|
|
$dirStructure = explode("/", $path);
|
|
$status = true;
|
|
foreach($dirStructure as $dirPath) {
|
|
$thePath .= '/'.$dirPath;
|
|
$mkPath = getcwd().'/'.$thePath;
|
|
|
|
if(!is_dir($mkPath )) {
|
|
$status = $status & sugar_mkdir($mkPath);
|
|
}
|
|
}
|
|
return $status;
|
|
|
|
}
|
|
|
|
function rmdir_recursive( $path ){
|
|
if( is_file( $path ) ){
|
|
return( unlink( $path ) );
|
|
}
|
|
if( !is_dir( $path ) ){
|
|
print( "ERROR: rmdir_recursive(): argument $path is not a file or a dir.\n" );
|
|
return( false );
|
|
}
|
|
|
|
$status = true;
|
|
|
|
$d = dir( $path );
|
|
while( $f = $d->read() ){
|
|
if( $f == "." || $f == ".." ){
|
|
continue;
|
|
}
|
|
$status &= rmdir_recursive( "$path/$f" );
|
|
}
|
|
$d->close();
|
|
rmdir( $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:
|
|
debug( "no type handler for $the_dir/$f with mime_content_type: " . mime_content_type( "$the_dir/$f" ) . "\n" );
|
|
}
|
|
}
|
|
}
|
|
return( $the_array );
|
|
}
|
|
|
|
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;
|
|
}
|
|
}
|
|
}
|
|
//end
|
|
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" ) ) {
|
|
// 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[] = clean_path("$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 );
|
|
}
|
|
?>
|