3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.3 |
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
35 class CRM_Mailing_Page_Common
extends CRM_Core_Page
{
36 protected $_type = NULL;
39 $job_id = CRM_Utils_Request
::retrieve('jid', 'Integer', CRM_Core_DAO
::$_nullObject);
40 $queue_id = CRM_Utils_Request
::retrieve('qid', 'Integer', CRM_Core_DAO
::$_nullObject);
41 $hash = CRM_Utils_Request
::retrieve('h', 'String', CRM_Core_DAO
::$_nullObject);
47 CRM_Core_Error
::fatal(ts("Missing input parameters"));
51 // verify that the three numbers above match
52 $q = CRM_Mailing_Event_BAO_Queue
::verify($job_id, $queue_id, $hash);
54 CRM_Core_Error
::fatal(ts("There was an error in your request"));
57 $cancel = CRM_Utils_Request
::retrieve("_qf_{$this->_type}_cancel", 'String', CRM_Core_DAO
::$_nullObject,
58 FALSE, NULL, $_REQUEST
61 $config = CRM_Core_Config
::singleton();
62 CRM_Utils_System
::redirect($config->userFrameworkBaseURL
);
65 $confirm = CRM_Utils_Request
::retrieve('confirm', 'Boolean', CRM_Core_DAO
::$_nullObject,
66 FALSE, NULL, $_REQUEST
69 list($displayName, $email) = CRM_Mailing_Event_BAO_Queue
::getContactInfo($queue_id);
70 $this->assign('display_name', $displayName);
71 $this->assign('email', $email);
72 $this->assign('confirm', $confirm);
74 $groups = CRM_Mailing_Event_BAO_Unsubscribe
::unsub_from_mailing($job_id, $queue_id, $hash, TRUE);
75 $this->assign('groups', $groups);
77 foreach ($groups as $key => $value) {
82 $this->assign('groupExist', $groupExist);
85 if ($this->_type
== 'unsubscribe') {
86 $groups = CRM_Mailing_Event_BAO_Unsubscribe
::unsub_from_mailing($job_id, $queue_id, $hash);
88 CRM_Mailing_Event_BAO_Unsubscribe
::send_unsub_response($queue_id, $groups, FALSE, $job_id);
91 // should we indicate an error, or just ignore?
94 elseif ($this->_type
== 'resubscribe') {
95 $groups = CRM_Mailing_Event_BAO_Resubscribe
::resub_to_mailing($job_id, $queue_id, $hash);
97 CRM_Mailing_Event_BAO_Resubscribe
::send_resub_response($queue_id, $groups, FALSE, $job_id);
100 // should we indicate an error, or just ignore?
104 if (CRM_Mailing_Event_BAO_Unsubscribe
::unsub_from_domain($job_id, $queue_id, $hash)) {
105 CRM_Mailing_Event_BAO_Unsubscribe
::send_unsub_response($queue_id, NULL, TRUE, $job_id);
108 // should we indicate an error, or just ignore?
113 $confirmURL = CRM_Utils_System
::url("civicrm/mailing/{$this->_type}",
114 "reset=1&jid={$job_id}&qid={$queue_id}&h={$hash}&confirm=1"
116 $this->assign('confirmURL', $confirmURL);
117 //push context for further process CRM-4431
118 $session = CRM_Core_Session
::singleton();
119 $session->pushUserContext($confirmURL);
122 return parent
::run();