initial checkin

1 files changed, 388 insertions, 0 deletions

diff --git a/vendor/adodb/adodb-php/drivers/adodb-text.inc.php b/vendor/adodb/adodb-php/drivers/adodb-text.inc.php
new file mode 100644
index 0000000..62073b3
--- /dev/null
+++ b/vendor/adodb/adodb-php/drivers/adodb-text.inc.php
@@ -0,0 +1,388 @@
+<?php
+/*
+@version   v5.20.14  06-Jan-2019
+@copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved.
+@copyright (c) 2014      Damien Regad, Mark Newnham and the ADOdb community
+   Set tabs to 4.
+*/
+
+/*
+Setup:
+
+ 	$db = NewADOConnection('text');
+ 	$db->Connect($array,[$types],[$colnames]);
+
+	Parameter $array is the 2 dimensional array of data. The first row can contain the
+	column names. If column names is not defined in first row, you MUST define $colnames,
+	the 3rd parameter.
+
+	Parameter $types is optional. If defined, it should contain an array matching
+	the number of columns in $array, with each element matching the correct type defined
+	by MetaType: (B,C,I,L,N). If undefined, we will probe for $this->_proberows rows
+	to guess the type. Only C,I and N are recognised.
+
+	Parameter $colnames is optional. If defined, it is an array that contains the
+	column names of $array. If undefined, we assume the first row of $array holds the
+	column names.
+
+ The Execute() function will return a recordset. The recordset works like a normal recordset.
+ We have partial support for SQL parsing. We process the SQL using the following rules:
+
+ 1. SQL order by's always work for the first column ordered. Subsequent cols are ignored
+
+ 2. All operations take place on the same table. No joins possible. In fact the FROM clause
+	is ignored! You can use any name for the table.
+
+ 3. To simplify code, all columns are returned, except when selecting 1 column
+
+ 	$rs = $db->Execute('select col1,col2 from table'); // sql ignored, will generate all cols
+
+	We special case handling of 1 column because it is used in filter popups
+
+	$rs = $db->Execute('select col1 from table');
+	// sql accepted and processed -- any table name is accepted
+
+	$rs = $db->Execute('select distinct col1 from table');
+	// sql accepted and processed
+
+4. Where clauses are ignored, but searching with the 3rd parameter of Execute is permitted.
+   This has to use PHP syntax and we will eval() it. You can even use PHP functions.
+
+	 $rs = $db->Execute('select * from table',false,"\$COL1='abc' and $\COL2=3")
+ 	// the 3rd param is searched -- make sure that $COL1 is a legal column name
+	// and all column names must be in upper case.
+
+4. Group by, having, other clauses are ignored
+
+5. Expression columns, min(), max() are ignored
+
+6. All data is readonly. Only SELECTs permitted.
+*/
+
+// security - hide paths
+if (!defined('ADODB_DIR')) die();
+
+if (! defined("_ADODB_TEXT_LAYER")) {
+ define("_ADODB_TEXT_LAYER", 1 );
+
+// for sorting in _query()
+function adodb_cmp($a, $b) {
+	if ($a[0] == $b[0]) return 0;
+	return ($a[0] < $b[0]) ? -1 : 1;
+}
+// for sorting in _query()
+function adodb_cmpr($a, $b) {
+	if ($a[0] == $b[0]) return 0;
+	return ($a[0] > $b[0]) ? -1 : 1;
+}
+class ADODB_text extends ADOConnection {
+	var $databaseType = 'text';
+
+	var $_origarray; // original data
+	var $_types;
+	var $_proberows = 8;
+	var $_colnames;
+	var $_skiprow1=false;
+	var $readOnly = true;
+	var $hasTransactions = false;
+
+	var $_rezarray;
+	var $_reznames;
+	var $_reztypes;
+
+	function __construct()
+	{
+	}
+
+	function RSRecordCount()
+	{
+		if (!empty($this->_rezarray)) return sizeof($this->_rezarray);
+
+		return sizeof($this->_origarray);
+	}
+
+	function _insertid()
+	{
+			return false;
+	}
+
+	function _affectedrows()
+	{
+			return false;
+	}
+
+		// returns true or false
+	function PConnect(&$array, $types = false, $colnames = false)
+	{
+		return $this->Connect($array, $types, $colnames);
+	}
+		// returns true or false
+	function Connect(&$array, $types = false, $colnames = false)
+	{
+		if (is_string($array) and $array === 'iluvphplens') return 'me2';
+
+		if (!$array) {
+			$this->_origarray = false;
+			return true;
+		}
+		$row = $array[0];
+		$cols = sizeof($row);
+
+
+		if ($colnames) $this->_colnames = $colnames;
+		else {
+			$this->_colnames = $array[0];
+			$this->_skiprow1 = true;
+		}
+		if (!$types) {
+		// probe and guess the type
+			$types = array();
+			$firstrow = true;
+			if ($this->_proberows > sizeof($array)) $max = sizeof($array);
+			else $max = $this->_proberows;
+			for ($j=($this->_skiprow1)?1:0;$j < $max; $j++) {
+				$row = $array[$j];
+				if (!$row) break;
+				$i = -1;
+				foreach($row as $v) {
+					$i += 1;
+					//print " ($i ".$types[$i]. "$v) ";
+					$v = trim($v);
+	 				if (!preg_match('/^[+-]{0,1}[0-9\.]+$/',$v)) {
+						$types[$i] = 'C'; // once C, always C
+						continue;
+					}
+					if (isset($types[$i]) && $types[$i]=='C') continue;
+					if ($firstrow) {
+					// If empty string, we presume is character
+					// test for integer for 1st row only
+					// after that it is up to testing other rows to prove
+					// that it is not an integer
+						if (strlen($v) == 0) $types[0] = 'C';
+						if (strpos($v,'.') !== false) $types[0] = 'N';
+						else  $types[$i] = 'I';
+						continue;
+					}
+
+					if (strpos($v,'.') !== false) $types[$i] = 'N';
+
+				}
+				$firstrow = false;
+			}
+		}
+		//print_r($types);
+		$this->_origarray = $array;
+		$this->_types = $types;
+		return true;
+	}
+
+
+
+	// returns queryID or false
+	// We presume that the select statement is on the same table (what else?),
+	// with the only difference being the order by.
+	//You can filter by using $eval and each clause is stored in $arr .eg. $arr[1] == 'name'
+	// also supports SELECT [DISTINCT] COL FROM ... -- only 1 col supported
+	function _query($sql,$input_arr,$eval=false)
+	{
+		if ($this->_origarray === false) return false;
+
+		$eval = $this->evalAll;
+		$usql = strtoupper(trim($sql));
+		$usql = preg_replace("/[\t\n\r]/",' ',$usql);
+		$usql = preg_replace('/ *BY/i',' BY',strtoupper($usql));
+
+		$eregword ='([A-Z_0-9]*)';
+		//print "<BR> $sql $eval ";
+		if ($eval) {
+			$i = 0;
+			foreach($this->_colnames as $n) {
+				$n = strtoupper(trim($n));
+				$eval = str_replace("\$$n","\$arr[$i]",$eval);
+
+				$i += 1;
+			}
+
+			$i = 0;
+			$eval = "\$rez=($eval);";
+			//print "<p>Eval string = $eval </p>";
+			$where_arr = array();
+
+			reset($this->_origarray);
+			foreach ($this->_origarray as $arr) {
+
+				if ($i == 0 && $this->_skiprow1)
+					$where_arr[] = $arr;
+				else {
+					eval($eval);
+					//print " $i: result=$rez arr[0]={$arr[0]} arr[1]={$arr[1]} <BR>\n ";
+					if ($rez) $where_arr[] = $arr;
+				}
+				$i += 1;
+			}
+			$this->_rezarray = $where_arr;
+		}else
+			$where_arr = $this->_origarray;
+
+		// THIS PROJECTION CODE ONLY WORKS FOR 1 COLUMN,
+		// OTHERWISE IT RETURNS ALL COLUMNS
+		if (substr($usql,0,7) == 'SELECT ') {
+			$at = strpos($usql,' FROM ');
+			$sel = trim(substr($usql,7,$at-7));
+
+			$distinct = false;
+			if (substr($sel,0,8) == 'DISTINCT') {
+				$distinct = true;
+				$sel = trim(substr($sel,8,$at));
+			}
+
+			// $sel holds the selection clause, comma delimited
+			// currently we only project if one column is involved
+			// this is to support popups in PHPLens
+			if (strpos(',',$sel)===false) {
+				$colarr = array();
+
+				preg_match("/$eregword/",$sel,$colarr);
+				$col = $colarr[1];
+				$i = 0;
+				$n = '';
+				reset($this->_colnames);
+				foreach ($this->_colnames as $n) {
+
+					if ($col == strtoupper(trim($n))) break;
+					$i += 1;
+				}
+
+				if ($n && $col) {
+					$distarr = array();
+					$projarray = array();
+					$projtypes = array($this->_types[$i]);
+					$projnames = array($n);
+
+					foreach ($where_arr as $a) {
+						if ($i == 0 && $this->_skiprow1) {
+							$projarray[] = array($n);
+							continue;
+						}
+
+						if ($distinct) {
+							$v = strtoupper($a[$i]);
+							if (! $distarr[$v]) {
+								$projarray[] = array($a[$i]);
+								$distarr[$v] = 1;
+							}
+						} else
+							$projarray[] = array($a[$i]);
+
+					} //foreach
+					//print_r($projarray);
+				}
+			} // check 1 column in projection
+		}  // is SELECT
+
+		if (empty($projarray)) {
+			$projtypes = $this->_types;
+			$projarray = $where_arr;
+			$projnames = $this->_colnames;
+		}
+		$this->_rezarray = $projarray;
+		$this->_reztypes = $projtypes;
+		$this->_reznames = $projnames;
+
+
+		$pos = strpos($usql,' ORDER BY ');
+		if ($pos === false) return $this;
+		$orderby = trim(substr($usql,$pos+10));
+
+		preg_match("/$eregword/",$orderby,$arr);
+		if (sizeof($arr) < 2) return $this; // actually invalid sql
+		$col = $arr[1];
+		$at = (integer) $col;
+		if ($at == 0) {
+			$i = 0;
+			reset($projnames);
+			foreach ($projnames as $n) {
+				if (strtoupper(trim($n)) == $col) {
+					$at = $i+1;
+					break;
+				}
+				$i += 1;
+			}
+		}
+
+		if ($at <= 0 || $at > sizeof($projarray[0])) return $this; // cannot find sort column
+		$at -= 1;
+
+		// generate sort array consisting of (sortval1, row index1) (sortval2, row index2)...
+		$sorta = array();
+		$t = $projtypes[$at];
+		$num = ($t == 'I' || $t == 'N');
+		for ($i=($this->_skiprow1)?1:0, $max = sizeof($projarray); $i < $max; $i++) {
+			$row = $projarray[$i];
+			$val = ($num)?(float)$row[$at]:$row[$at];
+			$sorta[]=array($val,$i);
+		}
+
+		// check for desc sort
+		$orderby = substr($orderby,strlen($col)+1);
+		$arr == array();
+		preg_match('/([A-Z_0-9]*)/i',$orderby,$arr);
+
+		if (trim($arr[1]) == 'DESC') $sortf = 'adodb_cmpr';
+		else $sortf = 'adodb_cmp';
+
+		// hasta la sorta babe
+		usort($sorta, $sortf);
+
+		// rearrange original array
+		$arr2 = array();
+		if ($this->_skiprow1) $arr2[] = $projarray[0];
+		foreach($sorta as $v) {
+			$arr2[] = $projarray[$v[1]];
+		}
+
+		$this->_rezarray = $arr2;
+		return $this;
+	}
+
+	/*	Returns: the last error message from previous database operation	*/
+	function ErrorMsg()
+	{
+			return '';
+	}
+
+	/*	Returns: the last error number from previous database operation	*/
+	function ErrorNo()
+	{
+		return 0;
+	}
+
+	// returns true or false
+	function _close()
+	{
+	}
+
+
+}
+
+/*--------------------------------------------------------------------------------------
+	 Class Name: Recordset
+--------------------------------------------------------------------------------------*/
+
+
+class ADORecordSet_text extends ADORecordSet_array
+{
+
+	var $databaseType = "text";
+
+	function __construct(&$conn,$mode=false)
+	{
+		parent::__construct();
+		$this->InitArray($conn->_rezarray,$conn->_reztypes,$conn->_reznames);
+		$conn->_rezarray = false;
+	}
+
+} // class ADORecordSet_text
+
+
+} // defined