/htdocs/core/lib/admin.lib.php
PHP | 945 lines | 629 code | 114 blank | 202 comment | 161 complexity | 457838abe12e31a8b3ba20cb9241a316 MD5 | raw file
Possible License(s): LGPL-2.0
- <?php
- /* Copyright (C) 2008-2011 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2005-2011 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/admin.lib.php
- * \brief Library of admin functions
- */
- /**
- * Renvoi une version en chaine depuis une version en tableau
- *
- * @param array $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;
- }
- /**
- * Compare 2 versions (stored into 2 arrays)
- *
- * @param array $versionarray1 Array of version (vermajor,verminor,patch)
- * @param array $versionarray2 Array of version (vermajor,verminor,patch)
- * @return int -4,-3,-2,-1 if versionarray1<versionarray2 (value depends on level of difference)
- * 0 if same
- * 1,2,3,4 if versionarray1>versionarray2 (value depends on level of difference)
- */
- function versioncompare($versionarray1,$versionarray2)
- {
- $ret=0;
- $level=0;
- $count1=count($versionarray1);
- $count2=count($versionarray2);
- $maxcount=max($count1,$count2);
- while ($level < $maxcount)
- {
- $operande1=isset($versionarray1[$level])?$versionarray1[$level]:0;
- $operande2=isset($versionarray2[$level])?$versionarray2[$level]:0;
- if (preg_match('/alpha|dev/i',$operande1)) $operande1=-3;
- if (preg_match('/alpha|dev/i',$operande2)) $operande2=-3;
- if (preg_match('/beta/i',$operande1)) $operande1=-2;
- if (preg_match('/beta/i',$operande2)) $operande2=-2;
- if (preg_match('/rc/i',$operande1)) $operande1=-1;
- if (preg_match('/rc/i',$operande2)) $operande2=-1;
- $level++;
- //print 'level '.$level.' '.$operande1.'-'.$operande2.'<br>';
- if ($operande1 < $operande2) { $ret = -$level; break; }
- if ($operande1 > $operande2) { $ret = $level; break; }
- }
- //print join('.',$versionarray1).'('.count($versionarray1).') / '.join('.',$versionarray2).'('.count($versionarray2).') => '.$ret;
- return $ret;
- }
- /**
- * Return version PHP
- *
- * @return array Tableau de version (vermajeur,vermineur,autre)
- */
- function versionphparray()
- {
- return explode('.',PHP_VERSION);
- }
- /**
- * Return version Dolibarr
- *
- * @return array Tableau de version (vermajeur,vermineur,autre)
- */
- function versiondolibarrarray()
- {
- return explode('.',DOL_VERSION);
- }
- /**
- * Launch a sql file. Function used by:
- * - Migrate process (dolibarr-xyz-abc.sql)
- * - Loading sql menus (auguria)
- * - Running specific Sql by a module init
- * Install process however does not use it.
- * Note that Sql files must have all comments at start of line.
- *
- * @param string $sqlfile Full path to sql file
- * @param int $silent 1=Do not output anything, 0=Output line for update page
- * @param int $entity Entity targeted for multicompany module
- * @param int $usesavepoint 1=Run a savepoint before each request and a rollback to savepoint if error (this allow to have some request with errors inside global transactions).
- * @param string $handler Handler targeted for menu
- * @return int <=0 if KO, >0 if OK
- */
- function run_sql($sqlfile,$silent=1,$entity='',$usesavepoint=1,$handler='')
- {
- global $db, $conf, $langs, $user;
- dol_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 (preg_match('/^--\sV([0-9\.]+)/i',$buf,$reg))
- {
- $versioncommande=explode('.',$reg[1]);
- //print var_dump($versioncommande);
- //print var_dump($versionarray);
- if (count($versioncommande) && count($versionarray)
- && versioncompare($versioncommande,$versionarray) <= 0)
- {
- // Version qualified, delete SQL comments
- $buf=preg_replace('/^--\sV([0-9\.]+)/i','',$buf);
- //print "Ligne $i qualifi?e par version: ".$buf.'<br>';
- }
- }
- // Add line buf to buffer if not a comment
- if (! preg_match('/^--/',$buf))
- {
- $buf=preg_replace('/--.*$/','',$buf); //remove comment from a line that not start with -- before add it to the buffer
- $buffer .= trim($buf);
- }
- // print $buf.'<br>';
- if (preg_match('/;/',$buffer)) // If string contains ';', it's end of a request string, we save it in arraysql.
- {
- // Found new request
- if ($buffer) $arraysql[$i]=$buffer;
- $i++;
- $buffer='';
- }
- }
- if ($buffer) $arraysql[$i]=$buffer;
- fclose($fp);
- }
- else
- {
- dol_syslog("Admin.lib::run_sql failed to open file ".$sqlfile, LOG_ERR);
- }
- // Loop on each request to see if there is a __+MAX_table__ key
- $listofmaxrowid=array(); // This is a cache table
- foreach($arraysql as $i => $sql)
- {
- $newsql=$sql;
- // Replace __+MAX_table__ with max of table
- while (preg_match('/__\+MAX_([A-Za-z_]+)__/i',$newsql,$reg))
- {
- $table=$reg[1];
- if (! isset($listofmaxrowid[$table]))
- {
- //var_dump($db);
- $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
- {
- dol_syslog('Admin.lib::run_sql Failed to get max rowid for '.$table.' '.$db->lasterror().' sql='.$sqlgetrowid, LOG_ERR);
- 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);
- dol_syslog('Admin.lib::run_sql New Request '.($i+1).' (replacing '.$from.' to '.$to.') 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)
- {
- if (!empty($handler)) $sql=preg_replace('/__HANDLER__/i',"'".$handler."'",$sql);
- $newsql=preg_replace('/__ENTITY__/i',(!empty($entity)?$entity:$conf->entity),$sql);
- // Ajout trace sur requete (eventuellement a commenter si beaucoup de requetes)
- if (! $silent) print '<tr><td valign="top">'.$langs->trans("Request").' '.($i+1)." sql='".$newsql."'</td></tr>\n";
- dol_syslog('Admin.lib::run_sql Request '.($i+1).' sql='.$newsql, LOG_DEBUG);
- // Replace for encrypt data
- if (preg_match_all('/__ENCRYPT\(\'([^\,]+)\'\)__/i',$newsql,$reg))
- {
- $num=count($reg[0]);
- for($i=0;$i<$num;$i++)
- {
- $from = $reg[0][$i];
- $to = $db->encrypt($reg[1][$i],1);
- $newsql = str_replace($from,$to,$newsql);
- }
- }
- // Replace for decrypt data
- if (preg_match_all('/__DECRYPT\(\'([^\,]+)\'\)__/i',$newsql,$reg))
- {
- $num=count($reg[0]);
- for($i=0;$i<$num;$i++)
- {
- $from = $reg[0][$i];
- $to = $db->decrypt($reg[1][$i]);
- $newsql = str_replace($from,$to,$newsql);
- }
- }
- // Replace __x__ with rowid of insert nb x
- while (preg_match('/__([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);
- dol_syslog('Admin.lib::run_sql New Request '.($i+1).' (replacing '.$from.' to '.$to.') sql='.$newsql, LOG_DEBUG);
- }
- $result=$db->query($newsql,$usesavepoint);
- if ($result)
- {
- if (! $silent) print '<!-- Result = OK -->'."\n";
- if (preg_replace('/insert into ([^\s]+)/i',$newsql,$reg))
- {
- $cursorinsert++;
- // It's an insert
- $table=preg_replace('/([^a-zA-Z_]+)/i','',$reg[1]);
- $insertedrowid=$db->last_insert_id($table);
- $listofinsertedrowid[$cursorinsert]=$insertedrowid;
- dol_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();
- if (! $silent) print '<!-- Result = '.$errno.' -->'."\n";
- $okerror=array( 'DB_ERROR_TABLE_ALREADY_EXISTS',
- 'DB_ERROR_COLUMN_ALREADY_EXISTS',
- 'DB_ERROR_KEY_NAME_ALREADY_EXISTS',
- 'DB_ERROR_TABLE_OR_KEY_ALREADY_EXISTS', // PgSql use same code for table and key already exist
- 'DB_ERROR_RECORD_ALREADY_EXISTS',
- 'DB_ERROR_NOSUCHTABLE',
- 'DB_ERROR_NOSUCHFIELD',
- 'DB_ERROR_NO_FOREIGN_KEY_TO_DROP',
- 'DB_ERROR_NO_INDEX_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>'."\n";
- dol_syslog('Admin.lib::run_sql Request '.($i+1)." Error ".$db->errno()." ".$newsql."<br>".$db->error(), LOG_ERR);
- $error++;
- }
- }
- if (! $silent) print '</tr>'."\n";
- }
- }
- if ($error == 0)
- {
- if (! $silent) print '<tr><td>'.$langs->trans("ProcessMigrateScript").'</td>';
- if (! $silent) print '<td align="right">'.$langs->trans("OK").'</td></tr>'."\n";
- $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>'."\n";
- $ok = 0;
- }
- return $ok;
- }
- /**
- * Effacement d'une constante dans la base de donnees
- *
- * @param DoliDB $db Database handler
- * @param string $name Name of constant or rowid of line
- * @param int $entity Multi company id, -1 for all entities
- * @return int <0 if KO, >0 if OK
- *
- * @see dolibarr_get_const, dolibarr_sel_const
- */
- function dolibarr_del_const($db, $name, $entity=1)
- {
- global $conf;
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
- $sql.= " WHERE (".$db->decrypt('name')." = '".$db->escape($name)."'";
- if (is_numeric($name)) $sql.= " OR rowid = '".$db->escape($name)."'";
- $sql.= ")";
- if ($entity >= 0) $sql.= " AND entity = ".$entity;
- dol_syslog("admin.lib::dolibarr_del_const sql=".$sql);
- $resql=$db->query($sql);
- if ($resql)
- {
- $conf->global->$name='';
- return 1;
- }
- else
- {
- dol_print_error($db);
- return -1;
- }
- }
- /**
- * Recupere une constante depuis la base de donnees.
- *
- * @param DoliDB $db Database handler
- * @param string $name Nom de la constante
- * @param int $entity Multi company id
- * @return string Valeur de la constante
- *
- * @see dolibarr_del_const, dolibarr_set_const
- */
- function dolibarr_get_const($db, $name, $entity=1)
- {
- global $conf;
- $value='';
- $sql = "SELECT ".$db->decrypt('value')." as value";
- $sql.= " FROM ".MAIN_DB_PREFIX."const";
- $sql.= " WHERE name = ".$db->encrypt($name,1);
- $sql.= " AND entity = ".$entity;
- dol_syslog("admin.lib::dolibarr_get_const sql=".$sql);
- $resql=$db->query($sql);
- if ($resql)
- {
- $obj=$db->fetch_object($resql);
- if ($obj) $value=$obj->value;
- }
- return $value;
- }
- /**
- * Insert a parameter (key,value) into database.
- *
- * @param DoliDB $db Database handler
- * @param string $name Name of constant
- * @param string $value Value of constant
- * @param string $type Type of constante (chaine par defaut)
- * @param int $visible Is constant visible in Setup->Other page (0 by default)
- * @param string $note Note on parameter
- * @param int $entity Multi company id (0 means all entities)
- * @return int -1 if KO, 1 if OK
- *
- * @see dolibarr_del_const, dolibarr_get_const
- */
- function dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
- {
- global $conf;
- // Clean parameters
- $name=trim($name);
- // Check parameters
- if (empty($name))
- {
- dol_print_error($db,"Error: Call to function dolibarr_set_const with wrong parameters", LOG_ERR);
- exit;
- }
- //dol_syslog("dolibarr_set_const name=$name, value=$value type=$type, visible=$visible, note=$note entity=$entity");
- $db->begin();
- $sql = "DELETE FROM ".MAIN_DB_PREFIX."const";
- $sql.= " WHERE name = ".$db->encrypt($name,1);
- if ($entity > 0) $sql.= " AND entity = ".$entity;
- dol_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,entity)";
- $sql.= " VALUES (";
- $sql.= $db->encrypt($name,1);
- $sql.= ", ".$db->encrypt($value,1);
- $sql.= ",'".$type."',".$visible.",'".$db->escape($note)."',".$entity.")";
- //print "sql".$value."-".pg_escape_string($value)."-".$sql;exit;
- //print "xx".$db->escape($value);
- //print $sql;exit;
- dol_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
- {
- $error=$db->lasterror();
- dol_syslog("admin.lib::dolibarr_set_const ".$error, LOG_ERR);
- $db->rollback();
- return -1;
- }
- }
- /**
- * Define head array for tabs of security setup pages
- *
- * @return array Array of head
- */
- function security_prepare_head()
- {
- global $langs, $conf, $user;
- $h = 0;
- $head = array();
- $head[$h][0] = DOL_URL_ROOT."/admin/proxy.php";
- $head[$h][1] = $langs->trans("ExternalAccess");
- $head[$h][2] = 'proxy';
- $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/security.php";
- $head[$h][1] = $langs->trans("Passwords");
- $head[$h][2] = 'passwords';
- $h++;
- $head[$h][0] = DOL_URL_ROOT."/admin/events.php";
- $head[$h][1] = $langs->trans("Audit");
- $head[$h][2] = 'audit';
- $h++;
- $head[$h][0] = DOL_URL_ROOT."/admin/perms.php";
- $head[$h][1] = $langs->trans("DefaultRights");
- $head[$h][2] = 'default';
- $h++;
- return $head;
- }
- /**
- * Return list of session
- *
- * @return array Array list of sessions
- */
- function listOfSessions()
- {
- global $conf;
- $arrayofSessions = array();
- $sessPath = ini_get("session.save_path").'/';
- dol_syslog('admin.lib:listOfSessions sessPath='.$sessPath);
- $dh = @opendir(dol_osencode($sessPath));
- if ($dh)
- {
- while(($file = @readdir($dh)) !== false)
- {
- if (preg_match('/^sess_/i',$file) && $file != "." && $file != "..")
- {
- $fullpath = $sessPath.$file;
- if(! @is_dir($fullpath) && is_readable($fullpath))
- {
- $sessValues = file_get_contents($fullpath); // get raw session data
- if (preg_match('/dol_login/i',$sessValues) && // limit to dolibarr session
- preg_match('/dol_entity\|s:([0-9]+):"('.$conf->entity.')"/i',$sessValues) && // limit to current entity
- preg_match('/dol_company\|s:([0-9]+):"('.$conf->global->MAIN_INFO_SOCIETE_NOM.')"/i',$sessValues)) // limit to company name
- {
- $tmp=explode('_', $file);
- $idsess=$tmp[1];
- $login = preg_match('/dol_login\|s:[0-9]+:"([A-Za-z0-9]+)"/i',$sessValues,$regs);
- $arrayofSessions[$idsess]["login"] = $regs[1];
- $arrayofSessions[$idsess]["age"] = time()-filectime($fullpath);
- $arrayofSessions[$idsess]["creation"] = filectime($fullpath);
- $arrayofSessions[$idsess]["modification"] = filemtime($fullpath);
- $arrayofSessions[$idsess]["raw"] = $sessValues;
- }
- }
- }
- }
- @closedir($dh);
- }
- return $arrayofSessions;
- }
- /**
- * Purge existing sessions
- *
- * @param int $mysessionid To avoid to try to delete my own session
- * @return int >0 if OK, <0 if KO
- */
- function purgeSessions($mysessionid)
- {
- global $conf;
- $arrayofSessions = array();
- $sessPath = ini_get("session.save_path")."/";
- dol_syslog('admin.lib:purgeSessions mysessionid='.$mysessionid.' sessPath='.$sessPath);
- $error=0;
- $dh = @opendir(dol_osencode($sessPath));
- while(($file = @readdir($dh)) !== false)
- {
- if ($file != "." && $file != "..")
- {
- $fullpath = $sessPath.$file;
- if(! @is_dir($fullpath))
- {
- $sessValues = file_get_contents($fullpath); // get raw session data
- if (preg_match('/dol_login/i',$sessValues) && // limit to dolibarr session
- preg_match('/dol_entity\|s:([0-9]+):"('.$conf->entity.')"/i',$sessValues) && // limit to current entity
- preg_match('/dol_company\|s:([0-9]+):"('.$conf->global->MAIN_INFO_SOCIETE_NOM.')"/i',$sessValues)) // limit to company name
- {
- $tmp=explode('_', $file);
- $idsess=$tmp[1];
- // We remove session if it's not ourself
- if ($idsess != $mysessionid)
- {
- $res=@unlink($fullpath);
- if (! $res) $error++;
- }
- }
- }
- }
- }
- @closedir($dh);
- if (! $error) return 1;
- else return -$error;
- }
- /**
- * Enable a module
- *
- * @param string $value Name of module to activate
- * @param int $withdeps Activate/Disable also all dependencies
- * @return string Error message or '';
- */
- function Activate($value,$withdeps=1)
- {
- global $db, $modules, $langs, $conf;
- // Check parameters
- if (empty($value)) return 'ErrorBadParameter';
- $ret='';
- $modName = $value;
- $modFile = $modName . ".class.php";
- $modulesdir = array();
- // Loop on each directory
- $found=false;
- foreach ($conf->file->dol_document_root as $type => $dirroot)
- {
- $modulesdir[] = $dirroot."/core/modules/";
- if ($type == 'alt')
- {
- $handle=@opendir(dol_osencode($dirroot));
- if (is_resource($handle))
- {
- while (($file = readdir($handle))!==false)
- {
- if (is_dir($dirroot.'/'.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS' && $file != 'includes')
- {
- if (is_dir($dirroot . '/' . $file . '/core/modules/'))
- {
- $modulesdir[] = $dirroot . '/' . $file . '/core/modules/';
- }
- }
- }
- closedir($handle);
- }
- }
- }
- foreach ($modulesdir as $dir)
- {
- if (file_exists($dir.$modFile))
- {
- $found=@include_once($dir.$modFile);
- if ($found) break;
- }
- }
- $objMod = new $modName($db);
- // Test if PHP version ok
- $verphp=versionphparray();
- $vermin=isset($objMod->phpmin)?$objMod->phpmin:0;
- if (is_array($vermin) && versioncompare($verphp,$vermin) < 0)
- {
- return $langs->trans("ErrorModuleRequirePHPVersion",versiontostring($vermin));
- }
- // Test if Dolibarr version ok
- $verdol=versiondolibarrarray();
- $vermin=isset($objMod->need_dolibarr_version)?$objMod->need_dolibarr_version:0;
- //print 'eee'.versioncompare($verdol,$vermin).join(',',$verdol).' - '.join(',',$vermin);exit;
- if (is_array($vermin) && versioncompare($verdol,$vermin) < 0)
- {
- return $langs->trans("ErrorModuleRequireDolibarrVersion",versiontostring($vermin));
- }
- // Test if javascript requirement ok
- if (! empty($objMod->need_javascript_ajax) && empty($conf->use_javascript_ajax))
- {
- return $langs->trans("ErrorModuleRequireJavascript");
- }
- $result=$objMod->init();
- if ($result <= 0) $ret=$objMod->error;
- if (! $ret && $withdeps)
- {
- if (is_array($objMod->depends) && !empty($objMod->depends))
- {
- // Activation des modules dont le module depend
- $num = count($objMod->depends);
- for ($i = 0; $i < $num; $i++)
- {
- if (file_exists(DOL_DOCUMENT_ROOT."/core/modules/".$objMod->depends[$i].".class.php"))
- {
- Activate($objMod->depends[$i]);
- }
- }
- }
- if (isset($objMod->conflictwith) && is_array($objMod->conflictwith))
- {
- // Desactivation des modules qui entrent en conflit
- $num = count($objMod->conflictwith);
- for ($i = 0; $i < $num; $i++)
- {
- if (file_exists(DOL_DOCUMENT_ROOT."/core/modules/".$objMod->conflictwith[$i].".class.php"))
- {
- UnActivate($objMod->conflictwith[$i],0);
- }
- }
- }
- }
- return $ret;
- }
- /**
- * Disable a module
- *
- * @param string $value Nom du module a desactiver
- * @param int $requiredby 1=Desactive aussi modules dependants
- * @return string Error message or '';
- */
- function UnActivate($value, $requiredby=1)
- {
- global $db, $modules, $conf;
- // Check parameters
- if (empty($value)) return 'ErrorBadParameter';
- $ret='';
- $modName = $value;
- $modFile = $modName . ".class.php";
- $modulesdir=array();
- // Loop on each directory
- $found=false;
- foreach ($conf->file->dol_document_root as $type => $dirroot)
- {
- $modulesdir[] = $dirroot."/core/modules/";
- if ($type == 'alt')
- {
- $handle=@opendir(dol_osencode($dirroot));
- if (is_resource($handle))
- {
- while (($file = readdir($handle))!==false)
- {
- if (is_dir($dirroot.'/'.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS' && $file != 'includes')
- {
- if (is_dir($dirroot . '/' . $file . '/core/modules/'))
- {
- $modulesdir[] = $dirroot . '/' . $file . '/core/modules/';
- }
- }
- }
- closedir($handle);
- }
- }
- }
- foreach ($modulesdir as $dir)
- {
- if (file_exists($dir.$modFile))
- {
- $found=@include_once($dir.$modFile);
- if ($found) break;
- }
- }
- if ($found)
- {
- $objMod = new $modName($db);
- $result=$objMod->remove();
- }
- else
- {
- // TODO Cannot instantiate abstract class
- //$genericMod = new DolibarrModul($db);
- //$genericMod->name=preg_replace('/^mod/i','',$modName);
- //$genericMod->style_sheet=1;
- //$genericMod->rights_class=strtolower(preg_replace('/^mod/i','',$modName));
- //$genericMod->const_name='MAIN_MODULE_'.strtoupper(preg_replace('/^mod/i','',$modName));
- dol_syslog("modules::UnActivate Failed to find module file, we use generic function with name " . $modName);
- //$genericMod->_remove();
- }
- // Desactivation des modules qui dependent de lui
- if ($requiredby)
- {
- $countrb=count($objMod->requiredby);
- for ($i = 0; $i < $countrb; $i++)
- {
- UnActivate($objMod->requiredby[$i]);
- }
- }
- return $ret;
- }
- /**
- * Add external modules to list of dictionnaries
- *
- * @param array &$taborder Taborder
- * @param array &$tabname Tabname
- * @param array &$tablib Tablib
- * @param array &$tabsql Tabsql
- * @param array &$tabsqlsort Tabsqlsort
- * @param array &$tabfield Tabfield
- * @param array &$tabfieldvalue Tabfieldvalue
- * @param array &$tabfieldinsert Tabfieldinsert
- * @param array &$tabrowid Tabrowid
- * @param array &$tabcond Tabcond
- * @return int 1
- */
- function complete_dictionnary_with_modules(&$taborder,&$tabname,&$tablib,&$tabsql,&$tabsqlsort,&$tabfield,&$tabfieldvalue,&$tabfieldinsert,&$tabrowid,&$tabcond)
- {
- global $db, $modules, $conf, $langs;
- // Search modules
- $filename = array();
- $modules = array();
- $orders = array();
- $categ = array();
- $dirmod = array();
- $i = 0; // is a sequencer of modules found
- $j = 0; // j is module number. Automatically affected if module number not defined.
- foreach ($conf->file->dol_document_root as $dirroot)
- {
- $dir = $dirroot . "/core/modules/";
- // Load modules attributes in arrays (name, numero, orders) from dir directory
- //print $dir."\n<br>";
- dol_syslog("Scan directory ".$dir." for modules");
- $handle=@opendir(dol_osencode($dir));
- if (is_resource($handle))
- {
- while (($file = readdir($handle))!==false)
- {
- //print "$i ".$file."\n<br>";
- if (is_readable($dir.$file) && substr($file, 0, 3) == 'mod' && substr($file, dol_strlen($file) - 10) == '.class.php')
- {
- $modName = substr($file, 0, dol_strlen($file) - 10);
- if ($modName)
- {
- include_once($dir.$file);
- $objMod = new $modName($db);
- if ($objMod->numero > 0)
- {
- $j = $objMod->numero;
- }
- else
- {
- $j = 1000 + $i;
- }
- $modulequalified=1;
- // We discard modules according to features level (PS: if module is activated we always show it)
- $const_name = 'MAIN_MODULE_'.strtoupper(preg_replace('/^mod/i','',get_class($objMod)));
- if ($objMod->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2 && ! $conf->global->$const_name) $modulequalified=0;
- if ($objMod->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1 && ! $conf->global->$const_name) $modulequalified=0;
- if ($modulequalified)
- {
- // Load languages files of module
- if (isset($objMod->langfiles) && is_array($objMod->langfiles))
- {
- foreach($objMod->langfiles as $langfile)
- {
- $langs->load($langfile);
- }
- }
- $modules[$i] = $objMod;
- $filename[$i]= $modName;
- $orders[$i] = $objMod->family."_".$j; // Tri par famille puis numero module
- //print "x".$modName." ".$orders[$i]."\n<br>";
- if (isset($categ[$objMod->special])) $categ[$objMod->special]++; // Array of all different modules categories
- else $categ[$objMod->special]=1;
- $dirmod[$i] = $dirroot;
- // Complete arrays
- //&$tabname,&$tablib,&$tabsql,&$tabsqlsort,&$tabfield,&$tabfieldvalue,&$tabfieldinsert,&$tabrowid,&$tabcond
- //$objMod
- if (! empty($objMod->dictionnaries))
- {
- //var_dump($objMod->dictionnaries['tabname']);
- $taborder[] = 0;
- foreach($objMod->dictionnaries['tabname'] as $val)
- {
- $taborder[] = count($tabname)+1;
- $tabname[] = $val;
- }
- foreach($objMod->dictionnaries['tablib'] as $val) $tablib[] = $val;
- foreach($objMod->dictionnaries['tabsql'] as $val) $tabsql[] = $val;
- foreach($objMod->dictionnaries['tabsqlsort'] as $val) $tabsqlsort[] = $val;
- foreach($objMod->dictionnaries['tabfield'] as $val) $tabfield[] = $val;
- foreach($objMod->dictionnaries['tabfieldvalue'] as $val) $tabfieldvalue[] = $val;
- foreach($objMod->dictionnaries['tabfieldinsert'] as $val) $tabfieldinsert[] = $val;
- foreach($objMod->dictionnaries['tabrowid'] as $val) $tabrowid[] = $val;
- foreach($objMod->dictionnaries['tabcond'] as $val) $tabcond[] = $val;
- // foreach($objMod->dictionnaries['tabsqlsort'] as $val) $tablib[] = $val;
- //$tabname = array_merge ($tabname, $objMod->dictionnaries['tabname']);
- //var_dump($tabcond);
- //exit;
- }
- $j++;
- $i++;
- }
- else dol_syslog("Module ".get_class($objMod)." not qualified");
- }
- }
- }
- closedir($handle);
- }
- else
- {
- dol_syslog("htdocs/admin/modules.php: Failed to open directory ".$dir.". See permission and open_basedir option.", LOG_WARNING);
- }
- }
- return 1;
- }
- ?>