dolibarr 21.0.0-alpha
security_file.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2004-2017 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) 2005-2017 Regis Houssin <regis.houssin@inodbox.com>
4 * Copyright (C) 2013 Juanjo Menent <jmenent@2byte.es>
5 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 3 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
19 */
20
27// Load Dolibarr environment
28require '../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
31require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
32
33// Load translation files required by the page
34$langs->loadLangs(array('users', 'admin', 'other'));
35
36$action = GETPOST('action', 'aZ09');
37$sortfield = GETPOST('sortfield', 'aZ09');
38$sortorder = GETPOST('sortorder', 'aZ09');
39if (empty($sortfield)) {
40 $sortfield = 'date';
41}
42if (empty($sortorder)) {
43 $sortorder = 'desc';
44}
45
46$upload_dir = $conf->admin->dir_temp;
47
48if (!$user->admin) {
50}
51
52$error = 0;
53
54
55/*
56 * Actions
57 */
58
59if (GETPOST('sendit') && getDolGlobalString('MAIN_UPLOAD_DOC')) {
60 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
61
62 dol_add_file_process($upload_dir, 1, 0, 'userfile');
63}
64
65if ($action == 'updateform') {
66 $antivircommand = GETPOST('MAIN_ANTIVIRUS_COMMAND', 'restricthtml'); // Use GETPOST restricthtml because we must accept ". Example c:\Progra~1\ClamWin\bin\clamscan.exe
67 $antivirparam = GETPOST('MAIN_ANTIVIRUS_PARAM', 'restricthtml'); // Use GETPOST restricthtml because we must accept ". Example --database="C:\Program Files (x86)\ClamWin\lib"
68 $antivircommand = dol_string_nospecial($antivircommand, '', array("|", ";", "<", ">", "&", "+")); // Sanitize command
69 $antivirparam = dol_string_nospecial($antivirparam, '', array("|", ";", "<", ">", "&", "+")); // Sanitize params
70
71 if ($antivircommand && !empty($dolibarr_main_restrict_os_commands)) {
72 $arrayofallowedcommand = explode(',', $dolibarr_main_restrict_os_commands);
73 $arrayofallowedcommand = array_map('trim', $arrayofallowedcommand);
74 dol_syslog("Command are restricted to ".$dolibarr_main_restrict_os_commands.". We check that one of this command is inside ".$antivircommand);
75 $basenamecmddump = basename(str_replace('\\', '/', $antivircommand));
76 if (!in_array($basenamecmddump, $arrayofallowedcommand)) { // the provided command $cmddump must be an allowed command
77 $errormsg = $langs->trans('CommandIsNotInsideAllowedCommands');
78 setEventMessages($errormsg, null, 'errors');
79 $error++;
80 }
81 }
82
83 if (!$error) {
84 $tmpumask = GETPOST('MAIN_UMASK', 'alpha');
85 $tmpumask = (octdec($tmpumask) & 0666);
86 $tmpumask = decoct($tmpumask);
87 if (!preg_match('/^0/', $tmpumask)) {
88 $tmpumask = '0'.$tmpumask;
89 }
90 if (empty($tmpumask)) { // Also matches '0'
91 $tmpumask = '0664';
92 }
93
94 $res3 = dolibarr_set_const($db, 'MAIN_UPLOAD_DOC', GETPOST('MAIN_UPLOAD_DOC', 'alpha'), 'chaine', 0, '', $conf->entity);
95 $res4 = dolibarr_set_const($db, "MAIN_UMASK", $tmpumask, 'chaine', 0, '', $conf->entity);
96 $res5 = dolibarr_set_const($db, "MAIN_ANTIVIRUS_COMMAND", trim($antivircommand), 'chaine', 0, '', $conf->entity);
97 $res6 = dolibarr_set_const($db, "MAIN_ANTIVIRUS_PARAM", trim($antivirparam), 'chaine', 0, '', $conf->entity);
98 if ($res3 && $res4 && $res5 && $res6) {
99 setEventMessages($langs->trans("RecordModifiedSuccessfully"), null, 'mesgs');
100 }
101 }
102} elseif ($action == 'deletefile') {
103 // Delete file
104 $langs->load("other");
105 $file = $conf->admin->dir_temp.'/'.GETPOST('urlfile', 'alpha');
106 $ret = dol_delete_file($file);
107 if ($ret) {
108 setEventMessages($langs->trans("FileWasRemoved", GETPOST('urlfile', 'alpha')), null, 'mesgs');
109 } else {
110 setEventMessages($langs->trans("ErrorFailToDeleteFile", GETPOST('urlfile', 'alpha')), null, 'errors');
111 }
112}
113
114
115/*
116 * View
117 */
118
119$form = new Form($db);
120
121$wikihelp = 'EN:Setup_Security|FR:Paramétrage_Sécurité|ES:Configuración_Seguridad';
122llxHeader('', $langs->trans("Files"), $wikihelp, '', 0, 0, '', '', '', 'mod-admin page-security_file');
123
124print load_fiche_titre($langs->trans("SecuritySetup"), '', 'title_setup');
125
126print '<span class="opacitymedium">'.$langs->trans("SecurityFilesDesc")."</span><br>\n";
127print "<br>\n";
128
129
130print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
131print '<input type="hidden" name="token" value="'.newToken().'">';
132print '<input type="hidden" name="action" value="updateform">';
133
134$head = security_prepare_head();
135
136print dol_get_fiche_head($head, 'file', '', -1);
137
138print '<br>';
139
140// Upload options
141
142print '<div class="div-table-responsive-no-min">';
143print '<table class="noborder centpercent nomarginbottom">';
144print '<tr class="liste_titre">';
145print '<td>'.$langs->trans("Parameters").'</td>';
146print '<td></td>';
147print '</tr>';
148
149print '<tr class="oddeven">';
150print '<td>'.$langs->trans("MaxSizeForUploadedFiles").'.';
151$max = @ini_get('upload_max_filesize');
152if (isset($max)) {
153 print '<br><span class="opacitymedium">'.$langs->trans("MustBeLowerThanPHPLimit", ((int) $max) * 1024, $langs->trans("Kb")).'.</span>';
154} else {
155 print ' '.$langs->trans("NoMaxSizeByPHPLimit").'.';
156}
157print '</td>';
158print '<td class="nowrap">';
159print '<input class="flat" name="MAIN_UPLOAD_DOC" type="text" size="6" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_UPLOAD_DOC')).'"> '.$langs->trans("Kb");
160print '</td>';
161print '</tr>';
162
163
164print '<tr class="oddeven">';
165print '<td>';
166print $form->textwithpicto($langs->trans("UMask"), $langs->trans("UMaskExplanation"));
167print '</td>';
168print '<td class="nowrap">';
169print '<input class="flat" name="MAIN_UMASK" type="text" size="6" value="'.dol_escape_htmltag(getDolGlobalString('MAIN_UMASK')).'">';
170print '</td>';
171print '</tr>';
172
173// Use anti virus
174
175print '<tr class="oddeven">';
176print '<td>'.$langs->trans("AntiVirusCommand").'<br>';
177print '<span class="opacitymedium">'.$langs->trans("AntiVirusCommandExample").'</span>';
178// Check command in inside safe_mode
179print '</td>';
180print '<td>';
181if (ini_get('safe_mode') && getDolGlobalString('MAIN_ANTIVIRUS_COMMAND')) {
182 $langs->load("errors");
183 $basedir = preg_replace('/"/', '', dirname($conf->global->MAIN_ANTIVIRUS_COMMAND));
184 $listdir = explode(';', ini_get('safe_mode_exec_dir'));
185 if (!in_array($basedir, $listdir)) {
186 print img_warning($langs->trans('WarningSafeModeOnCheckExecDir'));
187 dol_syslog("safe_mode is on, basedir is ".$basedir.", safe_mode_exec_dir is ".ini_get('safe_mode_exec_dir'), LOG_WARNING);
188 }
189}
190print '<input type="text" '.((defined('MAIN_ANTIVIRUS_COMMAND') && !defined('MAIN_ANTIVIRUS_BYPASS_COMMAND_AND_PARAM')) ? 'disabled ' : '').'name="MAIN_ANTIVIRUS_COMMAND" class="minwidth500imp" value="'.dol_escape_htmltag(GETPOSTISSET('MAIN_ANTIVIRUS_COMMAND') ? GETPOST('MAIN_ANTIVIRUS_COMMAND') : getDolGlobalString('MAIN_ANTIVIRUS_COMMAND')).'">';
191if (defined('MAIN_ANTIVIRUS_COMMAND') && !defined('MAIN_ANTIVIRUS_BYPASS_COMMAND_AND_PARAM')) {
192 print '<br><span class="opacitymedium">'.$langs->trans("ValueIsForcedBySystem").'</span>';
193}
194print "</td>";
195print '</tr>';
196
197// Use anti virus
198
199print '<tr class="oddeven">';
200print '<td>'.$langs->trans("AntiVirusParam").'<br>';
201print '<span class="opacitymedium">'.$langs->trans("AntiVirusParamExample").'</span>';
202print '</td>';
203print '<td>';
204print '<input type="text" '.(defined('MAIN_ANTIVIRUS_PARAM') ? 'disabled ' : '').'name="MAIN_ANTIVIRUS_PARAM" class="minwidth500imp" value="'.(getDolGlobalString('MAIN_ANTIVIRUS_PARAM') ? dol_escape_htmltag(getDolGlobalString('MAIN_ANTIVIRUS_PARAM')) : '').'">';
205if (defined('MAIN_ANTIVIRUS_PARAM')) {
206 print '<br><span class="opacitymedium">'.$langs->trans("ValueIsForcedBySystem").'</span>';
207}
208print "</td>";
209print '</tr>';
210
211print '</table>';
212print '</div>';
213
214print dol_get_fiche_end();
215
216print $form->buttonsSaveCancel("Modify", '');
217
218print '</form>';
219
220
221// Form to test upload
222print '<br>';
223$formfile = new FormFile($db);
224$formfile->form_attach_new_file($_SERVER['PHP_SELF'], $langs->trans("FormToTestFileUploadForm"), 0, 0, 1, 50, null, '', 1, '', 0);
225
226// List of document
227$filearray = dol_dir_list($upload_dir, "files", 0, '', '', $sortfield, $sortorder == 'desc' ? SORT_DESC : SORT_ASC, 1);
228if (count($filearray) > 0) {
229 $formfile->list_of_documents($filearray, null, 'admin_temp', '');
230}
231
232// End of page
233llxFooter();
234$db->close();
security_prepare_head()
Prepare array with list of tabs.
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).
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:70
Class to offer components to list and upload files.
Class to manage generation of HTML components Only common components must be here.
llxFooter()
Footer empty.
Definition document.php:107
dol_delete_file($file, $disableglob=0, $nophperrors=0, $nohook=0, $object=null, $allowdotdot=false, $indexdatabase=1, $nolog=0)
Remove a file or several files with a mask.
dol_add_file_process($upload_dir, $allowoverwrite=0, $updatesessionordb=0, $varfiles='addedfile', $savingdocmask='', $link=null, $trackid='', $generatethumbs=1, $object=null)
Get and save an upload file (for example after submitting a new file a mail form).
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
Definition files.lib.php:63
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
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.
dol_string_nospecial($str, $newstr='_', $badcharstoreplace='', $badcharstoremove='', $keepspaces=0)
Clean a string from all punctuation characters to use it as a ref or login.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.