Fix case on Class names (actually they are case insensitive so this is just a tidy up
[civicrm-core.git] / CRM / Admin / Form / MailSettings.php
CommitLineData
6a488035
TO
1<?php
2/*
3 +--------------------------------------------------------------------+
232624b1 4 | CiviCRM version 4.4 |
6a488035
TO
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2013 |
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-2013
32 * $Id$
33 *
34 */
35
36/**
37 * This class handles mail account settings.
38 *
39 */
40class CRM_Admin_Form_MailSettings extends CRM_Admin_Form {
41
42 /**
43 * Function to build the form
44 *
45 * @return None
46 * @access public
47 */
48 public function buildQuickForm() {
49 parent::buildQuickForm();
50
51 if ($this->_action & CRM_Core_Action::DELETE) {
52 return;
53 }
54
55 $this->applyFilter('__ALL__', 'trim');
56
57 //get the attributes.
58 $attributes = CRM_Core_DAO::getAttribute('CRM_Core_DAO_MailSettings');
59
60 //build setting form
61 $this->add('text', 'name', ts('Name'), $attributes['name'], TRUE);
62
63 $this->add('text', 'domain', ts('Email Domain'), $attributes['domain'], TRUE);
64 $this->addRule('domain', ts('Email domain must use a valid internet domain format (e.g. \'example.org\').'), 'domain');
65
66 $this->add('text', 'localpart', ts('Localpart'), $attributes['localpart']);
67
68 $this->add('text', 'return_path', ts('Return-Path'), $attributes['return_path']);
69 $this->addRule('return_path', ts('Return-Path must use a valid email address format.'), 'email');
70
71 $this->add('select', 'protocol',
72 ts('Protocol'),
cbf48754 73 array('' => ts('- select -')) + CRM_Core_PseudoConstant::get('CRM_Core_DAO_MailSettings', 'protocol'),
6a488035
TO
74 TRUE
75 );
76
77 $this->add('text', 'server', ts('Server'), $attributes['server']);
78
79 $this->add('text', 'username', ts('Username'), array('autocomplete' => 'off'));
80
81 $this->add('password', 'password', ts('Password'), array('autocomplete' => 'off'));
82
83 $this->add('text', 'source', ts('Source'), $attributes['source']);
84
85 $this->add('checkbox', 'is_ssl', ts('Use SSL?'));
86
87 $usedfor = array(1 => ts('Bounce Processing'),
88 0 => ts('Email-to-Activity Processing'),
89 );
90 $this->add('select', 'is_default', ts('Used For?'), $usedfor);
91 }
92
93 /**
94 * Add local and global form rules
95 *
96 * @access protected
97 *
98 * @return void
99 */
100 function addRules() {
101 $this->addFormRule(array('CRM_Admin_Form_MailSettings', 'formRule'));
102 }
103
104 /**
105 * global validation rules for the form
106 *
107 * @param array $fields posted values of the form
108 *
109 * @return array list of errors to be posted back to the form
110 * @static
111 * @access public
112 */
113 static function formRule($fields) {
114 $errors = array();
115 // Check for default from email address and organization (domain) name. Force them to change it.
116 if ($fields['domain'] == 'EXAMPLE.ORG') {
117 $errors['domain'] = ts('Please enter a valid domain for this mailbox account (the part after @).');
118 }
119
120 return empty($errors) ? TRUE : $errors;
121 }
122
123 /**
124 * Function to process the form
125 *
126 * @access public
127 *
128 * @return None
129 */
130 function postProcess() {
131 if ($this->_action & CRM_Core_Action::DELETE) {
132 CRM_Core_BAO_MailSettings::deleteMailSettings($this->_id);
133 CRM_Core_Session::setStatus("", ts('Mail Setting Deleted.'), "success");
134 return;
135 }
136
137 //get the submitted form values.
138 $formValues = $this->controller->exportValues($this->_name);
139
140 //form fields.
141 $fields = array(
142 'name',
143 'domain',
144 'localpart',
145 'server',
146 'return_path',
147 'protocol',
148 'port',
149 'username',
150 'password',
151 'source',
152 'is_ssl',
153 'is_default',
154 );
155
156 $params = array();
157 foreach ($fields as $f) {
158 if (in_array($f, array(
159 'is_default', 'is_ssl'))) {
160 $params[$f] = CRM_Utils_Array::value($f, $formValues, FALSE);
161 }
162 else {
163 $params[$f] = CRM_Utils_Array::value($f, $formValues);
164 }
165 }
166
167 $params['domain_id'] = CRM_Core_Config::domainID();
168
169 // assign id only in update mode
170 $status = ts('Your New Email Settings have been saved.');
171 if ($this->_action & CRM_Core_Action::UPDATE) {
172 $params['id'] = $this->_id;
173 $status = ts('Your Email Settings have been updated.');
174 }
175
176 $mailSettings = CRM_Core_BAO_MailSettings::create($params);
177
178 if ($mailSettings->id) {
179 CRM_Core_Session::setStatus($status, ts("Saved"), "success");
180 }
181 else {
182 CRM_Core_Session::setStatus("", ts('Changes Not Saved.'), "info");
183 }
184 }
185}
186