Proyectos de Subversion Moodle

<?php

/**

 * ADOdb PDO dblib driver.

 *

 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.

 *

 * @package ADOdb

 * @link https://adodb.org Project's web site and documentation

 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker

 *

 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause

 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,

 * any later version. This means you can use it in proprietary products.

 * See the LICENSE.md file distributed with this source code for details.

 * @license BSD-3-Clause

 * @license LGPL-2.1-or-later

 *

 * @copyright 2000-2013 John Lim

 * @copyright 2019 Damien Regad, Mark Newnham and the ADOdb community

 */

class ADODB_pdo_dblib extends ADODB_pdo

{

	var $hasTop = 'top';

	var $sysDate = 'convert(datetime,convert(char,GetDate(),102),102)';

	var $sysTimeStamp = 'GetDate()';

	var $metaDatabasesSQL = "select name from sysdatabases where name <> 'master'";

	var $metaTablesSQL="select name,case when type='U' then 'T' else 'V' end from sysobjects where (type='U' or type='V') and (name not in ('sysallocations','syscolumns','syscomments','sysdepends','sysfilegroups','sysfiles','sysfiles1','sysforeignkeys','sysfulltextcatalogs','sysindexes','sysindexkeys','sysmembers','sysobjects','syspermissions','sysprotects','sysreferences','systypes','sysusers','sysalternates','sysconstraints','syssegments','REFERENTIAL_CONSTRAINTS','CHECK_CONSTRAINTS','CONSTRAINT_TABLE_USAGE','CONSTRAINT_COLUMN_USAGE','VIEWS','VIEW_TABLE_USAGE','VIEW_COLUMN_USAGE','SCHEMATA','TABLES','TABLE_CONSTRAINTS','TABLE_PRIVILEGES','COLUMNS','COLUMN_DOMAIN_USAGE','COLUMN_PRIVILEGES','DOMAINS','DOMAIN_CONSTRAINTS','KEY_COLUMN_USAGE','dtproperties'))";

	var $metaColumnsSQL = "SELECT c.NAME, OBJECT_NAME(c.id) as tbl_name, c.length, c.isnullable, c.status, ( CASE WHEN c.xusertype=61 THEN 0 ELSE c.xprec END), ( CASE WHEN c.xusertype=61 THEN 0 ELSE c.xscale END), ISNULL(i.is_primary_key, 0) as primary_key FROM   syscolumns c INNER JOIN systypes t ON t.xusertype=c.xusertype INNER JOIN sysobjects o ON o.id=c.id LEFT JOIN sys.index_columns ic ON ic.object_id = c.id AND c.colid = ic.column_id LEFT JOIN sys.indexes i ON i.object_id = ic.object_id AND i.index_id = ic.index_id WHERE c.id = OBJECT_ID('%s') ORDER by c.colid";

	function _init(ADODB_pdo $parentDriver)

	{

		$parentDriver->hasTransactions = true;

		$parentDriver->_bindInputArray = true;

		$parentDriver->hasInsertID = true;

		$parentDriver->fmtTimeStamp = "'Y-m-d H:i:s'";

		$parentDriver->fmtDate = "'Y-m-d'";

	}

	function BeginTrans()

	{

		$returnval = parent::BeginTrans();

		return $returnval;

	}

	function MetaColumns($table, $normalize=true)

	{

		$this->_findschema($table,$schema);

		if ($schema) {

			$dbName = $this->database;

			$this->SelectDB($schema);

		}

		global $ADODB_FETCH_MODE;

		$save = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		if ($this->fetchMode !== false) $savem = $this->SetFetchMode(false);

		$rs = $this->Execute(sprintf($this->metaColumnsSQL,$table));

		if ($schema) {

			$this->SelectDB($dbName);

		}

		if (isset($savem)) $this->SetFetchMode($savem);

		$ADODB_FETCH_MODE = $save;

		if (!is_object($rs)) {

			$false = false;

			return $false;

		}

		$retarr = array();

		while (!$rs->EOF) {

			$fld = new ADOFieldObject();

			$fld->name = $rs->fields[0];

			$fld->type = $rs->fields[1];

			$fld->primary_key = $rs->fields[7];

			$fld->not_null = (!$rs->fields[3]);

			$fld->auto_increment = ($rs->fields[4] == 128);		// sys.syscolumns status field. 0x80 = 128 ref: http://msdn.microsoft.com/en-us/library/ms186816.aspx

			if (isset($rs->fields[5]) && $rs->fields[5]) {

				if ($rs->fields[5]>0) $fld->max_length = $rs->fields[5];

				$fld->scale = $rs->fields[6];

				if ($fld->scale>0) $fld->max_length += 1;

			} else

				$fld->max_length = $rs->fields[2];

			if ($save == ADODB_FETCH_NUM) {

				$retarr[] = $fld;

			} else {

				$retarr[strtoupper($fld->name)] = $fld;

			}

			$rs->MoveNext();

		}

		$rs->Close();

		return $retarr;

	}

	function MetaTables($ttype=false,$showSchema=false,$mask=false)

	{

		if ($mask) {

			$save = $this->metaTablesSQL;

			$mask = $this->qstr(($mask));

			$this->metaTablesSQL .= " AND name like $mask";

		}

		$ret = ADOConnection::MetaTables($ttype,$showSchema);

		if ($mask) {

			$this->metaTablesSQL = $save;

		}

		return $ret;

	}

	function SelectLimit($sql,$nrows=-1,$offset=-1, $inputarr=false,$secs2cache=0)

	{

		if ($nrows > 0 && $offset <= 0) {

			$sql = preg_replace(

				'/(^\s*select\s+(distinctrow|distinct)?)/i','\\1 '.$this->hasTop." $nrows ",$sql);

			if ($secs2cache)

				$rs = $this->CacheExecute($secs2cache, $sql, $inputarr);

			else

				$rs = $this->Execute($sql,$inputarr);

		} else

			$rs = ADOConnection::SelectLimit($sql,$nrows,$offset,$inputarr,$secs2cache);

		return $rs;

	}

	function _query($sql,$inputarr=false)

	{

		$this->_connectionID->setAttribute(\PDO::ATTR_EMULATE_PREPARES , true);

		if (is_array($sql)) {

			$stmt = $sql[1];

		} else {

			$stmt = $this->_connectionID->prepare($sql);

		}

		if ($stmt) {

			$this->_driver->debug = $this->debug;

			if ($inputarr) {

				foreach ($inputarr as $key => $value) {

					if(gettype($key) == 'integer') {

						$key += 1;

					}

					$stmt->bindValue($key, $value, $this->GetPDODataType($value));

				}

			}

		}

		$ok = $stmt->execute();

		$this->_errormsg = false;

		$this->_errorno = false;

		if ($ok) {

			$this->_stmt = $stmt;

			return $stmt;

		}

		if ($stmt) {

			$arr = $stmt->errorinfo();

			if ((integer)$arr[1]) {

				$this->_errormsg = $arr[2];

				$this->_errorno = $arr[1];

			}

		} else {

			$this->_errormsg = false;

			$this->_errorno = false;

		}

		return false;

	}

	private function GetPDODataType($var)

	{

		if(gettype($var) == 'integer') {

			return PDO::PARAM_INT ;

		}

		return PDO::PARAM_STR;

	}

	function ServerInfo()

	{

		return ADOConnection::ServerInfo();

	}

}