class.ilDBPdoReversePostgres.php

Go to the documentation of this file.

<?php
require_once('class.ilDBPdoReverse.php');

class ilDBPdoReversePostgres extends ilDBPdoReverse
{

    // {{{ getTableFieldDefinition()

    public function getTableFieldDefinition($table, $field_name)
    {
        $db = $this->db_instance;
        $result = $this->db_instance->loadModule(ilDBConstants::MODULE_REVERSE);

        $query = "SELECT a.attname AS name,
                         t.typname AS type,
                         CASE a.attlen
                           WHEN -1 THEN
                                 CASE t.typname
                                   WHEN 'numeric' THEN (a.atttypmod / 65536)
                                   WHEN 'decimal' THEN (a.atttypmod / 65536)
                                   WHEN 'money'   THEN (a.atttypmod / 65536)
                                   ELSE CASE a.atttypmod
                                 WHEN -1 THEN NULL
                                     ELSE a.atttypmod - 4
                                   END
                             END
                               ELSE a.attlen
                         END AS length,
                             CASE t.typname
                               WHEN 'numeric' THEN (a.atttypmod % 65536) - 4
                               WHEN 'decimal' THEN (a.atttypmod % 65536) - 4
                               WHEN 'money'   THEN (a.atttypmod % 65536) - 4
                               ELSE 0
                         END AS scale,
                         a.attnotnull,
                         a.atttypmod,
                         a.atthasdef,
                         (SELECT substring(pg_get_expr(d.adbin, d.adrelid) for 128)
                            FROM pg_attrdef d
                           WHERE d.adrelid = a.attrelid
                             AND d.adnum = a.attnum
                             AND a.atthasdef
                         ) as default
                    FROM pg_attribute a,
                         pg_class c,
                         pg_type t
                   WHERE c.relname = " . $db->quote($table, 'text') . "
                     AND a.atttypid = t.oid
                     AND c.oid = a.attrelid
                     AND NOT a.attisdropped
                     AND a.attnum > 0
                     AND a.attname = " . $db->quote($field_name, 'text') . "
                ORDER BY a.attnum";
        $column = $db->queryRow($query, null, MDB2_FETCHMODE_ASSOC);

        if (empty($column)) {
            throw new ilDatabaseException('it was not specified an existing table column');
        }

        $column = array_change_key_case($column, CASE_LOWER);
        $mapped_datatype = $db->getFieldDefinition()->mapNativeDatatype($column);

        list($types, $length, $unsigned, $fixed) = $mapped_datatype;
        $notnull = false;
        if (!empty($column['attnotnull']) && $column['attnotnull'] == 't') {
            $notnull = true;
        }
        $default = null;
        if ($column['atthasdef'] === 't'
            && !preg_match("/nextval\('([^']+)'/", $column['default'])
        ) {
            $default = $column['default'];#substr($column['adsrc'], 1, -1);
            if (is_null($default) && $notnull) {
                $default = '';
            }
        }
        $autoincrement = false;
        if (preg_match("/nextval\('([^']+)'/", $column['default'], $nextvals)) {
            $autoincrement = true;
        }
        $definition[0] = array( 'notnull' => $notnull, 'nativetype' => $column['type'] );
        if (!is_null($length)) {
            $definition[0]['length'] = $length;
        }
        if (!is_null($unsigned)) {
            $definition[0]['unsigned'] = $unsigned;
        }
        if (!is_null($fixed)) {
            $definition[0]['fixed'] = $fixed;
        }
        if ($default !== false) {
            $definition[0]['default'] = $default;
        }
        if ($autoincrement !== false) {
            $definition[0]['autoincrement'] = $autoincrement;
        }
        foreach ($types as $key => $type) {
            $definition[$key] = $definition[0];
            if ($type == 'clob' || $type == 'blob') {
                unset($definition[$key]['default']);
            }
            $definition[$key]['type'] = $type;
            $definition[$key]['mdb2type'] = $type;
        }

        return $definition;
    }


    public function getTableIndexDefinition($table, $index_name)
    {
        $db = $this->db_instance;
        $manager = $db->loadModule(ilDBConstants::MODULE_MANAGER);
        $query = 'SELECT relname, indkey FROM pg_index, pg_class';
        $query .= ' WHERE pg_class.oid = pg_index.indexrelid';
        $query .= " AND indisunique != 't' AND indisprimary != 't'";
        $query .= ' AND pg_class.relname = %s';
        $index_name_mdb2 = $db->getIndexName($index_name);
        $failed = false;
        try {
            $row = $db->queryRow(sprintf($query, $db->quote($index_name_mdb2, 'text')), null, ilDBConstants::FETCHMODE_DEFAULT);
        } catch (Exception $e) {
            $failed = true;
        }
        if ($failed || empty($row)) {
            $row = $db->queryRow(sprintf($query, $db->quote($index_name, 'text')), null, ilDBConstants::FETCHMODE_DEFAULT);
        }

        if (empty($row)) {
            throw new ilDatabaseException('it was not specified an existing table index');
        }

        $row = array_change_key_case($row, CASE_LOWER);

        $columns = $manager->listTableFields($table);

        $definition = array();

        $index_column_numbers = explode(' ', $row['indkey']);

        $colpos = 1;
        foreach ($index_column_numbers as $number) {
            $definition['fields'][$columns[($number - 1)]] = array(
                'position' => $colpos++,
                'sorting'  => 'ascending',
            );
        }

        return $definition;
    }

