Skip to content
Browse files

Tagging the 1.5.0b4 release

  • Loading branch information...
0 parents commit 26a78cd08592dc7dea0b69d39685cebe3f716d1e @CloCkWeRX CloCkWeRX committed
459 MDB2/Driver/Datatype/sqlsrv.php
@@ -0,0 +1,459 @@
+<?php
+// vim: set et ts=4 sw=4 fdm=marker:
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox, |
+// | Stig. S. Bakken, Lukas Smith |
+// | All rights reserved. |
+// +----------------------------------------------------------------------+
+// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
+// | API as well as database abstraction for PHP applications. |
+// | This LICENSE is in the BSD license style. |
+// | |
+// | Redistribution and use in source and binary forms, with or without |
+// | modification, are permitted provided that the following conditions |
+// | are met: |
+// | |
+// | Redistributions of source code must retain the above copyright |
+// | notice, this list of conditions and the following disclaimer. |
+// | |
+// | Redistributions in binary form must reproduce the above copyright |
+// | notice, this list of conditions and the following disclaimer in the |
+// | documentation and/or other materials provided with the distribution. |
+// | |
+// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
+// | Lukas Smith nor the names of his contributors may be used to endorse |
+// | or promote products derived from this software without specific prior|
+// | written permission. |
+// | |
+// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
+// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
+// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
+// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
+// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
+// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
+// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
+// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
+// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
+// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
+// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
+// | POSSIBILITY OF SUCH DAMAGE. |
+// +----------------------------------------------------------------------+
+// | Authors: Lukas Smith <smith@pooteeweet.org> |
+// | Daniel Convissor <danielc@php.net> |
+// +----------------------------------------------------------------------+
+
+require_once 'MDB2/Driver/Datatype/Common.php';
+
+/**
+ * MDB2 MS SQL driver
+ *
+ * @package MDB2
+ * @category Database
+ */
+class MDB2_Driver_Datatype_sqlsrv extends MDB2_Driver_Datatype_Common
+{
+ // {{{ _baseConvertResult()
+
+ /**
+ * general type conversion method
+ *
+ * @param mixed $value refernce to a value to be converted
+ * @param string $type specifies which type to convert to
+ * @param boolean $rtrim [optional] when TRUE [default], apply rtrim() to text
+ * @return object a MDB2 error on failure
+ * @access protected
+ */
+ function _baseConvertResult($value, $type, $rtrim = true)
+ {
+ if (null === $value) {
+ return null;
+ }
+ switch ($type) {
+ case 'boolean':
+ return $value == '1';
+ case 'date':
+ if (strlen($value) > 10) {
+ $value = substr($value,0,10);
+ }
+ return $value;
+ case 'time':
+ if (strlen($value) > 8) {
+ $value = substr($value,11,8);
+ }
+ return $value;
+ }
+ return parent::_baseConvertResult($value, $type, $rtrim);
+ }
+
+ // }}}
+ // {{{ _getCollationFieldDeclaration()
+
+ /**
+ * Obtain DBMS specific SQL code portion needed to set the COLLATION
+ * of a field declaration to be used in statements like CREATE TABLE.
+ *
+ * @param string $collation name of the collation
+ *
+ * @return string DBMS specific SQL code portion needed to set the COLLATION
+ * of a field declaration.
+ */
+ function _getCollationFieldDeclaration($collation)
+ {
+ return 'COLLATE '.$collation;
+ }
+
+ // }}}
+ // {{{ getTypeDeclaration()
+
+ /**
+ * Obtain DBMS specific SQL code portion needed to declare an text type
+ * field to be used in statements like CREATE TABLE.
+ *
+ * @param array $field associative array with the name of the properties
+ * of the field being declared as array indexes. Currently, the types
+ * of supported field properties are as follows:
+ *
+ * length
+ * Integer value that determines the maximum length of the text
+ * field. If this argument is missing the field should be
+ * declared to have the longest length allowed by the DBMS.
+ *
+ * default
+ * Text value to be used as default for this field.
+ *
+ * notnull
+ * Boolean flag that indicates whether this field is constrained
+ * to not be set to null.
+ * @return string DBMS specific SQL code portion that should be used to
+ * declare the specified field.
+ * @access public
+ */
+ function getTypeDeclaration($field)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ switch ($field['type']) {
+ case 'text':
+ $length = !empty($field['length'])
+ ? $field['length'] : false;
+ $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
+ return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')
+ : ($length ? 'VARCHAR('.$length.')' : 'VARCHAR(MAX)');
+ case 'clob':
+ if (!empty($field['length'])) {
+ $length = $field['length'];
+ if ($length <= 8000) {
+ return 'VARCHAR('.$length.')';
+ }
+ }
+ return 'VARCHAR(MAX)';
+ case 'blob':
+ if (!empty($field['length'])) {
+ $length = $field['length'];
+ if ($length <= 8000) {
+ return "VARBINARY($length)";
+ }
+ }
+ return 'IMAGE';
+ case 'integer':
+ return 'INT';
+ case 'boolean':
+ return 'BIT';
+ case 'date':
+ return 'CHAR ('.strlen('YYYY-MM-DD').')';
+ case 'time':
+ return 'CHAR ('.strlen('HH:MM:SS').')';
+ case 'timestamp':
+ return 'CHAR ('.strlen('YYYY-MM-DD HH:MM:SS').')';
+ case 'float':
+ return 'FLOAT';
+ case 'decimal':
+ $length = !empty($field['length']) ? $field['length'] : 18;
+ $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
+ return 'DECIMAL('.$length.','.$scale.')';
+ }
+ return '';
+ }
+
+ // }}}
+ // {{{ _getIntegerDeclaration()
+
+ /**
+ * Obtain DBMS specific SQL code portion needed to declare an integer type
+ * field to be used in statements like CREATE TABLE.
+ *
+ * @param string $name name the field to be declared.
+ * @param string $field associative array with the name of the properties
+ * of the field being declared as array indexes.
+ * Currently, the types of supported field
+ * properties are as follows:
+ *
+ * unsigned
+ * Boolean flag that indicates whether the field
+ * should be declared as unsigned integer if
+ * possible.
+ *
+ * default
+ * Integer value to be used as default for this
+ * field.
+ *
+ * notnull
+ * Boolean flag that indicates whether this field is
+ * constrained to not be set to null.
+ * @return string DBMS specific SQL code portion that should be used to
+ * declare the specified field.
+ * @access protected
+ */
+ function _getIntegerDeclaration($name, $field)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
+ $default = $autoinc = '';
+ if (!empty($field['autoincrement'])) {
+ $autoinc = ' IDENTITY PRIMARY KEY';
+ } elseif (array_key_exists('default', $field)) {
+ if ($field['default'] === '') {
+ $field['default'] = 0;
+ }
+ if (null === $field['default']) {
+ $default = ' DEFAULT (NULL)';
+ } else {
+ $default = ' DEFAULT (' . $this->quote($field['default'], 'integer') . ')';
+ }
+ }
+
+ if (!empty($field['unsigned'])) {
+ $db->warnings[] = "unsigned integer field \"$name\" is being declared as signed integer";
+ }
+
+ $name = $db->quoteIdentifier($name, true);
+ return $name.' '.$this->getTypeDeclaration($field).$notnull.$default.$autoinc;
+ }
+
+ // }}}
+ // {{{ _getCLOBDeclaration()
+
+ /**
+ * Obtain DBMS specific SQL code portion needed to declare an character
+ * large object type field to be used in statements like CREATE TABLE.
+ *
+ * @param string $name name the field to be declared.
+ * @param array $field associative array with the name of the properties
+ * of the field being declared as array indexes. Currently, the types
+ * of supported field properties are as follows:
+ *
+ * length
+ * Integer value that determines the maximum length of the large
+ * object field. If this argument is missing the field should be
+ * declared to have the longest length allowed by the DBMS.
+ *
+ * notnull
+ * Boolean flag that indicates whether this field is constrained
+ * to not be set to null.
+ * @return string DBMS specific SQL code portion that should be used to
+ * declare the specified field.
+ * @access public
+ */
+ function _getCLOBDeclaration($name, $field)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
+ $name = $db->quoteIdentifier($name, true);
+ return $name.' '.$this->getTypeDeclaration($field).$notnull;
+ }
+
+ // }}}
+ // {{{ _getBLOBDeclaration()
+
+ /**
+ * Obtain DBMS specific SQL code portion needed to declare an binary large
+ * object type field to be used in statements like CREATE TABLE.
+ *
+ * @param string $name name the field to be declared.
+ * @param array $field associative array with the name of the properties
+ * of the field being declared as array indexes. Currently, the types
+ * of supported field properties are as follows:
+ *
+ * length
+ * Integer value that determines the maximum length of the large
+ * object field. If this argument is missing the field should be
+ * declared to have the longest length allowed by the DBMS.
+ *
+ * notnull
+ * Boolean flag that indicates whether this field is constrained
+ * to not be set to null.
+ * @return string DBMS specific SQL code portion that should be used to
+ * declare the specified field.
+ * @access protected
+ */
+ function _getBLOBDeclaration($name, $field)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
+ $name = $db->quoteIdentifier($name, true);
+ return $name.' '.$this->getTypeDeclaration($field).$notnull;
+ }
+
+ // }}}
+ // {{{ _quoteBLOB()
+
+ /**
+ * Convert a text value into a DBMS specific format that is suitable to
+ * compose query statements.
+ *
+ * @param string $value text string value that is intended to be converted.
+ * @param bool $quote determines if the value should be quoted and escaped
+ * @param bool $escape_wildcards if to escape escape wildcards
+ * @return string text string that represents the given argument value in
+ * a DBMS specific format.
+ * @access protected
+ */
+ function _quoteBLOB($value, $quote, $escape_wildcards)
+ {
+ if (!$quote) {
+ return $value;
+ }
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ if ($db->options['lob_allow_url_include']) {
+ $value = '0x'.bin2hex($this->_readFile($value));
+ }
+ return "'".$value."'";
+ }
+
+ // }}}
+ // {{{ _mapNativeDatatype()
+
+ /**
+ * Maps a native array description of a field to a MDB2 datatype and length
+ *
+ * @param array $field native field description
+ * @return array containing the various possible types, length, sign, fixed
+ * @access public
+ */
+ function _mapNativeDatatype($field)
+ {
+ // todo: handle length of various int variations
+ $db_type = $field['type'];
+ $length = $field['length'];
+ $type = array();
+ // todo: unsigned handling seems to be missing
+ $unsigned = $fixed = null;
+ switch ($db_type) {
+ case 'bit':
+ case SQLSRV_SQLTYPE_BIT:
+ $type[0] = 'boolean';
+ break;
+ case 'tinyint':
+ case SQLSRV_SQLTYPE_TINYINT:
+ $type[0] = 'integer';
+ $length = 1;
+ break;
+ case 'smallint':
+ case SQLSRV_SQLTYPE_SMALLINT:
+ $type[0] = 'integer';
+ $length = 2;
+ break;
+ case 'int':
+ case SQLSRV_SQLTYPE_INT:
+ $type[0] = 'integer';
+ $length = 4;
+ break;
+ case 'bigint':
+ case SQLSRV_SQLTYPE_BIGINT:
+ $type[0] = 'integer';
+ $length = 8;
+ break;
+ case 'datetime':
+ case SQLSRV_SQLTYPE_DATETIME:
+ $type[0] = 'timestamp';
+ break;
+ case 'float':
+ case SQLSRV_SQLTYPE_FLOAT:
+ case 'real':
+ case SQLSRV_SQLTYPE_REAL:
+ $type[0] = 'float';
+ break;
+ case 'numeric':
+ case SQLSRV_SQLTYPE_NUMERIC:
+ case 'decimal':
+ case SQLSRV_SQLTYPE_DECIMAL:
+ case 'money':
+ case SQLSRV_SQLTYPE_MONEY:
+ $type[0] = 'decimal';
+ $length = $field['numeric_precision'].','.$field['numeric_scale'];
+ break;
+ case 'text':
+ case SQLSRV_SQLTYPE_TEXT:
+ case 'ntext':
+ case SQLSRV_SQLTYPE_NTEXT:
+ case 'varchar':
+ case SQLSRV_SQLTYPE_VARCHAR:
+ case 'nvarchar':
+ case SQLSRV_SQLTYPE_NVARCHAR:
+ $fixed = false;
+ case 'char':
+ case SQLSRV_SQLTYPE_CHAR:
+ case 'nchar':
+ case SQLSRV_SQLTYPE_NCHAR:
+ $type[0] = 'text';
+ if ($length == '1') {
+ $type[] = 'boolean';
+ if (preg_match('/^(is|has)/', $field['name'])) {
+ $type = array_reverse($type);
+ }
+ } elseif (strstr($db_type, 'text') || strstr($db_type, SQLSRV_SQLTYPE_TEXT)) {
+ $type[] = 'clob';
+ $type = array_reverse($type);
+ }
+ if ($fixed !== false) {
+ $fixed = true;
+ }
+ break;
+ case 'image':
+ case SQLSRV_SQLTYPE_IMAGE:
+ case 'varbinary':
+ case SQLSRV_SQLTYPE_VARBINARY:
+ case 'timestamp':
+ case SQLSRV_SQLTYPE_TIMESTAMP:
+ $type[] = 'blob';
+ $length = null;
+ break;
+ default:
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
+ 'unknown database attribute type: '.$db_type, __FUNCTION__);
+ }
+
+ if ((int)$length <= 0) {
+ $length = null;
+ }
+
+ return array($type, $length, $unsigned, $fixed);
+ }
+ // }}}
+}
+
+?>
189 MDB2/Driver/Function/sqlsrv.php
@@ -0,0 +1,189 @@
+<?php
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox, |
+// | Stig. S. Bakken, Lukas Smith |
+// | All rights reserved. |
+// +----------------------------------------------------------------------+
+// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
+// | API as well as database abstraction for PHP applications. |
+// | This LICENSE is in the BSD license style. |
+// | |
+// | Redistribution and use in source and binary forms, with or without |
+// | modification, are permitted provided that the following conditions |
+// | are met: |
+// | |
+// | Redistributions of source code must retain the above copyright |
+// | notice, this list of conditions and the following disclaimer. |
+// | |
+// | Redistributions in binary form must reproduce the above copyright |
+// | notice, this list of conditions and the following disclaimer in the |
+// | documentation and/or other materials provided with the distribution. |
+// | |
+// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
+// | Lukas Smith nor the names of his contributors may be used to endorse |
+// | or promote products derived from this software without specific prior|
+// | written permission. |
+// | |
+// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
+// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
+// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
+// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
+// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
+// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
+// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
+// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
+// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
+// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
+// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
+// | POSSIBILITY OF SUCH DAMAGE. |
+// +----------------------------------------------------------------------+
+// | Author: Frank M. Kromann <frank@kromann.info> |
+// +----------------------------------------------------------------------+
+
+require_once 'MDB2/Driver/Function/Common.php';
+
+// {{{ class MDB2_Driver_Function_sqlsrv
+/**
+ * MDB2 MSSQL driver for the function modules
+ *
+ * @package MDB2
+ * @category Database
+ */
+class MDB2_Driver_Function_sqlsrv extends MDB2_Driver_Function_Common
+{
+ // {{{ executeStoredProc()
+
+ /**
+ * Execute a stored procedure and return any results
+ *
+ * @param string $name string that identifies the function to execute
+ * @param mixed $params array that contains the paramaters to pass the stored proc
+ * @param mixed $types array that contains the types of the columns in
+ * the result set
+ * @param mixed $result_class string which specifies which result class to use
+ * @param mixed $result_wrap_class string which specifies which class to wrap results in
+ * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = 'EXECUTE '.$name;
+ $query .= $params ? ' '.implode(', ', $params) : '';
+ return $db->query($query, $types, $result_class, $result_wrap_class);
+ }
+
+ // }}}
+ // {{{ now()
+
+ /**
+ * Return string to call a variable with the current timestamp inside an SQL statement
+ * There are three special variables for current date and time:
+ * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)
+ * - CURRENT_DATE (date, DATE type)
+ * - CURRENT_TIME (time, TIME type)
+ *
+ * @return string to call a variable with the current timestamp
+ * @access public
+ */
+ function now($type = 'timestamp')
+ {
+ switch ($type) {
+ case 'time':
+ case 'date':
+ case 'timestamp':
+ default:
+ return 'GETDATE()';
+ }
+ }
+
+ // }}}
+ // {{{ unixtimestamp()
+
+ /**
+ * return string to call a function to get the unix timestamp from a iso timestamp
+ *
+ * @param string $expression
+ *
+ * @return string to call a variable with the timestamp
+ * @access public
+ */
+ function unixtimestamp($expression)
+ {
+ return 'DATEDIFF(second, \'19700101\', '. $expression.') + DATEDIFF(second, GETDATE(), GETUTCDATE())';
+ }
+
+ // }}}
+ // {{{ substring()
+
+ /**
+ * return string to call a function to get a substring inside an SQL statement
+ *
+ * @return string to call a function to get a substring
+ * @access public
+ */
+ function substring($value, $position = 1, $length = null)
+ {
+ if (null !== $length) {
+ return "SUBSTRING($value, $position, $length)";
+ }
+ return "SUBSTRING($value, $position, LEN($value) - $position + 1)";
+ }
+
+ // }}}
+ // {{{ concat()
+
+ /**
+ * Returns string to concatenate two or more string parameters
+ *
+ * @param string $value1
+ * @param string $value2
+ * @param string $values...
+ * @return string to concatenate two strings
+ * @access public
+ **/
+ function concat($value1, $value2)
+ {
+ $args = func_get_args();
+ return "(".implode(' + ', $args).")";
+ }
+
+ // }}}
+ // {{{ length()
+
+ /**
+ * return string to call a function to get the length of a string expression
+ *
+ * @param string $expression
+ * @return return string to get the string expression length
+ * @access public
+ */
+ function length($expression)
+ {
+ return "LEN($expression)";
+ }
+
+ // }}}
+ // {{{ guid()
+
+ /**
+ * Returns global unique identifier
+ *
+ * @return string to get global unique identifier
+ * @access public
+ */
+ function guid()
+ {
+ return 'NEWID()';
+ }
+
+ // }}}
+}
+// }}}
+?>
1,416 MDB2/Driver/Manager/sqlsrv.php
@@ -0,0 +1,1416 @@
+<?php
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox, |
+// | Stig. S. Bakken, Lukas Smith |
+// | All rights reserved. |
+// +----------------------------------------------------------------------+
+// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
+// | API as well as database abstraction for PHP applications. |
+// | This LICENSE is in the BSD license style. |
+// | |
+// | Redistribution and use in source and binary forms, with or without |
+// | modification, are permitted provided that the following conditions |
+// | are met: |
+// | |
+// | Redistributions of source code must retain the above copyright |
+// | notice, this list of conditions and the following disclaimer. |
+// | |
+// | Redistributions in binary form must reproduce the above copyright |
+// | notice, this list of conditions and the following disclaimer in the |
+// | documentation and/or other materials provided with the distribution. |
+// | |
+// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
+// | Lukas Smith nor the names of his contributors may be used to endorse |
+// | or promote products derived from this software without specific prior|
+// | written permission. |
+// | |
+// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
+// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
+// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
+// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
+// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
+// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
+// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
+// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
+// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
+// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
+// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
+// | POSSIBILITY OF SUCH DAMAGE. |
+// +----------------------------------------------------------------------+
+// | Authors: Frank M. Kromann <frank@kromann.info> |
+// | David Coallier <davidc@php.net> |
+// | Lorenzo Alberton <l.alberton@quipo.it> |
+// +----------------------------------------------------------------------+
+
+require_once 'MDB2/Driver/Manager/Common.php';
+
+// {{{ class MDB2_Driver_Manager_sqlsrv
+
+/**
+ * MDB2 MSSQL driver for the management modules
+ *
+ * @package MDB2
+ * @category Database
+ * @author Frank M. Kromann <frank@kromann.info>
+ * @author David Coallier <davidc@php.net>
+ * @author Lorenzo Alberton <l.alberton@quipo.it>
+ */
+class MDB2_Driver_Manager_sqlsrv extends MDB2_Driver_Manager_Common
+{
+ // {{{ createDatabase()
+ /**
+ * create a new database
+ *
+ * @param string $name name of the database that should be created
+ * @param array $options array with collation info
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function createDatabase($name, $options = array())
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $name = $db->quoteIdentifier($name, true);
+ $query = "CREATE DATABASE $name";
+ if ($db->options['database_device']) {
+ $query.= ' ON '.$db->options['database_device'];
+ $query.= $db->options['database_size'] ? '=' .
+ $db->options['database_size'] : '';
+ }
+ if (!empty($options['collation'])) {
+ $query .= ' COLLATE ' . $options['collation'];
+ }
+ return $db->standaloneQuery($query, null, true);
+ }
+
+ // }}}
+ // {{{ alterDatabase()
+
+ /**
+ * alter an existing database
+ *
+ * @param string $name name of the database that is intended to be changed
+ * @param array $options array with name, collation info
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function alterDatabase($name, $options = array())
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = '';
+ if (!empty($options['name'])) {
+ $query .= ' MODIFY NAME = ' .$db->quoteIdentifier($options['name'], true);
+ }
+ if (!empty($options['collation'])) {
+ $query .= ' COLLATE ' . $options['collation'];
+ }
+ if (!empty($query)) {
+ $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true) . $query;
+ return $db->standaloneQuery($query, null, true);
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ dropDatabase()
+
+ /**
+ * drop an existing database
+ *
+ * @param string $name name of the database that should be dropped
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function dropDatabase($name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $name = $db->quoteIdentifier($name, true);
+ return $db->standaloneQuery("DROP DATABASE $name", null, true);
+ }
+
+ // }}}
+ // {{{ dropTable()
+
+ /**
+ * drop an existing table
+ *
+ * @param string $name name of the table that should be dropped
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function dropTable($name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $name = $db->quoteIdentifier($name, true);
+ $result = $db->exec("IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME='$name') DROP TABLE $name");
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ _getTemporaryTableQuery()
+
+ /**
+ * Override the parent method.
+ *
+ * @return string The string required to be placed between "CREATE" and "TABLE"
+ * to generate a temporary table, if possible.
+ */
+ function _getTemporaryTableQuery()
+ {
+ return '';
+ }
+
+ // }}}
+ // {{{ _getAdvancedFKOptions()
+
+ /**
+ * Return the FOREIGN KEY query section dealing with non-standard options
+ * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
+ *
+ * @param array $definition
+ *
+ * @return string
+ * @access protected
+ */
+ function _getAdvancedFKOptions($definition)
+ {
+ $query = '';
+ if (!empty($definition['onupdate'])) {
+ $query .= ' ON UPDATE '.$definition['onupdate'];
+ }
+ if (!empty($definition['ondelete'])) {
+ $query .= ' ON DELETE '.$definition['ondelete'];
+ }
+ return $query;
+ }
+
+ // }}}
+ // {{{ createTable()
+
+ /**
+ * create a new table
+ *
+ * @param string $name Name of the database that should be created
+ * @param array $fields Associative array that contains the definition of each field of the new table
+ * The indexes of the array entries are the names of the fields of the table an
+ * the array entry values are associative arrays like those that are meant to be
+ * passed with the field definitions to get[Type]Declaration() functions.
+ *
+ * Example
+ * array(
+ *
+ * 'id' => array(
+ * 'type' => 'integer',
+ * 'unsigned' => 1,
+ * 'notnull' => 1,
+ * 'default' => 0,
+ * ),
+ * 'name' => array(
+ * 'type' => 'text',
+ * 'length' => 12,
+ * ),
+ * 'description' => array(
+ * 'type' => 'text',
+ * 'length' => 12,
+ * )
+ * );
+ * @param array $options An associative array of table options:
+ * array(
+ * 'comment' => 'Foo',
+ * 'temporary' => true|false,
+ * );
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function createTable($name, $fields, $options = array())
+ {
+ /*if (!empty($options['temporary'])) {
+ $name = '#'.$name;//would make subsequent calls fail because it would go out ot scope and be destroyed already
+ }*/
+ return parent::createTable($name, $fields, $options);
+ }
+
+ // }}}
+ // {{{ truncateTable()
+
+ /**
+ * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,
+ * it falls back to a DELETE FROM TABLE query)
+ *
+ * @param string $name name of the table that should be truncated
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function truncateTable($name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $name = $db->quoteIdentifier($name, true);
+ $result = $db->exec("TRUNCATE TABLE $name");
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ vacuum()
+
+ /**
+ * Optimize (vacuum) all the tables in the db (or only the specified table)
+ * and optionally run ANALYZE.
+ *
+ * @param string $table table name (all the tables if empty)
+ * @param array $options an array with driver-specific options:
+ * - timeout [int] (in seconds) [mssql-only]
+ * - analyze [boolean] [pgsql and mysql]
+ * - full [boolean] [pgsql-only]
+ * - freeze [boolean] [pgsql-only]
+ *
+ * NB: you have to run the NSControl Create utility to enable VACUUM
+ *
+ * @return mixed MDB2_OK success, a MDB2 error on failure
+ * @access public
+ */
+ function vacuum($table = null, $options = array())
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $timeout = isset($options['timeout']) ? (int)$options['timeout'] : 300;
+
+ $query = 'NSControl Create';
+ $result = $db->exec($query);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+
+ $result = $db->exec('EXEC NSVacuum '.$timeout);
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ alterTable()
+
+ /**
+ * alter an existing table
+ *
+ * @param string $name name of the table that is intended to be changed.
+ * @param array $changes associative array that contains the details of each type
+ * of change that is intended to be performed. The types of
+ * changes that are currently supported are defined as follows:
+ *
+ * name
+ *
+ * New name for the table.
+ *
+ * add
+ *
+ * Associative array with the names of fields to be added as
+ * indexes of the array. The value of each entry of the array
+ * should be set to another associative array with the properties
+ * of the fields to be added. The properties of the fields should
+ * be the same as defined by the MDB2 parser.
+ *
+ *
+ * remove
+ *
+ * Associative array with the names of fields to be removed as indexes
+ * of the array. Currently the values assigned to each entry are ignored.
+ * An empty array should be used for future compatibility.
+ *
+ * rename
+ *
+ * Associative array with the names of fields to be renamed as indexes
+ * of the array. The value of each entry of the array should be set to
+ * another associative array with the entry named name with the new
+ * field name and the entry named Declaration that is expected to contain
+ * the portion of the field declaration already in DBMS specific SQL code
+ * as it is used in the CREATE TABLE statement.
+ *
+ * change
+ *
+ * Associative array with the names of the fields to be changed as indexes
+ * of the array. Keep in mind that if it is intended to change either the
+ * name of a field and any other properties, the change array entries
+ * should have the new names of the fields as array indexes.
+ *
+ * The value of each entry of the array should be set to another associative
+ * array with the properties of the fields to that are meant to be changed as
+ * array entries. These entries should be assigned to the new values of the
+ * respective properties. The properties of the fields should be the same
+ * as defined by the MDB2 parser.
+ *
+ * Example
+ * array(
+ * 'name' => 'userlist',
+ * 'add' => array(
+ * 'quota' => array(
+ * 'type' => 'integer',
+ * 'unsigned' => 1
+ * )
+ * ),
+ * 'remove' => array(
+ * 'file_limit' => array(),
+ * 'time_limit' => array()
+ * ),
+ * 'change' => array(
+ * 'name' => array(
+ * 'length' => '20',
+ * 'definition' => array(
+ * 'type' => 'text',
+ * 'length' => 20,
+ * ),
+ * )
+ * ),
+ * 'rename' => array(
+ * 'sex' => array(
+ * 'name' => 'gender',
+ * 'definition' => array(
+ * 'type' => 'text',
+ * 'length' => 1,
+ * 'default' => 'M',
+ * ),
+ * )
+ * )
+ * )
+ *
+ * @param boolean $check indicates whether the function should just check if the DBMS driver
+ * can perform the requested table alterations if the value is true or
+ * actually perform them otherwise.
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function alterTable($name, $changes, $check)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $name_quoted = $db->quoteIdentifier($name, true);
+
+ foreach ($changes as $change_name => $change) {
+ switch ($change_name) {
+ case 'remove':
+ case 'rename':
+ case 'add':
+ case 'change':
+ case 'name':
+ break;
+ default:
+ return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
+ 'change type "'.$change_name.'" not yet supported', __FUNCTION__);
+ }
+ }
+
+ if ($check) {
+ return MDB2_OK;
+ }
+
+ $idxname_format = $db->getOption('idxname_format');
+ $db->setOption('idxname_format', '%s');
+
+ if (!empty($changes['remove']) && is_array($changes['remove'])) {
+ $result = $this->_dropConflictingIndices($name, array_keys($changes['remove']));
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ $result = $this->_dropConflictingConstraints($name, array_keys($changes['remove']));
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+
+ $query = '';
+ foreach ($changes['remove'] as $field_name => $field) {
+ if ($query) {
+ $query.= ', ';
+ }
+ $field_name = $db->quoteIdentifier($field_name, true);
+ $query.= 'COLUMN ' . $field_name;
+ }
+
+ $result = $db->exec("ALTER TABLE $name_quoted DROP $query");
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+
+ if (!empty($changes['rename']) && is_array($changes['rename'])) {
+ foreach ($changes['rename'] as $field_name => $field) {
+ $field_name = $db->quoteIdentifier($field_name, true);
+ $result = $db->exec("sp_rename '$name_quoted.$field_name', '".$field['name']."', 'COLUMN'");
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+ }
+
+ if (!empty($changes['add']) && is_array($changes['add'])) {
+ $query = '';
+ foreach ($changes['add'] as $field_name => $field) {
+ if ($query) {
+ $query.= ', ';
+ } else {
+ $query.= 'ADD ';
+ }
+ $query.= $db->getDeclaration($field['type'], $field_name, $field);
+ }
+
+ $result = $db->exec("ALTER TABLE $name_quoted $query");
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+
+ $dropped_indices = array();
+ $dropped_constraints = array();
+
+ if (!empty($changes['change']) && is_array($changes['change'])) {
+ $dropped = $this->_dropConflictingIndices($name, array_keys($changes['change']));
+ if (PEAR::isError($dropped)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $dropped;
+ }
+ $dropped_indices = array_merge($dropped_indices, $dropped);
+ $dropped = $this->_dropConflictingConstraints($name, array_keys($changes['change']));
+ if (PEAR::isError($dropped)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $dropped;
+ }
+ $dropped_constraints = array_merge($dropped_constraints, $dropped);
+
+ foreach ($changes['change'] as $field_name => $field) {
+ //MSSQL doesn't allow multiple ALTER COLUMNs in one query
+ $query = 'ALTER COLUMN ';
+
+ //MSSQL doesn't allow changing the DEFAULT value of a field in altering mode
+ if (array_key_exists('default', $field['definition'])) {
+ unset($field['definition']['default']);
+ }
+
+ $query .= $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);
+ $result = $db->exec("ALTER TABLE $name_quoted $query");
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+ }
+
+ // restore the dropped conflicting indices and constraints
+ foreach ($dropped_indices as $index_name => $index) {
+ $result = $this->createIndex($name, $index_name, $index);
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+ foreach ($dropped_constraints as $constraint_name => $constraint) {
+ $result = $this->createConstraint($name, $constraint_name, $constraint);
+ if (PEAR::isError($result)) {
+ $db->setOption('idxname_format', $idxname_format);
+ return $result;
+ }
+ }
+
+ $db->setOption('idxname_format', $idxname_format);
+
+ if (!empty($changes['name'])) {
+ $new_name = $db->quoteIdentifier($changes['name'], true);
+ $result = $db->exec("sp_rename '$name_quoted', '$new_name'");
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ }
+
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ _dropConflictingIndices()
+
+ /**
+ * Drop the indices that prevent a successful ALTER TABLE action
+ *
+ * @param string $table table name
+ * @param array $fields array of names of the fields affected by the change
+ *
+ * @return array dropped indices definitions
+ */
+ function _dropConflictingIndices($table, $fields)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $dropped = array();
+ $index_names = $this->listTableIndexes($table);
+ if (PEAR::isError($index_names)) {
+ return $index_names;
+ }
+ $db->loadModule('Reverse');
+ $indexes = array();
+ foreach ($index_names as $index_name) {
+ $idx_def = $db->reverse->getTableIndexDefinition($table, $index_name);
+ if (!PEAR::isError($idx_def)) {
+ $indexes[$index_name] = $idx_def;
+ }
+ }
+ foreach ($fields as $field_name) {
+ foreach ($indexes as $index_name => $index) {
+ if (!isset($dropped[$index_name]) && array_key_exists($field_name, $index['fields'])) {
+ $dropped[$index_name] = $index;
+ $result = $this->dropIndex($table, $index_name);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ }
+ }
+ }
+
+ return $dropped;
+ }
+
+ // }}}
+ // {{{ _dropConflictingConstraints()
+
+ /**
+ * Drop the constraints that prevent a successful ALTER TABLE action
+ *
+ * @param string $table table name
+ * @param array $fields array of names of the fields affected by the change
+ *
+ * @return array dropped constraints definitions
+ */
+ function _dropConflictingConstraints($table, $fields)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $dropped = array();
+ $constraint_names = $this->listTableConstraints($table);
+ if (PEAR::isError($constraint_names)) {
+ return $constraint_names;
+ }
+ $db->loadModule('Reverse');
+ $constraints = array();
+ foreach ($constraint_names as $constraint_name) {
+ $cons_def = $db->reverse->getTableConstraintDefinition($table, $constraint_name);
+ if (!PEAR::isError($cons_def)) {
+ $constraints[$constraint_name] = $cons_def;
+ }
+ }
+ foreach ($fields as $field_name) {
+ foreach ($constraints as $constraint_name => $constraint) {
+ if (!isset($dropped[$constraint_name]) && array_key_exists($field_name, $constraint['fields'])) {
+ $dropped[$constraint_name] = $constraint;
+ $result = $this->dropConstraint($table, $constraint_name);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ }
+ }
+ // also drop implicit DEFAULT constraints
+ $default = $this->_getTableFieldDefaultConstraint($table, $field_name);
+ if (!PEAR::isError($default) && !empty($default)) {
+ $result = $this->dropConstraint($table, $default);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ }
+ }
+
+ return $dropped;
+ }
+
+ // }}}
+ // {{{ _getTableFieldDefaultConstraint()
+
+ /**
+ * Get the default constraint for a table field
+ *
+ * @param string $table name of table that should be used in method
+ * @param string $field name of field that should be used in method
+ *
+ * @return mixed name of default constraint on success, a MDB2 error on failure
+ * @access private
+ */
+ function _getTableFieldDefaultConstraint($table, $field)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $table = $db->quoteIdentifier($table, true);
+ $field = $db->quote($field, 'text');
+ $query = "SELECT OBJECT_NAME(syscolumns.cdefault)
+ FROM syscolumns
+ WHERE syscolumns.id = object_id('$table')
+ AND syscolumns.name = $field
+ AND syscolumns.cdefault <> 0";
+ return $db->queryOne($query);
+ }
+
+ // }}}
+ // {{{ listTables()
+
+ /**
+ * list all tables in the current database
+ *
+ * @return mixed array of table names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listTables()
+ {
+ $db = $this->getDBInstance();
+
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = 'EXEC sp_tables @table_type = "\'TABLE\'"';
+ $table_names = $db->queryCol($query, null, 2);
+ if (PEAR::isError($table_names)) {
+ return $table_names;
+ }
+ $result = array();
+ foreach ($table_names as $table_name) {
+ if (!$this->_fixSequenceName($table_name, true)) {
+ $result[] = $table_name;
+ }
+ }
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ?
+ 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ listTableFields()
+
+ /**
+ * list all fields in a table in the current database
+ *
+ * @param string $table name of table that should be used in method
+ *
+ * @return mixed array of field names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listTableFields($table)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $table = $db->quoteIdentifier($table, true);
+ $columns = $db->queryCol("SELECT c.name
+ FROM syscolumns c
+ LEFT JOIN sysobjects o ON c.id = o.id
+ WHERE o.name = '$table'");
+ if (PEAR::isError($columns)) {
+ return $columns;
+ }
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $columns = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $columns);
+ }
+ return $columns;
+ }
+
+ // }}}
+ // {{{ listTableIndexes()
+
+ /**
+ * list all indexes in a table
+ *
+ * @param string $table name of table that should be used in method
+ *
+ * @return mixed array of index names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listTableIndexes($table)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $key_name = 'INDEX_NAME';
+ $pk_name = 'PK_NAME';
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ if ($db->options['field_case'] == CASE_LOWER) {
+ $key_name = strtolower($key_name);
+ $pk_name = strtolower($pk_name);
+ } else {
+ $key_name = strtoupper($key_name);
+ $pk_name = strtoupper($pk_name);
+ }
+ }
+ $table = $db->quote($table, 'text');
+ $query = "EXEC sp_statistics @table_name=$table";
+ $indexes = $db->queryCol($query, 'text', $key_name);
+ if (PEAR::isError($indexes)) {
+ return $indexes;
+ }
+ $query = "EXEC sp_pkeys @table_name=$table";
+ $pk_all = $db->queryCol($query, 'text', $pk_name);
+ $result = array();
+ foreach ($indexes as $index) {
+ if (!in_array($index, $pk_all) && ($index = $this->_fixIndexName($index))) {
+ $result[$index] = true;
+ }
+ }
+
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_change_key_case($result, $db->options['field_case']);
+ }
+ return array_keys($result);
+ }
+
+ // }}}
+ // {{{ listDatabases()
+
+ /**
+ * list all databases
+ *
+ * @return mixed array of database names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listDatabases()
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $result = $db->queryCol('SELECT name FROM sys.databases');
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ listUsers()
+
+ /**
+ * list all users
+ *
+ * @return mixed array of user names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listUsers()
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $result = $db->queryCol('SELECT DISTINCT loginame FROM master..sysprocesses');
+ if (PEAR::isError($result) || empty($result)) {
+ return $result;
+ }
+ foreach (array_keys($result) as $k) {
+ $result[$k] = trim($result[$k]);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ listFunctions()
+
+ /**
+ * list all functions in the current database
+ *
+ * @return mixed array of function names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listFunctions()
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = "SELECT name
+ FROM sysobjects
+ WHERE objectproperty(id, N'IsMSShipped') = 0
+ AND (objectproperty(id, N'IsTableFunction') = 1
+ OR objectproperty(id, N'IsScalarFunction') = 1)";
+ /*
+ SELECT ROUTINE_NAME
+ FROM INFORMATION_SCHEMA.ROUTINES
+ WHERE ROUTINE_TYPE = 'FUNCTION'
+ */
+ $result = $db->queryCol($query);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ listTableTriggers()
+
+ /**
+ * list all triggers in the database that reference a given table
+ *
+ * @param string table for which all referenced triggers should be found
+ *
+ * @return mixed array of trigger names on success, otherwise, false which
+ * could be a db error if the db is not instantiated or could
+ * be the results of the error that occured during the
+ * querying of the sysobject module.
+ * @access public
+ */
+ function listTableTriggers($table = null)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $table = $db->quote($table, 'text');
+ $query = "SELECT o.name
+ FROM sysobjects o
+ WHERE xtype = 'TR'
+ AND OBJECTPROPERTY(o.id, 'IsMSShipped') = 0";
+ if (null !== $table) {
+ $query .= " AND object_name(parent_obj) = $table";
+ }
+
+ $result = $db->queryCol($query);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE &&
+ $db->options['field_case'] == CASE_LOWER)
+ {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ?
+ 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ listViews()
+
+ /**
+ * list all views in the current database
+ *
+ * @param string database, the current is default
+ *
+ * @return mixed array of view names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listViews()
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = "SELECT name
+ FROM sysobjects
+ WHERE xtype = 'V'";
+ /*
+ SELECT *
+ FROM sysobjects
+ WHERE objectproperty(id, N'IsMSShipped') = 0
+ AND objectproperty(id, N'IsView') = 1
+ */
+
+ $result = $db->queryCol($query);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE &&
+ $db->options['field_case'] == CASE_LOWER)
+ {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ?
+ 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ // {{{ dropIndex()
+
+ /**
+ * drop existing index
+ *
+ * @param string $table name of table that should be used in method
+ * @param string $name name of the index to be dropped
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function dropIndex($table, $name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $table = $db->quoteIdentifier($table, true);
+ $name = $db->quoteIdentifier($db->getIndexName($name), true);
+ $result = $db->exec("DROP INDEX $table.$name");
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ listTableConstraints()
+
+ /**
+ * list all constraints in a table
+ *
+ * @param string $table name of table that should be used in method
+ *
+ * @return mixed array of constraint names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listTableConstraints($table)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $query = "SELECT c.constraint_name
+ FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS c
+ WHERE c.constraint_catalog = DB_NAME()
+ AND c.table_name = '$table'";
+ $constraints = $db->queryCol($query);
+ if (PEAR::isError($constraints)) {
+ return $constraints;
+ }
+
+ $result = array();
+ foreach ($constraints as $constraint) {
+ $constraint = $this->_fixIndexName($constraint);
+ if (!empty($constraint)) {
+ $result[$constraint] = true;
+ }
+ }
+
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_change_key_case($result, $db->options['field_case']);
+ }
+ return array_keys($result);
+ }
+
+ // }}}
+ // {{{
+
+ /**
+ * Create a basic SQL query for a new table creation
+ *
+ * @param string $name Name of the database that should be created
+ * @param array $fields Associative array that contains the definition of each field of the new table
+ * @param array $options An associative array of table options
+ * Supported options are:
+ * 'primary' An array of column names in the array keys
+ * that form the primary key of the table
+ * 'temporary' If true, creates the table as a temporary table
+ * @return mixed string The SQL query on success, or MDB2 error on failure
+ * @see createTable()
+ */
+ function _getCreateTableQuery($name, $fields, $options = array())
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ if (!$name) {
+ return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
+ 'no valid table name specified', __FUNCTION__);
+ }
+ if (empty($fields)) {
+ return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
+ 'no fields specified for table "'.$name.'"', __FUNCTION__);
+ }
+ $query_fields = $this->getFieldDeclarationList($fields);
+ if (PEAR::isError($query_fields)) {
+ return $query_fields;
+ }
+ /*Removed since you can't get the PK name from Schema here, will result in a redefinition of PK index error
+ if (!empty($options['primary'])) {
+ $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';
+ }*/
+
+ $name = $db->quoteIdentifier($name, true);
+ $result = 'CREATE ';
+ if (!empty($options['temporary']) && $options['temporary']) {
+ $result .= $this->_getTemporaryTableQuery() . ' ';
+ }
+ $result .= "TABLE $name ($query_fields)";
+ return $result;
+ }
+
+ // }}}
+ // {{{ createSequence()
+
+ /**
+ * create sequence
+ *
+ * @param string $seq_name name of the sequence to be created
+ * @param string $start start value of the sequence; default is 1
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function createSequence($seq_name, $start = 1)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
+ $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);
+ $query = "CREATE TABLE $sequence_name ($seqcol_name " .
+ "INT PRIMARY KEY CLUSTERED IDENTITY($start,1) NOT NULL)";
+
+ $res = $db->exec($query);
+ if (PEAR::isError($res)) {
+ return $res;
+ }
+
+ $query = "SET IDENTITY_INSERT $sequence_name ON ".
+ "INSERT INTO $sequence_name ($seqcol_name) VALUES ($start)";
+ $res = $db->exec($query);
+
+ if (!PEAR::isError($res)) {
+ return MDB2_OK;
+ }
+
+ $result = $db->exec("DROP TABLE $sequence_name");
+ if (PEAR::isError($result)) {
+ return $db->raiseError($result, null, null,
+ 'could not drop inconsistent sequence table', __FUNCTION__);
+ }
+
+ return $db->raiseError($res, null, null,
+ 'could not create sequence table', __FUNCTION__);
+ }
+
+ // }}}
+ // {{{ dropSequence()
+
+ /**
+ * This function drops an existing sequence
+ *
+ * @param string $seq_name name of the sequence to be dropped
+ *
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function dropSequence($seq_name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
+ $result = $db->exec("DROP TABLE $sequence_name");
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+ // {{{ listSequences()
+
+ /**
+ * list all sequences in the current database
+ *
+ * @return mixed array of sequence names on success, a MDB2 error on failure
+ * @access public
+ */
+ function listSequences()
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = "SELECT name FROM sysobjects WHERE xtype = 'U'";
+ $table_names = $db->queryCol($query);
+ if (PEAR::isError($table_names)) {
+ return $table_names;
+ }
+ $result = array();
+ foreach ($table_names as $table_name) {
+ if ($sqn = $this->_fixSequenceName($table_name, true)) {
+ $result[] = $sqn;
+ }
+ }
+ if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
+ $result = array_map(($db->options['field_case'] == CASE_LOWER ?
+ 'strtolower' : 'strtoupper'), $result);
+ }
+ return $result;
+ }
+
+ // }}}
+ /**
+ * New OPENX method to check table name according to specifications:
+ * http://msdn.microsoft.com/en-us/library/aa258255(SQL.80).aspx
+ *
+ * Table names must conform to the rules for identifiers. The combination of owner.table_name
+ * must be unique within the database. table_name can contain a maximum of 128 characters,
+ * except for local temporary table names (names prefixed with a single number sign (#)) that
+ * cannot exceed 116 characters.
+ *
+ * @param string $name table name to check
+ * @return true if name is correct and PEAR error on failure
+ */
+ function validateTableName($name)
+ {
+ // Table name maximum length is 128
+ if (strlen($name) > 128) {
+ return PEAR::raiseError(
+ 'SQL Server table names are limited to 128 characters in length');
+ }
+ return true;
+ }
+
+ /**
+ * New OpenX method
+ *
+ * @param string $table
+ * @return array
+ */
+ function getTableStatus($table)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $query = "exec sp_spaceused '{$table}'";
+ $result = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
+ if (PEAR::isError($result))
+ {
+ return array();
+ }
+ $result[0]['data_length'] = (isset($result[0]['data'])) ? $result[0]['data'] : 0;
+ $result[0]['data_free'] = (isset($result[0]['unused'])) ? $result[0]['unused'] : 0;
+ //data_length,rows,auto_increment,data_free
+ $query = "SELECT IDENT_CURRENT ('{$table}') + IDENT_INCR ('{$table}') AS auto_increment";
+ $resultIdentity = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
+ $result[0]['auto_increment'] = (isset($resultIdentity[0]['auto_increment'])) ? $resultIdentity[0]['auto_increment'] : 0;
+ return $result;
+ }
+
+ function checkTable($tableName)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $query = 'CHECK TABLE '.$tableName;
+ $result = $db->queryRow($query, null, MDB2_FETCHMODE_ASSOC);
+ if (PEAR::isError($result))
+ {
+ return array('msg_text' => $result->getUserInfo());
+ }
+ return $result;
+ }
+
+ /**
+ * New OPENX method to check database name according to specifications:
+ * Mysql specification: http://dev.mysql.com/doc/refman/4.1/en/identifiers.html
+ * Mysql specification: http://dev.mysql.com/doc/refman/5.0/en/identifiers.html
+ * For 4.0, 4.1, 5.0 seem to be the same
+ *
+ * @param string $name database name to check
+ * @return true in name is correct and PEAR error on failure
+ */
+ function validateDatabaseName($name)
+ {
+ return $this->_validateEntityName($name, 'Database');
+ }
+
+ /**
+ * New OPENX method to check entity name according to specifications:
+ * Mysql specification: http://dev.mysql.com/doc/refman/4.1/en/identifiers.html
+ * Mysql specification: http://dev.mysql.com/doc/refman/5.0/en/identifiers.html
+ * For 4.0, 4.1, 5.0 seem to be the same
+ *
+ * There are some restrictions on the characters that may appear in identifiers:
+ * - No identifier can contain ASCII 0 (0x00) or a byte with a value of 255.
+ * - Before MySQL 4.1, identifier quote characters should not be used in identifiers.
+ * - Database, table, and column names should not end with space characters.
+ * - Database and table names cannot contain "/", "\", ".", or characters that are not allowed in filenames.
+ *
+ * Table/Database name maximum length:
+ * - 64
+ *
+ * @param string $name table name to check
+ * @param string $entityType
+ *
+ * @return true if name is correct and PEAR error on failure
+ */
+ function _validateEntityName($name, $entityType)
+ {
+ // Table name maximum length is 64
+ if (strlen($name) > 64) {
+ return PEAR::raiseError(
+ $entityType.' names are limited to 64 characters in length');
+ }
+
+ // Database, table, and column names should not end with space characters.
+ // Extended for leading and ending spaces
+ if ($name != trim($name)) {
+ return PEAR::raiseError(
+ $entityType.' names should not start or end with space characters');
+ }
+
+ // No identifier can contain ASCII 0 (0x00) or a byte with a value of 255.
+ if (preg_match( '/([\x00\xff])/', $name)) {
+ return PEAR::raiseError(
+ $entityType.' names cannot contain ASCII 0 (0x00) or a byte with a value of 255');
+ }
+
+ //Before MySQL 4.1, identifier quote characters should not be used in identifiers.
+ //we actually extend that and disallow quoting at all
+ if (preg_match( '/(\\\\|\/|\.|\"|\\\'| |\\(|\\)|\\:|\\;)/', $name)) {
+ return PEAR::raiseError(
+ $entityType.' names cannot contain "/", "\\", ".", or characters that are not allowed in filenames');
+ }
+
+ return true;
+ }
+
+ // {{{ createConstraint()
+
+ /**
+ * create a constraint on a table
+ *
+ * @param string $table name of the table on which the constraint is to be created
+ * @param string $name name of the constraint to be created
+ * @param array $definition associative array that defines properties of the constraint to be created.
+ * Currently, only one property named FIELDS is supported. This property
+ * is also an associative with the names of the constraint fields as array
+ * constraints. Each entry of this array is set to another type of associative
+ * array that specifies properties of the constraint that are specific to
+ * each field.
+ *
+ * Example
+ * array(
+ * 'fields' => array(
+ * 'user_name' => array(),
+ * 'last_login' => array()
+ * )
+ * )
+ * @return mixed MDB2_OK on success, a MDB2 error on failure
+ * @access public
+ */
+ function createConstraint($table, $name, $definition)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+ $table = $db->quoteIdentifier($table, true);
+ $name = $db->quoteIdentifier($db->getIndexName($name), true);
+ if (!empty($definition['primary']) && empty($definition['unique'])) {
+ $query = "ALTER TABLE $table ADD CONSTRAINT $name";
+ if (!empty($definition['primary'])) {
+ $query.= ' PRIMARY KEY';
+ } elseif (!empty($definition['unique'])) {
+ $query.= ' UNIQUE';
+ }
+ } elseif (!empty($definition['unique'])) {
+ $query = "CREATE UNIQUE NONCLUSTERED INDEX $name ON $table";
+ } elseif (!empty($definition['foreign'])) {
+ $query = "ALTER TABLE $table ADD CONSTRAINT $name FOREIGN KEY";
+ }
+ $fields = array();
+ foreach (array_keys($definition['fields']) as $field) {
+ $fields[] = $db->quoteIdentifier($field, true);
+ }
+ $query .= ' ('. implode(', ', $fields) . ')';
+ //deals with NULL values and UNIQUE indexes, this solution is only available in SQL Server 2008
+ //https://connect.microsoft.com/SQLServer/feedback/ViewFeedback.aspx?FeedbackID=299229
+ if (!empty($definition['unique']) && empty($definition['primary'])) {
+ for($i=0;$i<count($fields);$i++) $fields[$i] .= ' is NOT NULL';
+ $query .= ' WHERE '. implode(' AND ', $fields);
+ }
+ if (!empty($definition['foreign'])) {
+ $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);
+ $referenced_fields = array();
+ foreach (array_keys($definition['references']['fields']) as $field) {
+ $referenced_fields[] = $db->quoteIdentifier($field, true);
+ }
+ $query .= ' ('. implode(', ', $referenced_fields) . ')';
+ $query .= $this->_getAdvancedFKOptions($definition);
+ }
+ $result = $db->exec($query);
+ if (MDB2::isError($result)) {
+ return $result;
+ }
+ return MDB2_OK;
+ }
+
+ // }}}
+
+}
+
+// }}}
+?>
57 MDB2/Driver/Native/sqlsrv.php
@@ -0,0 +1,57 @@
+<?php
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2006 Manuel Lemos, Tomas V.V.Cox, |
+// | Stig. S. Bakken, Lukas Smith, Frank M. Kromann |
+// | All rights reserved. |
+// +----------------------------------------------------------------------+
+// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
+// | API as well as database abstraction for PHP applications. |
+// | This LICENSE is in the BSD license style. |
+// | |
+// | Redistribution and use in source and binary forms, with or without |
+// | modification, are permitted provided that the following conditions |
+// | are met: |
+// | |
+// | Redistributions of source code must retain the above copyright |
+// | notice, this list of conditions and the following disclaimer. |
+// | |
+// | Redistributions in binary form must reproduce the above copyright |
+// | notice, this list of conditions and the following disclaimer in the |
+// | documentation and/or other materials provided with the distribution. |
+// | |
+// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
+// | Lukas Smith nor the names of his contributors may be used to endorse |
+// | or promote products derived from this software without specific prior|
+// | written permission. |
+// | |
+// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
+// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
+// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
+// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
+// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
+// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
+// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
+// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
+// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
+// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
+// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
+// | POSSIBILITY OF SUCH DAMAGE. |
+// +----------------------------------------------------------------------+
+// | Author: Lukas Smith <smith@pooteeweet.org> |
+// +----------------------------------------------------------------------+
+
+require_once 'MDB2/Driver/Native/Common.php';
+
+/**
+ * MDB2 MSSQL driver for the native module
+ *
+ * @package MDB2
+ * @category Database
+ * @author Lukas Smith <smith@dybnet.de>
+ */
+class MDB2_Driver_Native_sqlsrv extends MDB2_Driver_Native_Common
+{
+}
+?>
653 MDB2/Driver/Reverse/sqlsrv.php
@@ -0,0 +1,653 @@
+<?php
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox, |
+// | Stig. S. Bakken, Lukas Smith, Frank M. Kromann, Lorenzo Alberton |
+// | All rights reserved. |
+// +----------------------------------------------------------------------+
+// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB |
+// | API as well as database abstraction for PHP applications. |
+// | This LICENSE is in the BSD license style. |
+// | |
+// | Redistribution and use in source and binary forms, with or without |
+// | modification, are permitted provided that the following conditions |
+// | are met: |
+// | |
+// | Redistributions of source code must retain the above copyright |
+// | notice, this list of conditions and the following disclaimer. |
+// | |
+// | Redistributions in binary form must reproduce the above copyright |
+// | notice, this list of conditions and the following disclaimer in the |
+// | documentation and/or other materials provided with the distribution. |
+// | |
+// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken, |
+// | Lukas Smith nor the names of his contributors may be used to endorse |
+// | or promote products derived from this software without specific prior|
+// | written permission. |
+// | |
+// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
+// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
+// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS |
+// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |
+// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
+// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
+// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
+// | OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED |
+// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
+// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
+// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
+// | POSSIBILITY OF SUCH DAMAGE. |
+// +----------------------------------------------------------------------+
+// | Authors: Lukas Smith <smith@pooteeweet.org> |
+// | Lorenzo Alberton <l.alberton@quipo.it> |
+// +----------------------------------------------------------------------+
+
+require_once 'MDB2/Driver/Reverse/Common.php';
+
+/**
+ * MDB2 MSSQL driver for the schema reverse engineering module
+ *
+ * @package MDB2
+ * @category Database
+ * @author Lukas Smith <smith@dybnet.de>
+ * @author Lorenzo Alberton <l.alberton@quipo.it>
+ */
+class MDB2_Driver_Reverse_sqlsrv extends MDB2_Driver_Reverse_Common
+{
+ // {{{ getTableFieldDefinition()
+
+ /**
+ * Get the structure of a field into an array
+ *
+ * @param string $table_name name of table that should be used in method
+ * @param string $field_name name of field that should be used in method
+ * @return mixed data array on success, a MDB2 error on failure
+ * @access public
+ */
+ function getTableFieldDefinition($table_name, $field_name)
+ {
+ $db = $this->getDBInstance();
+ if (PEAR::isError($db)) {
+ return $db;
+ }
+
+ $result = $db->loadModule('Datatype', null, true);
+ if (PEAR::isError($result)) {
+ return $result;
+ }
+
+ list($schema, $table) = $this->splitTableSchema($table_name);
+
+ $table = $db->quoteIdentifier($table, true);
+ $fldname = $db->quoteIdentifier($field_name, true);