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
::updateGroupMembershipStatus(
96 $transaction->commit();
98 $config = CRM_Core_Config
::singleton();
100 $domain = CRM_Core_BAO_Domain
::getDomain();
101 list($domainEmailName, $_) = CRM_Core_BAO_Domain
::getNameAndEmail();
103 list($display_name, $email) = CRM_Contact_BAO_Contact_Location
::getEmailDetails($se->contact_id
);
105 $group = new CRM_Contact_DAO_Group();
106 $group->id
= $se->group_id
;
109 $component = new CRM_Mailing_BAO_Component();
110 $component->is_default
= 1;
111 $component->is_active
= 1;
112 $component->component_type
= 'Welcome';
114 $component->find(TRUE);
116 $emailDomain = CRM_Core_BAO_MailSettings
::defaultDomain();
118 $html = $component->body_html
;
120 if ($component->body_text
) {
121 $text = $component->body_text
;
124 $text = CRM_Utils_String
::htmlToText($component->body_html
);
127 $bao = new CRM_Mailing_BAO_Mailing();
128 $bao->body_text
= $text;
129 $bao->body_html
= $html;
130 $tokens = $bao->getTokens();
132 $html = CRM_Utils_Token
::replaceDomainTokens($html, $domain, TRUE, $tokens['html']);
133 $html = CRM_Utils_Token
::replaceWelcomeTokens($html, $group->title
, TRUE);
135 $text = CRM_Utils_Token
::replaceDomainTokens($text, $domain, FALSE, $tokens['text']);
136 $text = CRM_Utils_Token
::replaceWelcomeTokens($text, $group->title
, FALSE);
139 'groupName' => 'Mailing Event ' . $component->component_type
, 'subject' => $component->subject
,
140 'from' => "\"$domainEmailName\" <do-not-reply@$emailDomain>",
142 'toName' => $display_name,
143 'replyTo' => "do-not-reply@$emailDomain",
144 'returnPath' => "do-not-reply@$emailDomain",
148 // send - ignore errors because the desired status change has already been successful
149 $unused_result = CRM_Utils_Mail
::send($mailParams);
151 return $group->title
;