3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.4 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2013 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
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. |
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. |
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 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2013
36 require_once 'Mail/mime.php';
37 class CRM_Mailing_Event_BAO_Confirm
extends CRM_Mailing_Event_DAO_Confirm
{
42 function __construct() {
43 parent
::__construct();
47 * Confirm a pending subscription
49 * @param int $contact_id The id of the contact
50 * @param int $subscribe_id The id of the subscription event
51 * @param string $hash The hash
53 * @return boolean True on success
57 public static function confirm($contact_id, $subscribe_id, $hash) {
58 $se = &CRM_Mailing_Event_BAO_Subscribe
::verify(
68 // before we proceed lets just check if this contact is already 'Added'
69 // if so, we should ignore this request and hence avoid sending multiple
71 $details = CRM_Contact_BAO_GroupContact
::getMembershipDetail($contact_id, $se->group_id
);
72 if ($details && $details->status
== 'Added') {
73 // This contact is already subscribed
74 // lets return the group title
75 return CRM_Core_DAO
::getFieldValue(
76 'CRM_Contact_DAO_Group',
82 $transaction = new CRM_Core_Transaction();
84 $ce = new CRM_Mailing_Event_BAO_Confirm();
85 $ce->event_subscribe_id
= $se->id
;
86 $ce->time_stamp
= date('YmdHis');
89 CRM_Contact_BAO_GroupContact
::addContactsToGroup(
97 $transaction->commit();
99 $config = CRM_Core_Config
::singleton();
101 $domain = CRM_Core_BAO_Domain
::getDomain();
102 list($domainEmailName, $_) = CRM_Core_BAO_Domain
::getNameAndEmail();
104 list($display_name, $email) = CRM_Contact_BAO_Contact_Location
::getEmailDetails($se->contact_id
);
106 $group = new CRM_Contact_DAO_Group();
107 $group->id
= $se->group_id
;
110 $component = new CRM_Mailing_BAO_Component();
111 $component->is_default
= 1;
112 $component->is_active
= 1;
113 $component->component_type
= 'Welcome';
115 $component->find(TRUE);
117 $emailDomain = CRM_Core_BAO_MailSettings
::defaultDomain();
119 $html = $component->body_html
;
121 if ($component->body_text
) {
122 $text = $component->body_text
;
125 $text = CRM_Utils_String
::htmlToText($component->body_html
);
128 $bao = new CRM_Mailing_BAO_Mailing();
129 $bao->body_text
= $text;
130 $bao->body_html
= $html;
131 $tokens = $bao->getTokens();
133 $html = CRM_Utils_Token
::replaceDomainTokens($html, $domain, TRUE, $tokens['html']);
134 $html = CRM_Utils_Token
::replaceWelcomeTokens($html, $group->title
, TRUE);
136 $text = CRM_Utils_Token
::replaceDomainTokens($text, $domain, FALSE, $tokens['text']);
137 $text = CRM_Utils_Token
::replaceWelcomeTokens($text, $group->title
, FALSE);
140 'groupName' => 'Mailing Event ' . $component->component_type
, 'subject' => $component->subject
,
141 'from' => "\"$domainEmailName\" <do-not-reply@$emailDomain>",
143 'toName' => $display_name,
144 'replyTo' => "do-not-reply@$emailDomain",
145 'returnPath' => "do-not-reply@$emailDomain",
149 // send - ignore errors because the desired status change has already been successful
150 $unused_result = CRM_Utils_Mail
::send($mailParams);
152 return $group->title
;