3 +--------------------------------------------------------------------+
4 | Copyright CiviCRM LLC. All rights reserved. |
6 | This work is published under the GNU AGPLv3 license with some |
7 | permitted exceptions and without any warranty. For full license |
8 | and copyright information, see https://civicrm.org/licensing |
9 +--------------------------------------------------------------------+
15 * @copyright CiviCRM LLC https://civicrm.org/licensing
19 * class to provide simple static functions for file objects
21 class CRM_Utils_File
{
24 * Given a file name, determine if the file contents make it an ascii file
30 * true if file is ascii
32 public static function isAscii($name) {
33 $fd = fopen($name, "r");
40 $line = fgets($fd, 8192);
41 if (!CRM_Utils_String
::isAscii($line)) {
52 * Given a file name, determine if the file contents make it an html file
58 * true if file is html
60 public static function isHtml($name) {
61 $fd = fopen($name, "r");
68 while (!feof($fd) & $lineCount <= 5) {
70 $line = fgets($fd, 8192);
71 if (!CRM_Utils_String
::isHtml($line)) {
82 * Create a directory given a path name, creates parent directories
88 * Should we abort or just return an invalid code.
90 * NULL: Folder already exists or was not specified.
91 * TRUE: Creation succeeded.
92 * FALSE: Creation failed.
94 public static function createDir($path, $abort = TRUE) {
95 if (is_dir($path) ||
empty($path)) {
99 CRM_Utils_File
::createDir(dirname($path), $abort);
100 if (@mkdir
($path, 0777) == FALSE) {
102 $docLink = CRM_Utils_System
::docURL2('Moving an Existing Installation to a New Server or Location', NULL, NULL, NULL, NULL, "wiki");
103 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>";
105 CRM_Utils_System
::civiExit();
115 * Delete a directory given a path name, delete children directories
116 * and files if needed
118 * @param string $target
121 * @param bool $verbose
125 public static function cleanDir($target, $rmdir = TRUE, $verbose = TRUE) {
126 static $exceptions = ['.', '..'];
127 if ($target == '' ||
$target == '/' ||
!$target) {
128 throw new Exception("Overly broad deletion");
131 if ($dh = @opendir
($target)) {
132 while (FALSE !== ($sibling = readdir($dh))) {
133 if (!in_array($sibling, $exceptions)) {
134 $object = $target . DIRECTORY_SEPARATOR
. $sibling;
136 if (is_dir($object)) {
137 CRM_Utils_File
::cleanDir($object, $rmdir, $verbose);
139 elseif (is_file($object)) {
140 if (!unlink($object)) {
141 CRM_Core_Session
::setStatus(ts('Unable to remove file %1', [1 => $object]), ts('Warning'), 'error');
149 if (rmdir($target)) {
151 CRM_Core_Session
::setStatus(ts('Removed directory %1', [1 => $target]), '', 'success');
156 CRM_Core_Session
::setStatus(ts('Unable to remove directory %1', [1 => $target]), ts('Warning'), 'error');
163 * Concatenate several files.
165 * @param array $files
166 * List of file names.
167 * @param string $delim
168 * An optional delimiter to put between files.
171 public static function concat($files, $delim = '') {
174 foreach ($files as $file) {
178 $buf .= file_get_contents($file);
185 * @param string $source
186 * @param string $destination
188 public static function copyDir($source, $destination) {
189 if ($dh = opendir($source)) {
190 @mkdir
($destination);
191 while (FALSE !== ($file = readdir($dh))) {
192 if (($file != '.') && ($file != '..')) {
193 if (is_dir($source . DIRECTORY_SEPARATOR
. $file)) {
194 CRM_Utils_File
::copyDir($source . DIRECTORY_SEPARATOR
. $file, $destination . DIRECTORY_SEPARATOR
. $file);
197 copy($source . DIRECTORY_SEPARATOR
. $file, $destination . DIRECTORY_SEPARATOR
. $file);
206 * Given a file name, recode it (in place!) to UTF-8
208 * @param string $name
212 * whether the file was recoded properly
214 public static function toUtf8($name) {
215 static $config = NULL;
216 static $legacyEncoding = NULL;
217 if ($config == NULL) {
218 $config = CRM_Core_Config
::singleton();
219 $legacyEncoding = $config->legacyEncoding
;
222 if (!function_exists('iconv')) {
228 $contents = file_get_contents($name);
229 if ($contents === FALSE) {
233 $contents = iconv($legacyEncoding, 'UTF-8', $contents);
234 if ($contents === FALSE) {
238 $file = fopen($name, 'w');
239 if ($file === FALSE) {
243 $written = fwrite($file, $contents);
244 $closed = fclose($file);
245 if ($written === FALSE or !$closed) {
253 * Appends a slash to the end of a string if it doesn't already end with one
255 * @param string $path
256 * @param string $slash
260 public static function addTrailingSlash($path, $slash = NULL) {
262 // FIXME: Defaulting to backslash on windows systems can produce
263 // unexpected results, esp for URL strings which should always use forward-slashes.
264 // I think this fn should default to forward-slash instead.
265 $slash = DIRECTORY_SEPARATOR
;
267 if (!in_array(substr($path, -1, 1), ['/', '\\'])) {
274 * Save a fake file somewhere
277 * The directory where the file should be saved.
278 * @param string $contents
279 * Optional: the contents of the file.
280 * @param string $fileName
283 * The filename saved, or FALSE on failure.
285 public static function createFakeFile($dir, $contents = 'delete me', $fileName = NULL) {
286 $dir = self
::addTrailingSlash($dir);
288 $fileName = 'delete-this-' . CRM_Utils_String
::createRandom(10, CRM_Utils_String
::ALPHANUMERIC
);
290 $success = @file_put_contents
($dir . $fileName, $contents);
292 return ($success === FALSE) ?
FALSE : $fileName;
296 * @param string|NULL $dsn
297 * Use NULL to load the default/active connection from CRM_Core_DAO.
298 * Otherwise, give a full DSN string.
299 * @param string $fileName
300 * @param string $prefix
301 * @param bool $dieOnErrors
303 public static function sourceSQLFile($dsn, $fileName, $prefix = NULL, $dieOnErrors = TRUE) {
304 if (FALSE === file_get_contents($fileName)) {
305 // Our file cannot be found.
306 // Using 'die' here breaks this on extension upgrade.
307 throw new CRM_Core_Exception('Could not find the SQL file.');
310 self
::runSqlQuery($dsn, file_get_contents($fileName), $prefix, $dieOnErrors);
315 * @param string|NULL $dsn
316 * @param string $queryString
317 * @param string $prefix
318 * @param bool $dieOnErrors
320 public static function runSqlQuery($dsn, $queryString, $prefix = NULL, $dieOnErrors = TRUE) {
321 $string = $prefix . $queryString;
324 $db = CRM_Core_DAO
::getConnection();
327 require_once 'DB.php';
328 $db = DB
::connect($dsn);
331 if (PEAR
::isError($db)) {
332 die("Cannot open $dsn: " . $db->getMessage());
334 if (CRM_Utils_Constant
::value('CIVICRM_MYSQL_STRICT', CRM_Utils_System
::isDevelopment())) {
335 $db->query('SET SESSION sql_mode = STRICT_TRANS_TABLES');
337 $db->query('SET NAMES utf8');
338 $transactionId = CRM_Utils_Type
::escape(CRM_Utils_Request
::id(), 'String');
339 $db->query('SET @uniqueID = ' . "'$transactionId'");
341 // get rid of comments starting with # and --
343 $string = self
::stripComments($string);
345 $queries = preg_split('/;\s*$/m', $string);
346 foreach ($queries as $query) {
347 $query = trim($query);
348 if (!empty($query)) {
349 CRM_Core_Error
::debug_query($query);
350 $res = &$db->query($query);
351 if (PEAR
::isError($res)) {
353 die("Cannot execute $query: " . $res->getMessage());
356 echo "Cannot execute $query: " . $res->getMessage() . "<p>";
365 * Strips comment from a possibly multiline SQL string
367 * @param string $string
372 public static function stripComments($string) {
373 return preg_replace("/^(#|--).*\R*/m", "", $string);
381 public static function isExtensionSafe($ext) {
382 static $extensions = NULL;
384 $extensions = CRM_Core_OptionGroup
::values('safe_file_extension', TRUE);
386 // make extensions to lowercase
387 $extensions = array_change_key_case($extensions, CASE_LOWER
);
388 // allow html/htm extension ONLY if the user is admin
389 // and/or has access CiviMail
390 if (!(CRM_Core_Permission
::check('access CiviMail') ||
391 CRM_Core_Permission
::check('administer CiviCRM') ||
392 (CRM_Mailing_Info
::workflowEnabled() &&
393 CRM_Core_Permission
::check('create mailings')
397 unset($extensions['html']);
398 unset($extensions['htm']);
401 // support lower and uppercase file extensions
402 return (bool) isset($extensions[strtolower($ext)]);
406 * Determine whether a given file is listed in the PHP include path.
408 * @param string $name
412 * whether the file can be include()d or require()d
414 public static function isIncludable($name) {
415 $x = @fopen
($name, 'r', TRUE);
426 * Remove the 32 bit md5 we add to the fileName also remove the unknown tag if we added it.
432 public static function cleanFileName($name) {
433 // replace the last 33 character before the '.' with null
434 $name = preg_replace('/(_[\w]{32})\./', '.', $name);
439 * Make a valid file name.
441 * @param string $name
445 public static function makeFileName($name) {
446 $uniqID = md5(uniqid(rand(), TRUE));
447 $info = pathinfo($name);
448 $basename = substr($info['basename'],
449 0, -(strlen(CRM_Utils_Array
::value('extension', $info)) +
(CRM_Utils_Array
::value('extension', $info) == '' ?
0 : 1))
451 if (!self
::isExtensionSafe(CRM_Utils_Array
::value('extension', $info))) {
452 // munge extension so it cannot have an embbeded dot in it
453 // The maximum length of a filename for most filesystems is 255 chars.
454 // We'll truncate at 240 to give some room for the extension.
455 return CRM_Utils_String
::munge("{$basename}_" . CRM_Utils_Array
::value('extension', $info) . "_{$uniqID}", '_', 240) . ".unknown";
458 return CRM_Utils_String
::munge("{$basename}_{$uniqID}", '_', 240) . "." . CRM_Utils_Array
::value('extension', $info);
468 public static function duplicate($filePath) {
469 $oldName = pathinfo($filePath, PATHINFO_FILENAME
);
470 $uniqID = md5(uniqid(rand(), TRUE));
471 $newName = preg_replace('/(_[\w]{32})$/', '', $oldName) . '_' . $uniqID;
472 $newPath = str_replace($oldName, $newName, $filePath);
473 copy($filePath, $newPath);
478 * Get files for the extension.
480 * @param string $path
485 public static function getFilesByExtension($path, $ext) {
486 $path = self
::addTrailingSlash($path);
488 if ($dh = opendir($path)) {
489 while (FALSE !== ($elem = readdir($dh))) {
490 if (substr($elem, -(strlen($ext) +
1)) == '.' . $ext) {
491 $files[] .= $path . $elem;
500 * Restrict access to a given directory (by planting there a restrictive .htaccess file)
503 * The directory to be secured.
504 * @param bool $overwrite
506 public static function restrictAccess($dir, $overwrite = FALSE) {
507 // note: empty value for $dir can play havoc, since that might result in putting '.htaccess' to root dir
508 // of site, causing site to stop functioning.
509 // FIXME: we should do more checks here -
510 if (!empty($dir) && is_dir($dir)) {
511 $htaccess = <<<HTACCESS
514 <IfModule !authz_core_module>
520 <IfModule authz_core_module>
526 $file = $dir . '.htaccess';
527 if ($overwrite ||
!file_exists($file)) {
528 if (file_put_contents($file, $htaccess) === FALSE) {
529 CRM_Core_Error
::movedSiteError($file);
536 * Restrict remote users from browsing the given directory.
540 public static function restrictBrowsing($publicDir) {
541 if (!is_dir($publicDir) ||
!is_writable($publicDir)) {
546 $nobrowse = realpath($publicDir) . '/index.html';
547 if (!file_exists($nobrowse)) {
548 @file_put_contents
($nobrowse, '');
552 $dir = new RecursiveDirectoryIterator($publicDir);
553 foreach ($dir as $name => $object) {
554 if (is_dir($name) && $name != '..') {
555 $nobrowse = realpath($name) . '/index.html';
556 if (!file_exists($nobrowse)) {
557 @file_put_contents
($nobrowse, '');
564 * (Deprecated) Create the file-path from which all other internal paths are
565 * computed. This implementation determines it as `dirname(CIVICRM_TEMPLATE_COMPILEDIR)`.
567 * This approach is problematic - e.g. it prevents one from authentically
568 * splitting the CIVICRM_TEMPLATE_COMPILEDIR away from other dirs. The implementation
569 * is preserved for backwards compatibility (and should only be called by
570 * CMS-adapters and by Civi\Core\Paths).
572 * Do not use it for new path construction logic. Instead, use Civi::paths().
575 * @see \Civi::paths()
576 * @see \Civi\Core\Paths
578 public static function baseFilePath() {
579 static $_path = NULL;
581 // Note: Don't rely on $config; that creates a dependency loop.
582 if (!defined('CIVICRM_TEMPLATE_COMPILEDIR')) {
583 throw new RuntimeException("Undefined constant: CIVICRM_TEMPLATE_COMPILEDIR");
585 $templateCompileDir = CIVICRM_TEMPLATE_COMPILEDIR
;
587 $path = dirname($templateCompileDir);
589 //this fix is to avoid creation of upload dirs inside templates_c directory
590 $checkPath = explode(DIRECTORY_SEPARATOR
, $path);
592 $cnt = count($checkPath) - 1;
593 if ($checkPath[$cnt] == 'templates_c') {
594 unset($checkPath[$cnt]);
595 $path = implode(DIRECTORY_SEPARATOR
, $checkPath);
598 $_path = CRM_Utils_File
::addTrailingSlash($path);
604 * Determine if a path is absolute.
606 * @param string $path
609 * TRUE if absolute. FALSE if relative.
611 public static function isAbsolute($path) {
612 if (substr($path, 0, 1) === DIRECTORY_SEPARATOR
) {
615 if (strtoupper(substr(PHP_OS
, 0, 3)) === 'WIN') {
616 if (preg_match('!^[a-zA-Z]:[/\\\\]!', $path)) {
628 * Computation of a relative path requires some base.
629 * This implementation is problematic because it relies on an
630 * implicit base which was constructed problematically.
632 public static function relativeDirectory($directory) {
633 // Do nothing on windows
634 if (strtoupper(substr(PHP_OS
, 0, 3)) === 'WIN') {
638 // check if directory is relative, if so return immediately
639 if (!self
::isAbsolute($directory)) {
643 // make everything relative from the baseFilePath
644 $basePath = self
::baseFilePath();
645 // check if basePath is a substr of $directory, if so
646 // return rest of string
647 if (substr($directory, 0, strlen($basePath)) == $basePath) {
648 return substr($directory, strlen($basePath));
651 // return the original value
657 * @param string $basePath
658 * The base path when evaluating relative paths. Should include trailing slash.
662 public static function absoluteDirectory($directory, $basePath) {
663 // check if directory is already absolute, if so return immediately
664 // Note: Windows PHP accepts any mix of "/" or "\", so "C:\htdocs" or "C:/htdocs" would be a valid absolute path
665 if (strtoupper(substr(PHP_OS
, 0, 3)) === 'WIN' && preg_match(';^[a-zA-Z]:[/\\\\];', $directory)) {
669 // check if directory is already absolute, if so return immediately
670 if (substr($directory, 0, 1) == DIRECTORY_SEPARATOR
) {
674 if ($basePath === NULL) {
675 // Previous versions interpreted `NULL` to mean "default to `self::baseFilePath()`".
676 // However, no code in the known `universe` relies on this interpretation, and
677 // the `baseFilePath()` function is problematic/deprecated.
678 throw new \
RuntimeException("absoluteDirectory() requires specifying a basePath");
681 // ensure that $basePath has a trailing slash
682 $basePath = self
::addTrailingSlash($basePath);
683 return $basePath . $directory;
687 * Make a file path relative to some base dir.
694 public static function relativize($directory, $basePath) {
695 if (strtoupper(substr(PHP_OS
, 0, 3)) === 'WIN') {
696 $directory = strtr($directory, '\\', '/');
697 $basePath = strtr($basePath, '\\', '/');
699 if (substr($directory, 0, strlen($basePath)) == $basePath) {
700 return substr($directory, strlen($basePath));
708 * Create a path to a temporary file which can endure for multiple requests.
710 * @todo Automatic file cleanup using, eg, TTL policy
712 * @param string $prefix
714 * @return string, path to an openable/writable file
717 public static function tempnam($prefix = 'tmp-') {
718 // $config = CRM_Core_Config::singleton();
719 // $nonce = md5(uniqid() . $config->dsn . $config->userFrameworkResourceURL);
720 // $fileName = "{$config->configAndLogDir}" . $prefix . $nonce . $suffix;
721 $fileName = tempnam(sys_get_temp_dir(), $prefix);
726 * Create a path to a temporary directory which can endure for multiple requests.
728 * @todo Automatic file cleanup using, eg, TTL policy
730 * @param string $prefix
732 * @return string, path to an openable/writable directory; ends with '/'
735 public static function tempdir($prefix = 'tmp-') {
736 $fileName = self
::tempnam($prefix);
738 mkdir($fileName, 0700);
739 return $fileName . '/';
743 * Search directory tree for files which match a glob pattern.
745 * Note: Dot-directories (like "..", ".git", or ".svn") will be ignored.
749 * @param string $pattern
750 * glob pattern, eg "*.txt".
751 * @param bool $relative
752 * TRUE if paths should be made relative to $dir
753 * @return array(string)
755 public static function findFiles($dir, $pattern, $relative = FALSE) {
759 $dir = rtrim($dir, '/');
762 while (!empty($todos)) {
763 $subdir = array_shift($todos);
764 $matches = glob("$subdir/$pattern");
765 if (is_array($matches)) {
766 foreach ($matches as $match) {
767 if (!is_dir($match)) {
768 $result[] = $relative ? CRM_Utils_File
::relativize($match, "$dir/") : $match;
772 if ($dh = opendir($subdir)) {
773 while (FALSE !== ($entry = readdir($dh))) {
774 $path = $subdir . DIRECTORY_SEPARATOR
. $entry;
775 if ($entry{0} == '.') {
778 elseif (is_dir($path)) {
789 * Determine if $child is a sub-directory of $parent
791 * @param string $parent
792 * @param string $child
793 * @param bool $checkRealPath
797 public static function isChildPath($parent, $child, $checkRealPath = TRUE) {
798 if ($checkRealPath) {
799 $parent = realpath($parent);
800 $child = realpath($child);
802 $parentParts = explode('/', rtrim($parent, '/'));
803 $childParts = explode('/', rtrim($child, '/'));
804 while (($parentPart = array_shift($parentParts)) !== NULL) {
805 $childPart = array_shift($childParts);
806 if ($parentPart != $childPart) {
810 if (empty($childParts)) {
820 * Move $fromDir to $toDir, replacing/deleting any
821 * pre-existing content.
823 * @param string $fromDir
824 * The directory which should be moved.
825 * @param string $toDir
826 * The new location of the directory.
827 * @param bool $verbose
832 public static function replaceDir($fromDir, $toDir, $verbose = FALSE) {
833 if (is_dir($toDir)) {
834 if (!self
::cleanDir($toDir, TRUE, $verbose)) {
839 // return rename($fromDir, $toDir); CRM-11987, https://bugs.php.net/bug.php?id=54097
841 CRM_Utils_File
::copyDir($fromDir, $toDir);
842 if (!CRM_Utils_File
::cleanDir($fromDir, TRUE, FALSE)) {
843 CRM_Core_Session
::setStatus(ts('Failed to clean temp dir: %1', [1 => $fromDir]), '', 'alert');
852 * @param array $param
853 * @param string $fileName
854 * @param array $extraParams
856 public static function formatFile(&$param, $fileName, $extraParams = []) {
857 if (empty($param[$fileName])) {
862 'uri' => $param[$fileName]['name'],
863 'type' => $param[$fileName]['type'],
864 'location' => $param[$fileName]['name'],
865 'upload_date' => date('YmdHis'),
868 $param[$fileName] = $fileParams;
872 * Return formatted file URL, like for image file return image url with image icon
874 * @param string $path
876 * @param string $fileType
878 * File preview link e.g. https://example.com/civicrm/file?reset=1&filename=image.png&mime-type=image/png
880 * @return string $url
882 public static function getFileURL($path, $fileType, $url = NULL) {
883 if (empty($path) ||
empty($fileType)) {
886 elseif (empty($url)) {
887 $fileName = basename($path);
888 $url = CRM_Utils_System
::url('civicrm/file', "reset=1&filename={$fileName}&mime-type={$fileType}");
897 list($imageWidth, $imageHeight) = getimagesize($path);
898 list($imageThumbWidth, $imageThumbHeight) = CRM_Contact_BAO_Contact
::getThumbSize($imageWidth, $imageHeight);
899 $url = "<a href=\"$url\" class='crm-image-popup'>
900 <img src=\"$url\" width=$imageThumbWidth height=$imageThumbHeight/>
905 $url = sprintf('<a href="%s">%s</a>', $url, self
::cleanFileName(basename($path)));
913 * Return formatted image icon
915 * @param string $imageURL
916 * Contact's image url
918 * @return string $url
920 public static function getImageURL($imageURL) {
921 // retrieve image name from $imageURL
922 $imageURL = CRM_Utils_String
::unstupifyUrl($imageURL);
923 parse_str(parse_url($imageURL, PHP_URL_QUERY
), $query);
926 if (!empty($query['photo'])) {
927 $path = CRM_Core_Config
::singleton()->customFileUploadDir
. $query['photo'];
930 $path = $url = $imageURL;
932 $fileExtension = strtolower(pathinfo($path, PATHINFO_EXTENSION
));
933 //According to (https://developer.mozilla.org/en-US/docs/Web/HTTP/Basics_of_HTTP/MIME_types/Complete_list_of_MIME_types),
934 // there are some extensions that would need translating.:
935 $translateMimeTypes = [
940 $mimeType = 'image/' . CRM_Utils_Array
::value(
946 return self
::getFileURL($path, $mimeType, $url);
952 * @param string $sourceFile
953 * Filesystem path to existing image on server
954 * @param int $targetWidth
955 * New width desired, in pixels
956 * @param int $targetHeight
957 * New height desired, in pixels
958 * @param string $suffix = ""
959 * If supplied, the image will be renamed to include this suffix. For
960 * example if the original file name is "foo.png" and $suffix = "_bar",
961 * then the final file name will be "foo_bar.png".
962 * @param bool $preserveAspect = TRUE
963 * When TRUE $width and $height will be used as a bounding box, outside of
964 * which the resized image will not extend.
965 * When FALSE, the image will be resized exactly to $width and $height, even
966 * if it means stretching it.
970 * @throws \CRM_Core_Exception
971 * Under the following conditions
972 * - When GD is not available.
973 * - When the source file is not an image.
975 public static function resizeImage($sourceFile, $targetWidth, $targetHeight, $suffix = "", $preserveAspect = TRUE) {
977 // Check if GD is installed
978 $gdSupport = CRM_Utils_System
::getModuleSetting('gd', 'GD Support');
980 throw new CRM_Core_Exception(ts('Unable to resize image because the GD image library is not currently compiled in your PHP installation.'));
983 $sourceMime = mime_content_type($sourceFile);
984 if ($sourceMime == 'image/gif') {
985 $sourceData = imagecreatefromgif($sourceFile);
987 elseif ($sourceMime == 'image/png') {
988 $sourceData = imagecreatefrompng($sourceFile);
990 elseif ($sourceMime == 'image/jpeg') {
991 $sourceData = imagecreatefromjpeg($sourceFile);
994 throw new CRM_Core_Exception(ts('Unable to resize image because the file supplied was not an image.'));
997 // get image about original image
998 $sourceInfo = getimagesize($sourceFile);
999 $sourceWidth = $sourceInfo[0];
1000 $sourceHeight = $sourceInfo[1];
1002 // Adjust target width/height if preserving aspect ratio
1003 if ($preserveAspect) {
1004 $sourceAspect = $sourceWidth / $sourceHeight;
1005 $targetAspect = $targetWidth / $targetHeight;
1006 if ($sourceAspect > $targetAspect) {
1007 $targetHeight = $targetWidth / $sourceAspect;
1009 if ($sourceAspect < $targetAspect) {
1010 $targetWidth = $targetHeight * $sourceAspect;
1014 // figure out the new filename
1015 $pathParts = pathinfo($sourceFile);
1016 $targetFile = $pathParts['dirname'] . DIRECTORY_SEPARATOR
1017 . $pathParts['filename'] . $suffix . "." . $pathParts['extension'];
1019 $targetData = imagecreatetruecolor($targetWidth, $targetHeight);
1022 imagecopyresized($targetData, $sourceData,
1024 $targetWidth, $targetHeight, $sourceWidth, $sourceHeight);
1026 // save the resized image
1027 $fp = fopen($targetFile, 'w+');
1029 imagejpeg($targetData);
1030 $image_buffer = ob_get_contents();
1032 imagedestroy($targetData);
1033 fwrite($fp, $image_buffer);
1037 // return the URL to link to
1038 $config = CRM_Core_Config
::singleton();
1039 return $config->imageUploadURL
. basename($targetFile);
1043 * Get file icon class for specific MIME Type
1045 * @param string $mimeType
1048 public static function getIconFromMimeType($mimeType) {
1049 if (!isset(Civi
::$statics[__CLASS__
]['mimeIcons'])) {
1050 Civi
::$statics[__CLASS__
]['mimeIcons'] = json_decode(file_get_contents(__DIR__
. '/File/mimeIcons.json'), TRUE);
1052 $iconClasses = Civi
::$statics[__CLASS__
]['mimeIcons'];
1053 foreach ($iconClasses as $text => $icon) {
1054 if (strpos($mimeType, $text) === 0) {
1058 return $iconClasses['*'];
1062 * Is the filename a safe and valid filename passed in from URL
1064 * @param string $fileName
1067 public static function isValidFileName($fileName = NULL) {
1069 $check = ($fileName === basename($fileName));
1071 if (substr($fileName, 0, 1) == '/' ||
substr($fileName, 0, 1) == '.' ||
substr($fileName, 0, 1) == DIRECTORY_SEPARATOR
) {
1081 * Get the extensions that this MimeTpe is for
1082 * @param string $mimeType the mime-type we want extensions for
1085 public static function getAcceptableExtensionsForMimeType($mimeType = []) {
1086 $mimeRepostory = new \MimeTyper\Repository\
ExtendedRepository();
1087 return $mimeRepostory->findExtensions($mimeType);
1091 * Get the extension of a file based on its path
1092 * @param string $path path of the file to query
1095 public static function getExtensionFromPath($path) {
1096 return pathinfo($path, PATHINFO_EXTENSION
);