3 namespace Civi\Angular\Page
;
6 * This page aggregates data from Angular modules.
8 * Example: Aggregate metadata about all modules in JSON format.
9 * civicrm/ajax/angular-modules?format=json
11 * Example: Aggregate metadata for crmUi and crmUtil modules.
12 * civicrm/ajax/angular-modules?format=json&modules=crmUi,crmUtil
14 * Example: Aggregate *.js files for all modules.
15 * civicrm/ajax/angular-modules?format=js
17 * Example: Aggregate *.css files for all modules.
18 * civicrm/ajax/angular-modules?format=css
20 class Modules
extends \CRM_Core_Page
{
23 * Generate asset content (when accessed via older, custom
24 * "civicrm/ajax/anulgar-modules" route).
28 * @throws \CRM_Core_Exception
30 public function run() {
32 * @var \Civi\Angular\Manager $angular
34 $angular = \Civi
::service('angular');
35 $moduleNames = $this->parseModuleNames(\CRM_Utils_Request
::retrieve('modules', 'String'), $angular);
37 switch (\CRM_Utils_Request
::retrieve('format', 'String')) {
41 'application/javascript',
42 json_encode($this->getMetadata($moduleNames, $angular))
48 'application/javascript',
49 $this->digestJs($angular->getResources($moduleNames, 'js', 'path'))
56 \CRM_Utils_File
::concat($angular->getResources($moduleNames, 'css', 'path'), "\n")
61 throw new \
CRM_Core_Exception("Unrecognized format");
64 \CRM_Utils_System
::civiExit();
68 * Generate asset content (when accessed via AssetBuilder).
70 * @param \Civi\Core\Event\GenericHookEvent $event
71 * @see CRM_Utils_hook::buildAsset()
72 * @see \Civi\Core\AssetBuilder
74 public static function buildAngularModules($event) {
75 $page = new Modules();
76 $angular = \Civi
::service('angular');
78 switch ($event->asset
) {
79 case 'angular-modules.json':
80 $moduleNames = $page->parseModuleNames(\CRM_Utils_Array
::value('modules', $event->params
), $angular);
81 $event->mimeType
= 'application/json';
82 $event->content
= json_encode($page->getMetadata($moduleNames, $angular));
85 case 'angular-modules.js':
86 $moduleNames = $page->parseModuleNames(\CRM_Utils_Array
::value('modules', $event->params
), $angular);
87 $event->mimeType
= 'application/javascript';
88 $event->content
= $page->digestJs($angular->getResources($moduleNames, 'js', 'path'));
91 case 'angular-modules.css':
92 $moduleNames = $page->parseModuleNames(\CRM_Utils_Array
::value('modules', $event->params
), $angular);
93 $event->mimeType
= 'text/css';
94 $event->content
= \CRM_Utils_File
::concat($angular->getResources($moduleNames, 'css', 'path'), "\n");
102 * @param array $files
106 public function digestJs($files) {
108 foreach ($files as $file) {
109 $scripts[] = file_get_contents($file);
111 $scripts = \CRM_Utils_JS
::dedupeClosures(
113 ['angular', '$', '_'],
114 ['angular', 'CRM.$', 'CRM._']
116 // This impl of stripComments currently adds 10-20ms and cuts ~7%
117 return \CRM_Utils_JS
::stripComments(implode("\n", $scripts));
121 * @param string $modulesExpr
122 * Comma-separated list of module names.
123 * @param \Civi\Angular\Manager $angular
125 * Any well-formed module names. All if moduleExpr is blank.
127 public function parseModuleNames($modulesExpr, $angular) {
129 $moduleNames = preg_grep(
130 '/^[a-zA-Z0-9\-_\.]+$/',
131 explode(',', $modulesExpr)
136 $moduleNames = array_keys($angular->getModules());
142 * @param array $moduleNames
143 * List of module names.
144 * @param \Civi\Angular\Manager $angular
147 public function getMetadata($moduleNames, $angular) {
148 $modules = $angular->getModules();
150 foreach ($moduleNames as $moduleName) {
151 if (isset($modules[$moduleName])) {
152 $result[$moduleName] = [];
153 $result[$moduleName]['domain'] = $modules[$moduleName]['ext'];
154 $result[$moduleName]['js'] = $angular->getResources($moduleName, 'js', 'rawUrl');
155 $result[$moduleName]['css'] = $angular->getResources($moduleName, 'css', 'rawUrl');
156 $result[$moduleName]['partials'] = $angular->getPartials($moduleName);
157 $result[$moduleName]['strings'] = $angular->getTranslatedStrings($moduleName);
166 * @param string $type
168 * @param string $data
171 public function send($type, $data) {
172 // Encourage browsers to cache for a long time - 1 year
173 $ttl = 60 * 60 * 24 * 364;
174 \CRM_Utils_System
::setHttpHeader('Expires', gmdate('D, d M Y H:i:s \G\M\T', time() +
$ttl));
175 \CRM_Utils_System
::setHttpHeader("Content-Type", $type);
176 \CRM_Utils_System
::setHttpHeader("Cache-Control", "max-age=$ttl, public");