    // }}}
    // {{{ getTableConstraintDefinition()
    public function getTableConstraintDefinition($table, $constraint_name)
    {
        $db = $this->db_instance;

        $query = 'SELECT relname, indisunique, indisprimary, indkey FROM pg_index, pg_class';
        $query .= ' WHERE pg_class.oid = pg_index.indexrelid';
        $query .= " AND (indisunique = 't' OR indisprimary = 't')";
        $query .= ' AND pg_class.relname = %s';
        $constraint_name_mdb2 = $db->getIndexName($constraint_name);
        try {
            $row = $db->queryRow(sprintf($query, $db->quote($constraint_name_mdb2, 'text')), null, ilDBConstants::FETCHMODE_ASSOC);
        } catch (Exception $e) {
        }

        if ($e instanceof PDOException || empty($row)) {
            // fallback to the given $index_name, without transformation
            $row = $db->queryRow(sprintf($query, $db->quote($constraint_name, 'text')), null, ilDBConstants::FETCHMODE_ASSOC);
        }

        if (empty($row)) {
            throw new ilDatabaseException($constraint_name . ' is not an existing table constraint');
        }

        $row = array_change_key_case($row, CASE_LOWER);
        $columns = $db->loadModule(ilDBConstants::MODULE_MANAGER)->listTableFields($table);

        $definition = array();
        if ($row['indisprimary'] == 't') {
            $definition['primary'] = true;
        } elseif ($row['indisunique'] == 't') {
            $definition['unique'] = true;
        }

        $index_column_numbers = explode(' ', $row['indkey']);

        $colpos = 1;
        foreach ($index_column_numbers as $number) {
            $definition['fields'][$columns[($number - 1)]] = array(
                'position' => $colpos++,
                'sorting'  => 'ascending',
            );
        }

        return $definition;
    }

    // }}}
    // {{{ getTriggerDefinition()

    public function getTriggerDefinition($trigger)
    {
        $db = $this->db_instance;

        $query = "SELECT trg.tgname AS trigger_name,
                         tbl.relname AS table_name,
                         CASE
                            WHEN p.proname IS NOT NULL THEN 'EXECUTE PROCEDURE ' || p.proname || '();'
                            ELSE ''
                         END AS trigger_body,
                         CASE trg.tgtype & cast(2 as int2)
                            WHEN 0 THEN 'AFTER'
                            ELSE 'BEFORE'
                         END AS trigger_type,
                         CASE trg.tgtype & cast(28 as int2)
                            WHEN 16 THEN 'UPDATE'
                            WHEN 8 THEN 'DELETE'
                            WHEN 4 THEN 'INSERT'
                            WHEN 20 THEN 'INSERT, UPDATE'
                            WHEN 28 THEN 'INSERT, UPDATE, DELETE'
                            WHEN 24 THEN 'UPDATE, DELETE'
                            WHEN 12 THEN 'INSERT, DELETE'
                         END AS trigger_event,
                         trg.tgenabled AS trigger_enabled,
                         obj_description(trg.oid, 'pg_trigger') AS trigger_comment
                    FROM pg_trigger trg,
                         pg_class tbl,
                         pg_proc p
                   WHERE trg.tgrelid = tbl.oid
                     AND trg.tgfoid = p.oid
                     AND trg.tgname = " . $db->quote($trigger, 'text');
        $types = array(
            'trigger_name'    => 'text',
            'table_name'      => 'text',
            'trigger_body'    => 'text',
            'trigger_type'    => 'text',
            'trigger_event'   => 'text',
            'trigger_comment' => 'text',
            'trigger_enabled' => 'boolean',
        );

        return $db->queryRow($query, $types, MDB2_FETCHMODE_ASSOC);
    }

    // }}}
    // {{{ tableInfo()

    public function tableInfo($result, $mode = null)
    {
        if (is_string($result)) {
            return parent::tableInfo($result, $mode);
        }

        $db = $this->db_instance;

        $resource = MDB2::isResultCommon($result) ? $result->getResource() : $result;
        if (!is_resource($resource)) {
            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null, 'Could not generate result resource', __FUNCTION__);
        }

        if ($db->options['portability']) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $case_func = 'strtolower';
            } else {
                $case_func = 'strtoupper';
            }
        } else {
            $case_func = 'strval';
        }

        $count = @pg_num_fields($resource);
        $res = array();

        if ($mode) {
            $res['num_fields'] = $count;
        }

        $db->loadModule('Datatype', null, true);
        for ($i = 0; $i < $count; $i++) {
            $res[$i] = array(
                'table'  => function_exists('pg_field_table') ? @pg_field_table($resource, $i) : '',
                'name'   => $case_func(@pg_field_name($resource, $i)),
                'type'   => @pg_field_type($resource, $i),
                'length' => @pg_field_size($resource, $i),
                'flags'  => '',
            );
            $mdb2type_info = $db->datatype->mapNativeDatatype($res[$i]);
            if (PEAR::isError($mdb2type_info)) {
                return $mdb2type_info;
            }
            $res[$i]['mdb2type'] = $mdb2type_info[0][0];
            if ($mode & MDB2_TABLEINFO_ORDER) {
                $res['order'][$res[$i]['name']] = $i;
            }
            if ($mode & MDB2_TABLEINFO_ORDERTABLE) {
                $res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
            }
        }

        return $res;
    }
}