dolibarr 23.0.3
webportal.main.inc.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2023-2024 Laurent Destailleur <eldy@users.sourceforge.net>
3 * Copyright (C) 2023-2024 Lionel Vessiller <lvessiller@easya.solutions>
4 * Copyright (C) 2024-2025 Frédéric France <frederic.france@free.fr>
5 * Copyright (C) 2024-2025 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
27if (!defined('WEBPORTAL')) {
28 define('WEBPORTAL', 1);
29}
30if (!defined('NOLOGIN')) {
31 define('NOLOGIN', 1);
32}
33if (!defined('NOREQUIREUSER')) {
34 define('NOREQUIREUSER', 1);
35}
36if (!defined('NOREQUIREMENU')) {
37 define('NOREQUIREMENU', 1);
38}
39if (!defined('NOREQUIRESOC')) {
40 define('NOREQUIRESOC', 1);
41}
42if (!defined('EVEN_IF_ONLY_LOGIN_ALLOWED')) {
43 define('EVEN_IF_ONLY_LOGIN_ALLOWED', 1);
44}
45if (!defined('NOIPCHECK')) {
46 define('NOIPCHECK', 1);
47}
48
49
50if (!function_exists('dol_getprefix')) {
60 function dol_getprefix($mode = '') // @phan-suppress-current-line PhanRedefineFunction
61 {
62 global $dolibarr_main_instance_unique_id,
63 $dolibarr_main_cookie_cryptkey; // This is loaded by filefunc.inc.php
64
65 $tmp_instance_unique_id = empty($dolibarr_main_instance_unique_id) ?
66 (empty($dolibarr_main_cookie_cryptkey) ? '' :
67 $dolibarr_main_cookie_cryptkey) : $dolibarr_main_instance_unique_id;
68 // Unique id of instance
69
70 // The recommended value (may be not defined for old versions)
71 if (!empty($tmp_instance_unique_id)) {
72 return sha1('webportal' . $tmp_instance_unique_id);
73 } else {
74 return sha1('webportal' . $_SERVER['SERVER_NAME'].$_SERVER['DOCUMENT_ROOT'].DOL_DOCUMENT_ROOT);
75 }
76 }
77}
78
79include __DIR__.'/../../main.inc.php';
80require_once DOL_DOCUMENT_ROOT . '/user/class/user.class.php';
81require_once DOL_DOCUMENT_ROOT . '/societe/class/societeaccount.class.php';
82require_once DOL_DOCUMENT_ROOT . '/public/webportal/lib/webportal.lib.php';
83require_once DOL_DOCUMENT_ROOT . '/webportal/class/context.class.php';
84require_once DOL_DOCUMENT_ROOT . '/webportal/class/webportalmember.class.php';
85require_once DOL_DOCUMENT_ROOT . '/webportal/class/webportalpartnership.class.php';
95'
96@phan-var-force string $sessionname
97@phan-var-force string $sessiontimeout
98';
99// Init session. Name of session is specific to WEBPORTAL instance.
100// Must be done after the include of filefunc.inc.php so global variables of conf file are defined (like $dolibarr_main_instance_unique_id or $dolibarr_main_force_https).
101// Note: the function dol_getprefix is defined into functions.lib.php but may have been defined to return a different key to manage another area to protect.
102//$prefix = dol_getprefix('');
103//$sessionname = 'WEBPORTAL_SESSID_' . $prefix;
104//$sessiontimeout = 'WEBPORTAL_SESSTIMEOUT_' . $prefix;
105//if (!empty($_COOKIE[$sessiontimeout]) && session_status() === PHP_SESSION_NONE) {
106// ini_set('session.gc_maxlifetime', $_COOKIE[$sessiontimeout]);
107//}
108
110$context->initController();
111
112$hookmanager->initHooks(array('main', 'webportal'));
113
114$logged_user = new User($db);
115$anti_spam_session_key = 'dol_antispam_value';
116
117if (!defined('NOREQUIREDB') && empty($conf->webportal->enabled)) {
118 accessforbidden('Module not activated');
119}
120
121if (!defined('WEBPORTAL_NOREQUIRETRAN') || (!defined('WEBPORTAL_NOLOGIN') && !empty($context->controllerInstance->accessNeedLoggedUser))) {
122 if (!is_object($langs)) { // This can occurs when calling page with NOREQUIRETRAN defined, however we need langs for error messages.
123 include_once DOL_DOCUMENT_ROOT . '/core/class/translate.class.php';
124 $langs = new Translate("", $conf);
125 $langcode = (GETPOST('lang', 'aZ09', 1) ? GETPOST('lang', 'aZ09', 1) : (empty($logged_user->conf->MAIN_LANG_DEFAULT) ? getDolGlobalString('MAIN_LANG_DEFAULT', 'auto') : $logged_user->conf->MAIN_LANG_DEFAULT));
126 if (defined('MAIN_LANG_DEFAULT')) {
127 $langcode = constant('MAIN_LANG_DEFAULT');
128 }
129 $langs->setDefaultLang($langcode);
130 }
131 $langs->loadLangs(array('website', 'main'));
132}
133
134/*
135 * Phase authentication / login
136 */
137if (getDolGlobalInt('WEBPORTAL_LOGIN_BY_MODULE') && !empty($conf->modules_parts['webportallogin']) && is_array($conf->modules_parts['webportallogin'])) {
138 foreach ($conf->modules_parts['webportallogin'] as $module => $file) {
139 $path=dol_buildpath("/$module/$file");
140 include_once $path;
141 break;
142 }
143} elseif (!defined('WEBPORTAL_NOLOGIN') && !empty($context->controllerInstance->accessNeedLoggedUser)) {
144 $error = 0;
145
146 // Hooks for security access
147 $hookmanager->initHooks(array('login'));
148 $parameters = array(
149 "webportal_sessionname" => $sessionname,
150 "webportal_anti_spam_session_key" => $anti_spam_session_key,
151 );
152 $reshook = $hookmanager->executeHooks('beforeLoginAuthentication', $parameters, $context);
153 if ($reshook < 0) {
154 $error++;
155 } elseif (empty($reshook)) {
156 $admin_error_messages = array();
157 $webportal_logged_thirdparty_account_id = isset($_SESSION["webportal_logged_thirdparty_account_id"]) && $_SESSION["webportal_logged_thirdparty_account_id"] > 0 ? $_SESSION["webportal_logged_thirdparty_account_id"] : 0;
158 $webportal_logged_member_account_id = isset($_SESSION["webportal_logged_member_account_id"]) && $_SESSION["webportal_logged_member_account_id"] > 0 ? $_SESSION["webportal_logged_member_account_id"] : 0;
159
160 if (!$context->userIsLog()) {
161 // It is not already authenticated and it requests the login / password
162 $langs->loadLangs(array("other", "help", "admin"));
163
164 $action = GETPOST('action_login', 'alphanohtml');
165
166 if ($action == 'login') {
167 $login = GETPOST('login', 'alphanohtml');
168 $password = GETPOST('password', 'password');
169 // $security_code = GETPOST('security_code', 'alphanohtml');
170
171 if (empty($login)) {
172 $context->setEventMessage($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Login")), 'errors');
173 $focus_element = 'login';
174 $error++;
175 }
176 if (empty($password)) {
177 $context->setEventMessage($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Password")), 'errors');
178 if (empty($focus_element)) {
179 $focus_element = 'password';
180 }
181 $error++;
182 }
183 // check security graphic code
184 //if (!$error && (array_key_exists($anti_spam_session_key, $_SESSION) === false ||
185 // (strtolower($_SESSION[$anti_spam_session_key]) !== strtolower($security_code)))
186 //) {
187 // $context->setEventMessage($langs->trans("ErrorBadValueForCode"), 'errors');
188 // if (empty($focus_element)) $focus_element = 'security_code';
189 // $error++;
190 //}
191
192 if (!$error && (isModEnabled('societe') && !getDolGlobalInt('WEBPORTAL_LOGIN_BY_MEMBER_ACCOUNT'))) {
193 // fetch third-party account from login and account type
194 $thirdparty_account_id = $context->getThirdPartyAccountFromLogin($login, $password);
195 if ($thirdparty_account_id <= 0) {
196 $error++;
197 dol_syslog($langs->transnoentitiesnoconv('WebPortalErrorFetchThirdPartyAccountFromLogin', $login), LOG_WARNING);
198 } else {
199 $_SESSION["webportal_logged_thirdparty_account_id"] = $thirdparty_account_id;
200 $webportal_logged_thirdparty_account_id = $thirdparty_account_id;
201 $context->controller = 'default';
202 $context->initController();
203 }
204 } elseif (!$error && isModEnabled('member') && getDolGlobalInt('WEBPORTAL_LOGIN_BY_MEMBER_ACCOUNT') && !getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED')) {
205 // fetch member account from login
206 $member_account_id = $context->getMemberAccountFromLogin($login, $password);
207 if ($member_account_id <= 0) {
208 $error++;
209 dol_syslog($langs->transnoentitiesnoconv('WebPortalErrorFetchMemberAccountFromLogin', $login), LOG_WARNING);
210 } else {
211 $_SESSION["webportal_logged_member_account_id"] = $member_account_id;
212 $webportal_logged_member_account_id = $member_account_id;
213 $context->controller = 'default';
214 $context->initController();
215 }
216 } else {
217 $error++;
218 dol_syslog($langs->transnoentitiesnoconv('WebPortalErrorNoFetchMethod'), LOG_WARNING);
219 }
220
221 if ($error) {
222 $context->setEventMessage($langs->transnoentitiesnoconv('WebPortalErrorAuthentication'), 'errors');
223 }
224 }
225
226 if (empty($webportal_logged_thirdparty_account_id) && empty($webportal_logged_member_account_id)) {
227 // Set cookie for timeout management
228 if (getDolGlobalString('MAIN_SESSION_TIMEOUT')) {
229 dolSetCookie($sessiontimeout, getDolGlobalString('MAIN_SESSION_TIMEOUT'), 0);
230 }
231
232 $context->controller = 'login';
233 $context->initController();
234 }
235 }
236
237 if (!$error && $context->userIsLog()) {
238 $logged_member = null;
239 $websiteaccount = null;
240 // We are already into an authenticated session
241 if (isModEnabled('member') && getDolGlobalInt('WEBPORTAL_LOGIN_BY_MEMBER_ACCOUNT') && !getDolGlobalString('ADHERENT_LOGIN_NOT_REQUIRED')) {
242 // get member
243 $logged_member = new WebPortalMember($db);
244 $result = $logged_member->fetch($webportal_logged_member_account_id);
245 if ($result <= 0) {
246 $error++;
247
248 // Account has been removed after login
249 dol_syslog("Can't load member account (ID: $webportal_logged_member_account_id) even if session logged.", LOG_WARNING);
250 session_destroy();
251 session_set_cookie_params(0, '/', null, !empty($dolibarr_main_force_https), true); // Add tag secure and httponly on session cookie
252 session_name($sessionname);
253 session_start();
254
255 $error_msg = $langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedMember', (string) $webportal_logged_member_account_id);
256 dol_syslog($error_msg, LOG_ERR);
257 $context->setEventMessage($error_msg, 'errors');
258 }
259 } else {
260 $websiteaccount = new SocieteAccount($db);
261 $result = $websiteaccount->fetch($webportal_logged_thirdparty_account_id);
262
263 if ($result <= 0) {
264 $error++;
265
266 // Account has been removed after login
267 dol_syslog("Can't load third-party account (ID: $webportal_logged_thirdparty_account_id) even if session logged.", LOG_WARNING);
268 session_destroy();
269 session_set_cookie_params(0, '/', null, !empty($dolibarr_main_force_https), true); // Add tag secure and httponly on session cookie
270 session_name($sessionname);
271 session_start();
272
273 $context->setEventMessage($langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedThirdPartyAccount', $webportal_logged_thirdparty_account_id), 'errors');
274 }
275 }
276
277 if (!$error) {
278 $user_id = getDolGlobalInt('WEBPORTAL_USER_LOGGED');
279
280 if ($user_id <= 0) {
281 $error++;
282 $error_msg = $langs->transnoentitiesnoconv('WebPortalSetupNotComplete');
283 dol_syslog($error_msg, LOG_WARNING);
284 $context->setEventMessages($error_msg, null, 'errors');
285 }
286
287 if (!$error) {
288 $result = $logged_user->fetch($user_id);
289 if ($result <= 0) {
290 $error++;
291 $error_msg = $langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedUser', (string) $user_id);
292 dol_syslog($error_msg, LOG_ERR);
293 $context->setEventMessages($error_msg, null, 'errors');
294 }
295 }
296
297 if (!getDolGlobalInt('WEBPORTAL_LOGIN_BY_MEMBER_ACCOUNT')) {
298 if (!$error) {
299 // get third-party
300 $logged_thirdparty = $websiteaccount->thirdparty;
301 if (!$logged_thirdparty || !($logged_thirdparty->id > 0)) {
302 $result = $websiteaccount->fetch_thirdparty();
303
304 if ($result < 0) {
305 $error_msg = $langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedThirdParty', (string) $websiteaccount->fk_soc);
306 //dol_syslog("Can't load third-party (ID: ".$websiteaccount->fk_soc.") even if session logged.", LOG_ERR);
307 dol_syslog($error_msg, LOG_ERR);
308 $context->setEventMessage($error_msg, 'errors');
309 $error++;
310 }
311 }
312
313 if (!$error) {
314 $logged_thirdparty = $websiteaccount->thirdparty;
315
316 // get member
317 $logged_member = new WebPortalMember($db);
318 $result = $logged_member->fetch(0, '', $websiteaccount->thirdparty->id);
319 if ($result < 0) {
320 $error++;
321 $error_msg = $langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedMember', (string) $websiteaccount->thirdparty->id);
322 dol_syslog($error_msg, LOG_ERR);
323 $context->setEventMessage($error_msg, 'errors');
324 }
325
326 if (isModEnabled('partnership') && !$error && $logged_member->id > 0) {
327 // get partnership
328 $logged_partnership = new WebPortalPartnership($db);
329 // @phan-suppress-next-line PhanPluginSuspiciousParamPosition
330 $result = $logged_partnership->fetch(0, '', $logged_member->id, $websiteaccount->thirdparty->id);
331 if ($result < 0) {
332 $error++;
333 $error_msg = $langs->transnoentitiesnoconv('WebPortalErrorFetchLoggedPartnership', (string) $websiteaccount->thirdparty->id, (string) $logged_member->id);
334 dol_syslog($error_msg, LOG_ERR);
335 $context->setEventMessage($error_msg, 'errors');
336 }
337 }
338
339 if (!$error) {
340 if ($logged_thirdparty->default_lang != $langs->defaultlang && !defined('WEBPORTAL_NOREQUIRETRAN')) {
341 if (!is_object($langs)) { // This can occurs when calling page with NOREQUIRETRAN defined, however we need langs for error messages.
342 include_once DOL_DOCUMENT_ROOT . '/core/class/translate.class.php';
343 $langs = new Translate("", $conf);
344 $langs->setDefaultLang($logged_thirdparty->default_lang);
345 }
346 $langs->loadLangs(array('website', 'main'));
347 }
348
349 $context->logged_thirdparty = $logged_thirdparty;
350 if (!empty($logged_partnership)) {
351 $context->logged_partnership = $logged_partnership;
352 }
353 }
354 }
355 }
356 }
357
358 if (!$error) {
359 $context->logged_user = $logged_user;
360 if (!empty($logged_member)) {
361 $context->logged_member = $logged_member;
362 }
363
364 global $user; // set global user as logged user (used for hooks in external modules)
365 $user = $context->logged_user;
366 }
367 }
368 }
369 }
370
371 if ($error) {
372 // Hooks on failed login
373 $parameters = array(
374 "webportal_sessionname" => $sessionname,
375 "webportal_anti_spam_session_key" => $anti_spam_session_key,
376 );
377 $reshook = $hookmanager->executeHooks('afterLoginFailed', $parameters, $context);
378 if ($reshook < 0) {
379 $error++;
380 }
381 } else {
382 // Hooks on after login
383 $parameters = array(
384 "webportal_sessionname" => $sessionname,
385 "webportal_anti_spam_session_key" => $anti_spam_session_key,
386 );
387 $reshook = $hookmanager->executeHooks('afterLogin', $parameters, $context);
388 if ($reshook < 0) {
389 $error++;
390 }
391 }
392}
static getInstance()
Singleton method to create one instance of this object.
Class for SocieteAccount.
Class to manage translations.
Class to manage Dolibarr users.
Class for WebPortalMember.
Class for WebPortalPartnership.
dolSetCookie(string $cookiename, string $cookievalue, int $expire=-1)
Set a cookie.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
conf($dolibarr_main_document_root)
Load conf file (file must exists)
Definition inc.php:426
$context
@method int call_trigger(string $triggerName, ?User $user)
Definition logout.php:42
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.