Merge pull request #18069 from civicrm/5.28
[civicrm-core.git] / CRM / Core / BAO / MessageTemplate.php
1 <?php
2 /*
3 +--------------------------------------------------------------------+
4 | Copyright CiviCRM LLC. All rights reserved. |
5 | |
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 +--------------------------------------------------------------------+
10 */
11
12 /**
13 *
14 * @package CRM
15 * @copyright CiviCRM LLC https://civicrm.org/licensing
16 */
17
18 use Civi\Api4\MessageTemplate;
19
20 require_once 'Mail/mime.php';
21
22 /**
23 * Class CRM_Core_BAO_MessageTemplate.
24 */
25 class CRM_Core_BAO_MessageTemplate extends CRM_Core_DAO_MessageTemplate {
26
27 /**
28 * Fetch object based on array of properties.
29 *
30 * @param array $params
31 * (reference ) an assoc array of name/value pairs.
32 * @param array $defaults
33 * (reference ) an assoc array to hold the flattened values.
34 *
35 * @return CRM_Core_DAO_MessageTemplate
36 */
37 public static function retrieve(&$params, &$defaults) {
38 $messageTemplates = new CRM_Core_DAO_MessageTemplate();
39 $messageTemplates->copyValues($params);
40 if ($messageTemplates->find(TRUE)) {
41 CRM_Core_DAO::storeValues($messageTemplates, $defaults);
42 return $messageTemplates;
43 }
44 return NULL;
45 }
46
47 /**
48 * Update the is_active flag in the db.
49 *
50 * @param int $id
51 * Id of the database record.
52 * @param bool $is_active
53 * Value we want to set the is_active field.
54 *
55 * @return bool
56 * true if we found and updated the object, else false
57 */
58 public static function setIsActive($id, $is_active) {
59 return CRM_Core_DAO::setFieldValue('CRM_Core_DAO_MessageTemplate', $id, 'is_active', $is_active);
60 }
61
62 /**
63 * Add the Message Templates.
64 *
65 * @param array $params
66 * Reference array contains the values submitted by the form.
67 *
68 *
69 * @return object
70 * @throws \CiviCRM_API3_Exception
71 * @throws \Civi\API\Exception\UnauthorizedException
72 */
73 public static function add(&$params) {
74 // System Workflow Templates have a specific wodkflow_id in them but normal user end message templates don't
75 // If we have an id check to see if we are update, and need to check if original is a system workflow or not.
76 $systemWorkflowPermissionDeniedMessage = 'Editing or creating system workflow messages requires edit system workflow message templates permission or the edit message templates permission';
77 $userWorkflowPermissionDeniedMessage = 'Editing or creating user driven workflow messages requires edit user-driven message templates or the edit message templates permission';
78 if (!empty($params['check_permissions'])) {
79 if (!CRM_Core_Permission::check('edit message templates')) {
80 if (!empty($params['id'])) {
81 $details = civicrm_api3('MessageTemplate', 'getSingle', ['id' => $params['id']]);
82 if (!empty($details['workflow_id']) || !empty($details['workflow_name'])) {
83 if (!CRM_Core_Permission::check('edit system workflow message templates')) {
84 throw new \Civi\API\Exception\UnauthorizedException(ts('%1', [1 => $systemWorkflowPermissionDeniedMessage]));
85 }
86 }
87 elseif (!CRM_Core_Permission::check('edit user-driven message templates')) {
88 throw new \Civi\API\Exception\UnauthorizedException(ts('%1', [1 => $userWorkflowPermissionDeniedMessage]));
89 }
90 }
91 else {
92 if (!empty($params['workflow_id']) || !empty($params['workflow_name'])) {
93 if (!CRM_Core_Permission::check('edit system workflow message templates')) {
94 throw new \Civi\API\Exception\UnauthorizedException(ts('%1', [1 => $systemWorkflowPermissionDeniedMessage]));
95 }
96 }
97 elseif (!CRM_Core_Permission::check('edit user-driven message templates')) {
98 throw new \Civi\API\Exception\UnauthorizedException(ts('%1', [1 => $userWorkflowPermissionDeniedMessage]));
99 }
100 }
101 }
102 }
103 $hook = empty($params['id']) ? 'create' : 'edit';
104 CRM_Utils_Hook::pre($hook, 'MessageTemplate', CRM_Utils_Array::value('id', $params), $params);
105
106 if (!empty($params['file_id']) && is_array($params['file_id']) && count($params['file_id'])) {
107 $fileParams = $params['file_id'];
108 unset($params['file_id']);
109 }
110
111 // The workflow_id and workflow_name should be sync'd. But what mix of inputs do we have to work with?
112 switch ((empty($params['workflow_id']) ? '' : 'id') . (empty($params['workflow_name']) ? '' : 'name')) {
113 case 'id':
114 $params['workflow_name'] = array_search($params['workflow_id'], self::getWorkflowNameIdMap());
115 break;
116
117 case 'name':
118 $params['workflow_id'] = self::getWorkflowNameIdMap()[$params['workflow_name']] ?? NULL;
119 break;
120
121 case 'idname':
122 $map = self::getWorkflowNameIdMap();
123 if ($map[$params['workflow_name']] != $params['workflow_id']) {
124 throw new CRM_Core_Exception("The workflow_id and workflow_name are mismatched. Note: You only need to submit one or the other.");
125 }
126 break;
127
128 case '':
129 // OK, don't care.
130 break;
131
132 default:
133 throw new \RuntimeException("Bad code");
134 }
135
136 $messageTemplates = new CRM_Core_DAO_MessageTemplate();
137 $messageTemplates->copyValues($params);
138 $messageTemplates->save();
139
140 if (!empty($fileParams)) {
141 $params['file_id'] = $fileParams;
142 CRM_Core_BAO_File::filePostProcess(
143 $params['file_id']['location'],
144 NULL,
145 'civicrm_msg_template',
146 $messageTemplates->id,
147 NULL,
148 TRUE,
149 $params['file_id'],
150 'file_id',
151 $params['file_id']['type']
152 );
153 }
154
155 CRM_Utils_Hook::post($hook, 'MessageTemplate', $messageTemplates->id, $messageTemplates);
156 return $messageTemplates;
157 }
158
159 /**
160 * Delete the Message Templates.
161 *
162 * @param int $messageTemplatesID
163 *
164 * @throws \CRM_Core_Exception
165 */
166 public static function del($messageTemplatesID) {
167 // make sure messageTemplatesID is an integer
168 if (!CRM_Utils_Rule::positiveInteger($messageTemplatesID)) {
169 throw new CRM_Core_Exception(ts('Invalid Message template'));
170 }
171
172 // Set mailing msg template col to NULL
173 $query = "UPDATE civicrm_mailing
174 SET msg_template_id = NULL
175 WHERE msg_template_id = %1";
176
177 $params = [1 => [$messageTemplatesID, 'Integer']];
178 CRM_Core_DAO::executeQuery($query, $params);
179
180 $messageTemplates = new CRM_Core_DAO_MessageTemplate();
181 $messageTemplates->id = $messageTemplatesID;
182 $messageTemplates->delete();
183 CRM_Core_Session::setStatus(ts('Selected message template has been deleted.'), ts('Deleted'), 'success');
184 }
185
186 /**
187 * Get the Message Templates.
188 *
189 *
190 * @param bool $all
191 *
192 * @param bool $isSMS
193 *
194 * @return array
195 */
196 public static function getMessageTemplates($all = TRUE, $isSMS = FALSE) {
197 $msgTpls = [];
198
199 $messageTemplates = new CRM_Core_DAO_MessageTemplate();
200 $messageTemplates->is_active = 1;
201 $messageTemplates->is_sms = $isSMS;
202
203 if (!$all) {
204 $messageTemplates->workflow_id = 'NULL';
205 }
206 $messageTemplates->find();
207 while ($messageTemplates->fetch()) {
208 $msgTpls[$messageTemplates->id] = $messageTemplates->msg_title;
209 }
210 asort($msgTpls);
211 return $msgTpls;
212 }
213
214 /**
215 * @param int $contactId
216 * @param $email
217 * @param int $messageTemplateID
218 * @param $from
219 *
220 * @return bool|NULL
221 * @throws \CRM_Core_Exception
222 */
223 public static function sendReminder($contactId, $email, $messageTemplateID, $from) {
224
225 $messageTemplates = new CRM_Core_DAO_MessageTemplate();
226 $messageTemplates->id = $messageTemplateID;
227
228 $domain = CRM_Core_BAO_Domain::getDomain();
229 $result = NULL;
230 $hookTokens = [];
231
232 if ($messageTemplates->find(TRUE)) {
233 $body_text = $messageTemplates->msg_text;
234 $body_html = $messageTemplates->msg_html;
235 $body_subject = $messageTemplates->msg_subject;
236 if (!$body_text) {
237 $body_text = CRM_Utils_String::htmlToText($body_html);
238 }
239
240 $params = [['contact_id', '=', $contactId, 0, 0]];
241 list($contact, $_) = CRM_Contact_BAO_Query::apiQuery($params);
242
243 //CRM-4524
244 $contact = reset($contact);
245
246 if (!$contact || is_a($contact, 'CRM_Core_Error')) {
247 return NULL;
248 }
249
250 //CRM-5734
251
252 // get tokens to be replaced
253 $tokens = array_merge(CRM_Utils_Token::getTokens($body_text),
254 CRM_Utils_Token::getTokens($body_html),
255 CRM_Utils_Token::getTokens($body_subject));
256
257 // get replacement text for these tokens
258 $returnProperties = ["preferred_mail_format" => 1];
259 if (isset($tokens['contact'])) {
260 foreach ($tokens['contact'] as $key => $value) {
261 $returnProperties[$value] = 1;
262 }
263 }
264 list($details) = CRM_Utils_Token::getTokenDetails([$contactId],
265 $returnProperties,
266 NULL, NULL, FALSE,
267 $tokens,
268 'CRM_Core_BAO_MessageTemplate');
269 $contact = reset($details);
270
271 // call token hook
272 $hookTokens = [];
273 CRM_Utils_Hook::tokens($hookTokens);
274 $categories = array_keys($hookTokens);
275
276 // do replacements in text and html body
277 $type = ['html', 'text'];
278 foreach ($type as $key => $value) {
279 $bodyType = "body_{$value}";
280 if ($$bodyType) {
281 CRM_Utils_Token::replaceGreetingTokens($$bodyType, NULL, $contact['contact_id']);
282 $$bodyType = CRM_Utils_Token::replaceDomainTokens($$bodyType, $domain, TRUE, $tokens, TRUE);
283 $$bodyType = CRM_Utils_Token::replaceContactTokens($$bodyType, $contact, FALSE, $tokens, FALSE, TRUE);
284 $$bodyType = CRM_Utils_Token::replaceComponentTokens($$bodyType, $contact, $tokens, TRUE);
285 $$bodyType = CRM_Utils_Token::replaceHookTokens($$bodyType, $contact, $categories, TRUE);
286 }
287 }
288 $html = $body_html;
289 $text = $body_text;
290
291 $smarty = CRM_Core_Smarty::singleton();
292 foreach ([
293 'text',
294 'html',
295 ] as $elem) {
296 $$elem = $smarty->fetch("string:{$$elem}");
297 }
298
299 // do replacements in message subject
300 $messageSubject = CRM_Utils_Token::replaceContactTokens($body_subject, $contact, FALSE, $tokens);
301 $messageSubject = CRM_Utils_Token::replaceDomainTokens($messageSubject, $domain, TRUE, $tokens);
302 $messageSubject = CRM_Utils_Token::replaceComponentTokens($messageSubject, $contact, $tokens, TRUE);
303 $messageSubject = CRM_Utils_Token::replaceHookTokens($messageSubject, $contact, $categories, TRUE);
304
305 $messageSubject = $smarty->fetch("string:{$messageSubject}");
306
307 // set up the parameters for CRM_Utils_Mail::send
308 $mailParams = [
309 'groupName' => 'Scheduled Reminder Sender',
310 'from' => $from,
311 'toName' => $contact['display_name'],
312 'toEmail' => $email,
313 'subject' => $messageSubject,
314 ];
315 if (!$html || $contact['preferred_mail_format'] == 'Text' ||
316 $contact['preferred_mail_format'] == 'Both'
317 ) {
318 // render the &amp; entities in text mode, so that the links work
319 $mailParams['text'] = str_replace('&amp;', '&', $text);
320 }
321 if ($html && ($contact['preferred_mail_format'] == 'HTML' ||
322 $contact['preferred_mail_format'] == 'Both'
323 )
324 ) {
325 $mailParams['html'] = $html;
326 }
327
328 $result = CRM_Utils_Mail::send($mailParams);
329 }
330
331 return $result;
332 }
333
334 /**
335 * Revert a message template to its default subject+text+HTML state.
336 *
337 * @param int $id id of the template
338 *
339 * @throws \CRM_Core_Exception
340 */
341 public static function revert($id) {
342 $diverted = new CRM_Core_BAO_MessageTemplate();
343 $diverted->id = (int) $id;
344 $diverted->find(1);
345
346 if ($diverted->N != 1) {
347 throw new CRM_Core_Exception(ts('Did not find a message template with id of %1.', [1 => $id]));
348 }
349
350 $orig = new CRM_Core_BAO_MessageTemplate();
351 $orig->workflow_id = $diverted->workflow_id;
352 $orig->is_reserved = 1;
353 $orig->find(1);
354
355 if ($orig->N != 1) {
356 throw new CRM_Core_Exception(ts('Message template with id of %1 does not have a default to revert to.', [1 => $id]));
357 }
358
359 $diverted->msg_subject = $orig->msg_subject;
360 $diverted->msg_text = $orig->msg_text;
361 $diverted->msg_html = $orig->msg_html;
362 $diverted->pdf_format_id = is_null($orig->pdf_format_id) ? 'null' : $orig->pdf_format_id;
363 $diverted->save();
364 }
365
366 /**
367 * Send an email from the specified template based on an array of params.
368 *
369 * @param array $params
370 * A string-keyed array of function params, see function body for details.
371 *
372 * @return array
373 * Array of four parameters: a boolean whether the email was sent, and the subject, text and HTML templates
374 * @throws \CRM_Core_Exception
375 * @throws \API_Exception
376 */
377 public static function sendTemplate($params) {
378 $defaults = [
379 // option value name of the template
380 'valueName' => NULL,
381 // ID of the template
382 'messageTemplateID' => NULL,
383 // contact id if contact tokens are to be replaced
384 'contactId' => NULL,
385 // additional template params (other than the ones already set in the template singleton)
386 'tplParams' => [],
387 // the From: header
388 'from' => NULL,
389 // the recipient’s name
390 'toName' => NULL,
391 // the recipient’s email - mail is sent only if set
392 'toEmail' => NULL,
393 // the Cc: header
394 'cc' => NULL,
395 // the Bcc: header
396 'bcc' => NULL,
397 // the Reply-To: header
398 'replyTo' => NULL,
399 // email attachments
400 'attachments' => NULL,
401 // whether this is a test email (and hence should include the test banner)
402 'isTest' => FALSE,
403 // filename of optional PDF version to add as attachment (do not include path)
404 'PDFFilename' => NULL,
405 ];
406 $params = array_merge($defaults, $params);
407
408 // Core#644 - handle Email ID passed as "From".
409 if (isset($params['from'])) {
410 $params['from'] = CRM_Utils_Mail::formatFromAddress($params['from']);
411 }
412
413 CRM_Utils_Hook::alterMailParams($params, 'messageTemplate');
414
415 if (!$params['valueName'] && !$params['messageTemplateID']) {
416 throw new CRM_Core_Exception(ts("Message template's option value or ID missing."));
417 }
418
419 $apiCall = MessageTemplate::get(FALSE)
420 ->addSelect('msg_subject', 'msg_text', 'msg_html', 'pdf_format_id', 'id')
421 ->addWhere('is_default', '=', 1);
422
423 if ($params['messageTemplateID']) {
424 $apiCall->addWhere('id', '=', (int) $params['messageTemplateID']);
425 }
426 else {
427 $apiCall->addWhere('workflow_name', '=', $params['valueName']);
428 }
429 $messageTemplate = $apiCall->execute()->first();
430
431 if (empty($messageTemplate['id'])) {
432 if ($params['messageTemplateID']) {
433 throw new CRM_Core_Exception(ts('No such message template: id=%1.', [1 => $params['messageTemplateID']]));
434 }
435 throw new CRM_Core_Exception(ts('No message template with workflow name %2.', [2 => $params['valueName']]));
436 }
437
438 $mailContent = [
439 'subject' => $messageTemplate['msg_subject'],
440 'text' => $messageTemplate['msg_text'],
441 'html' => $messageTemplate['msg_html'],
442 'format' => $messageTemplate['pdf_format_id'],
443 // Group name is a deprecated parameter. At some point it will not be passed out.
444 // https://github.com/civicrm/civicrm-core/pull/17180
445 'groupName' => $params['groupName'] ?? NULL,
446 'valueName' => $params['valueName'],
447 'messageTemplateID' => $params['messageTemplateID'],
448 ];
449
450 CRM_Utils_Hook::alterMailContent($mailContent);
451
452 // add the test banner (if requested)
453 if ($params['isTest']) {
454 $query = "SELECT msg_subject subject, msg_text text, msg_html html
455 FROM civicrm_msg_template mt
456 WHERE workflow_name = 'test_preview' AND mt.is_default = 1";
457 $testDao = CRM_Core_DAO::executeQuery($query);
458 $testDao->fetch();
459
460 $mailContent['subject'] = $testDao->subject . $mailContent['subject'];
461 $mailContent['text'] = $testDao->text . $mailContent['text'];
462 $mailContent['html'] = preg_replace('/<body(.*)$/im', "<body\\1\n{$testDao->html}", $mailContent['html']);
463 }
464
465 // replace tokens in the three elements (in subject as if it was the text body)
466 $domain = CRM_Core_BAO_Domain::getDomain();
467 $hookTokens = [];
468 $mailing = new CRM_Mailing_BAO_Mailing();
469 $mailing->subject = $mailContent['subject'];
470 $mailing->body_text = $mailContent['text'];
471 $mailing->body_html = $mailContent['html'];
472 $tokens = $mailing->getTokens();
473 CRM_Utils_Hook::tokens($hookTokens);
474 $categories = array_keys($hookTokens);
475
476 $contactID = $params['contactId'] ?? NULL;
477
478 if ($contactID) {
479 $contactParams = ['contact_id' => $contactID];
480 $returnProperties = [];
481
482 if (isset($tokens['subject']['contact'])) {
483 foreach ($tokens['subject']['contact'] as $name) {
484 $returnProperties[$name] = 1;
485 }
486 }
487
488 if (isset($tokens['text']['contact'])) {
489 foreach ($tokens['text']['contact'] as $name) {
490 $returnProperties[$name] = 1;
491 }
492 }
493
494 if (isset($tokens['html']['contact'])) {
495 foreach ($tokens['html']['contact'] as $name) {
496 $returnProperties[$name] = 1;
497 }
498 }
499
500 // @todo CRM-17253 don't resolve contact details if there are no tokens
501 // effectively comment out this next (performance-expensive) line
502 // but unfortunately testing is a bit think on the ground to that needs to
503 // be added.
504 list($contact) = CRM_Utils_Token::getTokenDetails($contactParams,
505 $returnProperties,
506 FALSE, FALSE, NULL,
507 CRM_Utils_Token::flattenTokens($tokens),
508 // we should consider adding valueName here
509 'CRM_Core_BAO_MessageTemplate'
510 );
511 $contact = $contact[$contactID];
512 }
513
514 $mailContent['subject'] = CRM_Utils_Token::replaceDomainTokens($mailContent['subject'], $domain, FALSE, $tokens['subject'], TRUE);
515 $mailContent['text'] = CRM_Utils_Token::replaceDomainTokens($mailContent['text'], $domain, FALSE, $tokens['text'], TRUE);
516 $mailContent['html'] = CRM_Utils_Token::replaceDomainTokens($mailContent['html'], $domain, TRUE, $tokens['html'], TRUE);
517
518 if ($contactID) {
519 $mailContent['subject'] = CRM_Utils_Token::replaceContactTokens($mailContent['subject'], $contact, FALSE, $tokens['subject'], FALSE, TRUE);
520 $mailContent['text'] = CRM_Utils_Token::replaceContactTokens($mailContent['text'], $contact, FALSE, $tokens['text'], FALSE, TRUE);
521 $mailContent['html'] = CRM_Utils_Token::replaceContactTokens($mailContent['html'], $contact, FALSE, $tokens['html'], FALSE, TRUE);
522
523 $contactArray = [$contactID => $contact];
524 CRM_Utils_Hook::tokenValues($contactArray,
525 [$contactID],
526 NULL,
527 CRM_Utils_Token::flattenTokens($tokens),
528 // we should consider adding valueName here
529 'CRM_Core_BAO_MessageTemplate'
530 );
531 $contact = $contactArray[$contactID];
532
533 $mailContent['subject'] = CRM_Utils_Token::replaceHookTokens($mailContent['subject'], $contact, $categories, TRUE);
534 $mailContent['text'] = CRM_Utils_Token::replaceHookTokens($mailContent['text'], $contact, $categories, TRUE);
535 $mailContent['html'] = CRM_Utils_Token::replaceHookTokens($mailContent['html'], $contact, $categories, TRUE);
536 }
537
538 // strip whitespace from ends and turn into a single line
539 $mailContent['subject'] = "{strip}{$mailContent['subject']}{/strip}";
540
541 // parse the three elements with Smarty
542 $smarty = CRM_Core_Smarty::singleton();
543 foreach ($params['tplParams'] as $name => $value) {
544 $smarty->assign($name, $value);
545 }
546 foreach ([
547 'subject',
548 'text',
549 'html',
550 ] as $elem) {
551 $mailContent[$elem] = $smarty->fetch("string:{$mailContent[$elem]}");
552 }
553
554 // send the template, honouring the target user’s preferences (if any)
555 $sent = FALSE;
556
557 // create the params array
558 $params['subject'] = $mailContent['subject'];
559 $params['text'] = $mailContent['text'];
560 $params['html'] = $mailContent['html'];
561
562 if ($params['toEmail']) {
563 $contactParams = [['email', 'LIKE', $params['toEmail'], 0, 1]];
564 list($contact, $_) = CRM_Contact_BAO_Query::apiQuery($contactParams);
565
566 $prefs = array_pop($contact);
567
568 if (isset($prefs['preferred_mail_format']) and $prefs['preferred_mail_format'] === 'HTML') {
569 $params['text'] = NULL;
570 }
571
572 if (isset($prefs['preferred_mail_format']) and $prefs['preferred_mail_format'] === 'Text') {
573 $params['html'] = NULL;
574 }
575
576 $config = CRM_Core_Config::singleton();
577 if (isset($params['isEmailPdf']) && $params['isEmailPdf'] == 1) {
578 $pdfHtml = CRM_Contribute_BAO_ContributionPage::addInvoicePdfToEmail($params['contributionId'], $params['contactId']);
579 if (empty($params['attachments'])) {
580 $params['attachments'] = [];
581 }
582 $params['attachments'][] = CRM_Utils_Mail::appendPDF('Invoice.pdf', $pdfHtml, $mailContent['format']);
583 }
584 $pdf_filename = '';
585 if ($config->doNotAttachPDFReceipt &&
586 $params['PDFFilename'] &&
587 $params['html']
588 ) {
589 if (empty($params['attachments'])) {
590 $params['attachments'] = [];
591 }
592 $params['attachments'][] = CRM_Utils_Mail::appendPDF($params['PDFFilename'], $params['html'], $mailContent['format']);
593 if (isset($params['tplParams']['email_comment'])) {
594 $params['html'] = $params['tplParams']['email_comment'];
595 $params['text'] = strip_tags($params['tplParams']['email_comment']);
596 }
597 }
598
599 $sent = CRM_Utils_Mail::send($params);
600
601 if ($pdf_filename) {
602 unlink($pdf_filename);
603 }
604 }
605
606 return [$sent, $mailContent['subject'], $mailContent['text'], $mailContent['html']];
607 }
608
609 /**
610 * Create a map between workflow_name and workflow_id.
611 *
612 * @return array
613 * Array(string $workflowName => int $workflowId)
614 */
615 protected static function getWorkflowNameIdMap() {
616 // There's probably some more clever way to do this, but this seems simple.
617 return CRM_Core_DAO::executeQuery('SELECT cov.name as name, cov.id as id FROM civicrm_option_group cog INNER JOIN civicrm_option_value cov on cov.option_group_id=cog.id WHERE cog.name LIKE %1', [
618 1 => ['msg_tpl_workflow_%', 'String'],
619 ])->fetchMap('name', 'id');
620 }
621
622 }