2 if(!defined('sugarEntry') || !sugarEntry) die('Not A Valid Entry Point');
3 /*********************************************************************************
4 * SugarCRM Community Edition is a customer relationship management program developed by
5 * SugarCRM, Inc. Copyright (C) 2004-2012 SugarCRM Inc.
7 * This program is free software; you can redistribute it and/or modify it under
8 * the terms of the GNU Affero General Public License version 3 as published by the
9 * Free Software Foundation with the addition of the following permission added
10 * to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED WORK
11 * IN WHICH THE COPYRIGHT IS OWNED BY SUGARCRM, SUGARCRM DISCLAIMS THE WARRANTY
12 * OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
14 * This program is distributed in the hope that it will be useful, but WITHOUT
15 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16 * FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
19 * You should have received a copy of the GNU Affero General Public License along with
20 * this program; if not, see http://www.gnu.org/licenses or write to the Free
21 * Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
24 * You can contact SugarCRM, Inc. headquarters at 10050 North Wolfe Road,
25 * SW2-130, Cupertino, CA 95014, USA. or at email address contact@sugarcrm.com.
27 * The interactive user interfaces in modified source and object code versions
28 * of this program must display Appropriate Legal Notices, as required under
29 * Section 5 of the GNU Affero General Public License version 3.
31 * In accordance with Section 7(b) of the GNU Affero General Public License version 3,
32 * these Appropriate Legal Notices must retain the display of the "Powered by
33 * SugarCRM" logo. If the display of the logo is not reasonably feasible for
34 * technical reasons, the Appropriate Legal Notices must display the words
35 * "Powered by SugarCRM".
36 ********************************************************************************/
40 function copy_recursive( $source, $dest ){
43 if( is_file( $source ) ){
44 return( copy( $source, $dest ) );
46 if( !sugar_is_dir($dest, 'instance') ){
56 while(false !== ($f = $d->read())) {
57 if( $f == "." || $f == ".." ) {
60 $status &= copy_recursive( "$source/$f", "$dest/$f" );
66 function mkdir_recursive($path, $check_is_parent_dir = false)
68 if(sugar_is_dir($path, 'instance')) {
71 if(sugar_is_file($path, 'instance')) {
72 if(!empty($GLOBALS['log'])) {
73 $GLOBALS['log']->fatal("ERROR: mkdir_recursive(): argument $path is already a file.");
78 //make variables with file paths
79 $pathcmp = $path = rtrim(clean_path($path), '/');
80 $basecmp =$base = rtrim(clean_path(getcwd()), '/');
82 //make path variable lower case for comparison in windows
83 $pathcmp = strtolower($path);
84 $basecmp = strtolower($base);
87 if($basecmp == $pathcmp) {
91 if(strncmp($pathcmp, $basecmp, strlen($basecmp)) == 0) {
92 /* strip current path prefix */
93 $path = substr($path, strlen($base));
96 $dirStructure = explode("/", $path);
97 if($dirStructure[0] == '') {
100 array_shift($dirStructure);
103 if(strlen($dirStructure[0]) == 2 && $dirStructure[0][1] == ':') {
105 $base = array_shift($dirStructure)."\\";
106 } elseif ($dirStructure[0][0].$dirStructure[0][1] == "\\\\") {
107 /* UNC absolute path */
108 $base = array_shift($dirStructure)."\\".array_shift($dirStructure)."\\"; // we won't try to mkdir UNC share name
111 foreach($dirStructure as $dirPath) {
112 $thePath .= $dirPath."/";
113 $mkPath = $base.$thePath;
115 if(!is_dir($mkPath )) {
116 if(!sugar_mkdir($mkPath)) return false;
122 function rmdir_recursive( $path ){
123 if( is_file( $path ) ){
124 return( unlink( $path ) );
126 if( !is_dir( $path ) ){
127 if(!empty($GLOBALS['log'])) {
128 $GLOBALS['log']->fatal( "ERROR: rmdir_recursive(): argument $path is not a file or a dir." );
137 while(($f = $d->read()) !== false){
138 if( $f == "." || $f == ".." ){
141 $status &= rmdir_recursive( "$path/$f" );
144 $rmOk = @rmdir($path);
146 $GLOBALS['log']->error("ERROR: Unable to remove directory $path");
151 function findTextFiles( $the_dir, $the_array ){
152 if(!is_dir($the_dir)) {
156 while (false !== ($f = $d->read())) {
157 if( $f == "." || $f == ".." ){
160 if( is_dir( "$the_dir/$f" ) ){
161 // i think depth first is ok, given our cvs repo structure -Bob.
162 $the_array = findTextFiles( "$the_dir/$f", $the_array );
165 switch( mime_content_type( "$the_dir/$f" ) ){
166 // we take action on these cases
169 array_push( $the_array, "$the_dir/$f" );
171 // we consciously skip these types
172 case "application/pdf":
173 case "application/x-zip":
180 $GLOBALS['log']->info( "no type handler for $the_dir/$f with mime_content_type: " . mime_content_type( "$the_dir/$f" ) . "\n" );
184 return( $the_array );
187 function findAllFiles( $the_dir, $the_array, $include_dirs=false, $ext='', $exclude_dir=''){
189 if(!empty($exclude_dir)){
190 $exclude_dir = is_array($exclude_dir)?$exclude_dir:array($exclude_dir);
191 foreach($exclude_dir as $ex_dir){
192 if($the_dir == $ex_dir){
197 $the_dir = rtrim($the_dir, "/\\");
199 if(!is_dir($the_dir)) {
203 while (false !== ($f = $d->read())) {
204 if( $f == "." || $f == ".." ){
208 if( is_dir( "$the_dir/$f" ) ) {
210 if(!empty($exclude_dir)){
211 //loop through array to compare directories..
212 foreach($exclude_dir as $ex_dir){
213 if("$the_dir/$f" == $ex_dir){
221 $the_array[] = clean_path("$the_dir/$f");
223 $the_array = findAllFiles( "$the_dir/$f", $the_array, $include_dirs, $ext);
225 if(empty($ext) || preg_match('/'.$ext.'$/i', $f)){
226 $the_array[] = "$the_dir/$f";
236 function findAllFilesRelative( $the_dir, $the_array ){
237 if(!is_dir($the_dir)) {
240 $original_dir = getCwd();
241 if(is_dir($the_dir)){
243 $the_array = findAllFiles( ".", $the_array );
244 if(is_dir($original_dir)){
245 chdir( $original_dir );
248 return( $the_array );
252 * Obtain an array of files that have been modified after the $date_modified
254 * @param the_dir the directory to begin the search
255 * @param the_array array to hold the results
256 * @param date_modified the date to use when searching for files that have
258 * @param filter optional regular expression filter
260 * return an array containing all of the files that have been
261 * modified since date_modified
263 function findAllTouchedFiles( $the_dir, $the_array, $date_modified, $filter=''){
264 if(!is_dir($the_dir)) {
268 while (false !== ($f = $d->read())) {
269 if( $f == "." || $f == ".." ){
272 if( is_dir( "$the_dir/$f" ) ){
273 // i think depth first is ok, given our cvs repo structure -Bob.
274 $the_array = findAllTouchedFiles( "$the_dir/$f", $the_array, $date_modified, $filter);
277 $file_date = date('Y-m-d H:i:s', strtotime(date('Y-m-d H:i:s', filemtime("$the_dir/$f"))) - date('Z'));
279 if(strtotime($file_date) > strtotime($date_modified) && (empty($filter) || preg_match($filter, $f))){
280 array_push( $the_array, "$the_dir/$f");