8 * This paths class translates path-expressions into local file paths and
9 * URLs. Path-expressions may take a few forms:
11 * - Paths and URLs may use a variable prefix. For example, '[civicrm.files]/upload'
12 * - Paths and URLS may be absolute.
13 * - Paths may be relative (base dir: [civicrm.files]).
14 * - URLs may be relative (base dir: [cms.root]).
18 const DEFAULT_URL
= 'cms.root';
19 const DEFAULT_PATH
= 'civicrm.files';
23 * Array(string $name => array(url => $, path => $)).
25 private $variables = [];
27 private $variableFactory = [];
32 public function __construct() {
35 ->register('civicrm.root', function () {
36 return \CRM_Core_Config
::singleton()->userSystem
->getCiviSourceStorage();
38 ->register('civicrm.packages', function () {
40 'path' => \Civi
::paths()->getPath('[civicrm.root]/packages/'),
41 'url' => \Civi
::paths()->getUrl('[civicrm.root]/packages/'),
44 ->register('civicrm.vendor', function () {
46 'path' => \Civi
::paths()->getPath('[civicrm.root]/vendor/'),
47 'url' => \Civi
::paths()->getUrl('[civicrm.root]/vendor/'),
50 ->register('civicrm.bower', function () {
52 'path' => \Civi
::paths()->getPath('[civicrm.root]/bower_components/'),
53 'url' => \Civi
::paths()->getUrl('[civicrm.root]/bower_components/'),
56 ->register('civicrm.files', function () {
57 return \CRM_Core_Config
::singleton()->userSystem
->getDefaultFileStorage();
59 ->register('civicrm.private', function () {
61 // For backward compatibility with existing deployments, this
62 // effectively returns `dirname(CIVICRM_TEMPLATE_COMPILEDIR)`.
63 // That's confusing. Future installers should probably set `civicrm.private`
64 // explicitly instead of setting `CIVICRM_TEMPLATE_COMPILEDIR`.
65 'path' => \CRM_Utils_File
::baseFilePath(),
68 ->register('civicrm.log', function () {
70 'path' => \Civi
::paths()->getPath('[civicrm.private]/ConfigAndLog'),
73 ->register('civicrm.compile', function () {
75 // These two formulations are equivalent in typical deployments; however,
76 // for existing systems which previously customized CIVICRM_TEMPLATE_COMPILEDIR,
77 // using the constant should be more backward-compatibility.
78 'path' => defined('CIVICRM_TEMPLATE_COMPILEDIR') ? CIVICRM_TEMPLATE_COMPILEDIR
: \Civi
::paths()->getPath('[civicrm.private]/templates_c'),
81 ->register('wp.frontend.base', function () {
82 return ['url' => rtrim(CIVICRM_UF_BASEURL
, '/') . '/'];
84 ->register('wp.frontend', function () use ($paths) {
85 $config = \CRM_Core_Config
::singleton();
86 $suffix = defined('CIVICRM_UF_WP_BASEPAGE') ? CIVICRM_UF_WP_BASEPAGE
: $config->wpBasePage
;
88 'url' => $paths->getVariable('wp.frontend.base', 'url') . $suffix,
91 ->register('wp.backend.base', function () {
92 return ['url' => rtrim(CIVICRM_UF_BASEURL
, '/') . '/wp-admin/'];
94 ->register('wp.backend', function () use ($paths) {
96 'url' => $paths->getVariable('wp.backend.base', 'url') . 'admin.php',
99 ->register('cms', function () {
101 'path' => \CRM_Core_Config
::singleton()->userSystem
->cmsRootPath(),
102 'url' => \CRM_Utils_System
::baseCMSURL(),
105 ->register('cms.root', function () {
107 'path' => \CRM_Core_Config
::singleton()->userSystem
->cmsRootPath(),
108 // Misleading: this *removes* the language part of the URL, producing a pristine base URL.
109 'url' => \CRM_Utils_System
::languageNegotiationURL(\CRM_Utils_System
::baseCMSURL(), FALSE, TRUE),
115 * Register a new URL/file path mapping.
117 * @param string $name
118 * The name of the variable.
119 * @param callable $factory
120 * Function which returns an array with keys:
125 public function register($name, $factory) {
126 $this->variableFactory
[$name] = $factory;
131 * @param string $name
132 * Ex: 'civicrm.root'.
133 * @param string $attr
137 public function getVariable($name, $attr) {
138 if (!isset($this->variables
[$name])) {
139 $this->variables
[$name] = call_user_func($this->variableFactory
[$name]);
140 if (isset($GLOBALS['civicrm_paths'][$name])) {
141 $this->variables
[$name] = array_merge($this->variables
[$name], $GLOBALS['civicrm_paths'][$name]);
144 if (!isset($this->variables
[$name][$attr])) {
145 throw new \
RuntimeException("Cannot resolve path using \"$name.$attr\"");
147 return $this->variables
[$name][$attr];
151 * Does the variable exist.
153 * @param string $name
157 public function hasVariable($name) {
158 return isset($this->variableFactory
[$name]);
162 * Determine the absolute path to a file, given that the file is most likely
163 * in a given particular variable.
165 * @param string $value
167 * Use "." to reference to default file root.
168 * Values may begin with a variable, e.g. "[civicrm.files]/upload".
169 * @return mixed|string
171 public function getPath($value) {
172 $defaultContainer = self
::DEFAULT_PATH
;
173 if ($value && $value{0} == '[' && preg_match(';^\[([a-zA-Z0-9\._]+)\]/(.*);', $value, $matches)) {
174 $defaultContainer = $matches[1];
175 $value = $matches[2];
180 if ($value === '.') {
183 return \CRM_Utils_File
::absoluteDirectory($value, $this->getVariable($defaultContainer, 'path'));
187 * Determine the URL to a file.
189 * @param string $value
190 * The file path. The path may begin with a variable, e.g. "[civicrm.files]/upload".
191 * @param string $preferFormat
192 * The preferred format ('absolute', 'relative').
193 * The result data may not meet the preference -- if the setting
194 * refers to an external domain, then the result will be
195 * absolute (regardless of preference).
196 * @param bool|NULL $ssl
197 * NULL to autodetect. TRUE to force to SSL.
198 * @return mixed|string
200 public function getUrl($value, $preferFormat = 'relative', $ssl = NULL) {
201 $defaultContainer = self
::DEFAULT_URL
;
202 if ($value && $value{0} == '[' && preg_match(';^\[([a-zA-Z0-9\._]+)\](/(.*))$;', $value, $matches)) {
203 $defaultContainer = $matches[1];
204 $value = empty($matches[3]) ?
'.' : $matches[3];
210 if ($value === '.') {
213 if (substr($value, 0, 4) == 'http') {
217 $value = $this->getVariable($defaultContainer, 'url') . $value;
219 if ($preferFormat === 'relative') {
220 $parsed = parse_url($value);
221 if (isset($_SERVER['HTTP_HOST']) && isset($parsed['host']) && $_SERVER['HTTP_HOST'] == $parsed['host']) {
222 $value = $parsed['path'];
226 if ($ssl ||
($ssl === NULL && \CRM_Utils_System
::isSSL())) {
227 $value = str_replace('http://', 'https://', $value);