moodle/moodle
3
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-08-04 16:36:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reverting last commit. This is an EXTERNAL library file and shouldn't

Browse source 
be modified. And it was broken (strange linefeeds). MDL-11779

Merged from MOODLE_19_STABLE
This commit is contained in:
stronk7 2007-10-15 22:04:02 +00:00
parent 17a6161d20
commit 157597deca
1 changed files with 171 additions and 342 deletions
Download patch file Download diff file Expand all files Collapse all files

173
lib/adodb/drivers/adodb-mssql_n.inc.php
View file

@ -1,342 +1,171 @@
<?php <?php
/// $Id $ /// $Id $
/////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////
// // // //
// NOTICE OF COPYRIGHT // // NOTICE OF COPYRIGHT //
// // // //
// ADOdb - Database Abstraction Library for PHP // // ADOdb - Database Abstraction Library for PHP //
// http://adodb.sourceforge.net/ // // http://adodb.sourceforge.net/ //
// // // //
// Copyright (C) 2000-2007 John Lim (jlim\@natsoft.com.my) // // Copyright (C) 2000-2007 John Lim (jlim\@natsoft.com.my) //
// All rights reserved. // // All rights reserved. //
// Released under both BSD license and LGPL library license. // // Released under both BSD license and LGPL library license. //
// Whenever there is any discrepancy between the two licenses, // // Whenever there is any discrepancy between the two licenses, //
// the BSD license will take precedence // // the BSD license will take precedence //
// // // //
// Moodle - Modular Object-Oriented Dynamic Learning Environment // // Moodle - Modular Object-Oriented Dynamic Learning Environment //
// http://moodle.com // // http://moodle.com //
// // // //
// Copyright (C) 2001-3001 Martin Dougiamas http://dougiamas.com //
// Copyright (C) 1999 onwards Martin Dougiamas http://dougiamas.com //
// (C) 2001-3001 Eloy Lafuente (stronk7) http://contiento.com // // (C) 2001-3001 Eloy Lafuente (stronk7) http://contiento.com //
// // // //
// This program is free software; you can redistribute it and/or modify // // 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 // // it under the terms of the GNU General Public License as published by //
// the Free Software Foundation; either version 2 of the License, or // // the Free Software Foundation; either version 2 of the License, or //
// (at your option) any later version. // // (at your option) any later version. //
// // // //
// This program is distributed in the hope that it will be useful, // // This program is distributed in the hope that it will be useful, //
// but WITHOUT ANY WARRANTY; without even the implied warranty of // // but WITHOUT ANY WARRANTY; without even the implied warranty of //
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
// GNU General Public License for more details: // // GNU General Public License for more details: //
// // // //
// http://www.gnu.org/copyleft/gpl.html // // http://www.gnu.org/copyleft/gpl.html //
// // // //
/////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////
/** /**
* MSSQL Driver with auto-prepended "N" for correct unicode storage * MSSQL Driver with auto-prepended "N" for correct unicode storage
* of SQL literal strings. Intended to be used with MSSQL drivers that * 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 * are sending UCS-2 data to MSSQL (FreeTDS and ODBTP) in order to get
* true cross-db compatibility from the application point of view. * true cross-db compatibility from the application point of view.
*/ */
// security - hide paths // security - hide paths
if (!defined('ADODB_DIR')) die(); if (!defined('ADODB_DIR')) die();
// one useful constant // one useful constant
if (!defined('SINGLEQUOTE')) define('SINGLEQUOTE', "'"); if (!defined('SINGLEQUOTE')) define('SINGLEQUOTE', "'");
include_once(ADODB_DIR.'/drivers/adodb-mssql.inc.php'); include_once(ADODB_DIR.'/drivers/adodb-mssql.inc.php');
class ADODB_mssql_n extends ADODB_mssql { class ADODB_mssql_n extends ADODB_mssql {
var $databaseType = "mssql_n"; var $databaseType = "mssql_n";
function ADODB_mssqlpo() function ADODB_mssqlpo()
{ {
ADODB_mssql::ADODB_mssql(); ADODB_mssql::ADODB_mssql();
} }
function _query($sql,$inputarr) function _query($sql,$inputarr)
{ {
$sql = $this->_appendN($sql); $sql = $this->_appendN($sql);
return ADODB_mssql::_query($sql,$inputarr); return ADODB_mssql::_query($sql,$inputarr);
} }
/** /**
* This function will intercept all the literals used in the SQL, prepending the "N" char to them * 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 * 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 * and ODBTP) keeping SQL compatibility at ADOdb level (instead of hacking every project to add
* the "N" notation when working against MSSQL. * the "N" notation when working against MSSQL.
* *
* Note that this hack only must be used if ALL the char-based columns in your DB are of type nchar, * Note that this hack only must be used if ALL the char-based columns in your DB are of type nchar,
* nvarchar and ntext * nvarchar and ntext
*/ */
function _appendN($sql) { function _appendN($sql) {
$result = $sql; $result = $sql;
/// Check we have some single quote in the query. Exit ok. /// Check we have some single quote in the query. Exit ok.
if (strpos($sql, SINGLEQUOTE) === false) { if (strpos($sql, SINGLEQUOTE) === false) {
return $sql; return $sql;
} }
/// Check we haven't an odd number of single quotes (this can cause problems below /// 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. /// and should be considered one wrong SQL). Exit with debug info.
if ((substr_count($sql, SINGLEQUOTE) & 1)) { if ((substr_count($sql, SINGLEQUOTE) & 1)) {
if ($this->debug) { if ($this->debug) {
ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Wrong number of quotes (odd)"); ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Wrong number of quotes (odd)");
} }
return $sql; return $sql;
} }
/// Check we haven't any backslash + single quote combination. It should mean wrong /// Check we haven't any backslash + single quote combination. It should mean wrong
/// backslashes use (bad magic_quotes_sybase?). Exit with debug info. /// backslashes use (bad magic_quotes_sybase?). Exit with debug info.
$regexp = '/(\\\\' . SINGLEQUOTE . '[^' . SINGLEQUOTE . '])/'; $regexp = '/(\\\\' . SINGLEQUOTE . '[^' . SINGLEQUOTE . '])/';
if (preg_match($regexp, $sql)) { if (preg_match($regexp, $sql)) {
if ($this->debug) { if ($this->debug) {
ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Found bad use of backslash + single quote"); ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Found bad use of backslash + single quote");
} }
return $sql; return $sql;
} }
/// Remove pairs of single-quotes /// Remove pairs of single-quotes
$pairs = array(); $pairs = array();
$regexp = '/(' . SINGLEQUOTE . SINGLEQUOTE . ')/'; $regexp = '/(' . SINGLEQUOTE . SINGLEQUOTE . ')/';
preg_match_all($regexp, $result, $list_of_pairs); preg_match_all($regexp, $result, $list_of_pairs);
if ($list_of_pairs) { if ($list_of_pairs) {
foreach (array_unique($list_of_pairs[0]) as $key=>$value) { foreach (array_unique($list_of_pairs[0]) as $key=>$value) {
$pairs['<@#@#@PAIR-'.$key.'@#@#@>'] = $value; $pairs['<@#@#@PAIR-'.$key.'@#@#@>'] = $value;
} }
if (!empty($pairs)) { if (!empty($pairs)) {
$result = str_replace($pairs, array_keys($pairs), $result); $result = str_replace($pairs, array_keys($pairs), $result);
} }
} }
/// Remove the rest of literals present in the query /// Remove the rest of literals present in the query
$literals = array(); $literals = array();
$regexp = '/(N?' . SINGLEQUOTE . '.*?' . SINGLEQUOTE . ')/is'; $regexp = '/(N?' . SINGLEQUOTE . '.*?' . SINGLEQUOTE . ')/is';
preg_match_all($regexp, $result, $list_of_literals); preg_match_all($regexp, $result, $list_of_literals);
if ($list_of_literals) { if ($list_of_literals) {
foreach (array_unique($list_of_literals[0]) as $key=>$value) { foreach (array_unique($list_of_literals[0]) as $key=>$value) {
$literals['<#@#@#LITERAL-'.$key.'#@#@#>'] = $value; $literals['<#@#@#LITERAL-'.$key.'#@#@#>'] = $value;
} }
if (!empty($literals)) { if (!empty($literals)) {
$result = str_replace($literals, array_keys($literals), $result); $result = str_replace($literals, array_keys($literals), $result);
} }
} }
/// Analyse literals to prepend the N char to them if their contents aren't numeric /// Analyse literals to prepend the N char to them if their contents aren't numeric
if (!empty($literals)) { if (!empty($literals)) {
foreach ($literals as $key=>$value) { foreach ($literals as $key=>$value) {
if (!is_numeric(trim($value, SINGLEQUOTE))) { if (!is_numeric(trim($value, SINGLEQUOTE))) {
/// Non numeric string, prepend our dear N /// Non numeric string, prepend our dear N
$literals[$key] = 'N' . trim($value, 'N'); //Trimming potentially existing previous "N" $literals[$key] = 'N' . trim($value, 'N'); //Trimming potentially existing previous "N"
} }
} }
} }
/// Re-apply literals to the text /// Re-apply literals to the text
if (!empty($literals)) { if (!empty($literals)) {
$result = str_replace(array_keys($literals), $literals, $result); $result = str_replace(array_keys($literals), $literals, $result);
} }
/// Any pairs followed by N' must be switched to N' followed by those pairs /// Any pairs followed by N' must be switched to N' followed by those pairs
/// (or strings beginning with single quotes will fail) /// (or strings beginning with single quotes will fail)
$result = preg_replace("/((<@#@#@PAIR-(\d+)@#@#@>)+)N'/", "N'$1", $result); $result = preg_replace("/((<@#@#@PAIR-(\d+)@#@#@>)+)N'/", "N'$1", $result);
/// Re-apply pairs of single-quotes to the text /// Re-apply pairs of single-quotes to the text
if (!empty($pairs)) { if (!empty($pairs)) {
$result = str_replace(array_keys($pairs), $pairs, $result); $result = str_replace(array_keys($pairs), $pairs, $result);
} }
/// Print transformation if debug = on /// Print transformation if debug = on
if ($result != $sql && $this->debug) { if ($result != $sql && $this->debug) {
ADOConnection::outp("{$this->databaseType} internal transformation:<br>{$sql}<br>to<br>{$result}"); ADOConnection::outp("{$this->databaseType} internal transformation:<br>{$sql}<br>to<br>{$result}");
} }
return $result; return $result;
} }
} }
class ADORecordset_mssql_n extends ADORecordset_mssql { class ADORecordset_mssql_n extends ADORecordset_mssql {
var $databaseType = "mssql_n"; var $databaseType = "mssql_n";
function ADORecordset_mssql_n($id,$mode=false) function ADORecordset_mssql_n($id,$mode=false)
{ {
$this->ADORecordset_mssql($id,$mode); $this->ADORecordset_mssql($id,$mode);
} }
} }
?> ?>