updated adodb package to work with php 7.1

[openemr.git] / vendor / adodb / adodb-php / drivers / adodb-pdo_pgsql.inc.php

<?php

/*
@version   v5.20.9  21-Dec-2016
@copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved.
@copyright (c) 2014      Damien Regad, Mark Newnham and the ADOdb community
  Released under both BSD license and Lesser GPL library license.
  Whenever there is any discrepancy between the two licenses,
  the BSD license will take precedence.
  Set tabs to 8.

*/

class ADODB_pdo_pgsql extends ADODB_pdo {
        var $metaDatabasesSQL = "select datname from pg_database where datname not in ('template0','template1') order by 1";
    var $metaTablesSQL = "select tablename,'T' from pg_tables where tablename not like 'pg\_%'
        and tablename not in ('sql_features', 'sql_implementation_info', 'sql_languages',
         'sql_packages', 'sql_sizing', 'sql_sizing_profiles')
        union
        select viewname,'V' from pg_views where viewname not like 'pg\_%'";
        //"select tablename from pg_tables where tablename not like 'pg_%' order by 1";
        var $isoDates = true; // accepts dates in ISO format
        var $sysDate = "CURRENT_DATE";
        var $sysTimeStamp = "CURRENT_TIMESTAMP";
        var $blobEncodeType = 'C';
        var $metaColumnsSQL = "SELECT a.attname,t.typname,a.attlen,a.atttypmod,a.attnotnull,a.atthasdef,a.attnum
                FROM pg_class c, pg_attribute a,pg_type t
                WHERE relkind in ('r','v') AND (c.relname='%s' or c.relname = lower('%s')) and a.attname not like '....%%'
AND a.attnum > 0 AND a.atttypid = t.oid AND a.attrelid = c.oid ORDER BY a.attnum";

        // used when schema defined
        var $metaColumnsSQL1 = "SELECT a.attname, t.typname, a.attlen, a.atttypmod, a.attnotnull, a.atthasdef, a.attnum
FROM pg_class c, pg_attribute a, pg_type t, pg_namespace n
WHERE relkind in ('r','v') AND (c.relname='%s' or c.relname = lower('%s'))
 and c.relnamespace=n.oid and n.nspname='%s'
        and a.attname not like '....%%' AND a.attnum > 0
        AND a.atttypid = t.oid AND a.attrelid = c.oid ORDER BY a.attnum";

        // get primary key etc -- from Freek Dijkstra
        var $metaKeySQL = "SELECT ic.relname AS index_name, a.attname AS column_name,i.indisunique AS unique_key, i.indisprimary AS primary_key
        FROM pg_class bc, pg_class ic, pg_index i, pg_attribute a WHERE bc.oid = i.indrelid AND ic.oid = i.indexrelid AND (i.indkey[0] = a.attnum OR i.indkey[1] = a.attnum OR i.indkey[2] = a.attnum OR i.indkey[3] = a.attnum OR i.indkey[4] = a.attnum OR i.indkey[5] = a.attnum OR i.indkey[6] = a.attnum OR i.indkey[7] = a.attnum) AND a.attrelid = bc.oid AND bc.relname = '%s'";

        var $hasAffectedRows = true;
        var $hasLimit = false;  // set to true for pgsql 7 only. support pgsql/mysql SELECT * FROM TABLE LIMIT 10
        // below suggested by Freek Dijkstra
        var $true = 't';                // string that represents TRUE for a database
        var $false = 'f';               // string that represents FALSE for a database
        var $fmtDate = "'Y-m-d'";       // used by DBDate() as the default date format used by the database
        var $fmtTimeStamp = "'Y-m-d G:i:s'"; // used by DBTimeStamp as the default timestamp fmt.
        var $hasMoveFirst = true;
        var $hasGenID = true;
        var $_genIDSQL = "SELECT NEXTVAL('%s')";
        var $_genSeqSQL = "CREATE SEQUENCE %s START %s";
        var $_dropSeqSQL = "DROP SEQUENCE %s";
        var $metaDefaultsSQL = "SELECT d.adnum as num, d.adsrc as def from pg_attrdef d, pg_class c where d.adrelid=c.oid and c.relname='%s' order by d.adnum";
        var $random = 'random()';               /// random function
        var $concat_operator='||';

        function _init($parentDriver)
        {

                $parentDriver->hasTransactions = false; ## <<< BUG IN PDO pgsql driver
                $parentDriver->hasInsertID = true;
                $parentDriver->_nestedSQL = true;
        }

        function ServerInfo()
        {
                $arr['description'] = ADOConnection::GetOne("select version()");
                $arr['version'] = ADOConnection::_findvers($arr['description']);
                return $arr;
        }

        function SelectLimit($sql,$nrows=-1,$offset=-1,$inputarr=false,$secs2cache=0)
        {
                 $offsetStr = ($offset >= 0) ? " OFFSET $offset" : '';
                 $limitStr  = ($nrows >= 0)  ? " LIMIT $nrows" : '';
                 if ($secs2cache)
                        $rs = $this->CacheExecute($secs2cache,$sql."$limitStr$offsetStr",$inputarr);
                 else
                        $rs = $this->Execute($sql."$limitStr$offsetStr",$inputarr);

                return $rs;
        }

