functions_dolibarr.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2007-2015 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2007-2015 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2010-2011 Juanjo Menent    <jmenent@2byte.es>
 * Copyright (C) 2022      Harry Winner Kamdem  <harry@sense.africa>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
function check_user_password_dolibarr($usertotest, $passwordtotest, $entitytotest = 1)
{
  global $db, $conf, $langs;
 
  // Force master entity in transversal mode
  $entity = $entitytotest;
  if (isModEnabled('multicompany') && getDolGlobalString('MULTICOMPANY_TRANSVERSE_MODE')) {
    $entity = 1;
  }
 
  $login = '';
 
  if (!empty($usertotest)) {
    require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
    dol_syslog("functions_dolibarr::check_user_password_dolibarr usertotest=".$usertotest." passwordtotest=".preg_replace('/./', '*', $passwordtotest)." entitytotest=".$entitytotest);
 
    // Verification number of USER_LOGIN_FAILED
    $dateverificationauth = dol_time_plus_duree(dol_now(), -1, 'd');
    $userremoteip = getUserRemoteIP();
    $nbevents = 0;
 
    $sql = "SELECT COUNT(e.rowid) as nbevent";
    $sql .= " FROM ".MAIN_DB_PREFIX."events as e";
    $sql .= " WHERE e.type = 'USER_LOGIN_FAILED'";
    $sql .= " AND e.ip = '".$db->escape($userremoteip)."'";
    $sql .= " AND e.dateevent > '".$db->idate($dateverificationauth)."'";
    $resql = $db->query($sql);
    if ($resql) {
      $obj = $db->fetch_object($resql);
      if ($obj) {
        $nbevents = $obj->nbevent;
      }
    }
 
    if ($nbevents <= getDolGlobalInt("MAIN_SECURITY_MAX_NUMBER_FAILED_AUTH", 100)) {
      // If test username/password asked, we define $test=false if ko and $login var to login if ok, set also $_SESSION["dol_loginmesg"] if ko
      $table = MAIN_DB_PREFIX."user";
      $usernamecol1 = 'login';
      $usernamecol2 = 'email';
      $entitycol = 'entity';
 
      $sql = "SELECT rowid, login, entity, pass, pass_crypted, datestartvalidity, dateendvalidity, flagdelsessionsbefore";
      $sql .= " FROM ".$table;
      $sql .= " WHERE (".$usernamecol1." = '".$db->escape($usertotest)."'";
      if (preg_match('/@/', $usertotest)) {
        $sql .= " OR ".$usernamecol2." = '".$db->escape($usertotest)."'";
      }
      $sql .= ") AND ".$entitycol." IN (0,".($entity ? ((int) $entity) : 1).")";
      $sql .= " AND statut = 1";
      // Order is required to firstly found the user into entity, then the superadmin.
      // For the case (TODO: we must avoid that) a user has renamed its login with same value than a user in entity 0.
      $sql .= " ORDER BY entity DESC";
 
      // Note: Test on validity is done later natively with isNotIntoValidityDateRange() by core after calling checkLoginPassEntity() that call this method
 
      $resql = $db->query($sql);
      if ($resql) {
        $obj = $db->fetch_object($resql);
        if ($obj) {
          $passclear = $obj->pass;
          $passcrypted = $obj->pass_crypted;
          $passtyped = $passwordtotest;
 
          $passok = false;
 
          // Check crypted password
          $cryptType = '';
          if (getDolGlobalString('DATABASE_PWD_ENCRYPTED')) {
            $cryptType = getDolGlobalString('DATABASE_PWD_ENCRYPTED');
          }
 
          // By default, we use default setup for encryption rule
          if (!in_array($cryptType, array('auto'))) {
            $cryptType = 'auto';
          }
          // Check encrypted password according to encryption algorithm
          if ($cryptType == 'auto') {
            if ($passcrypted && dol_verifyHash($passtyped, $passcrypted, '0')) {
              $passok = true;
              dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication ok - hash ".$cryptType." of pass is ok");
            }
          }
 
          // For compatibility with very old versions
          if (!$passok) {
            if ((!$passcrypted || $passtyped)
              && ($passclear && ($passtyped == $passclear))) {
              $passok = true;
              dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication ok - found old pass in database", LOG_WARNING);
            }
          }
 
          // Password ok ?
          if ($passok) {
            $login = $obj->login;
          } else {
            dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication KO bad password for '".$usertotest."', cryptType=".$cryptType, LOG_NOTICE);
            sleep(1); // Anti brut force protection. Must be same delay when login is not valid
 
            // Load translation files required by the page
            $langs->loadLangs(array('main', 'errors'));
 
            $_SESSION["dol_loginmesg"] = $langs->transnoentitiesnoconv("ErrorBadLoginPassword");
          }
 
          // We must check entity
          if ($passok && isModEnabled('multicompany')) {  // We must check entity
            global $mc;
 
            if (!isset($mc)) {
              unset($conf->multicompany->enabled); // Global not available, disable $conf->multicompany->enabled for safety
            } else {
              $ret = $mc->checkRight($obj->rowid, $entitytotest);
              if ($ret < 0) {
                dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication KO entity '".$entitytotest."' not allowed for user '".$obj->rowid."'", LOG_NOTICE);
 
                $login = ''; // force authentication failure
                if ($mc->db->lasterror()) {
                  $_SESSION["dol_loginmesg"] = $mc->db->lasterror();
                }
              }
            }
          }
        } else {
          dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication KO user not found for '".$usertotest."'", LOG_NOTICE);
          sleep(1); // Anti brut force protection. Must be same delay when password is not valid
 
          // Load translation files required by the page
          $langs->loadLangs(array('main', 'errors'));
 
          $_SESSION["dol_loginmesg"] = $langs->transnoentitiesnoconv("ErrorBadLoginPassword");
        }
      } else {
        dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication KO db error for '".$usertotest."' error=".$db->lasterror(), LOG_ERR);
        sleep(1);
        $_SESSION["dol_loginmesg"] = $db->lasterror();
      }
    } else {
      dol_syslog("functions_dolibarr::check_user_password_dolibarr Authentication KO Too many attempts", LOG_NOTICE);
      sleep(1); // Anti brut force protection. Must be same delay when password is not valid
      // Load translation files required by the page
      $langs->loadLangs(array('main', 'errors'));
      $_SESSION["dol_loginmesg"] = $langs->transnoentitiesnoconv("ErrorTooManyAttempts");
    }
  }
  return $login;
}