initial checkin

1 files changed, 250 insertions, 0 deletions

diff --git a/vendor/adodb/adodb-php/drivers/adodb-mssql_n.inc.php b/vendor/adodb/adodb-php/drivers/adodb-mssql_n.inc.php
new file mode 100644
index 0000000..28b29bb
--- /dev/null
+++ b/vendor/adodb/adodb-php/drivers/adodb-mssql_n.inc.php
@@ -0,0 +1,250 @@
+<?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.
+*/
+
+// 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 
+     * 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);
+	}
+}