CRM/Admin/Form/Setting/Mail.php

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