<?php
/**
* ADOdb Plain Text driver
*
* @deprecated
*
* 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();
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 RSRecordCount()
{
if (!empty($this->_rezarray)) return sizeof($this->_rezarray);
return sizeof($this->_origarray);
}
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;
}
/**
* Execute a query.
*
* 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 e.g. $arr[1] == 'name'
* also supports SELECT [DISTINCT] COL FROM ... -- only 1 col supported
*
* @param string|array $sql Query to execute.
* @param array $inputarr An optional array of parameters.
* @param string $eval Optional eval string
*
* @return mixed|bool Query identifier or true if execution successful, false if failed.
*/
function _query($sql, $inputarr=false, $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