        function MetaTables($ttype=false,$showSchema=false,$mask=false)
        {
                $info = $this->ServerInfo();
                if ($info['version'] >= 7.3) {
                $this->metaTablesSQL = "select tablename,'T' from pg_tables where tablename not like 'pg\_%'
                          and schemaname  not in ( 'pg_catalog','information_schema')
        union
        select viewname,'V' from pg_views where viewname not like 'pg\_%'  and schemaname  not in ( 'pg_catalog','information_schema') ";
                }
                if ($mask) {
                        $save = $this->metaTablesSQL;
                        $mask = $this->qstr(strtolower($mask));
                        if ($info['version']>=7.3)
                                $this->metaTablesSQL = "
select tablename,'T' from pg_tables where tablename like $mask and schemaname not in ( 'pg_catalog','information_schema')
 union
select viewname,'V' from pg_views where viewname like $mask and schemaname  not in ( 'pg_catalog','information_schema')  ";
                        else
                                $this->metaTablesSQL = "
select tablename,'T' from pg_tables where tablename like $mask
 union
select viewname,'V' from pg_views where viewname like $mask";
                }
                $ret = ADOConnection::MetaTables($ttype,$showSchema);

                if ($mask) {
                        $this->metaTablesSQL = $save;
                }
                return $ret;
        }

        function MetaColumns($table,$normalize=true)
        {
        global $ADODB_FETCH_MODE;

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

                if ($normalize) $table = strtolower($table);

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

                if ($schema) $rs = $this->Execute(sprintf($this->metaColumnsSQL1,$table,$table,$schema));
                else $rs = $this->Execute(sprintf($this->metaColumnsSQL,$table,$table));
                if (isset($savem)) $this->SetFetchMode($savem);
                $ADODB_FETCH_MODE = $save;

                if ($rs === false) {
                        $false = false;
                        return $false;
                }
                if (!empty($this->metaKeySQL)) {
                        // If we want the primary keys, we have to issue a separate query
                        // Of course, a modified version of the metaColumnsSQL query using a
                        // LEFT JOIN would have been much more elegant, but postgres does
                        // not support OUTER JOINS. So here is the clumsy way.

                        $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

                        $rskey = $this->Execute(sprintf($this->metaKeySQL,($table)));
                        // fetch all result in once for performance.
                        $keys = $rskey->GetArray();
                        if (isset($savem)) $this->SetFetchMode($savem);
                        $ADODB_FETCH_MODE = $save;

                        $rskey->Close();
                        unset($rskey);
                }

                $rsdefa = array();
                if (!empty($this->metaDefaultsSQL)) {
                        $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
                        $sql = sprintf($this->metaDefaultsSQL, ($table));
                        $rsdef = $this->Execute($sql);
                        if (isset($savem)) $this->SetFetchMode($savem);
                        $ADODB_FETCH_MODE = $save;

                        if ($rsdef) {
                                while (!$rsdef->EOF) {
                                        $num = $rsdef->fields['num'];
                                        $s = $rsdef->fields['def'];
                                        if (strpos($s,'::')===false && substr($s, 0, 1) == "'") { /* quoted strings hack... for now... fixme */
                                                $s = substr($s, 1);
                                                $s = substr($s, 0, strlen($s) - 1);
                                        }

                                        $rsdefa[$num] = $s;
                                        $rsdef->MoveNext();
                                }
                        } else {
                                ADOConnection::outp( "==> SQL => " . $sql);
                        }
                        unset($rsdef);
                }

                $retarr = array();
                while (!$rs->EOF) {
                        $fld = new ADOFieldObject();
                        $fld->name = $rs->fields[0];
                        $fld->type = $rs->fields[1];
                        $fld->max_length = $rs->fields[2];
                        if ($fld->max_length <= 0) $fld->max_length = $rs->fields[3]-4;
                        if ($fld->max_length <= 0) $fld->max_length = -1;
                        if ($fld->type == 'numeric') {
                                $fld->scale = $fld->max_length & 0xFFFF;
                                $fld->max_length >>= 16;
                        }
                        // dannym
                        // 5 hasdefault; 6 num-of-column
                        $fld->has_default = ($rs->fields[5] == 't');
                        if ($fld->has_default) {
                                $fld->default_value = $rsdefa[$rs->fields[6]];
                        }

                        //Freek
                        if ($rs->fields[4] == $this->true) {
                                $fld->not_null = true;
                        }

                        // Freek
                        if (is_array($keys)) {
                                foreach($keys as $key) {
                                        if ($fld->name == $key['column_name'] AND $key['primary_key'] == $this->true)
                                                $fld->primary_key = true;
                                        if ($fld->name == $key['column_name'] AND $key['unique_key'] == $this->true)
                                                $fld->unique = true; // What name is more compatible?
                                }
                        }

                        if ($ADODB_FETCH_MODE == ADODB_FETCH_NUM) $retarr[] = $fld;
                        else $retarr[($normalize) ? strtoupper($fld->name) : $fld->name] = $fld;

                        $rs->MoveNext();
                }
                $rs->Close();
                if (empty($retarr)) {
                        $false = false;
                        return $false;
                } else return $retarr;

        }

}