3 +--------------------------------------------------------------------+
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2019 |
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-2019
35 * Class for configuring jobs.
37 class CRM_Admin_Form_Job
extends CRM_Admin_Form
{
38 protected $_id = NULL;
40 public function preProcess() {
44 CRM_Utils_System
::setTitle(ts('Manage - Scheduled Jobs'));
47 $refreshURL = CRM_Utils_System
::url('civicrm/admin/job',
48 "reset=1&action=update&id={$this->_id}",
53 $refreshURL = CRM_Utils_System
::url('civicrm/admin/job',
59 $this->assign('refreshURL', $refreshURL);
63 * Build the form object.
67 public function buildQuickForm($check = FALSE) {
68 parent
::buildQuickForm();
70 if ($this->_action
& CRM_Core_Action
::DELETE
) {
74 $attributes = CRM_Core_DAO
::getAttribute('CRM_Core_DAO_Job');
76 $this->add('text', 'name', ts('Name'),
77 $attributes['name'], TRUE
80 $this->addRule('name', ts('Name already exists in Database.'), 'objectExists', [
85 $this->add('text', 'description', ts('Description'),
86 $attributes['description']
89 $this->add('text', 'api_entity', ts('API Call Entity'),
90 $attributes['api_entity'], TRUE
93 $this->add('text', 'api_action', ts('API Call Action'),
94 $attributes['api_action'], TRUE
97 $this->add('select', 'run_frequency', ts('Run frequency'), CRM_Core_SelectValues
::getJobFrequency());
100 $this->add('datepicker', 'scheduled_run_date', ts('Scheduled Run Date'), NULL, FALSE, ['minDate' => time()]);
102 $this->add('textarea', 'parameters', ts('Command parameters'),
106 // is this job active ?
107 $this->add('checkbox', 'is_active', ts('Is this Scheduled Job active?'));
109 $this->addFormRule(['CRM_Admin_Form_Job', 'formRule']);
116 * @throws API_Exception
118 public static function formRule($fields) {
122 require_once 'api/api.php';
124 /** @var \Civi\API\Kernel $apiKernel */
125 $apiKernel = \Civi
::service('civi_api_kernel');
126 $apiRequest = \Civi\API\Request
::create($fields['api_entity'], $fields['api_action'], ['version' => 3], NULL);
128 $apiKernel->resolve($apiRequest);
130 catch (\Civi\API\Exception\NotImplementedException
$e) {
131 $errors['api_action'] = ts('Given API command is not defined.');
134 if (!empty($errors)) {
138 return empty($errors) ?
TRUE : $errors;
144 public function setDefaultValues() {
148 $defaults['is_active'] = $defaults['is_default'] = 1;
151 $domainID = CRM_Core_Config
::domainID();
153 $dao = new CRM_Core_DAO_Job();
154 $dao->id
= $this->_id
;
155 $dao->domain_id
= $domainID;
156 if (!$dao->find(TRUE)) {
160 CRM_Core_DAO
::storeValues($dao, $defaults);
163 if (!empty($dao->scheduled_run_date
)) {
164 $ts = strtotime($dao->scheduled_run_date
);
165 $defaults['scheduled_run_date'] = date("Y-m-d H:i:s", $ts);
169 // job entity thats shipped with core is all lower case.
170 // this makes sure camel casing is followed for proper working of default population.
171 if (!empty($defaults['api_entity'])) {
172 $defaults['api_entity'] = ucfirst($defaults['api_entity']);
179 * Process the form submission.
181 public function postProcess() {
183 CRM_Utils_System
::flushCache();
185 if ($this->_action
& CRM_Core_Action
::DELETE
) {
186 CRM_Core_BAO_Job
::del($this->_id
);
187 CRM_Core_Session
::setStatus("", ts('Scheduled Job Deleted.'), "success");
191 $values = $this->controller
->exportValues($this->_name
);
192 $domainID = CRM_Core_Config
::domainID();
194 $dao = new CRM_Core_DAO_Job();
196 $dao->id
= $this->_id
;
197 $dao->domain_id
= $domainID;
198 $dao->run_frequency
= $values['run_frequency'];
199 $dao->parameters
= $values['parameters'];
200 $dao->name
= $values['name'];
201 $dao->api_entity
= $values['api_entity'];
202 $dao->api_action
= $values['api_action'];
203 $dao->description
= $values['description'];
204 $dao->is_active
= CRM_Utils_Array
::value('is_active', $values, 0);
207 $ts = strtotime($values['scheduled_run_date']);
208 // if a date/time is supplied and not in the past, then set the next scheduled run...
210 $dao->scheduled_run_date
= CRM_Utils_Date
::currentDBDate($ts);
211 // warn about monthly/quarterly scheduling, if applicable
212 if (($dao->run_frequency
== 'Monthly') ||
($dao->run_frequency
== 'Quarter')) {
213 $info = getdate($ts);
214 if ($info['mday'] > 28) {
215 CRM_Core_Session
::setStatus(
216 ts('Relative month values are calculated based on the length of month(s) that they pass through.
217 The result will land on the same day of the month except for days 29-31 when the target month contains fewer days than the previous month.
218 For example, if a job is scheduled to run on August 31st, the following invocation will occur on October 1st, and then the 1st of every month thereafter.
219 To avoid this issue, please schedule Monthly and Quarterly jobs to run within the first 28 days of the month.'),
220 ts('Warning'), 'info', ['expires' => 0]);
224 // ...otherwise, if this isn't a new scheduled job, clear the next scheduled run
226 $job = new CRM_Core_ScheduledJob(['id' => $dao->id
]);
227 $job->clearScheduledRunDate();
232 // CRM-11143 - Give warning message if update_greetings is Enabled (is_active) since it generally should not be run automatically via execute action or runjobs url.
233 if ($values['api_action'] == 'update_greeting' && CRM_Utils_Array
::value('is_active', $values) == 1) {
234 // pass "wiki" as 6th param to docURL2 if you are linking to a page in wiki.civicrm.org
235 $docLink = CRM_Utils_System
::docURL2("Managing Scheduled Jobs", NULL, NULL, NULL, NULL, "wiki");
236 $msg = ts('The update greeting job can be very resource intensive and is typically not necessary to run on a regular basis. If you do choose to enable the job, we recommend you do not run it with the force=1 option, which would rebuild greetings on all records. Leaving that option absent, or setting it to force=0, will only rebuild greetings for contacts that do not currently have a value stored. %1', [1 => $docLink]);
237 CRM_Core_Session
::setStatus($msg, ts('Warning: Update Greeting job enabled'), 'alert');