/lib/adodb/drivers/adodb-mssql_n.inc.php
PHP | 246 lines | 119 code | 36 blank | 91 comment | 22 complexity | 41ae2eac67e2520e97217abbfc1507a8 MD5 | raw file
Possible License(s): BSD-3-Clause, MIT, GPL-3.0, Apache-2.0, LGPL-2.1
- <?php
- /// $Id $
- ///////////////////////////////////////////////////////////////////////////
- // //
- // NOTICE OF COPYRIGHT //
- // //
- // ADOdb - Database Abstraction Library for PHP //
- // //
- // Latest version is available at https://adodb.org //
- // //
- // Copyright (c) 2000-2014 John Lim (jlim\@natsoft.com.my) //
- // All rights reserved. //
- // Released under both BSD license and LGPL library license. //
- // Whenever there is any discrepancy between the two licenses, //
- // the BSD license will take precedence //
- // //
- // Moodle - Modular Object-Oriented Dynamic Learning Environment //
- // http://moodle.com //
- // //
- // Copyright (C) 2001-3001 Martin Dougiamas http://dougiamas.com //
- // (C) 2001-3001 Eloy Lafuente (stronk7) http://contiento.com //
- // //
- // This program is free software; you can redistribute it and/or modify //
- // it under the terms of the GNU General Public License as published by //
- // the Free Software Foundation; either version 2 of the License, or //
- // (at your option) any later version. //
- // //
- // This program is distributed in the hope that it will be useful, //
- // but WITHOUT ANY WARRANTY; without even the implied warranty of //
- // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
- // GNU General Public License for more details: //
- // //
- // http://www.gnu.org/copyleft/gpl.html //
- // //
- ///////////////////////////////////////////////////////////////////////////
- /**
- * MSSQL Driver with auto-prepended "N" for correct unicode storage
- * of SQL literal strings. Intended to be used with MSSQL drivers that
- * are sending UCS-2 data to MSSQL (FreeTDS and ODBTP) in order to get
- * true cross-db compatibility from the application point of view.
- */
- // security - hide paths
- if (!defined('ADODB_DIR')) die();
- // one useful constant
- if (!defined('SINGLEQUOTE')) define('SINGLEQUOTE', "'");
- include_once(ADODB_DIR.'/drivers/adodb-mssql.inc.php');
- class ADODB_mssql_n extends ADODB_mssql {
- var $databaseType = "mssql_n";
- function _query($sql,$inputarr=false)
- {
- $sql = $this->_appendN($sql);
- return ADODB_mssql::_query($sql,$inputarr);
- }
- /**
- * This function will intercept all the literals used in the SQL, prepending the "N" char to them
- * in order to allow mssql to store properly data sent in the correct UCS-2 encoding (by freeTDS
- * and ODBTP) keeping SQL compatibility at ADOdb level (instead of hacking every project to add
- * the "N" notation when working against MSSQL.
- *
- * The original note indicated that this hack should only be used if ALL the char-based columns
- * in your DB are of type nchar, nvarchar and ntext, but testing seems to indicate that SQL server
- * doesn't seem to care if the statement is used against char etc fields.
- *
- * @todo This function should raise an ADOdb error if one of the transformations fail
- *
- * @param mixed $inboundData Either a string containing an SQL statement
- * or an array with resources from prepared statements
- *
- * @return mixed
- */
- function _appendN($inboundData) {
- $inboundIsArray = false;
- if (is_array($inboundData))
- {
- $inboundIsArray = true;
- $inboundArray = $inboundData;
- } else
- $inboundArray = (array)$inboundData;
- /*
- * All changes will be placed here
- */
- $outboundArray = $inboundArray;
- foreach($inboundArray as $inboundKey=>$inboundValue)
- {
- if (is_resource($inboundValue))
- {
- /*
- * Prepared statement resource
- */
- if ($this->debug)
- ADOConnection::outp("{$this->databaseType} index $inboundKey value is resource, continue");
- continue;
- }
- if (strpos($inboundValue, SINGLEQUOTE) === false)
- {
- /*
- * Check we have something to manipulate
- */
- if ($this->debug)
- ADOConnection::outp("{$this->databaseType} index $inboundKey value $inboundValue has no single quotes, continue");
- continue;
- }
- /*
- * Check we haven't an odd number of single quotes (this can cause problems below
- * and should be considered one wrong SQL). Exit with debug info.
- */
- if ((substr_count($inboundValue, SINGLEQUOTE) & 1))
- {
- if ($this->debug)
- ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Wrong number of quotes (odd)");
- break;
- }
- /*
- * Check we haven't any backslash + single quote combination. It should mean wrong
- * backslashes use (bad magic_quotes_sybase?). Exit with debug info.
- */
- $regexp = '/(\\\\' . SINGLEQUOTE . '[^' . SINGLEQUOTE . '])/';
- if (preg_match($regexp, $inboundValue))
- {
- if ($this->debug)
- ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Found bad use of backslash + single quote");
- break;
- }
- /*
- * Remove pairs of single-quotes
- */
- $pairs = array();
- $regexp = '/(' . SINGLEQUOTE . SINGLEQUOTE . ')/';
- preg_match_all($regexp, $inboundValue, $list_of_pairs);
- if ($list_of_pairs)
- {
- foreach (array_unique($list_of_pairs[0]) as $key=>$value)
- $pairs['<@#@#@PAIR-'.$key.'@#@#@>'] = $value;
- if (!empty($pairs))
- $inboundValue = str_replace($pairs, array_keys($pairs), $inboundValue);
- }
- /*
- * Remove the rest of literals present in the query
- */
- $literals = array();
- $regexp = '/(N?' . SINGLEQUOTE . '.*?' . SINGLEQUOTE . ')/is';
- preg_match_all($regexp, $inboundValue, $list_of_literals);
- if ($list_of_literals)
- {
- foreach (array_unique($list_of_literals[0]) as $key=>$value)
- $literals['<#@#@#LITERAL-'.$key.'#@#@#>'] = $value;
- if (!empty($literals))
- $inboundValue = str_replace($literals, array_keys($literals), $inboundValue);
- }
- /*
- * Analyse literals to prepend the N char to them if their contents aren't numeric
- */
- if (!empty($literals))
- {
- foreach ($literals as $key=>$value) {
- if (!is_numeric(trim($value, SINGLEQUOTE)))
- /*
- * Non numeric string, prepend our dear N, whilst
- * Trimming potentially existing previous "N"
- */
- $literals[$key] = 'N' . trim($value, 'N');
- }
- }
- /*
- * Re-apply literals to the text
- */
- if (!empty($literals))
- $inboundValue = str_replace(array_keys($literals), $literals, $inboundValue);
- /*
- * Any pairs followed by N' must be switched to N' followed by those pairs
- * (or strings beginning with single quotes will fail)
- */
- $inboundValue = preg_replace("/((<@#@#@PAIR-(\d+)@#@#@>)+)N'/", "N'$1", $inboundValue);
- /*
- * Re-apply pairs of single-quotes to the text
- */
- if (!empty($pairs))
- $inboundValue = str_replace(array_keys($pairs), $pairs, $inboundValue);
- /*
- * Print transformation if debug = on
- */
- if (strcmp($inboundValue,$inboundArray[$inboundKey]) <> 0 && $this->debug)
- ADOConnection::outp("{$this->databaseType} internal transformation: {$inboundArray[$inboundKey]} to {$inboundValue}");
- if (strcmp($inboundValue,$inboundArray[$inboundKey]) <> 0)
- /*
- * Place the transformed value into the outbound array
- */
- $outboundArray[$inboundKey] = $inboundValue;
- }
- /*
- * Any transformations are in the $outboundArray
- */
- if ($inboundIsArray)
- return $outboundArray;
- /*
- * We passed a string in originally
- */
- return $outboundArray[0];
- }
- }
- class ADORecordset_mssql_n extends ADORecordset_mssql {
- var $databaseType = "mssql_n";
- }