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();
        }
}