<?php/*V4.94 23 Jan 2007  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.    Released under both BSD license and Lesser GPL library license.   Whenever there is any discrepancy between the two licenses,   the BSD license will take precedence.  Latest version is available at http://adodb.sourceforge.net    Interbase data driver. Requires interbase client. Works on Windows and Unix.  3 Jan 2002 -- suggestions by Hans-Peter Oeri <kampfcaspar75@oeri.ch>  	changed transaction handling and added experimental blob stuff    Docs to interbase at the website   http://www.synectics.co.za/php3/tutorial/IB_PHP3_API.html     To use gen_id(), see   http://www.volny.cz/iprenosil/interbase/ip_ib_code.htm#_code_creategen      $rs = $conn->Execute('select gen_id(adodb,1) from rdb$database');   $id = $rs->fields[0];   $conn->Execute("insert into table (id, col1,...) values ($id, $val1,...)");*/// security - hide pathsif (!defined('ADODB_DIR')) die();class ADODB_ibase extends ADOConnection {	var $databaseType = "ibase";	var $dataProvider = "ibase";	var $replaceQuote = "''"; // string to use to replace quotes	var $ibase_datefmt = '%Y-%m-%d'; // For hours,mins,secs change to '%Y-%m-%d %H:%M:%S';	var $fmtDate = "'Y-m-d'";	var $ibase_timestampfmt = "%Y-%m-%d %H:%M:%S";	var $ibase_timefmt = "%H:%M:%S";	var $fmtTimeStamp = "'Y-m-d, H:i:s'";	var $concat_operator='||';	var $_transactionID;	var $metaTablesSQL = "select rdb\$relation_name from rdb\$relations where rdb\$relation_name not like 'RDB\$%'";	//OPN STUFF start	var $metaColumnsSQL = "select a.rdb\$field_name, a.rdb\$null_flag, a.rdb\$default_source, b.rdb\$field_length, b.rdb\$field_scale, b.rdb\$field_sub_type, b.rdb\$field_precision, b.rdb\$field_type from rdb\$relation_fields a, rdb\$fields b where a.rdb\$field_source = b.rdb\$field_name and a.rdb\$relation_name = '%s' order by a.rdb\$field_position asc";	//OPN STUFF end	var $ibasetrans;	var $hasGenID = true;	var $_bindInputArray = true;	var $buffers = 0;	var $dialect = 1;	var $sysDate = "cast('TODAY' as timestamp)";	var $sysTimeStamp = "CURRENT_TIMESTAMP"; //"cast('NOW' as timestamp)";	var $ansiOuter = true;	var $hasAffectedRows = false;	var $poorAffectedRows = true;	var $blobEncodeType = 'C';	var $role = false;		function ADODB_ibase() 	{		 if (defined('IBASE_DEFAULT')) $this->ibasetrans = IBASE_DEFAULT;  	}			   // returns true or false	function _connect($argHostname, $argUsername, $argPassword, $argDatabasename,$persist=false)	{  		if (!function_exists('ibase_pconnect')) return null;		if ($argDatabasename) $argHostname .= ':'.$argDatabasename;		$fn = ($persist) ? 'ibase_pconnect':'ibase_connect';		if ($this->role)			$this->_connectionID = $fn($argHostname,$argUsername,$argPassword,					$this->charSet,$this->buffers,$this->dialect,$this->role);		else				$this->_connectionID = $fn($argHostname,$argUsername,$argPassword,					$this->charSet,$this->buffers,$this->dialect);				if ($this->dialect != 1) { // http://www.ibphoenix.com/ibp_60_del_id_ds.html			$this->replaceQuote = "''";		}		if ($this->_connectionID === false) {			$this->_handleerror();			return false;		}				// PHP5 change.		if (function_exists('ibase_timefmt')) {			ibase_timefmt($this->ibase_datefmt,IBASE_DATE );			if ($this->dialect == 1) ibase_timefmt($this->ibase_datefmt,IBASE_TIMESTAMP );			else ibase_timefmt($this->ibase_timestampfmt,IBASE_TIMESTAMP );			ibase_timefmt($this->ibase_timefmt,IBASE_TIME );					} else {			ini_set("ibase.timestampformat", $this->ibase_timestampfmt);			ini_set("ibase.dateformat", $this->ibase_datefmt);			ini_set("ibase.timeformat", $this->ibase_timefmt);		}		return true;	}	   // returns true or false	function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)	{		return $this->_connect($argHostname, $argUsername, $argPassword, $argDatabasename,true);	}				function MetaPrimaryKeys($table,$owner_notused=false,$internalKey=false)	{			if ($internalKey) return array('RDB$DB_KEY');				$table = strtoupper($table);				$sql = 'SELECT S.RDB$FIELD_NAME AFIELDNAME	FROM RDB$INDICES I JOIN RDB$INDEX_SEGMENTS S ON I.RDB$INDEX_NAME=S.RDB$INDEX_NAME  	WHERE I.RDB$RELATION_NAME=\''.$table.'\' and I.RDB$INDEX_NAME like \'RDB$PRIMARY%\'	ORDER BY I.RDB$INDEX_NAME,S.RDB$FIELD_POSITION';		$a = $this->GetCol($sql,false,true);		if ($a && sizeof($a)>0) return $a;		return false;	  	}		function ServerInfo()	{		$arr['dialect'] = $this->dialect;		switch($arr['dialect']) {		case '': 		case '1': $s = 'Interbase 5.5 or earlier'; break;		case '2': $s = 'Interbase 5.6'; break;		default:		case '3': $s = 'Interbase 6.0'; break;		}		$arr['version'] = ADOConnection::_findvers($s);		$arr['description'] = $s;		return $arr;	}	function BeginTrans()	{	 		if ($this->transOff) return true;		$this->transCnt += 1;		$this->autoCommit = false;	 	$this->_transactionID = $this->_connectionID;//ibase_trans($this->ibasetrans, $this->_connectionID);		return $this->_transactionID;	}		function CommitTrans($ok=true) 	{ 		if (!$ok) return $this->RollbackTrans();		if ($this->transOff) return true;		if ($this->transCnt) $this->transCnt -= 1;		$ret = false;		$this->autoCommit = true;		if ($this->_transactionID) {			   		//print ' commit ';			$ret = ibase_commit($this->_transactionID);		}		$this->_transactionID = false;		return $ret;	}		// there are some compat problems with ADODB_COUNTRECS=false and $this->_logsql currently.	// it appears that ibase extension cannot support multiple concurrent queryid's	function &_Execute($sql,$inputarr=false) 	{	global $ADODB_COUNTRECS;			if ($this->_logsql) {			$savecrecs = $ADODB_COUNTRECS;			$ADODB_COUNTRECS = true; // force countrecs			$ret =& ADOConnection::_Execute($sql,$inputarr);			$ADODB_COUNTRECS = $savecrecs;		} else {			$ret =& ADOConnection::_Execute($sql,$inputarr);		}		return $ret;	}		function RollbackTrans()	{		if ($this->transOff) return true;		if ($this->transCnt) $this->transCnt -= 1;		$ret = false;		$this->autoCommit = true;		if ($this->_transactionID) 				  $ret = ibase_rollback($this->_transactionID);		$this->_transactionID = false;   				return $ret;	}		function &MetaIndexes ($table, $primary = FALSE, $owner=false)	{        // save old fetch mode        global $ADODB_FETCH_MODE;        $false = false;        $save = $ADODB_FETCH_MODE;        $ADODB_FETCH_MODE = ADODB_FETCH_NUM;        if ($this->fetchMode !== FALSE) {               $savem = $this->SetFetchMode(FALSE);        }        $table = strtoupper($table);        $sql = "SELECT * FROM RDB\$INDICES WHERE RDB\$RELATION_NAME = '".$table."'";        if (!$primary) {        	$sql .= " AND RDB\$INDEX_NAME NOT LIKE 'RDB\$%'";        } else {        	$sql .= " AND RDB\$INDEX_NAME NOT LIKE 'RDB\$FOREIGN%'";        }        // get index details        $rs = $this->Execute($sql);        if (!is_object($rs)) {	        // restore fetchmode	        if (isset($savem)) {	            $this->SetFetchMode($savem);	        }	        $ADODB_FETCH_MODE = $save;            return $false;        }                $indexes = array();		while ($row = $rs->FetchRow()) {			$index = $row[0];             if (!isset($indexes[$index])) {             		if (is_null($row[3])) {$row[3] = 0;}                     $indexes[$index] = array(                             'unique' => ($row[3] == 1),                             'columns' => array()                     );             }			$sql = "SELECT * FROM RDB\$INDEX_SEGMENTS WHERE RDB\$INDEX_NAME = '".$index."' ORDER BY RDB\$FIELD_POSITION ASC";			$rs1 = $this->Execute($sql);            while ($row1 = $rs1->FetchRow()) {             	$indexes[$index]['columns'][$row1[2]] = $row1[1];        	}		}        // restore fetchmode        if (isset($savem)) {            $this->SetFetchMode($savem);        }        $ADODB_FETCH_MODE = $save;                return $indexes;	}		// See http://community.borland.com/article/0,1410,25844,00.html	function RowLock($tables,$where,$col)	{		if ($this->autoCommit) $this->BeginTrans();		$this->Execute("UPDATE $table SET $col=$col WHERE $where "); // is this correct - jlim?		return 1;	}			function CreateSequence($seqname,$startID=1)	{		$ok = $this->Execute(("INSERT INTO RDB\$GENERATORS (RDB\$GENERATOR_NAME) VALUES (UPPER('$seqname'))" ));		if (!$ok) return false;		return $this->Execute("SET GENERATOR $seqname TO ".($startID-1).';');	}		function DropSequence($seqname)	{		$seqname = strtoupper($seqname);		$this->Execute("delete from RDB\$GENERATORS where RDB\$GENERATOR_NAME='$seqname'");	}		function GenID($seqname='adodbseq',$startID=1)	{		$getnext = ("SELECT Gen_ID($seqname,1) FROM RDB\$DATABASE");		$rs = @$this->Execute($getnext);		if (!$rs) {			$this->Execute(("INSERT INTO RDB\$GENERATORS (RDB\$GENERATOR_NAME) VALUES (UPPER('$seqname'))" ));			$this->Execute("SET GENERATOR $seqname TO ".($startID-1).';');			$rs = $this->Execute($getnext);		}		if ($rs && !$rs->EOF) $this->genID = (integer) reset($rs->fields);		else $this->genID = 0; // false				if ($rs) $rs->Close();				return $this->genID;	}	function SelectDB($dbName) 	{		   return false;	}	function _handleerror()	{		$this->_errorMsg = ibase_errmsg();	}	function ErrorNo() 	{		if (preg_match('/error code = ([\-0-9]*)/i', $this->_errorMsg,$arr)) return (integer) $arr[1];		else return 0;	}	function ErrorMsg() 	{			return $this->_errorMsg;	}	function Prepare($sql)	{		$stmt = ibase_prepare($this->_connectionID,$sql);		if (!$stmt) return false;		return array($sql,$stmt);	}	   // returns query ID if successful, otherwise false	   // there have been reports of problems with nested queries - the code is probably not re-entrant?	function _query($sql,$iarr=false)	{ 		if (!$this->autoCommit && $this->_transactionID) {			$conn = $this->_transactionID;			$docommit = false;		} else {			$conn = $this->_connectionID;			$docommit = true;		}		if (is_array($sql)) {			$fn = 'ibase_execute';			$sql = $sql[1];			if (is_array($iarr)) {				if  (ADODB_PHPVER >= 0x4050) { // actually 4.0.4					if ( !isset($iarr[0]) ) $iarr[0] = ''; // PHP5 compat hack					$fnarr =& array_merge( array($sql) , $iarr);					$ret = call_user_func_array($fn,$fnarr);				} else {					switch(sizeof($iarr)) {					case 1: $ret = $fn($sql,$iarr[0]); break;					case 2: $ret = $fn($sql,$iarr[0],$iarr[1]); break;					case 3: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2]); break;					case 4: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3]); break;					case 5: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4]); break;					case 6: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5]); break;					case 7: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5],$iarr[6]); break;					default: ADOConnection::outp( "Too many parameters to ibase query $sql");					case 8: $ret = $fn($sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5],$iarr[6],$iarr[7]); break;					}				}			} else $ret = $fn($sql); 		} else {			$fn = 'ibase_query';					if (is_array($iarr)) {					if (ADODB_PHPVER >= 0x4050) { // actually 4.0.4					if (sizeof($iarr) == 0) $iarr[0] = ''; // PHP5 compat hack					$fnarr =& array_merge( array($conn,$sql) , $iarr);					$ret = call_user_func_array($fn,$fnarr);				} else {					switch(sizeof($iarr)) {					case 1: $ret = $fn($conn,$sql,$iarr[0]); break;					case 2: $ret = $fn($conn,$sql,$iarr[0],$iarr[1]); break;					case 3: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2]); break;					case 4: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3]); break;					case 5: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4]); break;					case 6: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5]); break;					case 7: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5],$iarr[6]); break;					default: ADOConnection::outp( "Too many parameters to ibase query $sql");					case 8: $ret = $fn($conn,$sql,$iarr[0],$iarr[1],$iarr[2],$iarr[3],$iarr[4],$iarr[5],$iarr[6],$iarr[7]); break;					}				}			} else $ret = $fn($conn,$sql); 		}		if ($docommit && $ret === true) ibase_commit($this->_connectionID);		$this->_handleerror();		return $ret;	}	 // returns true or false	 function _close()	 {	   		if (!$this->autoCommit) @ibase_rollback($this->_connectionID);		return @ibase_close($this->_connectionID);	 }		//OPN STUFF start	function _ConvertFieldType(&$fld, $ftype, $flen, $fscale, $fsubtype, $fprecision, $dialect3)	{		$fscale = abs($fscale);		$fld->max_length = $flen;		$fld->scale = null;		switch($ftype){			case 7: 			case 8:				if ($dialect3) {				    switch($fsubtype){				    	case 0: 				    		$fld->type = ($ftype == 7 ? 'smallint' : 'integer');				    		break;				    	case 1: 				    		$fld->type = 'numeric';							$fld->max_length = $fprecision;							$fld->scale = $fscale;				    		break;				    	case 2:				    		$fld->type = 'decimal';							$fld->max_length = $fprecision;							$fld->scale = $fscale;				    		break;				    } // switch				} else {					if ($fscale !=0) {					    $fld->type = 'decimal';						$fld->scale = $fscale;						$fld->max_length = ($ftype == 7 ? 4 : 9);					} else {						$fld->type = ($ftype == 7 ? 'smallint' : 'integer');					}				}				break;			case 16: 				if ($dialect3) {				    switch($fsubtype){				    	case 0: 				    		$fld->type = 'decimal';							$fld->max_length = 18;							$fld->scale = 0;				    		break;				    	case 1: 				    		$fld->type = 'numeric';							$fld->max_length = $fprecision;							$fld->scale = $fscale;				    		break;				    	case 2:				    		$fld->type = 'decimal';							$fld->max_length = $fprecision;							$fld->scale = $fscale;				    		break;				    } // switch				}				break;			case 10:				$fld->type = 'float';				break;			case 14:				$fld->type = 'char';				break;			case 27:				if ($fscale !=0) {