3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.5 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
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-2014
35 class CRM_Mailing_Form_Optout
extends CRM_Core_Form
{
37 function preProcess() {
39 $this->_type
= 'optout';
41 $this->_job_id
= $job_id = CRM_Utils_Request
::retrieve('jid', 'Integer', $this);
42 $this->_queue_id
= $queue_id = CRM_Utils_Request
::retrieve('qid', 'Integer', $this);
43 $this->_hash
= $hash = CRM_Utils_Request
::retrieve('h', 'String', $this);
49 CRM_Core_Error
::fatal(ts("Missing input parameters"));
52 // verify that the three numbers above match
53 $q = CRM_Mailing_Event_BAO_Queue
::verify($job_id, $queue_id, $hash);
55 CRM_Core_Error
::fatal(ts("There was an error in your request"));
58 list($displayName, $email) = CRM_Mailing_Event_BAO_Queue
::getContactInfo($queue_id);
59 $this->assign('display_name', $displayName);
60 $emailMasked = CRM_Utils_String
::maskEmail($email);
61 $this->assign('email_masked', $emailMasked);
62 $this->assign('email', $email);
63 $this->_email
= $email;
66 function buildQuickForm() {
68 CRM_Utils_System
::setTitle(ts('Please Confirm Your Opt Out'));
70 $this->add('text', 'email_confirm', ts('Verify email address to opt out:'));
71 $this->addRule('email_confirm', ts('Email address is required to opt out.'), 'required');
81 'name' => ts('Cancel'),
85 $this->addButtons($buttons);
88 function postProcess() {
90 $values = $this->exportValues();
92 // check if EmailTyped matches Email address
93 $result = CRM_Utils_String
::compareStr($this->_email
, $values['email_confirm'], TRUE);
96 $job_id = $this->_job_id
;
97 $queue_id = $this->_queue_id
;
100 $confirmURL = CRM_Utils_System
::url("civicrm/mailing/{$this->_type}","reset=1&jid={$job_id}&qid={$queue_id}&h={$hash}&confirm=1");
101 $this->assign('confirmURL', $confirmURL);
102 $session = CRM_Core_Session
::singleton();
103 $session->pushUserContext($confirmURL);
105 if ($result == TRUE) {
106 // Email address verified
107 if (CRM_Mailing_Event_BAO_Unsubscribe
::unsub_from_domain($job_id, $queue_id, $hash)) {
108 CRM_Mailing_Event_BAO_Unsubscribe
::send_unsub_response($queue_id, NULL, TRUE, $job_id);
111 $statusMsg = ts('Email: %1 has been successfully opted out',
112 array(1 => $values['email_confirm'])
115 CRM_Core_Session
::setStatus( $statusMsg, '', 'success' );
117 else if ($result == FALSE) {
118 // Email address not verified
120 $statusMsg = ts('The email address: %1 you have entered does not match the email associated with this opt out request.',
121 array(1 => $values['email_confirm'])
124 CRM_Core_Session
::setStatus( $statusMsg, '', 'fail' );