dolibarr  21.0.0-alpha
security_other.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2004-2013 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
4  * Copyright (C) 2013 Juanjo Menent <jmenent@2byte.es>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program. If not, see <https://www.gnu.org/licenses/>.
18  */
19 
26 // Load Dolibarr environment
27 require '../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
31 
32 // Load translation files required by the page
33 $langs->loadLangs(array("users", "admin", "other"));
34 
35 if (!$user->admin) {
37 }
38 
39 $action = GETPOST('action', 'aZ09');
40 
41 
42 
43 /*
44  * Actions
45  */
46 
47 if (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) {
48  $code = $reg[1];
49  $value = (GETPOST($code, 'alpha') ? GETPOST($code, 'alpha') : 1);
50  if (dolibarr_set_const($db, $code, $value, 'chaine', 0, '', $conf->entity) > 0) {
51  header("Location: ".$_SERVER["PHP_SELF"]);
52  exit;
53  } else {
54  dol_print_error($db);
55  }
56 } elseif (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) {
57  $code = $reg[1];
58  if (dolibarr_del_const($db, $code, $conf->entity) > 0) {
59  header("Location: ".$_SERVER["PHP_SELF"]);
60  exit;
61  } else {
62  dol_print_error($db);
63  }
64 } elseif ($action == 'updateform') {
65  $res1 = 1;
66  $res2 = 1;
67  $res3 = 1;
68  $res4 = 1;
69  $res5 = 1;
70  if (GETPOSTISSET('MAIN_APPLICATION_TITLE')) {
71  $res1 = dolibarr_set_const($db, "MAIN_APPLICATION_TITLE", GETPOST("MAIN_APPLICATION_TITLE", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
72  }
73  if (GETPOSTISSET('MAIN_SESSION_TIMEOUT')) {
74  $res2 = dolibarr_set_const($db, "MAIN_SESSION_TIMEOUT", GETPOST("MAIN_SESSION_TIMEOUT", 'alphanohtml'), 'chaine', 0, '', $conf->entity);
75  }
76  if (GETPOSTISSET('MAIN_SECURITY_MAX_IMG_IN_HTML_CONTENT')) {
77  $res3 = dolibarr_set_const($db, "MAIN_SECURITY_MAX_IMG_IN_HTML_CONTENT", GETPOST("MAIN_SECURITY_MAX_IMG_IN_HTML_CONTENT", 'alphanohtml'), 'int', 0, '', $conf->entity);
78  }
79  if (GETPOSTISSET('MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS')) {
80  $res4 = dolibarr_set_const($db, "MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS", GETPOST("MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS", 'alphanohtml'), 'int', 0, '', $conf->entity);
81  }
82  if (GETPOSTISSET('MAIN_SECURITY_MAX_ATTACHMENT_ON_FORMS')) {
83  $res5 = dolibarr_set_const($db, "MAIN_SECURITY_MAX_ATTACHMENT_ON_FORMS", GETPOST("MAIN_SECURITY_MAX_ATTACHMENT_ON_FORMS", 'alphanohtml'), 'int', 0, '', $conf->entity);
84  }
85  if ($res1 && $res2 && $res3 && $res4 && $res5) {
86  setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs');
87  }
88 }
89 
90 
91 
92 /*
93  * View
94  */
95 
96 $form = new Form($db);
97 
98 $wikihelp = 'EN:Setup_Security|FR:Paramétrage_Sécurité|ES:Configuración_Seguridad';
99 llxHeader('', $langs->trans("Miscellaneous"), $wikihelp, '', 0, 0, '', '', '', 'mod-admin page-security_other');
100 
101 print load_fiche_titre($langs->trans("SecuritySetup"), '', 'title_setup');
102 
103 print '<span class="opacitymedium">'.$langs->trans("MiscellaneousDesc")."</span><br>\n";
104 print "<br>\n";
105 
106 
107 
108 print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
109 print '<input type="hidden" name="token" value="'.newToken().'">';
110 print '<input type="hidden" name="action" value="updateform">';
111 
112 $head = security_prepare_head();
113 
114 print dol_get_fiche_head($head, 'misc', '', -1);
115 
116 print '<br>';
117 
118 // Other Options
119 print '<table class="noborder centpercent">';
120 print '<tr class="liste_titre">';
121 print '<td colspan="3">'.$langs->trans("Parameters").'</td>';
122 print '<td class="right" width="100">'.$langs->trans("Status").'</td>';
123 print '</tr>';
124 
125 // Enable Captcha code
126 print '<tr class="oddeven">';
127 print '<td colspan="3">'.$langs->trans("UseCaptchaCode").'</td>';
128 print '<td class="right">';
129 if (function_exists("imagecreatefrompng")) {
130  if (!empty($conf->use_javascript_ajax)) {
131  print ajax_constantonoff('MAIN_SECURITY_ENABLECAPTCHA');
132  } else {
133  if (!getDolGlobalString('MAIN_SECURITY_ENABLECAPTCHA')) {
134  print '<a href="'.$_SERVER['PHP_SELF'].'?action=set_MAIN_SECURITY_ENABLECAPTCHA&token='.newToken().'">'.img_picto($langs->trans("Disabled"), 'off').'</a>';
135  } else {
136  print '<a href="'.$_SERVER['PHP_SELF'].'?action=del_MAIN_SECURITY_ENABLECAPTCHA&token='.newToken().'">'.img_picto($langs->trans("Enabled"), 'on').'</a>';
137  }
138  }
139 } else {
140  $desc = $form->textwithpicto('', $langs->transnoentities("EnableGDLibraryDesc"), 1, 'warning');
141  print $desc;
142 }
143 print '</td></tr>';
144 
145 // Enable advanced perms
146 print '<tr class="oddeven">';
147 print '<td colspan="3">'.$langs->trans("UseAdvancedPerms").'</td>';
148 print '<td class="right">';
149 if (!empty($conf->use_javascript_ajax)) {
150  print ajax_constantonoff('MAIN_USE_ADVANCED_PERMS');
151 } else {
152  if (!getDolGlobalString('MAIN_USE_ADVANCED_PERMS')) {
153  print '<a href="'.$_SERVER['PHP_SELF'].'?action=set_MAIN_USE_ADVANCED_PERMS&token='.newToken().'">'.img_picto($langs->trans("Disabled"), 'off').'</a>';
154  } else {
155  print '<a href="'.$_SERVER['PHP_SELF'].'?action=del_MAIN_USE_ADVANCED_PERMS&token='.newToken().'">'.img_picto($langs->trans("Enabled"), 'on').'</a>';
156  }
157 }
158 print "</td></tr>";
159 
160 print '</table>';
161 
162 
163 print '<br>';
164 
165 
166 // Timeout
167 print '<table width="100%" class="noborder">';
168 print '<tr class="liste_titre">';
169 print '<td colspan="2">'.$langs->trans("Parameters").'</td>';
170 print '<td>'.$langs->trans("Value").'</td>';
171 print "</tr>\n";
172 
173 
174 $sessiontimeout = ini_get("session.gc_maxlifetime");
175 if (!getDolGlobalString('MAIN_SESSION_TIMEOUT')) {
176  $conf->global->MAIN_SESSION_TIMEOUT = $sessiontimeout;
177 }
178 print '<tr class="oddeven">';
179 print '<td>'.$langs->trans("SessionTimeOut").'</td><td class="right">';
180 if (ini_get("session.gc_probability") == 0) {
181  print $form->textwithpicto('', $langs->trans("SessionsPurgedByExternalSystem", ini_get("session.gc_maxlifetime")));
182 } else {
183  print $form->textwithpicto('', $langs->trans("SessionExplanation", ini_get("session.gc_probability"), ini_get("session.gc_divisor"), ini_get("session.gc_maxlifetime")));
184 }
185 print '</td>';
186 print '<td class="nowrap">';
187 print '<input class="flat right width50" name="MAIN_SESSION_TIMEOUT" type="text" value="'.getDolGlobalInt('MAIN_SESSION_TIMEOUT').'"> '.strtolower($langs->trans("Seconds"));
188 print '</td>';
189 print '</tr>';
190 
191 print '<tr class="oddeven">';
192 print '<td>'.$langs->trans("MaxNumberOfImagesInGetPost").'</td><td class="right">';
193 print '</td>';
194 print '<td class="nowrap">';
195 print '<input class="flat right width50" name="MAIN_SECURITY_MAX_IMG_IN_HTML_CONTENT" type="text" value="'.getDolGlobalInt('MAIN_SECURITY_MAX_IMG_IN_HTML_CONTENT').'"> '.strtolower($langs->trans("Images"));
196 print '</td>';
197 print '</tr>';
198 
199 print '<tr class="oddeven">';
200 print '<td>'.$langs->trans("MaxNumberOfPostOnPublicPagesByIP").'</td><td class="right">';
201 print '</td>';
202 print '<td class="nowrap">';
203 print '<input class="flat right width50" name="MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS" type="text" value="'.getDolGlobalInt("MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS", 200).'"> '.strtolower($langs->trans("Posts"));
204 print '</td>';
205 print '</tr>';
206 
207 print '<tr class="oddeven">';
208 print '<td>'.$langs->trans("MaxNumberOfAttachementOnForms").'</td><td class="right">';
209 print '</td>';
210 print '<td class="nowrap">';
211 print '<input class="flat right width50" name="MAIN_SECURITY_MAX_ATTACHMENT_ON_FORMS" type="text" value="'.getDolGlobalInt("MAIN_SECURITY_MAX_ATTACHMENT_ON_FORMS", 10).'"> '.strtolower($langs->trans("Files"));
212 print '</td>';
213 print '</tr>';
214 
215 print '<tr class="oddeven">';
216 print '<td>'.$langs->trans("MaxNumberOfFailedAuth").'</td><td class="right">';
217 print '</td>';
218 print '<td class="nowrap">';
219 print '<input class="flat right width50" name="MAIN_SECURITY_MAX_NUMBER_FAILED_AUTH" type="text" value="'.getDolGlobalInt("MAIN_SECURITY_MAX_NUMBER_FAILED_AUTH", 100).'"> '.$langs->trans("FailedAuth");
220 print '</td>';
221 print '</tr>';
222 
223 /*
224 if (empty($conf->global->MAIN_APPLICATION_TITLE)) {
225  $conf->global->MAIN_APPLICATION_TITLE = "";
226 }
227 print '<tr class="oddeven">';
228 print '<td>'.$langs->trans("MAIN_APPLICATION_TITLE").'</td><td class="right">';
229 print '</td>';
230 print '<td class="nowrap">';
231 print '<input class="flat" name="MAIN_APPLICATION_TITLE" type="text" size="20" value="'.dol_escape_htmltag($conf->global->MAIN_APPLICATION_TITLE).'"> ';
232 print '</td>';
233 print '</tr>';
234 */
235 
236 print '</table>';
237 
238 print $form->buttonsSaveCancel("Modify", '');
239 
240 print dol_get_fiche_end();
241 
242 print '</form>';
243 
244 // End of page
245 llxFooter();
246 $db->close();
security_prepare_head()
Prepare array with list of tabs.
Definition: admin.lib.php:818
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
Definition: admin.lib.php:656
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
Definition: admin.lib.php:580
if(GETPOSTISSET('MAIN_AGENDA_XCAL_EXPORTKEY')) if(GETPOSTISSET('MAIN_AGENDA_EXPORT_PAST_DELAY')) if(GETPOSTISSET('MAIN_AGENDA_EXPORT_CACHE')) if(GETPOSTISSET('AGENDA_EXPORT_FIX_TZ')) if($actionsave) if(!isset($conf->global->MAIN_AGENDA_EXPORT_PAST_DELAY)) $wikihelp
View.
Definition: agenda_xcal.php:90
ajax_constantonoff($code, $input=array(), $entity=null, $revertonoff=0, $strict=0, $forcereload=0, $marginleftonlyshort=2, $forcenoajax=0, $setzeroinsteadofdel=0, $suffix='', $mode='', $morecss='inline-block')
On/off button for constant.
Definition: ajax.lib.php:642
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:55
llxFooter()
Empty footer.
Definition: wrapper.php:69
Class to manage generation of HTML components Only common components must be here.
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.