CRM/Utils/File.php

   1 <?php
   2 /*
   3  +--------------------------------------------------------------------+
   4  | CiviCRM version 5                                                  |
   5  +--------------------------------------------------------------------+
   6  | Copyright CiviCRM LLC (c) 2004-2018                                |
   7  +--------------------------------------------------------------------+
   8  | This file is a part of CiviCRM.                                    |
   9  |                                                                    |
  10  | CiviCRM is free software; you can copy, modify, and distribute it  |
  11  | under the terms of the GNU Affero General Public License           |
  12  | Version 3, 19 November 2007 and the CiviCRM Licensing Exception.   |
  13  |                                                                    |
  14  | CiviCRM is distributed in the hope that it will be useful, but     |
  15  | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16  | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.               |
  17  | See the GNU Affero General Public License for more details.        |
  18  |                                                                    |
  19  | You should have received a copy of the GNU Affero General Public   |
  20  | License and the CiviCRM Licensing Exception along                  |
  21  | with this program; if not, contact CiviCRM LLC                     |
  22  | at info[AT]civicrm[DOT]org. If you have questions about the        |
  23  | GNU Affero General Public License or the licensing of CiviCRM,     |
  24  | see the CiviCRM license FAQ at http://civicrm.org/licensing        |
  25  +--------------------------------------------------------------------+
  26  */
  27
  28 /**
  29  *
  30  * @package CRM
  31  * @copyright CiviCRM LLC (c) 2004-2018
  32  */
  33
  34 /**
  35  * class to provide simple static functions for file objects
  36  */
  37 class CRM_Utils_File {
  38
  39   /**
  40    * Given a file name, determine if the file contents make it an ascii file
  41    *
  42    * @param string $name
  43    *   Name of file.
  44    *
  45    * @return bool
  46    *   true if file is ascii
  47    */
  48   public static function isAscii($name) {
  49     $fd = fopen($name, "r");
  50     if (!$fd) {
  51       return FALSE;
  52     }
  53
  54     $ascii = TRUE;
  55     while (!feof($fd)) {
  56       $line = fgets($fd, 8192);
  57       if (!CRM_Utils_String::isAscii($line)) {
  58         $ascii = FALSE;
  59         break;
  60       }
  61     }
  62
  63     fclose($fd);
  64     return $ascii;
  65   }
  66
  67   /**
  68    * Given a file name, determine if the file contents make it an html file
  69    *
  70    * @param string $name
  71    *   Name of file.
  72    *
  73    * @return bool
  74    *   true if file is html
  75    */
  76   public static function isHtml($name) {
  77     $fd = fopen($name, "r");
  78     if (!$fd) {
  79       return FALSE;
  80     }
  81
  82     $html = FALSE;
  83     $lineCount = 0;
  84     while (!feof($fd) & $lineCount <= 5) {
  85       $lineCount++;
  86       $line = fgets($fd, 8192);
  87       if (!CRM_Utils_String::isHtml($line)) {
  88         $html = TRUE;
  89         break;
  90       }
  91     }
  92
  93     fclose($fd);
  94     return $html;
  95   }
  96
  97   /**
  98    * Create a directory given a path name, creates parent directories
  99    * if needed
 100    *
 101    * @param string $path
 102    *   The path name.
 103    * @param bool $abort
 104    *   Should we abort or just return an invalid code.
 105    * @return bool|NULL
 106    *   NULL: Folder already exists or was not specified.
 107    *   TRUE: Creation succeeded.
 108    *   FALSE: Creation failed.
 109    */
 110   public static function createDir($path, $abort = TRUE) {
 111     if (is_dir($path) || empty($path)) {
 112       return NULL;
 113     }
 114
 115     CRM_Utils_File::createDir(dirname($path), $abort);
 116     if (@mkdir($path, 0777) == FALSE) {
 117       if ($abort) {
 118         $docLink = CRM_Utils_System::docURL2('Moving an Existing Installation to a New Server or Location', NULL, NULL, NULL, NULL, "wiki");
 119         echo "Error: Could not create directory: $path.<p>If you have moved an existing CiviCRM installation from one location or server to another there are several steps you will need to follow. They are detailed on this CiviCRM wiki page - {$docLink}. A fix for the specific problem that caused this error message to be displayed is to set the value of the config_backend column in the civicrm_domain table to NULL. However we strongly recommend that you review and follow all the steps in that document.</p>";
 120
 121         CRM_Utils_System::civiExit();
 122       }
 123       else {
 124         return FALSE;
 125       }
 126     }
 127     return TRUE;
 128   }
 129
 130   /**
 131    * Delete a directory given a path name, delete children directories
 132    * and files if needed
 133    *
 134    * @param string $target
 135    *   The path name.
 136    * @param bool $rmdir
 137    * @param bool $verbose
 138    *
 139    * @throws Exception
 140    */
 141   public static function cleanDir($target, $rmdir = TRUE, $verbose = TRUE) {
 142     static $exceptions = array('.', '..');
 143     if ($target == '' || $target == '/' || !$target) {
 144       throw new Exception("Overly broad deletion");
 145     }
 146
 147     if ($dh = @opendir($target)) {
 148       while (FALSE !== ($sibling = readdir($dh))) {
 149         if (!in_array($sibling, $exceptions)) {
 150           $object = $target . DIRECTORY_SEPARATOR . $sibling;
 151
 152           if (is_dir($object)) {
 153             CRM_Utils_File::cleanDir($object, $rmdir, $verbose);
 154           }
 155           elseif (is_file($object)) {
 156             if (!unlink($object)) {
 157               CRM_Core_Session::setStatus(ts('Unable to remove file %1', array(1 => $object)), ts('Warning'), 'error');
 158             }
 159           }
 160         }
 161       }
 162       closedir($dh);
 163
 164       if ($rmdir) {
 165         if (rmdir($target)) {
 166           if ($verbose) {
 167             CRM_Core_Session::setStatus(ts('Removed directory %1', array(1 => $target)), '', 'success');
 168           }
 169           return TRUE;
 170         }
 171         else {
 172           CRM_Core_Session::setStatus(ts('Unable to remove directory %1', array(1 => $target)), ts('Warning'), 'error');
 173         }
 174       }
 175     }
 176   }
 177
 178   /**
 179    * Concatenate several files.
 180    *
 181    * @param array $files
 182    *   List of file names.
 183    * @param string $delim
 184    *   An optional delimiter to put between files.
 185    * @return string
 186    */
 187   public static function concat($files, $delim = '') {
 188     $buf = '';
 189     $first = TRUE;
 190     foreach ($files as $file) {
 191       if (!$first) {
 192         $buf .= $delim;
 193       }
 194       $buf .= file_get_contents($file);
 195       $first = FALSE;
 196     }
 197     return $buf;
 198   }
 199
 200   /**
 201    * @param string $source
 202    * @param string $destination
 203    */
 204   public static function copyDir($source, $destination) {
 205     if ($dh = opendir($source)) {
 206       @mkdir($destination);
 207       while (FALSE !== ($file = readdir($dh))) {
 208         if (($file != '.') && ($file != '..')) {
 209           if (is_dir($source . DIRECTORY_SEPARATOR . $file)) {
 210             CRM_Utils_File::copyDir($source . DIRECTORY_SEPARATOR . $file, $destination . DIRECTORY_SEPARATOR . $file);
 211           }
 212           else {
 213             copy($source . DIRECTORY_SEPARATOR . $file, $destination . DIRECTORY_SEPARATOR . $file);
 214           }
 215         }
 216       }
 217       closedir($dh);
 218     }
 219   }
 220
 221   /**
 222    * Given a file name, recode it (in place!) to UTF-8
 223    *
 224    * @param string $name
 225    *   Name of file.
 226    *
 227    * @return bool
 228    *   whether the file was recoded properly
 229    */
 230   public static function toUtf8($name) {
 231     static $config = NULL;
 232     static $legacyEncoding = NULL;
 233     if ($config == NULL) {
 234       $config = CRM_Core_Config::singleton();
 235       $legacyEncoding = $config->legacyEncoding;
 236     }
 237
 238     if (!function_exists('iconv')) {
 239
 240       return FALSE;
 241
 242     }
 243
 244     $contents = file_get_contents($name);
 245     if ($contents === FALSE) {
 246       return FALSE;
 247     }
 248
 249     $contents = iconv($legacyEncoding, 'UTF-8', $contents);
 250     if ($contents === FALSE) {
 251       return FALSE;
 252     }
 253
 254     $file = fopen($name, 'w');
 255     if ($file === FALSE) {
 256       return FALSE;
 257     }
 258
 259     $written = fwrite($file, $contents);
 260     $closed = fclose($file);
 261     if ($written === FALSE or !$closed) {
 262       return FALSE;
 263     }
 264
 265     return TRUE;
 266   }
 267
 268   /**
 269    * Appends a slash to the end of a string if it doesn't already end with one
 270    *
 271    * @param string $path
 272    * @param string $slash
 273    *
 274    * @return string
 275    */
 276   public static function addTrailingSlash($path, $slash = NULL) {
 277     if (!$slash) {
 278       // FIXME: Defaulting to backslash on windows systems can produce
 279       // unexpected results, esp for URL strings which should always use forward-slashes.
 280       // I think this fn should default to forward-slash instead.
 281       $slash = DIRECTORY_SEPARATOR;
 282     }
 283     if (!in_array(substr($path, -1, 1), array('/', '\\'))) {
 284       $path .= $slash;
 285     }
 286     return $path;
 287   }
 288
 289   /**
 290    * Save a fake file somewhere
 291    *
 292    * @param string $dir
 293    *   The directory where the file should be saved.
 294    * @param string $contents
 295    *   Optional: the contents of the file.
 296    * @param string $fileName
 297    *
 298    * @return string
 299    *   The filename saved, or FALSE on failure.
 300    */
 301   public static function createFakeFile($dir, $contents = 'delete me', $fileName = NULL) {
 302     $dir = self::addTrailingSlash($dir);
 303     if (!$fileName) {
 304       $fileName = 'delete-this-' . CRM_Utils_String::createRandom(10, CRM_Utils_String::ALPHANUMERIC);
 305     }
 306     $success = @file_put_contents($dir . $fileName, $contents);
 307
 308     return ($success === FALSE) ? FALSE : $fileName;
 309   }
 310
 311   /**
 312    * @param string|NULL $dsn
 313    *   Use NULL to load the default/active connection from CRM_Core_DAO.
 314    *   Otherwise, give a full DSN string.
 315    * @param string $fileName
 316    * @param string $prefix
 317    * @param bool $dieOnErrors
 318    */
 319   public static function sourceSQLFile($dsn, $fileName, $prefix = NULL, $dieOnErrors = TRUE) {
 320     if (FALSE === file_get_contents($fileName)) {
 321       // Our file cannot be found.
 322       // Using 'die' here breaks this on extension upgrade.
 323       throw new CRM_Exception('Could not find the SQL file.');
 324     }
 325
 326     self::runSqlQuery($dsn, file_get_contents($fileName), $prefix, $dieOnErrors);
 327   }
 328
 329   /**
 330    *
 331    * @param string|NULL $dsn
 332    * @param string $queryString
 333    * @param string $prefix
 334    * @param bool $dieOnErrors
 335    */
 336   public static function runSqlQuery($dsn, $queryString, $prefix = NULL, $dieOnErrors = TRUE) {
 337     $string = $prefix . $queryString;
 338
 339     if ($dsn === NULL) {
 340       $db = CRM_Core_DAO::getConnection();
 341     }
 342     else {
 343       require_once 'DB.php';
 344       $db = DB::connect($dsn);
 345     }
 346
 347     if (PEAR::isError($db)) {
 348       die("Cannot open $dsn: " . $db->getMessage());
 349     }
 350     if (CRM_Utils_Constant::value('CIVICRM_MYSQL_STRICT', CRM_Utils_System::isDevelopment())) {
 351       $db->query('SET SESSION sql_mode = STRICT_TRANS_TABLES');
 352     }
 353     $db->query('SET NAMES utf8');
 354     $transactionId = CRM_Utils_Type::escape(CRM_Utils_Request::id(), 'String');
 355     $db->query('SET @uniqueID = ' . "'$transactionId'");
 356
 357     // get rid of comments starting with # and --
 358
 359     $string = self::stripComments($string);
 360
 361     $queries = preg_split('/;\s*$/m', $string);
 362     foreach ($queries as $query) {
 363       $query = trim($query);
 364       if (!empty($query)) {
 365         CRM_Core_Error::debug_query($query);
 366         $res = &$db->query($query);
 367         if (PEAR::isError($res)) {
 368           if ($dieOnErrors) {
 369             die("Cannot execute $query: " . $res->getMessage());
 370           }
 371           else {
 372             echo "Cannot execute $query: " . $res->getMessage() . "<p>";
 373           }
 374         }
 375       }
 376     }
 377   }
 378
 379   /**
 380    *
 381    * Strips comment from a possibly multiline SQL string
 382    *
 383    * @param string $string
 384    *
 385    * @return string
 386    *   stripped string
 387    */
 388   public static function stripComments($string) {
 389     return preg_replace("/^(#|--).*\R*/m", "", $string);
 390   }
 391
 392   /**
 393    * @param $ext
 394    *
 395    * @return bool
 396    */
 397   public static function isExtensionSafe($ext) {
 398     static $extensions = NULL;
 399     if (!$extensions) {
 400       $extensions = CRM_Core_OptionGroup::values('safe_file_extension', TRUE);
 401
 402       // make extensions to lowercase
 403       $extensions = array_change_key_case($extensions, CASE_LOWER);
 404       // allow html/htm extension ONLY if the user is admin
 405       // and/or has access CiviMail
 406       if (!(CRM_Core_Permission::check('access CiviMail') ||
 407         CRM_Core_Permission::check('administer CiviCRM') ||
 408         (CRM_Mailing_Info::workflowEnabled() &&
 409           CRM_Core_Permission::check('create mailings')
 410         )
 411       )
 412       ) {
 413         unset($extensions['html']);
 414         unset($extensions['htm']);
 415       }
 416     }
 417     // support lower and uppercase file extensions
 418     return isset($extensions[strtolower($ext)]) ? TRUE : FALSE;
 419   }
 420
 421   /**
 422    * Determine whether a given file is listed in the PHP include path.
 423    *
 424    * @param string $name
 425    *   Name of file.
 426    *
 427    * @return bool
 428    *   whether the file can be include()d or require()d
 429    */
 430   public static function isIncludable($name) {
 431     $x = @fopen($name, 'r', TRUE);
 432     if ($x) {
 433       fclose($x);
 434       return TRUE;
 435     }
 436     else {
 437       return FALSE;
 438     }
 439   }
 440
 441   /**
 442    * Remove the 32 bit md5 we add to the fileName also remove the unknown tag if we added it.
 443    *
 444    * @param $name
 445    *
 446    * @return mixed
 447    */
 448   public static function cleanFileName($name) {
 449     // replace the last 33 character before the '.' with null
 450     $name = preg_replace('/(_[\w]{32})\./', '.', $name);
 451     return $name;
 452   }
 453
 454   /**
 455    * Make a valid file name.
 456    *
 457    * @param string $name
 458    *
 459    * @return string
 460    */
 461   public static function makeFileName($name) {
 462     $uniqID = md5(uniqid(rand(), TRUE));
 463     $info = pathinfo($name);
 464     $basename = substr($info['basename'],
 465       0, -(strlen(CRM_Utils_Array::value('extension', $info)) + (CRM_Utils_Array::value('extension', $info) == '' ? 0 : 1))
 466     );
 467     if (!self::isExtensionSafe(CRM_Utils_Array::value('extension', $info))) {
 468       // munge extension so it cannot have an embbeded dot in it
 469       // The maximum length of a filename for most filesystems is 255 chars.
 470       // We'll truncate at 240 to give some room for the extension.
 471       return CRM_Utils_String::munge("{$basename}_" . CRM_Utils_Array::value('extension', $info) . "_{$uniqID}", '_', 240) . ".unknown";
 472     }
 473     else {
 474       return CRM_Utils_String::munge("{$basename}_{$uniqID}", '_', 240) . "." . CRM_Utils_Array::value('extension', $info);
 475     }
 476   }
 477
 478   /**
 479    * Copies a file
 480    *
 481    * @param $filePath
 482    * @return mixed
 483    */
 484   public static function duplicate($filePath) {
 485     $oldName = pathinfo($filePath, PATHINFO_FILENAME);
 486     $uniqID = md5(uniqid(rand(), TRUE));
 487     $newName = preg_replace('/(_[\w]{32})$/', '', $oldName) . '_' . $uniqID;
 488     $newPath = str_replace($oldName, $newName, $filePath);
 489     copy($filePath, $newPath);
 490     return $newPath;
 491   }
 492
 493   /**
 494    * Get files for the extension.
 495    *
 496    * @param string $path
 497    * @param string $ext
 498    *
 499    * @return array
 500    */
 501   public static function getFilesByExtension($path, $ext) {
 502     $path = self::addTrailingSlash($path);
 503     $files = array();
 504     if ($dh = opendir($path)) {
 505       while (FALSE !== ($elem = readdir($dh))) {
 506         if (substr($elem, -(strlen($ext) + 1)) == '.' . $ext) {
 507           $files[] .= $path . $elem;
 508         }
 509       }
 510       closedir($dh);
 511     }
 512     return $files;
 513   }
 514
 515   /**
 516    * Restrict access to a given directory (by planting there a restrictive .htaccess file)
 517    *
 518    * @param string $dir
 519    *   The directory to be secured.
 520    * @param bool $overwrite
 521    */
 522   public static function restrictAccess($dir, $overwrite = FALSE) {
 523     // note: empty value for $dir can play havoc, since that might result in putting '.htaccess' to root dir
 524     // of site, causing site to stop functioning.
 525     // FIXME: we should do more checks here -
 526     if (!empty($dir) && is_dir($dir)) {
 527       $htaccess = <<<HTACCESS
 528 <Files "*">
 529   Order allow,deny
 530   Deny from all
 531 </Files>
 532
 533 HTACCESS;
 534       $file = $dir . '.htaccess';
 535       if ($overwrite || !file_exists($file)) {
 536         if (file_put_contents($file, $htaccess) === FALSE) {
 537           CRM_Core_Error::movedSiteError($file);
 538         }
 539       }
 540     }
 541   }
 542
 543   /**
 544    * Restrict remote users from browsing the given directory.
 545    *
 546    * @param $publicDir
 547    */
 548   public static function restrictBrowsing($publicDir) {
 549     if (!is_dir($publicDir) || !is_writable($publicDir)) {
 550       return;
 551     }
 552
 553     // base dir
 554     $nobrowse = realpath($publicDir) . '/index.html';
 555     if (!file_exists($nobrowse)) {
 556       @file_put_contents($nobrowse, '');
 557     }
 558
 559     // child dirs
 560     $dir = new RecursiveDirectoryIterator($publicDir);
 561     foreach ($dir as $name => $object) {
 562       if (is_dir($name) && $name != '..') {
 563         $nobrowse = realpath($name) . '/index.html';
 564         if (!file_exists($nobrowse)) {
 565           @file_put_contents($nobrowse, '');
 566         }
 567       }
 568     }
 569   }
 570
 571   /**
 572    * Create the base file path from which all our internal directories are
 573    * offset. This is derived from the template compile directory set
 574    */
 575   public static function baseFilePath() {
 576     static $_path = NULL;
 577     if (!$_path) {
 578       // Note: Don't rely on $config; that creates a dependency loop.
 579       if (!defined('CIVICRM_TEMPLATE_COMPILEDIR')) {
 580         throw new RuntimeException("Undefined constant: CIVICRM_TEMPLATE_COMPILEDIR");
 581       }
 582       $templateCompileDir = CIVICRM_TEMPLATE_COMPILEDIR;
 583
 584       $path = dirname($templateCompileDir);
 585
 586       //this fix is to avoid creation of upload dirs inside templates_c directory
 587       $checkPath = explode(DIRECTORY_SEPARATOR, $path);
 588
 589       $cnt = count($checkPath) - 1;
 590       if ($checkPath[$cnt] == 'templates_c') {
 591         unset($checkPath[$cnt]);
 592         $path = implode(DIRECTORY_SEPARATOR, $checkPath);
 593       }
 594
 595       $_path = CRM_Utils_File::addTrailingSlash($path);
 596     }
 597     return $_path;
 598   }
 599
 600   /**
 601    * Determine if a path is absolute.
 602    *
 603    * @param string $path
 604    *
 605    * @return bool
 606    *   TRUE if absolute. FALSE if relative.
 607    */
 608   public static function isAbsolute($path) {
 609     if (substr($path, 0, 1) === DIRECTORY_SEPARATOR) {
 610       return TRUE;
 611     }
 612     if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
 613       if (preg_match('!^[a-zA-Z]:[/\\\\]!', $path)) {
 614         return TRUE;
 615       }
 616     }
 617     return FALSE;
 618   }
 619
 620   /**
 621    * @param $directory
 622    *
 623    * @return string
 624    */
 625   public static function relativeDirectory($directory) {
 626     // Do nothing on windows
 627     if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
 628       return $directory;
 629     }
 630
 631     // check if directory is relative, if so return immediately
 632     if (!self::isAbsolute($directory)) {
 633       return $directory;
 634     }
 635
 636     // make everything relative from the baseFilePath
 637     $basePath = self::baseFilePath();
 638     // check if basePath is a substr of $directory, if so
 639     // return rest of string
 640     if (substr($directory, 0, strlen($basePath)) == $basePath) {
 641       return substr($directory, strlen($basePath));
 642     }
 643
 644     // return the original value
 645     return $directory;
 646   }
 647
 648   /**
 649    * @param $directory
 650    * @param string|NULL $basePath
 651    *   The base path when evaluating relative paths. Should include trailing slash.
 652    *
 653    * @return string
 654    */
 655   public static function absoluteDirectory($directory, $basePath = NULL) {
 656     // check if directory is already absolute, if so return immediately
 657     // Note: Windows PHP accepts any mix of "/" or "\", so "C:\htdocs" or "C:/htdocs" would be a valid absolute path
 658     if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN' && preg_match(';^[a-zA-Z]:[/\\\\];', $directory)) {
 659       return $directory;
 660     }
 661
 662     // check if directory is already absolute, if so return immediately
 663     if (substr($directory, 0, 1) == DIRECTORY_SEPARATOR) {
 664       return $directory;
 665     }
 666
 667     // make everything absolute from the baseFilePath
 668     $basePath = ($basePath === NULL) ? self::baseFilePath() : $basePath;
 669
 670     // ensure that $basePath has a trailing slash
 671     $basePath = self::addTrailingSlash($basePath);
 672     return $basePath . $directory;
 673   }
 674
 675   /**
 676    * Make a file path relative to some base dir.
 677    *
 678    * @param $directory
 679    * @param $basePath
 680    *
 681    * @return string
 682    */
 683   public static function relativize($directory, $basePath) {
 684     if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
 685       $directory = strtr($directory, '\\', '/');
 686       $basePath = strtr($basePath, '\\', '/');
 687     }
 688     if (substr($directory, 0, strlen($basePath)) == $basePath) {
 689       return substr($directory, strlen($basePath));
 690     }
 691     else {
 692       return $directory;
 693     }
 694   }
 695
 696   /**
 697    * Create a path to a temporary file which can endure for multiple requests.
 698    *
 699    * @todo Automatic file cleanup using, eg, TTL policy
 700    *
 701    * @param string $prefix
 702    *
 703    * @return string, path to an openable/writable file
 704    * @see tempnam
 705    */
 706   public static function tempnam($prefix = 'tmp-') {
 707     // $config = CRM_Core_Config::singleton();
 708     // $nonce = md5(uniqid() . $config->dsn . $config->userFrameworkResourceURL);
 709     // $fileName = "{$config->configAndLogDir}" . $prefix . $nonce . $suffix;
 710     $fileName = tempnam(sys_get_temp_dir(), $prefix);
 711     return $fileName;
 712   }
 713
 714   /**
 715    * Create a path to a temporary directory which can endure for multiple requests.
 716    *
 717    * @todo Automatic file cleanup using, eg, TTL policy
 718    *
 719    * @param string $prefix
 720    *
 721    * @return string, path to an openable/writable directory; ends with '/'
 722    * @see tempnam
 723    */
 724   public static function tempdir($prefix = 'tmp-') {
 725     $fileName = self::tempnam($prefix);
 726     unlink($fileName);
 727     mkdir($fileName, 0700);
 728     return $fileName . '/';
 729   }
 730
 731   /**
 732    * Search directory tree for files which match a glob pattern.
 733    *
 734    * Note: Dot-directories (like "..", ".git", or ".svn") will be ignored.
 735    *
 736    * @param string $dir
 737    *   base dir.
 738    * @param string $pattern
 739    *   glob pattern, eg "*.txt".
 740    * @param bool $relative
 741    *   TRUE if paths should be made relative to $dir
 742    * @return array(string)
 743    */
 744   public static function findFiles($dir, $pattern, $relative = FALSE) {
 745     if (!is_dir($dir)) {
 746       return array();
 747     }
 748     $dir = rtrim($dir, '/');
 749     $todos = array($dir);
 750     $result = array();
 751     while (!empty($todos)) {
 752       $subdir = array_shift($todos);
 753       $matches = glob("$subdir/$pattern");
 754       if (is_array($matches)) {
 755         foreach ($matches as $match) {
 756           if (!is_dir($match)) {
 757             $result[] = $relative ? CRM_Utils_File::relativize($match, "$dir/") : $match;
 758           }
 759         }
 760       }
 761       if ($dh = opendir($subdir)) {
 762         while (FALSE !== ($entry = readdir($dh))) {
 763           $path = $subdir . DIRECTORY_SEPARATOR . $entry;
 764           if ($entry{0} == '.') {
 765             // ignore
 766           }
 767           elseif (is_dir($path)) {
 768             $todos[] = $path;
 769           }
 770         }
 771         closedir($dh);
 772       }
 773     }
 774     return $result;
 775   }
 776
 777   /**
 778    * Determine if $child is a sub-directory of $parent
 779    *
 780    * @param string $parent
 781    * @param string $child
 782    * @param bool $checkRealPath
 783    *
 784    * @return bool
 785    */
 786   public static function isChildPath($parent, $child, $checkRealPath = TRUE) {
 787     if ($checkRealPath) {
 788       $parent = realpath($parent);
 789       $child = realpath($child);
 790     }
 791     $parentParts = explode('/', rtrim($parent, '/'));
 792     $childParts = explode('/', rtrim($child, '/'));
 793     while (($parentPart = array_shift($parentParts)) !== NULL) {
 794       $childPart = array_shift($childParts);
 795       if ($parentPart != $childPart) {
 796         return FALSE;
 797       }
 798     }
 799     if (empty($childParts)) {
 800       return FALSE; // same directory
 801     }
 802     else {
 803       return TRUE;
 804     }
 805   }
 806
 807   /**
 808    * Move $fromDir to $toDir, replacing/deleting any
 809    * pre-existing content.
 810    *
 811    * @param string $fromDir
 812    *   The directory which should be moved.
 813    * @param string $toDir
 814    *   The new location of the directory.
 815    * @param bool $verbose
 816    *
 817    * @return bool
 818    *   TRUE on success
 819    */
 820   public static function replaceDir($fromDir, $toDir, $verbose = FALSE) {
 821     if (is_dir($toDir)) {
 822       if (!self::cleanDir($toDir, TRUE, $verbose)) {
 823         return FALSE;
 824       }
 825     }
 826
 827     // return rename($fromDir, $toDir); CRM-11987, https://bugs.php.net/bug.php?id=54097
 828
 829     CRM_Utils_File::copyDir($fromDir, $toDir);
 830     if (!CRM_Utils_File::cleanDir($fromDir, TRUE, FALSE)) {
 831       CRM_Core_Session::setStatus(ts('Failed to clean temp dir: %1', array(1 => $fromDir)), '', 'alert');
 832       return FALSE;
 833     }
 834     return TRUE;
 835   }
 836
 837   /**
 838    * Format file.
 839    *
 840    * @param array $param
 841    * @param string $fileName
 842    * @param array $extraParams
 843    */
 844   public static function formatFile(&$param, $fileName, $extraParams = array()) {
 845     if (empty($param[$fileName])) {
 846       return;
 847     }
 848
 849     $fileParams = array(
 850       'uri' => $param[$fileName]['name'],
 851       'type' => $param[$fileName]['type'],
 852       'location' => $param[$fileName]['name'],
 853       'upload_date' => date('YmdHis'),
 854     ) + $extraParams;
 855
 856     $param[$fileName] = $fileParams;
 857   }
 858
 859   /**
 860    * Return formatted file URL, like for image file return image url with image icon
 861    *
 862    * @param string $path
 863    *   Absoulte file path
 864    * @param string $fileType
 865    * @param string $url
 866    *   File preview link e.g. https://example.com/civicrm/file?reset=1&filename=image.png&mime-type=image/png
 867    *
 868    * @return string $url
 869    */
 870   public static function getFileURL($path, $fileType, $url = NULL) {
 871     if (empty($path) || empty($fileType)) {
 872       return '';
 873     }
 874     elseif (empty($url)) {
 875       $fileName = basename($path);
 876       $url = CRM_Utils_System::url('civicrm/file', "reset=1&filename={$fileName}&mime-type={$fileType}");
 877     }
 878     switch ($fileType) {
 879       case 'image/jpeg':
 880       case 'image/pjpeg':
 881       case 'image/gif':
 882       case 'image/x-png':
 883       case 'image/png':
 884       case 'image/jpg':
 885         list($imageWidth, $imageHeight) = getimagesize($path);
 886         list($imageThumbWidth, $imageThumbHeight) = CRM_Contact_BAO_Contact::getThumbSize($imageWidth, $imageHeight);
 887         $url = "<a href=\"$url\" class='crm-image-popup'>
 888           <img src=\"$url\" width=$imageThumbWidth height=$imageThumbHeight/>
 889           </a>";
 890         break;
 891
 892       default:
 893         $url = sprintf('<a href="%s">%s</a>', $url, self::cleanFileName(basename($path)));
 894         break;
 895     }
 896
 897     return $url;
 898   }
 899
 900   /**
 901    * Return formatted image icon
 902    *
 903    * @param string $imageURL
 904    *   Contact's image url
 905    *
 906    * @return string $url
 907    */
 908   public static function getImageURL($imageURL) {
 909     // retrieve image name from $imageURL
 910     $imageURL = CRM_Utils_String::unstupifyUrl($imageURL);
 911     parse_str(parse_url($imageURL, PHP_URL_QUERY), $query);
 912
 913     $url = NULL;
 914     if (!empty($query['photo'])) {
 915       $path = CRM_Core_Config::singleton()->customFileUploadDir . $query['photo'];
 916     }
 917     else {
 918       $path = $url = $imageURL;
 919     }
 920     $mimeType = 'image/' . strtolower(pathinfo($path, PATHINFO_EXTENSION));
 921
 922     return self::getFileURL($path, $mimeType, $url);
 923   }
 924
 925   /**
 926    * Resize an image.
 927    *
 928    * @param string $sourceFile
 929    *   Filesystem path to existing image on server
 930    * @param int $targetWidth
 931    *   New width desired, in pixels
 932    * @param int $targetHeight
 933    *   New height desired, in pixels
 934    * @param string $suffix = ""
 935    *   If supplied, the image will be renamed to include this suffix. For
 936    *   example if the original file name is "foo.png" and $suffix = "_bar",
 937    *   then the final file name will be "foo_bar.png".
 938    * @param bool $preserveAspect = TRUE
 939    *   When TRUE $width and $height will be used as a bounding box, outside of
 940    *   which the resized image will not extend.
 941    *   When FALSE, the image will be resized exactly to $width and $height, even
 942    *   if it means stretching it.
 943    *
 944    * @return string
 945    *   Path to image
 946    * @throws \CRM_Core_Exception
 947    *   Under the following conditions
 948    *   - When GD is not available.
 949    *   - When the source file is not an image.
 950    */
 951   public static function resizeImage($sourceFile, $targetWidth, $targetHeight, $suffix = "", $preserveAspect = TRUE) {
 952
 953     // Check if GD is installed
 954     $gdSupport = CRM_Utils_System::getModuleSetting('gd', 'GD Support');
 955     if (!$gdSupport) {
 956       throw new CRM_Core_Exception(ts('Unable to resize image because the GD image library is not currently compiled in your PHP installation.'));
 957     }
 958
 959     $sourceMime = mime_content_type($sourceFile);
 960     if ($sourceMime == 'image/gif') {
 961       $sourceData = imagecreatefromgif($sourceFile);
 962     }
 963     elseif ($sourceMime == 'image/png') {
 964       $sourceData = imagecreatefrompng($sourceFile);
 965     }
 966     elseif ($sourceMime == 'image/jpeg') {
 967       $sourceData = imagecreatefromjpeg($sourceFile);
 968     }
 969     else {
 970       throw new CRM_Core_Exception(ts('Unable to resize image because the file supplied was not an image.'));
 971     }
 972
 973     // get image about original image
 974     $sourceInfo = getimagesize($sourceFile);
 975     $sourceWidth = $sourceInfo[0];
 976     $sourceHeight = $sourceInfo[1];
 977
 978     // Adjust target width/height if preserving aspect ratio
 979     if ($preserveAspect) {
 980       $sourceAspect = $sourceWidth / $sourceHeight;
 981       $targetAspect = $targetWidth / $targetHeight;
 982       if ($sourceAspect > $targetAspect) {
 983         $targetHeight = $targetWidth / $sourceAspect;
 984       }
 985       if ($sourceAspect < $targetAspect) {
 986         $targetWidth = $targetHeight * $sourceAspect;
 987       }
 988     }
 989
 990     // figure out the new filename
 991     $pathParts = pathinfo($sourceFile);
 992     $targetFile = $pathParts['dirname'] . DIRECTORY_SEPARATOR
 993       . $pathParts['filename'] . $suffix . "." . $pathParts['extension'];
 994
 995     $targetData = imagecreatetruecolor($targetWidth, $targetHeight);
 996
 997     // resize
 998     imagecopyresized($targetData, $sourceData,
 999       0, 0, 0, 0,
1000       $targetWidth, $targetHeight, $sourceWidth, $sourceHeight);
1001
1002     // save the resized image
1003     $fp = fopen($targetFile, 'w+');
1004     ob_start();
1005     imagejpeg($targetData);
1006     $image_buffer = ob_get_contents();
1007     ob_end_clean();
1008     imagedestroy($targetData);
1009     fwrite($fp, $image_buffer);
1010     rewind($fp);
1011     fclose($fp);
1012
1013     // return the URL to link to
1014     $config = CRM_Core_Config::singleton();
1015     return $config->imageUploadURL . basename($targetFile);
1016   }
1017
1018   /**
1019    * Get file icon class for specific MIME Type
1020    *
1021    * @param string $mimeType
1022    * @return string
1023    */
1024   public static function getIconFromMimeType($mimeType) {
1025     if (!isset(Civi::$statics[__CLASS__]['mimeIcons'])) {
1026       Civi::$statics[__CLASS__]['mimeIcons'] = json_decode(file_get_contents(__DIR__ . '/File/mimeIcons.json'), TRUE);
1027     }
1028     $iconClasses = Civi::$statics[__CLASS__]['mimeIcons'];
1029     foreach ($iconClasses as $text => $icon) {
1030       if (strpos($mimeType, $text) === 0) {
1031         return $icon;
1032       }
1033     }
1034     return $iconClasses['*'];
1035   }
1036
1037 }