mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-07 10:08:27 +01:00
424 lines
12 KiB
PHP
424 lines
12 KiB
PHP
<?php
|
|
/* Copyright (C) 2008 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2005-2007 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, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
* or see http://www.gnu.org/
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/lib/admin.lib.php
|
|
* \brief Library of admin functions
|
|
* \version $Id$
|
|
*/
|
|
|
|
|
|
/**
|
|
\brief Renvoi une version en chaine depuis une version en tableau
|
|
\param versionarray Tableau de version (vermajeur,vermineur,autre)
|
|
\return string Chaine version
|
|
*/
|
|
function versiontostring($versionarray)
|
|
{
|
|
$string='?';
|
|
if (isset($versionarray[0])) $string=$versionarray[0];
|
|
if (isset($versionarray[1])) $string.='.'.$versionarray[1];
|
|
if (isset($versionarray[2])) $string.='.'.$versionarray[2];
|
|
return $string;
|
|
}
|
|
|
|
/**
|
|
\brief Compare 2 versions
|
|
\param versionarray1 Tableau de version (vermajeur,vermineur,autre)
|
|
\param versionarray2 Tableau de version (vermajeur,vermineur,autre)
|
|
\return int <0 si versionarray1<versionarray2, 0 si =, >0 si versionarray1>versionarray2
|
|
*/
|
|
function versioncompare($versionarray1,$versionarray2)
|
|
{
|
|
$ret=0;
|
|
$i=0;
|
|
while ($i < max(sizeof($versionarray1),sizeof($versionarray1)))
|
|
{
|
|
$operande1=isset($versionarray1[$i])?$versionarray1[$i]:0;
|
|
$operande2=isset($versionarray2[$i])?$versionarray2[$i]:0;
|
|
if ($operande1 < $operande2) { $ret = -1; break; }
|
|
if ($operande1 > $operande2) { $ret = 1; break; }
|
|
$i++;
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
|
|
/**
|
|
\brief Return version PHP
|
|
\return array Tableau de version (vermajeur,vermineur,autre)
|
|
*/
|
|
function versionphparray()
|
|
{
|
|
return split('\.',PHP_VERSION);
|
|
}
|
|
|
|
/**
|
|
\brief Return version Dolibarr
|
|
\return array Tableau de version (vermajeur,vermineur,autre)
|
|
*/
|
|
function versiondolibarrarray()
|
|
{
|
|
return split('\.',DOL_VERSION);
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Launch a sql file
|
|
* \param sqlfile Full path to sql file
|
|
* \return int <=0 if KO, >0 if OK
|
|
*/
|
|
function run_sql($sqlfile,$silent=1)
|
|
{
|
|
global $db, $conf, $langs, $user;
|
|
|
|
dolibarr_syslog("Admin.lib::run_sql run sql file ".$sqlfile, LOG_DEBUG);
|
|
|
|
$ok=0;
|
|
$error=0;
|
|
$i=0;
|
|
$buffer = '';
|
|
$arraysql = Array();
|
|
|
|
// Get version of database
|
|
$versionarray=$db->getVersionArray();
|
|
|
|
$fp = fopen($sqlfile,"r");
|
|
if ($fp)
|
|
{
|
|
while (!feof ($fp))
|
|
{
|
|
$buf = fgets($fp, 4096);
|
|
|
|
// Cas special de lignes autorisees pour certaines versions uniquement
|
|
if (eregi('^-- V([0-9\.]+)',$buf,$reg))
|
|
{
|
|
$versioncommande=split('\.',$reg[1]);
|
|
//print var_dump($versioncommande);
|
|
//print var_dump($versionarray);
|
|
if (sizeof($versioncommande) && sizeof($versionarray)
|
|
&& versioncompare($versioncommande,$versionarray) <= 0)
|
|
{
|
|
// Version qualified, delete SQL comments
|
|
$buf=eregi_replace('^-- V([0-9\.]+)','',$buf);
|
|
//print "Ligne $i qualifi?e par version: ".$buf.'<br>';
|
|
}
|
|
}
|
|
|
|
// Ajout ligne si non commentaire
|
|
if (! eregi('^--',$buf)) $buffer .= $buf;
|
|
|
|
// print $buf.'<br>';
|
|
|
|
if (eregi(';',$buffer))
|
|
{
|
|
// Found new request
|
|
$arraysql[$i]=trim($buffer);
|
|
$i++;
|
|
$buffer='';
|
|
}
|
|
}
|
|
|
|
if ($buffer) $arraysql[$i]=trim($buffer);
|
|
fclose($fp);
|
|
}
|
|
|
|
// Loop on each request to see if there is a __+MAX_table__ key
|
|
$listofmaxrowid=array();
|
|
foreach($arraysql as $i => $sql)
|
|
{
|
|
if ($sql)
|
|
{
|
|
$newsql=$sql;
|
|
|
|
// Replace __+MAX_table__ with max of table
|
|
while (eregi('__\+MAX_([A-Za-z_]+)__',$newsql,$reg))
|
|
{
|
|
$table=$reg[1];
|
|
if (! isset($listofmaxrowid[$table]))
|
|
{
|
|
$sqlgetrowid='SELECT MAX(rowid) as max from '.$table;
|
|
$resql=$db->query($sqlgetrowid);
|
|
if ($resql)
|
|
{
|
|
$obj=$db->fetch_object($resql);
|
|
$listofmaxrowid[$table]=$obj->max;
|
|
if (empty($listofmaxrowid[$table])) $listofmaxrowid[$table]=0;
|
|
}
|
|
else
|
|
{
|
|
if (! $silent) print '<tr><td valign="top" colspan="2">';
|
|
if (! $silent) print '<div class="error">'.$langs->trans("Failed to get max rowid for ".$table)."</div></td>";
|
|
if (! $silent) print '</tr>';
|
|
$error++;
|
|
break;
|
|
}
|
|
}
|
|
$from='__+MAX_'.$table.'__';
|
|
$to='+'.$listofmaxrowid[$table];
|
|
$newsql=str_replace($from,$to,$newsql);
|
|
dolibarr_syslog('Admin.lib::run_sql New Request '.($i+1).' sql='.$newsql, LOG_DEBUG);
|
|
|
|
$arraysql[$i]=$newsql;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Loop on each request to execute request
|
|
$cursorinsert=0;
|
|
$listofinsertedrowid=array();
|
|
foreach($arraysql as $i => $sql)
|
|
{
|
|
if ($sql)
|
|
{
|
|
$newsql=$sql;
|
|
|
|
// Ajout trace sur requete (eventuellement ? commenter si beaucoup de requetes)
|
|
if (! $silent) print '<tr><td valign="top">'.$langs->trans("Request").' '.($i+1)." sql='".$newsql."'</td></tr>\n";
|
|
dolibarr_syslog('Admin.lib::run_sql Request '.($i+1).' sql='.$newsql, LOG_DEBUG);
|
|
|
|
if (eregi('insert into ([^ ]+)',$newsql,$reg))
|
|
{
|
|
// It's an insert
|
|
$cursorinsert++;
|
|
}
|
|
|
|
// Replace __x__ with rowid of insert nb x
|
|
while (eregi('__([0-9]+)__',$newsql,$reg))
|
|
{
|
|
$cursor=$reg[1];
|
|
if (empty($listofinsertedrowid[$cursor]))
|
|
{
|
|
if (! $silent) print '<tr><td valign="top" colspan="2">';
|
|
if (! $silent) print '<div class="error">'.$langs->trans("FileIsNotCorrect")."</div></td>";
|
|
if (! $silent) print '</tr>';
|
|
$error++;
|
|
break;
|
|
}
|
|
$from='__'.$cursor.'__';
|
|
$to=$listofinsertedrowid[$cursor];
|
|
$newsql=str_replace($from,$to,$newsql);
|
|
dolibarr_syslog('Admin.lib::run_sql New Request '.($i+1).' sql='.$newsql, LOG_DEBUG);
|
|
}
|
|
|
|
$result=$db->query($newsql);
|
|
if ($result)
|
|
{
|
|
if (eregi('insert into ([^ ]+)',$newsql,$reg))
|
|
{
|
|
// It's an insert
|
|
$table=eregi_replace('[^a-zA-Z_]+','',$reg[1]);
|
|
$insertedrowid=$db->last_insert_id($table);
|
|
$listofinsertedrowid[$cursorinsert]=$insertedrowid;
|
|
dolibarr_syslog('Admin.lib::run_sql Insert nb '.$cursorinsert.', done in table '.$table.', rowid is '.$listofinsertedrowid[$cursorinsert], LOG_DEBUG);
|
|
}
|
|
// print '<td align="right">OK</td>';
|
|
}
|
|
else
|
|
{
|
|
$errno=$db->errno();
|
|
|
|
$okerror=array( 'DB_ERROR_TABLE_ALREADY_EXISTS',
|
|
'DB_ERROR_COLUMN_ALREADY_EXISTS',
|
|
'DB_ERROR_KEY_NAME_ALREADY_EXISTS',
|
|
'DB_ERROR_RECORD_ALREADY_EXISTS',
|
|
'DB_ERROR_NOSUCHTABLE',
|
|
'DB_ERROR_NOSUCHFIELD',
|
|
'DB_ERROR_NO_FOREIGN_KEY_TO_DROP',
|
|
'DB_ERROR_CANNOT_CREATE', // Qd contrainte deja existante
|
|
'DB_ERROR_CANT_DROP_PRIMARY_KEY',
|
|
'DB_ERROR_PRIMARY_KEY_ALREADY_EXISTS'
|
|
);
|
|
if (in_array($errno,$okerror))
|
|
{
|
|
//if (! $silent) print $langs->trans("OK");
|
|
}
|
|
else
|
|
{
|
|
if (! $silent) print '<tr><td valign="top" colspan="2">';
|
|
if (! $silent) print '<div class="error">'.$langs->trans("Error")." ".$db->errno().": ".$newsql."<br>".$db->error()."</div></td>";
|
|
if (! $silent) print '</tr>';
|
|
dolibarr_syslog('Admin.lib::run_sql Request '.($i+1)." Error ".$db->errno()." ".$newsql."<br>".$db->error(), LOG_ERR);
|
|
$error++;
|
|
}
|
|
}
|
|
|
|
if (! $silent) print '</tr>';
|
|
}
|
|
}
|
|
|
|
if ($error == 0)
|
|
{
|
|
if (! $silent) print '<tr><td>'.$langs->trans("ProcessMigrateScript").'</td>';
|
|
if (! $silent) print '<td align="right">'.$langs->trans("OK").'</td></tr>';
|
|
$ok = 1;
|
|
}
|
|
else
|
|
{
|
|
if (! $silent) print '<tr><td>'.$langs->trans("ProcessMigrateScript").'</td>';
|
|
if (! $silent) print '<td align="right"><font class="error">'.$langs->trans("KO").'</font></td></tr>';
|
|
$ok = 0;
|
|
}
|
|
|
|
return $ok;
|
|
}
|
|
|
|
|
|
/**
|
|
\brief Effacement d'une constante dans la base de donnees
|
|
\sa dolibarr_get_const, dolibarr_sel_const
|
|
\param db Handler d'acces base
|
|
\param name Nom ou rowid de la constante
|
|
\return int <0 si ko, >0 si ok
|
|
*/
|
|
function dolibarr_del_const($db, $name)
|
|
{
|
|
global $conf;
|
|
|
|
$sql = "DELETE FROM llx_const";
|
|
$sql.=" WHERE name='".addslashes($name)."' or rowid='".addslashes($name)."'";
|
|
|
|
dolibarr_syslog("admin.lib::dolibarr_del_const sql=".$sql);
|
|
$resql=$db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$conf->global->$name='';
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/**
|
|
\brief Recupere une constante depuis la base de donnees.
|
|
\sa dolibarr_del_const, dolibarr_set_const
|
|
\param db Handler d'acces base
|
|
\param name Nom de la constante
|
|
\return string Valeur de la constante
|
|
*/
|
|
function dolibarr_get_const($db, $name)
|
|
{
|
|
$value='';
|
|
|
|
$sql ="SELECT value";
|
|
$sql.=" FROM llx_const";
|
|
$sql.=" WHERE name = '".addslashes($name)."'";
|
|
|
|
dolibarr_syslog("admin.lib::dolibarr_get_const sql=".$sql);
|
|
$resql=$db->query($sql);
|
|
if ($resql)
|
|
{
|
|
$obj=$db->fetch_object($resql);
|
|
$value=$obj->value;
|
|
}
|
|
return $value;
|
|
}
|
|
|
|
|
|
/**
|
|
\brief Insertion d'une constante dans la base de donnees.
|
|
\sa dolibarr_del_const, dolibarr_get_const
|
|
\param db Handler d'acces base
|
|
\param name Nom de la constante
|
|
\param value Valeur de la constante
|
|
\param type Type de constante (chaine par defaut)
|
|
\param visible La constante est elle visible (0 par defaut)
|
|
\param note Explication de la constante
|
|
\return int -1 if KO, 1 if OK
|
|
*/
|
|
function dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='')
|
|
{
|
|
global $conf;
|
|
|
|
if (empty($name))
|
|
{
|
|
dolibarr_print_error("Error: Call to function dolibarr_set_const with wrong parameters", LOG_ERR);
|
|
exit;
|
|
}
|
|
|
|
$db->begin();
|
|
|
|
//dolibarr_syslog("dolibarr_set_const name=$name, value=$value");
|
|
$sql = "DELETE FROM llx_const WHERE name = '".addslashes($name)."';";
|
|
dolibarr_syslog("admin.lib::dolibarr_set_const sql=".$sql, LOG_DEBUG);
|
|
$resql=$db->query($sql);
|
|
|
|
if (strcmp($value,'')) // true if different. Must work for $value='0' or $value=0
|
|
{
|
|
$sql = "INSERT INTO llx_const(name,value,type,visible,note)";
|
|
$sql.= " VALUES ('".$name."','".addslashes($value)."','".$type."',".$visible.",'".addslashes($note)."')";
|
|
|
|
dolibarr_syslog("admin.lib::dolibarr_set_const sql=".$sql, LOG_DEBUG);
|
|
$resql=$db->query($sql);
|
|
}
|
|
|
|
if ($resql)
|
|
{
|
|
$db->commit();
|
|
$conf->global->$name=$value;
|
|
return 1;
|
|
}
|
|
else
|
|
{
|
|
$this->error=$db->lasterror();
|
|
dolibarr_syslog("admin.lib::dolibarr_set_const ".$this->error, LOG_ERR);
|
|
$db->rollback();
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* \brief Define head array for tabs of security setup pages
|
|
* \return Array of head
|
|
* \version $Id$
|
|
*/
|
|
function security_prepare_head()
|
|
{
|
|
global $langs, $conf, $user;
|
|
$h = 0;
|
|
$head = array();
|
|
|
|
$head[$h][0] = DOL_URL_ROOT."/admin/perms.php";
|
|
$head[$h][1] = $langs->trans("DefaultRights");
|
|
$head[$h][2] = 'default';
|
|
$h++;
|
|
|
|
$head[$h][0] = DOL_URL_ROOT."/admin/security.php";
|
|
$head[$h][1] = $langs->trans("Passwords");
|
|
$head[$h][2] = 'passwords';
|
|
$h++;
|
|
|
|
$head[$h][0] = DOL_URL_ROOT."/admin/security_other.php";
|
|
$head[$h][1] = $langs->trans("Miscellanous");
|
|
$head[$h][2] = 'misc';
|
|
$h++;
|
|
|
|
$head[$h][0] = DOL_URL_ROOT."/admin/events.php";
|
|
$head[$h][1] = $langs->trans("Audit");
|
|
$head[$h][2] = 'audit';
|
|
$h++;
|
|
|
|
return $head;
|
|
}
|
|
|
|
?>
|