/include/dir_inc.php
PHP | 248 lines | 170 code | 23 blank | 55 comment | 58 complexity | 3d81f515f41d3f7d654560093e10fcd2 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, AGPL-3.0, LGPL-2.1
- <?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-2011 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 );
- 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(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 ) ){
- $GLOBALS['log']->error( "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;
- }