Search moodle.org's
Developer Documentation

See Release Notes

  • Bug fixes for general core bugs in 3.10.x will end 8 November 2021 (12 months).
  • Bug fixes for security issues in 3.10.x will end 9 May 2022 (18 months).
  • PHP version: minimum PHP 7.2.0 Note: minimum PHP version has increased since Moodle 3.8. PHP 7.3.x and 7.4.x are supported too.
<?php
< < /// $Id $ < < /////////////////////////////////////////////////////////////////////////// < // // < // NOTICE OF COPYRIGHT // < // // < // ADOdb - Database Abstraction Library for PHP // < // // < // Latest version is available at http://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.
> * 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. > * > * This file is part of ADOdb, a Database Abstraction Layer library for PHP. > * > * @package ADOdb > * @link https://adodb.org Project's web site and documentation > * @link https://github.com/ADOdb/ADOdb Source code and issue tracker > * > * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause > * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option, > * any later version. This means you can use it in proprietary products. > * See the LICENSE.md file distributed with this source code for details. > * @license BSD-3-Clause > * @license LGPL-2.1-or-later > * > * @copyright 2000-2013 John Lim > * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
*/ // 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 orginal note indicated that this hack should only be used if ALL the char-based columns
> * 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";
< function __construct($id,$mode=false) < { < parent::__construct($id,$mode); < }
}