source: moodle/trunk/fuentes/lib/adodb/drivers/adodb-mssql_n.inc.php @ 1331

Last change on this file since 1331 was 1331, checked in by jrpelegrina, 3 years ago

Updated to moodle 3.0.3

File size: 9.8 KB
Line 
1<?php
2
3/// $Id $
4
5///////////////////////////////////////////////////////////////////////////
6//                                                                       //
7// NOTICE OF COPYRIGHT                                                   //
8//                                                                       //
9// ADOdb  - Database Abstraction Library for PHP                         //
10//          http://adodb.sourceforge.net/                                //
11//                                                                       //
12// Copyright (c) 2000-2014 John Lim (jlim\@natsoft.com.my)               //
13//          All rights reserved.                                         //
14//          Released under both BSD license and LGPL library license.    //
15//          Whenever there is any discrepancy between the two licenses,  //
16//          the BSD license will take precedence                         //
17//                                                                       //
18// Moodle - Modular Object-Oriented Dynamic Learning Environment         //
19//          http://moodle.com                                            //
20//                                                                       //
21// Copyright (C) 2001-3001 Martin Dougiamas        http://dougiamas.com  //
22//           (C) 2001-3001 Eloy Lafuente (stronk7) http://contiento.com  //
23//                                                                       //
24// This program is free software; you can redistribute it and/or modify  //
25// it under the terms of the GNU General Public License as published by  //
26// the Free Software Foundation; either version 2 of the License, or     //
27// (at your option) any later version.                                   //
28//                                                                       //
29// This program is distributed in the hope that it will be useful,       //
30// but WITHOUT ANY WARRANTY; without even the implied warranty of        //
31// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         //
32// GNU General Public License for more details:                          //
33//                                                                       //
34//          http://www.gnu.org/copyleft/gpl.html                         //
35//                                                                       //
36///////////////////////////////////////////////////////////////////////////
37
38/**
39*  MSSQL Driver with auto-prepended "N" for correct unicode storage
40*  of SQL literal strings. Intended to be used with MSSQL drivers that
41*  are sending UCS-2 data to MSSQL (FreeTDS and ODBTP) in order to get
42*  true cross-db compatibility from the application point of view.
43*/
44
45// security - hide paths
46if (!defined('ADODB_DIR')) die();
47
48// one useful constant
49if (!defined('SINGLEQUOTE')) define('SINGLEQUOTE', "'");
50
51include_once(ADODB_DIR.'/drivers/adodb-mssql.inc.php');
52
53class ADODB_mssql_n extends ADODB_mssql {
54        var $databaseType = "mssql_n";
55
56        function ADODB_mssqlpo()
57        {
58                ADODB_mssql::ADODB_mssql();
59        }
60
61        function _query($sql,$inputarr=false)
62        {
63        $sql = $this->_appendN($sql);
64                return ADODB_mssql::_query($sql,$inputarr);
65        }
66
67         /**
68     * This function will intercept all the literals used in the SQL, prepending the "N" char to them
69     * in order to allow mssql to store properly data sent in the correct UCS-2 encoding (by freeTDS
70     * and ODBTP) keeping SQL compatibility at ADOdb level (instead of hacking every project to add
71     * the "N" notation when working against MSSQL.
72     *
73     * The orginal note indicated that this hack should only be used if ALL the char-based columns
74     * in your DB are of type nchar, nvarchar and ntext, but testing seems to indicate that SQL server
75     * doesn't seem to care if the statement is used against char etc fields.
76     *
77     * @todo This function should raise an ADOdb error if one of the transformations fail
78     *
79     * @param mixed $inboundData Either a string containing an SQL statement
80     *                           or an array with resources from prepared statements
81     *
82     * @return mixed
83     */
84    function _appendN($inboundData) {
85
86        $inboundIsArray  = false;
87       
88        if (is_array($inboundData))
89        {
90            $inboundIsArray = true;
91            $inboundArray   = $inboundData;
92        } else
93            $inboundArray = (array)$inboundData;
94       
95        /*
96         * All changes will be placed here
97         */
98        $outboundArray = $inboundArray;
99       
100        foreach($inboundArray as $inboundKey=>$inboundValue)
101        {
102       
103            if (is_resource($inboundValue))
104            {
105                /*
106                * Prepared statement resource
107                */
108                if ($this->debug)
109                    ADOConnection::outp("{$this->databaseType} index $inboundKey value is resource, continue");
110
111                continue;
112            }
113           
114            if (strpos($inboundValue, SINGLEQUOTE) === false)
115            {
116                /*
117                * Check we have something to manipulate
118                */
119                if ($this->debug)
120                    ADOConnection::outp("{$this->databaseType} index $inboundKey value $inboundValue has no single quotes, continue");
121                continue;
122            }
123
124            /*
125            * Check we haven't an odd number of single quotes (this can cause problems below
126            * and should be considered one wrong SQL). Exit with debug info.
127            */
128            if ((substr_count($inboundValue, SINGLEQUOTE) & 1)) 
129            {
130                if ($this->debug)
131                    ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Wrong number of quotes (odd)");
132               
133                break;
134            }
135
136            /*
137            * Check we haven't any backslash + single quote combination. It should mean wrong
138            *  backslashes use (bad magic_quotes_sybase?). Exit with debug info.
139            */
140            $regexp = '/(\\\\' . SINGLEQUOTE . '[^' . SINGLEQUOTE . '])/';
141            if (preg_match($regexp, $inboundValue))
142            {
143                if ($this->debug) 
144                    ADOConnection::outp("{$this->databaseType} internal transformation: not converted. Found bad use of backslash + single quote");
145               
146                break;
147            }
148
149            /*
150            * Remove pairs of single-quotes
151            */
152            $pairs = array();
153            $regexp = '/(' . SINGLEQUOTE . SINGLEQUOTE . ')/';
154            preg_match_all($regexp, $inboundValue, $list_of_pairs);
155           
156            if ($list_of_pairs)
157            {
158                foreach (array_unique($list_of_pairs[0]) as $key=>$value)
159                    $pairs['<@#@#@PAIR-'.$key.'@#@#@>'] = $value;
160               
161               
162                if (!empty($pairs))
163                    $inboundValue = str_replace($pairs, array_keys($pairs), $inboundValue);
164               
165            }
166
167            /*
168            * Remove the rest of literals present in the query
169            */
170            $literals = array();
171            $regexp = '/(N?' . SINGLEQUOTE . '.*?' . SINGLEQUOTE . ')/is';
172            preg_match_all($regexp, $inboundValue, $list_of_literals);
173           
174           if ($list_of_literals)
175           {
176                foreach (array_unique($list_of_literals[0]) as $key=>$value)
177                    $literals['<#@#@#LITERAL-'.$key.'#@#@#>'] = $value;
178               
179               
180                if (!empty($literals))
181                    $inboundValue = str_replace($literals, array_keys($literals), $inboundValue);
182            }
183
184            /*
185            * Analyse literals to prepend the N char to them if their contents aren't numeric
186            */
187            if (!empty($literals))
188            {
189                foreach ($literals as $key=>$value) {
190                    if (!is_numeric(trim($value, SINGLEQUOTE)))
191                        /*
192                        * Non numeric string, prepend our dear N, whilst
193                        * Trimming potentially existing previous "N"
194                        */
195                        $literals[$key] = 'N' . trim($value, 'N'); 
196                   
197                }
198            }
199
200            /*
201            * Re-apply literals to the text
202            */
203            if (!empty($literals))
204                $inboundValue = str_replace(array_keys($literals), $literals, $inboundValue);
205           
206
207            /*
208            * Any pairs followed by N' must be switched to N' followed by those pairs
209            * (or strings beginning with single quotes will fail)
210            */
211            $inboundValue = preg_replace("/((<@#@#@PAIR-(\d+)@#@#@>)+)N'/", "N'$1", $inboundValue);
212
213            /*
214            * Re-apply pairs of single-quotes to the text
215            */
216            if (!empty($pairs))
217                $inboundValue = str_replace(array_keys($pairs), $pairs, $inboundValue);
218           
219
220            /*
221            * Print transformation if debug = on
222            */
223            if (strcmp($inboundValue,$inboundArray[$inboundKey]) <> 0 && $this->debug)
224                ADOConnection::outp("{$this->databaseType} internal transformation: {$inboundArray[$inboundKey]} to {$inboundValue}");
225           
226            if (strcmp($inboundValue,$inboundArray[$inboundKey]) <> 0)
227                /*
228                * Place the transformed value into the outbound array
229                */
230                $outboundArray[$inboundKey] = $inboundValue;
231        }
232       
233        /*
234         * Any transformations are in the $outboundArray
235         */
236        if ($inboundIsArray)
237            return $outboundArray;
238       
239        /*
240         * We passed a string in originally
241         */
242        return $outboundArray[0];
243       
244    }
245
246}
247
248class ADORecordset_mssql_n extends ADORecordset_mssql {
249        var $databaseType = "mssql_n";
250        function __construct($id,$mode=false)
251        {
252                parent::__construct($id,$mode);
253        }
254}
Note: See TracBrowser for help on using the repository browser.