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
35 class CRM_Mailing_BAO_Spool
extends CRM_Mailing_DAO_Spool
{
40 function __construct() {
41 parent
::__construct();
45 * Store Mails into Spool table.
47 * @param mixed $recipients Either a comma-seperated list of recipients
48 * (RFC822 compliant), or an array of recipients,
49 * each RFC822 valid. This may contain recipients not
50 * specified in the headers, for Bcc:, resending
53 * @param array $headers The string of headers to send with the mail.
55 * @param string $body The full text of the message body, including any
58 * @return mixed Returns true on success, or a CRM_Eore_Error
59 * containing a descriptive error message on
63 function send($recipient, $headers, $body, $job_id = null) {
65 foreach ($headers as $name => $value) {
66 $headerStr[] = "$name: $value";
68 $headerStr = implode("\n", $headerStr);
70 if ( is_null( $job_id ) ) {
71 // This is not a bulk mailing. Create a dummy job for it.
73 $session = CRM_Core_Session
::singleton();
75 $params['created_id'] = $session->get('userID');
76 $params['created_date'] = date('YmdHis');
77 $params['scheduled_id'] = $params['created_id'];
78 $params['scheduled_date'] = $params['created_date'];
79 $params['approver_id'] = $params['created_id'];
80 $params['approval_date'] = $params['created_date'];
81 $params['approval_status_id'] = CRM_Core_OptionGroup
::getValue('mail_approval_status', 'Approved', 'name');
82 $params['is_completed'] = 1;
83 $params['is_archived'] = 1;
84 $params['body_html'] = htmlspecialchars( $headerStr ) . "\n\n" . $body;
85 $params['subject'] = $headers['Subject'];
86 $params['name'] = $headers['Subject'];
88 $mailing = CRM_Mailing_BAO_Mailing
::create($params, $ids);
90 if ( empty( $mailing ) ||
is_a( $mailing, 'CRM_Core_Error' ) ) {
91 return PEAR
::raiseError( 'Unable to create spooled mailing.' );
94 $job = new CRM_Mailing_BAO_MailingJob();
95 $job->is_test
= 0; // if set to 1 it doesn't show in the UI
96 $job->status
= 'Complete';
97 $job->scheduled_date
= CRM_Utils_Date
::processDate(date('Y-m-d'), date('H:i:s'));
98 $job->start_date
= $job->scheduled_date
;
99 $job->end_date
= $job->scheduled_date
;
100 $job->mailing_id
= $mailing->id
;
102 $job_id = $job->id
; // need this for parent_id below
104 $job = new CRM_Mailing_BAO_MailingJob();
106 $job->status
= 'Complete';
107 $job->scheduled_date
= CRM_Utils_Date
::processDate(date('Y-m-d'), date('H:i:s'));
108 $job->start_date
= $job->scheduled_date
;
109 $job->end_date
= $job->scheduled_date
;
110 $job->mailing_id
= $mailing->id
;
111 $job->parent_id
= $job_id;
112 $job->job_type
= 'child';
114 $job_id = $job->id
; // this is the one we want for the spool
116 if ( is_array( $recipient ) ) {
117 $recipient = implode( ';', $recipient );
121 $session = CRM_Core_Session
::singleton();
125 'recipient_email' => $recipient,
126 'headers' => $headerStr,
128 'added_at' => date("YmdHis"),
129 'removed_at' => NULL,
132 $spoolMail = new CRM_Mailing_DAO_Spool();
133 $spoolMail->copyValues($params);