Proyectos de Subversion Moodle

<?php

/**

 * Frontbase driver.

 *

 * 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

 * @author Frank M. Kromann <frank@frontbase.com>

 */

// security - hide paths

if (!defined('ADODB_DIR')) die();

if (! defined("_ADODB_FBSQL_LAYER")) {

 define("_ADODB_FBSQL_LAYER", 1 );

class ADODB_fbsql extends ADOConnection {

	var $databaseType = 'fbsql';

	var $hasInsertID = true;

	var $hasAffectedRows = true;

	var $metaTablesSQL = "SHOW TABLES";

	var $metaColumnsSQL = "SHOW COLUMNS FROM %s";

	var $fmtTimeStamp = "'Y-m-d H:i:s'";

	var $hasLimit = false;

	protected function _insertID($table = '', $column = '')

	{

			return fbsql_insert_id($this->_connectionID);

	}

	function _affectedrows()

	{

			return fbsql_affected_rows($this->_connectionID);

	}

  	function MetaDatabases()

	{

		$qid = fbsql_list_dbs($this->_connectionID);

		$arr = array();

		$i = 0;

		$max = fbsql_num_rows($qid);

		while ($i < $max) {

			$arr[] = fbsql_tablename($qid,$i);

			$i += 1;

		}

		return $arr;

	}

	// returns concatenated string

	function Concat()

	{

		$s = "";

		$arr = func_get_args();

		$first = true;

		$s = implode(',',$arr);

		if (sizeof($arr) > 0) return "CONCAT($s)";

		else return '';

	}

	// returns true or false

	function _connect($argHostname, $argUsername, $argPassword, $argDatabasename)

	{

		$this->_connectionID = fbsql_connect($argHostname,$argUsername,$argPassword);

		if ($this->_connectionID === false) return false;

		if ($argDatabasename) return $this->SelectDB($argDatabasename);

		return true;

	}

	// returns true or false

	function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)

	{

		$this->_connectionID = fbsql_pconnect($argHostname,$argUsername,$argPassword);

		if ($this->_connectionID === false) return false;

		if ($argDatabasename) return $this->SelectDB($argDatabasename);

		return true;

	}

 	function MetaColumns($table, $normalize=true)

	{

		if ($this->metaColumnsSQL) {

			$rs = $this->Execute(sprintf($this->metaColumnsSQL,$table));

			if ($rs === false) return false;

			$retarr = array();

			while (!$rs->EOF){

				$fld = new ADOFieldObject();

				$fld->name = $rs->fields[0];

				$fld->type = $rs->fields[1];

				// split type into type(length):

				if (preg_match("/^(.+)\((\d+)\)$/", $fld->type, $query_array)) {

					$fld->type = $query_array[1];

					$fld->max_length = $query_array[2];

				} else {

					$fld->max_length = -1;

				}

				$fld->not_null = ($rs->fields[2] != 'YES');

				$fld->primary_key = ($rs->fields[3] == 'PRI');

				$fld->auto_increment = (strpos($rs->fields[5], 'auto_increment') !== false);

				$fld->binary = (strpos($fld->type,'blob') !== false);

				$retarr[strtoupper($fld->name)] = $fld;

				$rs->MoveNext();

			}

			$rs->Close();

			return $retarr;

		}

		return false;

	}

	// returns true or false

	function SelectDB($dbName)

	{

		$this->database = $dbName;

		if ($this->_connectionID) {

			return @fbsql_select_db($dbName,$this->_connectionID);

		}

		else return false;

	}

	function _query($sql,$inputarr=false)

	{

		return fbsql_query("$sql;",$this->_connectionID);

	}

	/*	Returns: the last error message from previous database operation	*/

	function ErrorMsg()

	{

		$this->_errorMsg = @fbsql_error($this->_connectionID);

			return $this->_errorMsg;

	}

	/*	Returns: the last error number from previous database operation	*/

	function ErrorNo()

	{

		return @fbsql_errno($this->_connectionID);

	}

	// returns true or false

	function _close()

	{

		return @fbsql_close($this->_connectionID);

	}

}

/*--------------------------------------------------------------------------------------

	 Class Name: Recordset

--------------------------------------------------------------------------------------*/

class ADORecordSet_fbsql extends ADORecordSet{

	var $databaseType = "fbsql";

	var $canSeek = true;

	function __construct($queryID,$mode=false)

	{

		if (!$mode) {

			global $ADODB_FETCH_MODE;

			$mode = $ADODB_FETCH_MODE;

		}

		switch ($mode) {

		case ADODB_FETCH_NUM: $this->fetchMode = FBSQL_NUM; break;

		case ADODB_FETCH_ASSOC: $this->fetchMode = FBSQL_ASSOC; break;

		case ADODB_FETCH_BOTH:

		default:

		$this->fetchMode = FBSQL_BOTH; break;

		}

		parent::__construct($queryID);

	}

	function _initrs()

	{

	GLOBAL $ADODB_COUNTRECS;

		$this->_numOfRows = ($ADODB_COUNTRECS) ? @fbsql_num_rows($this->_queryID):-1;

		$this->_numOfFields = @fbsql_num_fields($this->_queryID);

	}

	function FetchField($fieldOffset = -1) {

		if ($fieldOffset != -1) {

			$o =  @fbsql_fetch_field($this->_queryID, $fieldOffset);

			//$o->max_length = -1; // fbsql returns the max length less spaces -- so it is unrealiable

			$f = @fbsql_field_flags($this->_queryID,$fieldOffset);

			$o->binary = (strpos($f,'binary')!== false);

		}

		else if ($fieldOffset == -1) {	/*	The $fieldOffset argument is not provided thus its -1 	*/

			$o = @fbsql_fetch_field($this->_queryID);// fbsql returns the max length less spaces -- so it is unrealiable

			//$o->max_length = -1;

		}

		return $o;

	}

	function _seek($row)

	{

		return @fbsql_data_seek($this->_queryID,$row);

	}

	function _fetch($ignore_fields=false)

	{

		$this->fields = @fbsql_fetch_array($this->_queryID,$this->fetchMode);

		return ($this->fields == true);

	}

	function _close() {

		return @fbsql_free_result($this->_queryID);

	}

	function MetaType($t,$len=-1,$fieldobj=false)

	{

		if (is_object($t)) {

			$fieldobj = $t;

			$t = $fieldobj->type;

			$len = $fieldobj->max_length;

		}

		$t = strtoupper($t);

		if (array_key_exists($t,$this->connection->customActualTypes))

			return $this->connection->customActualTypes[$t];

		$len = -1; // fbsql max_length is not accurate

		switch ($t) {

		case 'CHARACTER':

		case 'CHARACTER VARYING':

		case 'BLOB':

		case 'CLOB':

		case 'BIT':

		case 'BIT VARYING':

			if ($len <= $this->blobSize) return 'C';

		// so we have to check whether binary...

		case 'IMAGE':

		case 'LONGBLOB':

		case 'BLOB':

		case 'MEDIUMBLOB':

			return !empty($fieldobj->binary) ? 'B' : 'X';

		case 'DATE': return 'D';

		case 'TIME':

		case 'TIME WITH TIME ZONE':

		case 'TIMESTAMP':

		case 'TIMESTAMP WITH TIME ZONE': return 'T';

		case 'PRIMARY_KEY':

			return 'R';

		case 'INTEGER':

		case 'SMALLINT':

		case 'BOOLEAN':

			if (!empty($fieldobj->primary_key)) return 'R';

			else return 'I';

		default: return ADODB_DEFAULT_METATYPE;

		}

	}

} //class

} // defined