Commit | Line | Data |
---|---|---|
6a488035 TO |
1 | <?php |
2 | /* | |
3 | +--------------------------------------------------------------------+ | |
39de6fd5 | 4 | | CiviCRM version 4.6 | |
6a488035 | 5 | +--------------------------------------------------------------------+ |
e7112fa7 | 6 | | Copyright CiviCRM LLC (c) 2004-2015 | |
6a488035 TO |
7 | +--------------------------------------------------------------------+ |
8 | | This file is a part of CiviCRM. | | |
9 | | | | |
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. | | |
13 | | | | |
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. | | |
18 | | | | |
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 | +--------------------------------------------------------------------+ | |
d25dd0ee | 26 | */ |
6a488035 TO |
27 | |
28 | /** | |
29 | * | |
30 | * @package CRM | |
e7112fa7 | 31 | * @copyright CiviCRM LLC (c) 2004-2015 |
6a488035 TO |
32 | * $Id$ |
33 | * | |
34 | */ | |
35 | ||
36 | /** | |
37 | * This class generates form components for CiviMail | |
38 | */ | |
39 | class CRM_Admin_Form_Setting_Mail extends CRM_Admin_Form_Setting { | |
40 | ||
6098a966 TO |
41 | protected $_settings = array( |
42 | 'replyTo' => CRM_Core_BAO_Setting::MAILING_PREFERENCES_NAME, | |
43 | ); | |
44 | ||
6a488035 | 45 | /** |
eceb18cc | 46 | * Build the form object. |
6a488035 | 47 | * |
355ba699 | 48 | * @return void |
6a488035 TO |
49 | */ |
50 | public function buildQuickForm() { | |
51 | CRM_Utils_System::setTitle(ts('Settings - CiviMail')); | |
52 | $this->addElement('text', 'verpSeparator', ts('VERP Separator')); | |
53 | $this->addElement('text', 'mailerBatchLimit', ts('Mailer Batch Limit')); | |
54 | $this->addElement('text', 'mailThrottleTime', ts('Mailer Throttle Time')); | |
55 | $this->addElement('text', 'mailerJobSize', ts('Mailer Job Size')); | |
6a488035 TO |
56 | $this->addElement('text', 'mailerJobsMax', ts('Mailer CRON job limit')); |
57 | $check = TRUE; | |
58 | ||
59 | // redirect to Administer Section After hitting either Save or Cancel button. | |
60 | $session = CRM_Core_Session::singleton(); | |
61 | $session->pushUserContext(CRM_Utils_System::url('civicrm/admin', 'reset=1')); | |
f813f78e | 62 | |
cc3c3fcc | 63 | $this->addFormRule(array('CRM_Admin_Form_Setting_Mail', 'formRule')); |
d5be719d ML |
64 | $this->addRule('mailerBatchLimit', ts('Please enter a valid integer.'), 'integer'); |
65 | $this->addRule('mailThrottleTime', ts('Please enter a valid integer.'), 'integer'); | |
66 | $this->addRule('mailerJobSize', ts('Please enter a valid integer.'), 'integer'); | |
67 | $this->addRule('mailerJobsMax', ts('Please enter a valid integer.'), 'integer'); | |
6a488035 TO |
68 | |
69 | parent::buildQuickForm($check); | |
70 | } | |
f813f78e | 71 | |
e0ef6999 EM |
72 | /** |
73 | * @param $fields | |
74 | * | |
75 | * @return array|bool | |
76 | */ | |
00be9182 | 77 | public static function formRule($fields) { |
cc3c3fcc AH |
78 | $errors = array(); |
79 | ||
966a1362 AH |
80 | if (CRM_Utils_Array::value('mailerJobSize', $fields) > 0) { |
81 | if (CRM_Utils_Array::value('mailerJobSize', $fields) < 1000) { | |
82 | $errors['mailerJobSize'] = ts('The job size must be at least 1000 or set to 0 (unlimited).'); | |
83 | } | |
84 | elseif (CRM_Utils_Array::value('mailerJobSize', $fields) < | |
353ffa53 TO |
85 | CRM_Utils_Array::value('mailerBatchLimit', $fields) |
86 | ) { | |
966a1362 AH |
87 | $errors['mailerJobSize'] = ts('A job size smaller than the batch limit will negate the effect of the batch limit.'); |
88 | } | |
cc3c3fcc | 89 | } |
f813f78e | 90 | |
cc3c3fcc AH |
91 | return empty($errors) ? TRUE : $errors; |
92 | } | |
96025800 | 93 | |
6a488035 | 94 | } |