forked from Wavyzz/dolibarr
480 lines
14 KiB
PHP
480 lines
14 KiB
PHP
<?php
|
|
/* Copyright (C) 2008-2011 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2008-2012 Regis Houssin <regis@dolibarr.fr>
|
|
*
|
|
* 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 2 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 <http://www.gnu.org/licenses/>.
|
|
* or see http://www.gnu.org/
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/core/lib/security2.lib.php
|
|
* \ingroup core
|
|
* \brief Set of function used for dolibarr security (not common functions).
|
|
* Warning, this file must not depends on other library files, except function.lib.php
|
|
* because it is used at low code level.
|
|
*/
|
|
|
|
|
|
/**
|
|
* Return a login if login/pass was successfull
|
|
*
|
|
* @param string $usertotest Login value to test
|
|
* @param string $passwordtotest Password value to test
|
|
* @param string $entitytotest Instance of data we must check
|
|
* @param array $authmode Array list of selected authentication mode array('http', 'dolibarr', 'xxx'...)
|
|
* @return string Login or ''
|
|
*/
|
|
function checkLoginPassEntity($usertotest,$passwordtotest,$entitytotest,$authmode)
|
|
{
|
|
global $conf,$langs;
|
|
global $dolauthmode; // To return authentication finally used
|
|
|
|
// Check parameetrs
|
|
if ($entitytotest == '') $entitytotest=1;
|
|
|
|
dol_syslog("checkLoginPassEntity usertotest=".$usertotest." entitytotest=".$entitytotest." authmode=".join(',',$authmode));
|
|
$login = '';
|
|
|
|
// Validation of login/pass/entity with a third party login module method
|
|
if (! empty($conf->login_method_modules) && is_array($conf->login_method_modules))
|
|
{
|
|
foreach($conf->login_method_modules as $dir)
|
|
{
|
|
$newdir=dol_osencode($dir);
|
|
|
|
// Check if directory exists
|
|
if (! is_dir($newdir)) continue;
|
|
|
|
$handle=opendir($newdir);
|
|
if (is_resource($handle))
|
|
{
|
|
while (($file = readdir($handle))!==false)
|
|
{
|
|
if (is_readable($dir.'/'.$file) && preg_match('/^functions_([^_]+)\.php/',$file,$reg))
|
|
{
|
|
$authfile = $dir.'/'.$file;
|
|
$mode = $reg[1];
|
|
|
|
$result=include_once($authfile);
|
|
if ($result)
|
|
{
|
|
// Call function to check user/password
|
|
$function='check_user_password_'.$mode;
|
|
$login=call_user_func($function,$usertotest,$passwordtotest,$entitytotest);
|
|
if ($login)
|
|
{
|
|
$conf->authmode=$mode; // This properties is defined only when logged to say what mode was successfully used
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Authentification ko - failed to load file '".$authfile."'",LOG_ERR);
|
|
sleep(1); // To slow brut force cracking
|
|
$langs->load('main');
|
|
$langs->load('other');
|
|
$_SESSION["dol_loginmesg"]=$langs->trans("ErrorFailedToLoadLoginFileForMode",$mode);
|
|
}
|
|
}
|
|
}
|
|
closedir($handle);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Validation of login/pass/entity with standard modules
|
|
if (empty($login))
|
|
{
|
|
$test=true;
|
|
foreach($authmode as $mode)
|
|
{
|
|
if ($test && $mode && ! $login)
|
|
{
|
|
$mode=trim($mode);
|
|
$authfile=DOL_DOCUMENT_ROOT.'/core/login/functions_'.$mode.'.php';
|
|
$result=include_once($authfile);
|
|
if ($result)
|
|
{
|
|
// Call function to check user/password
|
|
$function='check_user_password_'.$mode;
|
|
$login=call_user_func($function,$usertotest,$passwordtotest,$entitytotest);
|
|
if ($login) // Login is successfull
|
|
{
|
|
$test=false; // To stop once at first login success
|
|
$conf->authmode=$mode; // This properties is defined only when logged to say what mode was successfully used
|
|
$dol_tz=$_POST["tz"];
|
|
$dol_dst=$_POST["dst"];
|
|
$dol_screenwidth=$_POST["screenwidth"];
|
|
$dol_screenheight=$_POST["screenheight"];
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("Authentification ko - failed to load file '".$authfile."'",LOG_ERR);
|
|
sleep(1);
|
|
$langs->load('main');
|
|
$langs->load('other');
|
|
$_SESSION["dol_loginmesg"]=$langs->trans("ErrorFailedToLoadLoginFileForMode",$mode);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return $login;
|
|
}
|
|
|
|
|
|
/**
|
|
* Show Dolibarr default login page
|
|
*
|
|
* @param Translate $langs Lang object (must be initialized by a new).
|
|
* @param Conf $conf Conf object
|
|
* @param Societe $mysoc Company object
|
|
* @return void
|
|
*/
|
|
function dol_loginfunction($langs,$conf,$mysoc)
|
|
{
|
|
global $dolibarr_main_demo,$db;
|
|
global $smartphone,$mc;
|
|
|
|
$langcode=(GETPOST('lang')?((is_object($langs)&&$langs->defaultlang)?$langs->defaultlang:'auto'):GETPOST('lang'));
|
|
$langs->setDefaultLang($langcode);
|
|
|
|
$langs->load("main");
|
|
$langs->load("other");
|
|
$langs->load("help");
|
|
$langs->load("admin");
|
|
|
|
$main_authentication=$conf->file->main_authentication;
|
|
$session_name=session_name();
|
|
|
|
$dol_url_root = DOL_URL_ROOT;
|
|
|
|
$php_self = $_SERVER['PHP_SELF'];
|
|
$php_self.= $_SERVER["QUERY_STRING"]?'?'.$_SERVER["QUERY_STRING"]:'';
|
|
|
|
// Title
|
|
$title='Dolibarr '.DOL_VERSION;
|
|
if (! empty($conf->global->MAIN_APPLICATION_TITLE)) $title=$conf->global->MAIN_APPLICATION_TITLE;
|
|
|
|
// Select templates
|
|
if (preg_match('/^smartphone/',$conf->smart_menu) && isset($conf->browser->phone))
|
|
{
|
|
$template_dir = DOL_DOCUMENT_ROOT.'/theme/phones/smartphone/tpl/';
|
|
}
|
|
else
|
|
{
|
|
if (file_exists(DOL_DOCUMENT_ROOT."/theme/".$conf->theme."/tpl/login.tpl.php"))
|
|
{
|
|
$template_dir = DOL_DOCUMENT_ROOT."/theme/".$conf->theme."/tpl/";
|
|
}
|
|
else
|
|
{
|
|
$template_dir = DOL_DOCUMENT_ROOT."/core/tpl/";
|
|
}
|
|
}
|
|
|
|
$conf->css = "/theme/".$conf->theme."/style.css.php?lang=".$langs->defaultlang;
|
|
$conf_css = DOL_URL_ROOT.$conf->css;
|
|
|
|
// Set cookie for timeout management
|
|
$prefix=dol_getprefix();
|
|
$sessiontimeout='DOLSESSTIMEOUT_'.$prefix;
|
|
if (! empty($conf->global->MAIN_SESSION_TIMEOUT)) setcookie($sessiontimeout, $conf->global->MAIN_SESSION_TIMEOUT, 0, "/", '', 0);
|
|
|
|
if (GETPOST("urlfrom")) $_SESSION["urlfrom"]=GETPOST("urlfrom");
|
|
else unset($_SESSION["urlfrom"]);
|
|
|
|
if (! GETPOST("username")) $focus_element='username';
|
|
else $focus_element='password';
|
|
|
|
$login_background=DOL_URL_ROOT.'/theme/login_background.png';
|
|
if (file_exists(DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/img/login_background.png'))
|
|
{
|
|
$login_background=DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/login_background.png';
|
|
}
|
|
|
|
$demologin='';
|
|
$demopassword='';
|
|
if (! empty($dolibarr_main_demo))
|
|
{
|
|
$tab=explode(',',$dolibarr_main_demo);
|
|
$demologin=$tab[0];
|
|
$demopassword=$tab[1];
|
|
}
|
|
|
|
// Entity cookie
|
|
if (! empty($conf->multicompany->enabled))
|
|
{
|
|
$lastuser = '';
|
|
$lastentity = $_POST['entity'];
|
|
|
|
if (! empty($conf->global->MULTICOMPANY_COOKIE_ENABLED))
|
|
{
|
|
$prefix=dol_getprefix();
|
|
$entityCookieName = 'DOLENTITYID_'.$prefix;
|
|
if (isset($_COOKIE[$entityCookieName]))
|
|
{
|
|
include_once(DOL_DOCUMENT_ROOT . "/core/class/cookie.class.php");
|
|
|
|
$cryptkey = (! empty($conf->file->cookie_cryptkey) ? $conf->file->cookie_cryptkey : '' );
|
|
|
|
$entityCookie = new DolCookie($cryptkey);
|
|
$cookieValue = $entityCookie->_getCookie($entityCookieName);
|
|
list($lastuser, $lastentity) = explode('|', $cookieValue);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Login
|
|
$login = (!empty($lastuser)?$lastuser:(GETPOST("username","alpha",2)?GETPOST("username","alpha",2):$demologin));
|
|
$password = $demopassword;
|
|
|
|
// Show logo (search in order: small company logo, large company logo, theme logo, common logo)
|
|
$width=0;
|
|
$rowspan=2;
|
|
$urllogo=DOL_URL_ROOT.'/theme/login_logo.png';
|
|
|
|
if (! empty($mysoc->logo_small) && is_readable($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_small))
|
|
{
|
|
$urllogo=DOL_URL_ROOT.'/viewimage.php?cache=1&modulepart=companylogo&file='.urlencode('thumbs/'.$mysoc->logo_small);
|
|
}
|
|
elseif (! empty($mysoc->logo) && is_readable($conf->mycompany->dir_output.'/logos/'.$mysoc->logo))
|
|
{
|
|
$urllogo=DOL_URL_ROOT.'/viewimage.php?cache=1&modulepart=companylogo&file='.urlencode($mysoc->logo);
|
|
$width=128;
|
|
}
|
|
elseif (is_readable(DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/img/dolibarr_logo.png'))
|
|
{
|
|
$urllogo=DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/dolibarr_logo.png';
|
|
}
|
|
elseif (is_readable(DOL_DOCUMENT_ROOT.'/theme/dolibarr_logo.png'))
|
|
{
|
|
$urllogo=DOL_URL_ROOT.'/theme/dolibarr_logo.png';
|
|
|
|
}
|
|
|
|
// Entity field
|
|
$select_entity='';
|
|
if (! empty($conf->multicompany->enabled) && empty($conf->global->MULTICOMPANY_HIDE_LOGIN_COMBOBOX))
|
|
{
|
|
$rowspan++;
|
|
$select_entity = $mc->select_entities($lastentity, 'entity', ' tabindex="3"', 1);
|
|
}
|
|
|
|
// Security graphical code
|
|
$captcha=0;
|
|
$captcha_refresh='';
|
|
if (function_exists("imagecreatefrompng") && ! empty($conf->global->MAIN_SECURITY_ENABLECAPTCHA))
|
|
{
|
|
$captcha=1;
|
|
$captcha_refresh=img_picto($langs->trans("Refresh"),'refresh');
|
|
}
|
|
|
|
// Extra link
|
|
$forgetpasslink=0;
|
|
$helpcenterlink=0;
|
|
if (empty($conf->global->MAIN_SECURITY_DISABLEFORGETPASSLINK) || empty($conf->global->MAIN_HELPCENTER_DISABLELINK))
|
|
{
|
|
if (empty($conf->global->MAIN_SECURITY_DISABLEFORGETPASSLINK))
|
|
{
|
|
$forgetpasslink=1;
|
|
}
|
|
|
|
if (empty($conf->global->MAIN_HELPCENTER_DISABLELINK))
|
|
{
|
|
$helpcenterlink=1;
|
|
}
|
|
}
|
|
|
|
// Home message
|
|
if (! empty($conf->global->MAIN_HOME))
|
|
{
|
|
$i=0;
|
|
while (preg_match('/__\(([a-zA-Z]+)\)__/i',$conf->global->MAIN_HOME,$reg) && $i < 100)
|
|
{
|
|
$conf->global->MAIN_HOME=preg_replace('/__\('.$reg[1].'\)__/i',$langs->trans($reg[1]),$conf->global->MAIN_HOME);
|
|
$i++;
|
|
}
|
|
}
|
|
$main_home=dol_htmlcleanlastbr($conf->global->MAIN_HOME);
|
|
|
|
// Google AD
|
|
$main_google_ad_client = ((! empty($conf->global->MAIN_GOOGLE_AD_CLIENT) && ! empty($conf->global->MAIN_GOOGLE_AD_SLOT))?1:0);
|
|
|
|
$dol_loginmesg = $_SESSION["dol_loginmesg"];
|
|
|
|
include($template_dir.'login.tpl.php'); // To use native PHP
|
|
|
|
$_SESSION["dol_loginmesg"] = '';
|
|
}
|
|
|
|
/**
|
|
* Fonction pour initialiser un salt pour la fonction crypt.
|
|
*
|
|
* @param int $type 2=>renvoi un salt pour cryptage DES
|
|
* 12=>renvoi un salt pour cryptage MD5
|
|
* non defini=>renvoi un salt pour cryptage par defaut
|
|
* @return string Salt string
|
|
*/
|
|
function makesalt($type=CRYPT_SALT_LENGTH)
|
|
{
|
|
dol_syslog("makesalt type=".$type);
|
|
switch($type)
|
|
{
|
|
case 12: // 8 + 4
|
|
$saltlen=8; $saltprefix='$1$'; $saltsuffix='$'; break;
|
|
case 8: // 8 (Pour compatibilite, ne devrait pas etre utilise)
|
|
$saltlen=8; $saltprefix='$1$'; $saltsuffix='$'; break;
|
|
case 2: // 2
|
|
default: // by default, fall back on Standard DES (should work everywhere)
|
|
$saltlen=2; $saltprefix=''; $saltsuffix=''; break;
|
|
}
|
|
$salt='';
|
|
while(dol_strlen($salt) < $saltlen) $salt.=chr(mt_rand(64,126));
|
|
|
|
$result=$saltprefix.$salt.$saltsuffix;
|
|
dol_syslog("makesalt return=".$result);
|
|
return $result;
|
|
}
|
|
|
|
/**
|
|
* Encode or decode database password in config file
|
|
*
|
|
* @param int $level Encode level: 0 no encoding, 1 encoding
|
|
* @return int <0 if KO, >0 if OK
|
|
*/
|
|
function encodedecode_dbpassconf($level=0)
|
|
{
|
|
dol_syslog("encodedecode_dbpassconf level=".$level, LOG_DEBUG);
|
|
$config = '';
|
|
$passwd='';
|
|
$passwd_crypted='';
|
|
|
|
if ($fp = fopen(DOL_DOCUMENT_ROOT.'/conf/conf.php','r'))
|
|
{
|
|
while(!feof($fp))
|
|
{
|
|
$buffer = fgets($fp,4096);
|
|
|
|
$lineofpass=0;
|
|
|
|
if (preg_match('/^[^#]*dolibarr_main_db_encrypted_pass[\s]*=[\s]*(.*)/i',$buffer,$reg)) // Old way to save crypted value
|
|
{
|
|
$val = trim($reg[1]); // This also remove CR/LF
|
|
$val=preg_replace('/^["\']/','',$val);
|
|
$val=preg_replace('/["\'][\s;]*$/','',$val);
|
|
if (! empty($val))
|
|
{
|
|
$passwd_crypted = $val;
|
|
$val = dol_decode($val);
|
|
$passwd = $val;
|
|
$lineofpass=1;
|
|
}
|
|
}
|
|
elseif (preg_match('/^[^#]*dolibarr_main_db_pass[\s]*=[\s]*(.*)/i',$buffer,$reg))
|
|
{
|
|
$val = trim($reg[1]); // This also remove CR/LF
|
|
$val=preg_replace('/^["\']/','',$val);
|
|
$val=preg_replace('/["\'][\s;]*$/','',$val);
|
|
if (preg_match('/crypted:/i',$buffer))
|
|
{
|
|
$val = preg_replace('/crypted:/i','',$val);
|
|
$passwd_crypted = $val;
|
|
$val = dol_decode($val);
|
|
$passwd = $val;
|
|
}
|
|
else
|
|
{
|
|
$passwd = $val;
|
|
$val = dol_encode($val);
|
|
$passwd_crypted = $val;
|
|
}
|
|
$lineofpass=1;
|
|
}
|
|
|
|
// Output line
|
|
if ($lineofpass)
|
|
{
|
|
// Add value at end of file
|
|
if ($level == 0)
|
|
{
|
|
$config .= '$dolibarr_main_db_pass=\''.$passwd.'\';'."\n";
|
|
}
|
|
if ($level == 1)
|
|
{
|
|
$config .= '$dolibarr_main_db_pass=\'crypted:'.$passwd_crypted.'\';'."\n";
|
|
}
|
|
|
|
//print 'passwd = '.$passwd.' - passwd_crypted = '.$passwd_crypted;
|
|
//exit;
|
|
}
|
|
else
|
|
{
|
|
$config .= $buffer;
|
|
}
|
|
}
|
|
fclose($fp);
|
|
|
|
// Write new conf file
|
|
$file=DOL_DOCUMENT_ROOT.'/conf/conf.php';
|
|
if ($fp = @fopen($file,'w'))
|
|
{
|
|
fputs($fp, $config);
|
|
fclose($fp);
|
|
// It's config file, so we set read permission for creator only.
|
|
// Should set permission to web user and groups for users used by batch
|
|
//@chmod($file, octdec('0600'));
|
|
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("encodedecode_dbpassconf Failed to open conf.php file for writing", LOG_WARNING);
|
|
return -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dol_syslog("encodedecode_dbpassconf Failed to read conf.php", LOG_ERR);
|
|
return -2;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Return a generated password using default module
|
|
*
|
|
* @param boolean $generic true=Create generic password (a MD5 string), false=Use the configured password generation module
|
|
* @return string New value for password
|
|
*/
|
|
function getRandomPassword($generic=false)
|
|
{
|
|
global $db,$conf,$langs,$user;
|
|
|
|
$generated_password='';
|
|
if ($generic) $generated_password=dol_hash(mt_rand());
|
|
else if ($conf->global->USER_PASSWORD_GENERATED)
|
|
{
|
|
$nomclass="modGeneratePass".ucfirst($conf->global->USER_PASSWORD_GENERATED);
|
|
$nomfichier=$nomclass.".class.php";
|
|
//print DOL_DOCUMENT_ROOT."/core/modules/security/generate/".$nomclass;
|
|
require_once(DOL_DOCUMENT_ROOT."/core/modules/security/generate/".$nomfichier);
|
|
$genhandler=new $nomclass($db,$conf,$langs,$user);
|
|
$generated_password=$genhandler->getNewGeneratedPassword();
|
|
unset($genhandler);
|
|
}
|
|
|
|
return $generated_password;
|
|
}
|
|
|
|
?>
|