CRM/Admin/Form/Setting/Mail.php

   1 <?php
   2 /*
   3  +--------------------------------------------------------------------+
   4  | CiviCRM version 4.6                                                |
   5  +--------------------------------------------------------------------+
   6  | Copyright CiviCRM LLC (c) 2004-2014                                |
   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-2014
  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
  41   protected $_settings = array(
  42     'replyTo' => CRM_Core_BAO_Setting::MAILING_PREFERENCES_NAME,
  43   );
  44
  45   /**
  46    * Build the form object.
  47    *
  48    * @return void
  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'));
  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'));
  62
  63     $this->addFormRule(array('CRM_Admin_Form_Setting_Mail', 'formRule'));
  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');
  68
  69     parent::buildQuickForm($check);
  70   }
  71
  72   /**
  73    * @param $fields
  74    *
  75    * @return array|bool
  76    */
  77   public static function formRule($fields) {
  78     $errors = array();
  79
  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) <
  85         CRM_Utils_Array::value('mailerBatchLimit', $fields)
  86       ) {
  87         $errors['mailerJobSize'] = ts('A job size smaller than the batch limit will negate the effect of the batch limit.');
  88       }
  89     }
  90
  91     return empty($errors) ? TRUE : $errors;
  92   }
  93
  94 }