diff --git a/htdocs/core/db/mssql.class.php b/htdocs/core/db/mssql.class.php deleted file mode 100644 index 4201e5cf86f..00000000000 --- a/htdocs/core/db/mssql.class.php +++ /dev/null @@ -1,1189 +0,0 @@ - - * Copyright (C) 2004-2008 Laurent Destailleur - * Copyright (C) 2005-2007 Regis Houssin - * Copyright (C) 2007 Simon Desee - * Copyright (C) 2015 Cedric GROSS - * - * 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 . - */ - -/** - * \file htdocs/core/db/mssql.class.php - * \brief Fichier de la classe permettant de gerer une base MSSQL - */ - -require_once DOL_DOCUMENT_ROOT.'/core/db/DoliDB.class.php'; - -/** - * Classe de gestion de la database de dolibarr - */ -class DoliDBMssql extends DoliDB -{ - //! Database type - public $type = 'mssql'; - //! Database label - const LABEL = 'MSSQL'; - //! Charset used to force charset when creating database - public $forcecharset = 'latin1'; // Can't be static as it may be forced with a dynamic value - //! Collate used to force collate when creating database - public $forcecollate = 'latin1_swedish_ci'; // Can't be static as it may be forced with a dynamic value - //! Version min database - const VERSIONMIN = '2000'; - /** @var boolean|resource Resultset of last query */ - private $_results; - - /** - * Constructor. - * This create an opened connexion to a database server and eventually to a database - * - * @param string $type Type of database (mysql, pgsql...) - * @param string $host Address of database server - * @param string $user Nom de l'utilisateur autorise - * @param string $pass Mot de passe - * @param string $name Nom de la database - * @param int $port Port of database server - */ - public function __construct($type, $host, $user, $pass, $name = '', $port = 0) - { - global $langs; - - $this->database_user = $user; - $this->database_host = $host; - $this->database_port = $port; - $this->transaction_opened = 0; - - if (!function_exists("mssql_connect")) - { - $this->connected = false; - $this->ok = false; - $this->error = "Mssql PHP functions for using MSSql driver are not available in this version of PHP"; - dol_syslog(get_class($this)."::DoliDBMssql : MSsql PHP functions for using MSsql driver are not available in this version of PHP", LOG_ERR); - return $this->ok; - } - - if (!$host) - { - $this->connected = false; - $this->ok = false; - $this->error = $langs->trans("ErrorWrongHostParameter"); - dol_syslog(get_class($this)."::DoliDBMssql : Erreur Connect, wrong host parameters", LOG_ERR); - return $this->ok; - } - - // Essai connexion serveur - $this->db = $this->connect($host, $user, $pass, $name, $port); - if ($this->db) - { - // Si client connecte avec charset different de celui de la base Dolibarr - // (La base Dolibarr a ete forcee en this->forcecharset a l'install) - $this->connected = true; - $this->ok = true; - } else { - // host, login ou password incorrect - $this->connected = false; - $this->ok = false; - $this->error = mssql_get_last_message(); - dol_syslog(get_class($this)."::DoliDBMssql : Erreur Connect mssql_get_last_message=".$this->error, LOG_ERR); - } - - // Si connexion serveur ok et si connexion base demandee, on essaie connexion base - if ($this->connected && $name) - { - if ($this->select_db($name)) - { - $this->database_selected = true; - $this->database_name = $name; - $this->ok = true; - } else { - $this->database_selected = false; - $this->database_name = ''; - $this->ok = false; - $this->error = $this->error(); - dol_syslog(get_class($this)."::DoliDBMssql : Erreur Select_db ".$this->error, LOG_ERR); - } - } else { - // Pas de selection de base demandee, ok ou ko - $this->database_selected = false; - } - - return $this->ok; - } - - /** - * Convert a SQL request in Mysql syntax to native syntax - * - * @param string $line SQL request line to convert - * @param string $type Type of SQL order ('ddl' for insert, update, select, delete or 'dml' for create, alter...) - * @return string SQL request line converted - */ - public static function convertSQLFromMysql($line, $type = 'ddl') - { - return $line; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Select a database - * - * @param string $database Name of database - * @return boolean true if OK, false if KO - */ - public function select_db($database) - { - // phpcs:enable - return @mssql_select_db($database, $this->db); - } - - /** - * Connexion to server - * - * @param string $host database server host - * @param string $login login - * @param string $passwd password - * @param string $name name of database (not used for mysql, used for pgsql) - * @param int $port Port of database server - * @return false|resource|true Database access handler - * @see close() - */ - public function connect($host, $login, $passwd, $name, $port = 0) - { - dol_syslog(get_class($this)."::connect host=$host, port=$port, login=$login, passwd=--hidden--, name=$name"); - $newhost = $host; - if ($port) $newhost .= ':'.$port; - $this->db = @mssql_connect($newhost, $login, $passwd); - //force les enregistrement en latin1 si la base est en utf8 par defaut - // Supprime car plante sur mon PHP-Mysql. De plus, la base est forcement en latin1 avec - // les nouvelles version de Dolibarr car force par l'install Dolibarr. - //$this->query('SET NAMES '.$this->forcecharset); - //print "Resultat fonction connect: ".$this->db; - $set_options = array('SET ANSI_PADDING ON;', - "SET ANSI_NULLS ON;", - "SET ANSI_WARNINGS ON;", - "SET ARITHABORT ON;", - "SET CONCAT_NULL_YIELDS_NULL ON;", - "SET QUOTED_IDENTIFIER ON;" - ); - mssql_query(implode(' ', $set_options), $this->db); - - return $this->db; - } - - /** - * Return version of database server - * - * @return string Version string - */ - public function getVersion() - { - $resql = $this->query("SELECT @@VERSION"); - if ($resql) - { - $version = $this->fetch_array($resql); - return $version['computed']; - } else return ''; - } - - /** - * Return version of database client driver - * - * @return string Version string - */ - public function getDriverInfo() - { - return 'php mssql driver'; - } - - /** - * Close database connexion - * - * @return bool True if disconnect successfull, false otherwise - * @see connect() - */ - public function close() - { - if ($this->db) { - if ($this->transaction_opened > 0) dol_syslog(get_class($this)."::close Closing a connection with an opened transaction depth=".$this->transaction_opened, LOG_ERR); - $this->connected = false; - return mssql_close($this->db); - } - return false; - } - - - /** - * Start transaction - * - * @return bool true if transaction successfuly opened or already opened, false if error - */ - public function begin() - { - - $res = mssql_query('select @@TRANCOUNT'); - $this->transaction_opened = mssql_result($res, 0, 0); - - if ($this->transaction_opened == 0) - { - //return 1; //There is a mess with auto_commit and 'SET IMPLICIT_TRANSACTIONS ON' generate also a mess - $ret = mssql_query("SET IMPLICIT_TRANSACTIONS OFF;BEGIN TRANSACTION;", $this->db); - if ($ret) - { - dol_syslog("BEGIN Transaction", LOG_DEBUG); - } - return $ret; - } else { - return true; - } - } - - /** - * Validate a database transaction - * - * @param string $log Add more log to default log line - * @return bool true if validation is OK or transaction level no started, false if ERROR - */ - public function commit($log = '') - { - $res = mssql_query('select @@TRANCOUNT'); - $this->transaction_opened = mssql_result($res, 0, 0); - - if ($this->transaction_opened == 1) - { - //return 1; //There is a mess with auto_commit and 'SET IMPLICIT_TRANSACTION ON' generate also a mess - $ret = mssql_query("COMMIT TRANSACTION", $this->db); - if ($ret) - { - dol_syslog("COMMIT Transaction", LOG_DEBUG); - return true; - } else { - return false; - } - } elseif ($this->transaction_opened > 1) - { - return true; - } - trigger_error("Commit requested but no transaction remain"); - return false; - } - - /** - * Annulation d'une transaction et retour aux anciennes valeurs - * - * @param string $log Add more log to default log line - * @return bool true si annulation ok ou transaction non ouverte, false en cas d'erreur - */ - public function rollback($log = '') - { - $res = mssql_query('select @@TRANCOUNT'); - $this->transaction_opened = mssql_result($res, 0, 0); - - if ($this->transaction_opened == 1) - { - $ret = mssql_query("ROLLBACK TRANSACTION", $this->db); - dol_syslog("ROLLBACK Transaction".($log ? ' '.$log : ''), LOG_DEBUG); - return $ret; - } elseif ($this->transaction_opened > 1) - { - return true; - } - trigger_error("Rollback requested but no transaction remain"); - return false; - } - - /** - * Execute a SQL request and return the resultset - * - * @param string $query SQL query string - * @param int $usesavepoint 0=Default mode, 1=Run a savepoint before and a rollbock to savepoint if error (this allow to have some request with errors inside global transactions). - * Note that with Mysql, this parameter is not used as Myssql can already commit a transaction even if one request is in error, without using savepoints. - * @param string $type Type of SQL order ('ddl' for insert, update, select, delete or 'dml' for create, alter...) - * @return false|resource|true Resultset of answer - */ - public function query($query, $usesavepoint = 0, $type = 'auto') - { - $query = trim($query); - - if (preg_match('/^--/', $query)) return true; - - // Conversion syntaxe MySql vers MSDE. - $query = str_ireplace("now()", "getdate()", $query); - // Erreur SQL: cannot update timestamp field - $query = str_ireplace(", tms = tms", "", $query); - - $query = preg_replace("/([. ,\t(])(percent|file|public)([. ,=\t)])/", "$1[$2]$3", $query); - - $original_query = ''; - - if ($type == "auto" || $type = 'dml') - { - $query = preg_replace('/AUTO_INCREMENT/i', 'IDENTITY', $query); - $query = preg_replace('/double/i', 'float', $query); - $query = preg_replace('/float\((.*)\)/', 'numeric($1)', $query); - $query = preg_replace('/([ \t])unsigned|IF NOT EXISTS[ \t]/i', '$1', $query); - $query = preg_replace('/([ \t])(MEDIUM|TINY|LONG){0,1}TEXT([ \t,])/i', "$1VARCHAR(MAX)$3", $query); - - $matches = array(); - if (preg_match('/ALTER TABLE\h+(\w+?)\h+ADD\h+(?:(UNIQUE)|INDEX)\h+(?:INDEX)?\h*(\w+?)\h*\((.+)\)/is', $query, $matches)) - { - $original_query = $query; - $query = "CREATE ".trim($matches[2])." INDEX [".trim($matches[3])."] ON [".trim($matches[1])."] (".trim($matches[4]).")"; - if ($matches[2]) { - //check if columun is nullable cause Sql server only allow 1 null value if unique index. - $fields = explode(",", trim($matches[4])); - $fields_clear = array_map('trim', $fields); - $infos = $this->GetFieldInformation(trim($matches[1]), $fields_clear); - $query_comp = array(); - if (is_array($infos)) { - foreach ($infos as $fld) { - if ($fld->IS_NULLABLE == 'YES') { - $query_comp[] = $fld->COLUMN_NAME." IS NOT NULL"; - } - } - } - if (!empty($query_comp)) - $query .= " WHERE ".implode(" AND ", $query_comp); - } - } else { - if (preg_match('/ALTER TABLE\h+(\w+?)\h+ADD\h+PRIMARY\h+KEY\h+(\w+?)\h*\((.+)\)/is', $query, $matches)) - { - $original_query = $query; - $query = "ALTER TABLE [".$matches[1]."] ADD CONSTRAINT [".$matches[2]."] PRIMARY KEY CLUSTERED (".$matches[3].")"; - } - } - } - - if ($type == "auto" || $type = 'ddl') - { - $itemfound = stripos($query, " limit "); - if ($itemfound !== false) { - // Extraire le nombre limite - $number = stristr($query, " limit "); - $number = substr($number, 7); - // Inserer l'instruction TOP et le nombre limite - $query = str_ireplace("select ", "select top ".$number." ", $query); - // Supprimer l'instruction MySql - $query = str_ireplace(" limit ".$number, "", $query); - } - - $itemfound = stripos($query, " week("); - if ($itemfound !== false) { - // Recreer une requete sans instruction Mysql - $positionMySql = stripos($query, " week("); - $newquery = substr($query, 0, $positionMySql); - - // Recuperer la date passee en parametre - $extractvalue = stristr($query, " week("); - $extractvalue = substr($extractvalue, 6); - $positionMySql = stripos($extractvalue, ")"); - // Conserver la fin de la requete - $endofquery = substr($extractvalue, $positionMySql); - $extractvalue = substr($extractvalue, 0, $positionMySql); - - // Remplacer l'instruction MySql en Sql Server - // Inserer la date en parametre et le reste de la requete - $query = $newquery." DATEPART(week, ".$extractvalue.$endofquery; - } - if (preg_match('/^insert\h+(?:INTO)?\h*(\w+?)\h*\(.*\b(?:row)?id\b.*\)\h+VALUES/i', $query, $matches)) - { - //var_dump($query); - //var_dump($matches); - //if (stripos($query,'llx_c_departements') !== false) var_dump($query); - $sql = 'SET IDENTITY_INSERT ['.trim($matches[1]).'] ON;'; - @mssql_query($sql, $this->db); - $post_query = 'SET IDENTITY_INSERT ['.trim($matches[1]).'] OFF;'; - } - } - //print ""; - - if (!in_array($query, array('BEGIN', 'COMMIT', 'ROLLBACK'))) - { - $SYSLOG_SQL_LIMIT = 10000; // limit log to 10kb per line to limit DOS attacks - dol_syslog('sql='.substr($query, 0, $SYSLOG_SQL_LIMIT), LOG_DEBUG); - } - - if (!$this->database_name) - { - // Ordre SQL ne necessitant pas de connexion a une base (exemple: CREATE DATABASE) - $ret = mssql_query($query, $this->db); - } else { - $ret = mssql_query($query, $this->db); - } - - if (!empty($post_query)) - { - @mssql_query($post_query, $this->db); - } - - if (!preg_match("/^COMMIT/i", $query) && !preg_match("/^ROLLBACK/i", $query)) - { - // Si requete utilisateur, on la sauvegarde ainsi que son resultset - if (!$ret) - { - $result = mssql_query("SELECT @@ERROR as code", $this->db); - $row = mssql_fetch_array($result); - - $this->lastqueryerror = $query; - $this->lasterror = $this->error(); - $this->lasterrno = $row["code"]; - - dol_syslog(get_class($this)."::query SQL Error query: ".$query, LOG_ERR); - if ($original_query) dol_syslog(get_class($this)."::query SQL Original query: ".$original_query, LOG_ERR); - dol_syslog(get_class($this)."::query SQL Error message: ".$this->lasterror." (".$this->lasterrno.")", LOG_ERR); - } - $this->lastquery = $query; - $this->_results = $ret; - } - - return $ret; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Renvoie la ligne courante (comme un objet) pour le curseur resultset - * - * @param resource $resultset Curseur de la requete voulue - * @return object|false Object result line or false if KO or end of cursor - */ - public function fetch_object($resultset) - { - // phpcs:enable - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - return mssql_fetch_object($resultset); - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return datas as an array - * - * @param resource $resultset Resultset of request - * @return array|false Array or false if KO or end of cursor - */ - public function fetch_array($resultset) - { - // phpcs:enable - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - return mssql_fetch_array($resultset); - } - - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return datas as an array - * - * @param resource $resultset Resultset of request - * @return array|false Array or false if KO or end of cursor - */ - public function fetch_row($resultset) - { - // phpcs:enable - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - return @mssql_fetch_row($resultset); - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return number of lines for result of a SELECT - * - * @param resource $resultset Resulset of requests - * @return int Nb of lines - * @see affected_rows() - */ - public function num_rows($resultset) - { - // phpcs:enable - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - return mssql_num_rows($resultset); - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return the number of lines in the result of a request INSERT, DELETE or UPDATE - * - * @param resource $resultset Curseur de la requete voulue - * @return int Number of lines - * @see num_rows() - */ - public function affected_rows($resultset) - { - // phpcs:enable - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - // mssql necessite un link de base pour cette fonction contrairement - // a pqsql qui prend un resultset - $rsRows = mssql_query("select @@rowcount as rows", $this->db); - return mssql_result($rsRows, 0, "rows"); - //return mssql_affected_rows($this->db); - } - - - /** - * Free last resultset used. - * - * @param resource $resultset Curseur de la requete voulue - * @return bool - */ - public function free($resultset = null) - { - // Si le resultset n'est pas fourni, on prend le dernier utilise sur cette connexion - if (!is_resource($resultset)) { $resultset = $this->_results; } - // Si resultset en est un, on libere la memoire - if (is_resource($resultset)) mssql_free_result($resultset); - } - - /** - * Escape a string to insert data - * - * @param string $stringtoencode String to escape - * @return string String escaped - */ - public function escape($stringtoencode) - { - return addslashes($stringtoencode); - } - - - /** - * Convert (by PHP) a GM Timestamp date into a PHP server TZ to insert into a date field. - * Function to use to build INSERT, UPDATE or WHERE predica - * - * @param string $param Date TMS to convert - * @return string Date in a string YYYY-MM-DD HH:MM:SS - */ - public function idate($param) - { - return dol_print_date($param, "%Y-%m-%d %H:%M:%S"); - } - - /** - * Return generic error code of last operation. - * - * @return string Error code (Exemples: DB_ERROR_TABLE_ALREADY_EXISTS, DB_ERROR_RECORD_ALREADY_EXISTS...) - */ - public function errno() - { - if (!$this->connected) - { - // Si il y a eu echec de connexion, $this->db n'est pas valide. - return 'DB_ERROR_FAILED_TO_CONNECT'; - } else { - // Constants to convert a MSSql error code to a generic Dolibarr error code - $errorcode_map = array( - 1004 => 'DB_ERROR_CANNOT_CREATE', - 1005 => 'DB_ERROR_CANNOT_CREATE', - 1006 => 'DB_ERROR_CANNOT_CREATE', - 1007 => 'DB_ERROR_ALREADY_EXISTS', - 1008 => 'DB_ERROR_CANNOT_DROP', - 1025 => 'DB_ERROR_NO_FOREIGN_KEY_TO_DROP', - 1046 => 'DB_ERROR_NODBSELECTED', - 1048 => 'DB_ERROR_CONSTRAINT', - 2714 => 'DB_ERROR_TABLE_ALREADY_EXISTS', - 1051 => 'DB_ERROR_NOSUCHTABLE', - 1054 => 'DB_ERROR_NOSUCHFIELD', - 1060 => 'DB_ERROR_COLUMN_ALREADY_EXISTS', - 1061 => 'DB_ERROR_KEY_NAME_ALREADY_EXISTS', - 2627 => 'DB_ERROR_RECORD_ALREADY_EXISTS', - 102 => 'DB_ERROR_SYNTAX', - 8120 => 'DB_ERROR_GROUP_BY_SYNTAX', - 1068 => 'DB_ERROR_PRIMARY_KEY_ALREADY_EXISTS', - 1075 => 'DB_ERROR_CANT_DROP_PRIMARY_KEY', - 1091 => 'DB_ERROR_NOSUCHFIELD', - 1100 => 'DB_ERROR_NOT_LOCKED', - 1136 => 'DB_ERROR_VALUE_COUNT_ON_ROW', - 1146 => 'DB_ERROR_NOSUCHTABLE', - 1216 => 'DB_ERROR_NO_PARENT', - 1217 => 'DB_ERROR_CHILD_EXISTS', - 1451 => 'DB_ERROR_CHILD_EXISTS', - 1913 => 'DB_ERROR_KEY_NAME_ALREADY_EXISTS' - ); - - if (isset($errorcode_map[$this->lasterrno])) - { - return $errorcode_map[$this->lasterrno]; - } - $errno = $this->lasterrno; - return ($errno ? 'DB_ERROR_'.$errno : '0'); - } - } - - /** - * Return description of last error - * - * @return string Error text - */ - public function error() - { - if (!$this->connected) { - // Si il y a eu echec de connexion, $this->db n'est pas valide pour mssql_get_last_message. - return 'Not connected. Check setup parameters in conf/conf.php file and your mssql client and server versions'; - } else { - return mssql_get_last_message(); - } - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Get last ID after an insert INSERT - * - * @param string $tab Table name concerned by insert. Ne sert pas sous MySql mais requis pour compatibilite avec Postgresql - * @param string $fieldid Field name - * @return int Id of row or -1 on error - */ - public function last_insert_id($tab, $fieldid = 'rowid') - { - // phpcs:enable - $res = $this->query("SELECT @@IDENTITY as id"); - if ($res && $data = $this->fetch_array($res)) - { - return $data["id"]; - } else { - return -1; - } - } - - /** - * Encrypt sensitive data in database - * Warning: This function includes the escape, so it must use direct value - * - * @param string $fieldorvalue Field name or value to encrypt - * @param int $withQuotes Return string with quotes - * @return string XXX(field) or XXX('value') or field or 'value' - */ - public function encrypt($fieldorvalue, $withQuotes = 0) - { - global $conf; - - // Type of encryption (2: AES (recommended), 1: DES , 0: no encryption) - $cryptType = ($conf->db->dolibarr_main_db_encryption ? $conf->db->dolibarr_main_db_encryption : 0); - - //Encryption key - $cryptKey = (!empty($conf->db->dolibarr_main_db_cryptkey) ? $conf->db->dolibarr_main_db_cryptkey : ''); - - $return = $fieldorvalue; - return ($withQuotes ? "'" : "").$this->escape($return).($withQuotes ? "'" : ""); - } - - /** - * Decrypt sensitive data in database - * - * @param string $value Value to decrypt - * @return string Decrypted value if used - */ - public function decrypt($value) - { - global $conf; - - // Type of encryption (2: AES (recommended), 1: DES , 0: no encryption) - $cryptType = ($conf->db->dolibarr_main_db_encryption ? $conf->db->dolibarr_main_db_encryption : 0); - - //Encryption key - $cryptKey = (!empty($conf->db->dolibarr_main_db_cryptkey) ? $conf->db->dolibarr_main_db_cryptkey : ''); - - $return = $value; - return $return; - } - - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return connexion ID - * - * @return string Id connexion - */ - public function DDLGetConnectId() - { - // phpcs:enable - $resql = $this->query('SELECT CONNECTION_ID()'); - if ($resql) - { - $row = $this->fetch_row($resql); - return $row[0]; - } else return '?'; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Create a new database - * Do not use function xxx_create_db (xxx=mysql, ...) as they are deprecated - * We force to create database with charset this->forcecharset and collate this->forcecollate - * - * @param string $database Database name to create - * @param string $charset Charset used to store data - * @param string $collation Charset used to sort data - * @param string $owner Username of database owner - * @return false|resource|true resource defined if OK, false if KO - */ - public function DDLCreateDb($database, $charset = '', $collation = '', $owner = '') - { - // phpcs:enable - /*if (empty($charset)) $charset=$this->forcecharset; - if (empty($collation)) $collation=$this->forcecollate; - */ - - $sql = 'CREATE DATABASE '.$this->EscapeFieldName($database); - //TODO: Check if we need to force a charset - //$sql.= ' DEFAULT CHARACTER SET '.$charset.' DEFAULT COLLATE '.$collation; - $ret = $this->query($sql); - - $this->select_db($database); - $sql = "CREATE USER [$owner] FOR LOGIN [$owner]"; - mssql_query($sql, $this->db); - $sql = "ALTER ROLE [db_owner] ADD MEMBER [$owner]"; - mssql_query($sql, $this->db); - - $sql = "ALTER DATABASE [$database] SET ANSI_NULL_DEFAULT ON;"; - @mssql_query($sql, $this->db); - $sql = "ALTER DATABASE [$database] SET ANSI_NULL ON;"; - @mssql_query($sql, $this->db); - - return $ret; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * List tables into a database - * - * @param string $database Name of database - * @param string $table Nmae of table filter ('xxx%') - * @return array List of tables in an array - */ - public function DDLListTables($database, $table = '') - { - // phpcs:enable - $v = mssql_query("Select name from sysobjects where type like 'u'", $this->db); - $this->_results = mssql_fetch_array($v); - return $this->_results; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * List information of columns into a table. - * - * @param string $table Name of table - * @return array Tableau des informations des champs de la table - */ - public function DDLInfoTable($table) - { - // phpcs:enable - - // FIXME: Dummy method - // TODO: Implement - // May help: https://stackoverflow.com/questions/600446/sql-server-how-do-you-return-the-column-names-from-a-table - - $infotables = array(); - return $infotables; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Create a table into database - * - * @param string $table Nom de la table - * @param array $fields Tableau associatif [nom champ][tableau des descriptions] - * @param string $primary_key Nom du champ qui sera la clef primaire - * @param string $type Type de la table - * @param array $unique_keys Tableau associatifs Nom de champs qui seront clef unique => valeur - * @param array $fulltext_keys Tableau des Nom de champs qui seront indexes en fulltext - * @param array $keys Tableau des champs cles noms => valeur - * @return int <0 if KO, >=0 if OK - */ - public function DDLCreateTable($table, $fields, $primary_key, $type, $unique_keys = null, $fulltext_keys = null, $keys = null) - { - // phpcs:enable - // FIXME: $fulltext_keys parameter is unused - - $sqlfields = array(); - $sqluq = array(); - $sqlk = array(); - - // cles recherchees dans le tableau des descriptions (fields) : type,value,attribute,null,default,extra - // ex. : $fields['rowid'] = array('type'=>'int','value'=>'11','null'=>'not null','extra'=> 'auto_increment'); - $sql = "create table ".$table."("; - $i = 0; - foreach ($fields as $field_name => $field_desc) - { - $sqlfields[$i] = $field_name." "; - $sqlfields[$i] .= $field_desc['type']; - if (preg_match("/^[^\s]/i", $field_desc['value'])) - $sqlfields[$i] .= "(".$field_desc['value'].")"; - elseif (preg_match("/^[^\s]/i", $field_desc['attribute'])) - $sqlfields[$i] .= " ".$field_desc['attribute']; - elseif (preg_match("/^[^\s]/i", $field_desc['default'])) - { - if (preg_match("/null/i", $field_desc['default'])) - $sqlfields[$i] .= " default ".$field_desc['default']; - else $sqlfields[$i] .= " default '".$field_desc['default']."'"; - } elseif (preg_match("/^[^\s]/i", $field_desc['null'])) - $sqlfields[$i] .= " ".$field_desc['null']; - - elseif (preg_match("/^[^\s]/i", $field_desc['extra'])) - $sqlfields[$i] .= " ".$field_desc['extra']; - $i++; - } - if ($primary_key != "") - $pk = "primary key(".$primary_key.")"; - - if (is_array($unique_keys)) - { - $i = 0; - foreach ($unique_keys as $key => $value) - { - $sqluq[$i] = "UNIQUE KEY '".$key."' ('".$value."')"; - $i++; - } - } - if (is_array($keys)) - { - $i = 0; - foreach ($keys as $key => $value) - { - $sqlk[$i] = "KEY ".$key." (".$value.")"; - $i++; - } - } - $sql .= implode(',', $sqlfields); - if ($primary_key != "") - $sql .= ",".$pk; - if (is_array($unique_keys)) - $sql .= ",".implode(',', $sqluq); - if (is_array($keys)) - $sql .= ",".implode(',', $sqlk); - $sql .= ") type=".$type; - - dol_syslog($sql); - if (!$this -> query($sql)) - return -1; - else return 1; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Drop a table into database - * - * @param string $table Name of table - * @return int <0 if KO, >=0 if OK - */ - public function DDLDropTable($table) - { - // phpcs:enable - $sql = "DROP TABLE ".$table; - - if (!$this->query($sql)) - return -1; - else return 1; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Return a pointer of line with description of a table or field - * - * @param string $table Name of table - * @param string $field Optionnel : Name of field if we want description of field - * @return false|resource|true Resource - */ - public function DDLDescTable($table, $field = "") - { - // phpcs:enable - $sql = "DESC ".$table." ".$field; - - dol_syslog($sql); - $this->_results = $this->query($sql); - return $this->_results; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Create a new field into table - * - * @param string $table Name of table - * @param string $field_name Name of field to add - * @param string $field_desc Tableau associatif de description du champ a inserer[nom du parametre][valeur du parametre] - * @param string $field_position Optionnel ex.: "after champtruc" - * @return int <0 if KO, >0 if OK - */ - public function DDLAddField($table, $field_name, $field_desc, $field_position = "") - { - // phpcs:enable - // cles recherchees dans le tableau des descriptions (field_desc) : type,value,attribute,null,default,extra - // ex. : $field_desc = array('type'=>'int','value'=>'11','null'=>'not null','extra'=> 'auto_increment'); - $sql = "ALTER TABLE ".$table." ADD ".$field_name." "; - $sql .= $field_desc['type']; - if (preg_match("/^[^\s]/i", $field_desc['value'])) - $sql .= "(".$field_desc['value'].")"; - if (preg_match("/^[^\s]/i", $field_desc['attribute'])) - $sql .= " ".$field_desc['attribute']; - if (preg_match("/^[^\s]/i", $field_desc['null'])) - $sql .= " ".$field_desc['null']; - if (preg_match("/^[^\s]/i", $field_desc['default'])) - if (preg_match("/null/i", $field_desc['default'])) - $sql .= " default ".$field_desc['default']; - else $sql .= " default '".$field_desc['default']."'"; - if (preg_match("/^[^\s]/i", $field_desc['extra'])) - $sql .= " ".$field_desc['extra']; - $sql .= " ".$field_position; - - if (!$this -> query($sql)) - return -1; - else return 1; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Update format of a field into a table - * - * @param string $table Name of table - * @param string $field_name Name of field to modify - * @param string $field_desc Array with description of field format - * @return int <0 if KO, >0 if OK - */ - public function DDLUpdateField($table, $field_name, $field_desc) - { - // phpcs:enable - $sql = "ALTER TABLE ".$table; - $sql .= " MODIFY COLUMN ".$field_name." ".$field_desc['type']; - if ($field_desc['type'] == 'tinyint' || $field_desc['type'] == 'int' || $field_desc['type'] == 'varchar') { - $sql .= "(".$field_desc['value'].")"; - } - - dol_syslog($sql, LOG_DEBUG); - if (!$this->query($sql)) - return -1; - else return 1; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Drop a field from table - * - * @param string $table Name of table - * @param string $field_name Name of field to drop - * @return int <0 if KO, >0 if OK - */ - public function DDLDropField($table, $field_name) - { - // phpcs:enable - $sql = "ALTER TABLE ".$table." DROP COLUMN `".$field_name."`"; - dol_syslog($sql, LOG_DEBUG); - if (!$this->query($sql)) - { - $this->error = $this->lasterror(); - return -1; - } else return 1; - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Create a user and privileges to connect to database (even if database does not exists yet) - * - * @param string $dolibarr_main_db_host Ip serveur - * @param string $dolibarr_main_db_user Nom user a creer - * @param string $dolibarr_main_db_pass Mot de passe user a creer - * @param string $dolibarr_main_db_name Database name where user must be granted - * @return int <0 if KO, >=0 if OK - */ - public function DDLCreateUser($dolibarr_main_db_host, $dolibarr_main_db_user, $dolibarr_main_db_pass, $dolibarr_main_db_name) - { - // phpcs:enable - $sql = "CREATE LOGIN ".$this->EscapeFieldName($dolibarr_main_db_user)." WITH PASSWORD='$dolibarr_main_db_pass'"; - dol_syslog(get_class($this)."::DDLCreateUser", LOG_DEBUG); // No sql to avoid password in log - $resql = $this->query($sql); - if (!$resql) - { - if ($this->lasterrno != '15025') - { - return -1; - } else { - // If user already exists, we continue to set permissions - dol_syslog(get_class($this)."::DDLCreateUser sql=".$sql, LOG_WARNING); - } - } - $sql = "SELECT name from sys.databases where name='".$dolibarr_main_db_name."'"; - $ressql = $this->query($sql); - if (!$ressql) - { - dol_syslog(get_class($this)."::DDLCreateUser sql=".$sql, LOG_WARNING); - return -1; - } else { - if ($num) - { - $this->select_db($dolibarr_main_db_name); - $sql = "CREATE USER [$dolibarr_main_db_user] FOR LOGIN [$dolibarr_main_db_user]"; - $this->query($sql); - $sql = "ALTER ROLE [db_owner] ADD MEMBER [$dolibarr_main_db_user]"; - $this->query($sql); - } - } - return 1; - } - - /** - * Return charset used to store data in database - * - * @return string Charset - */ - public function getDefaultCharacterSetDatabase() - { - // FIXME: Dummy method - // TODO: Implement - - return ''; - } - - /** - * Return list of available charset that can be used to store data in database - * - * @return array List of Charset - */ - public function getListOfCharacterSet() - { - // FIXME: Dummy method - // TODO: Implement - - return ''; - } - - /** - * Return collation used in database - * - * @return string Collation value - */ - public function getDefaultCollationDatabase() - { - $resql = $this->query("SELECT SERVERPROPERTY('collation')"); - if (!$resql) - { - return $this->forcecollate; - } - $liste = $this->fetch_array($resql); - return $liste['computed']; - } - - /** - * Return list of available collation that can be used for database - * - * @return array Liste of Collation - */ - public function getListOfCollation() - { - // FIXME: Dummy method - // TODO: Implement - - return array(); - } - - /** - * Return full path of dump program - * - * @return string Full path of dump program - */ - public function getPathOfDump() - { - // FIXME: Dummy method - // TODO: Implement - - return ''; - } - - /** - * Return full path of restore program - * - * @return string Full path of restore program - */ - public function getPathOfRestore() - { - // FIXME: Dummy method - // TODO: Implement - - return ''; - } - - /** - * Return value of server parameters - * - * @param string $filter Filter list on a particular value - * @return array Array of key-values (key=>value) - */ - public function getServerParametersValues($filter = '') - { - // FIXME: Dummy method - // TODO: Implement - // May help: SELECT SERVERPROPERTY - - $result = array(); - return $result; - } - - /** - * Return value of server status - * - * @param string $filter Filter list on a particular value - * @return array Array of key-values (key=>value) - */ - public function getServerStatusValues($filter = '') - { - // FIXME: Dummy method - // TODO: Implement - // May help: http://www.experts-exchange.com/Database/MS-SQL-Server/Q_20971756.html - - return array(); - } - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Escape a field name according to escape's syntax - * - * @param string $fieldname Field's name to escape - * @return string field's name escaped - */ - public function EscapeFieldName($fieldname) - { - // phpcs:enable - return "[".$fieldname."]"; - } - - - // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps - /** - * Get information on field - * - * @param string $table Table name which contains fields - * @param mixed $fields String for one field or array of string for multiple field - * @return false|object - */ - public function GetFieldInformation($table, $fields) - { - // phpcs:enable - $sql = "SELECT * from INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='".$this->escape($table)."' AND COLUMN_NAME"; - if (is_array($fields)) - { - $where = " IN ('".implode("','", $fields)."')"; - } else { - $where = "='".$this->escape($fields)."'"; - } - $result = array(); - $ret = mssql_query($sql.$where, $this->db); - if ($ret) - { - while ($obj = mssql_fetch_object($ret)) - { - $result[] = $obj; - } - } else return false; - - return $result; - } -}