<?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.  Set tabs to 8.    Original version derived from Alberto Cerezal (acerezalp@dbnet.es) - DBNet Informatica & Comunicaciones.   08 Nov 2000 jlim - Minor corrections, removing mysql stuff  09 Nov 2000 jlim - added insertid support suggested by "Christopher Kings-Lynne" <chriskl@familyhealth.com.au>					jlim - changed concat operator to || and data types to MetaType to match documented pgsql types 		 	see http://www.postgresql.org/devel-corner/docs/postgres/datatype.htm    22 Nov 2000 jlim - added changes to FetchField() and MetaTables() contributed by "raser" <raser@mail.zen.com.tw>  27 Nov 2000 jlim - added changes to _connect/_pconnect from ideas by "Lennie" <leen@wirehub.nl>  15 Dec 2000 jlim - added changes suggested by Additional code changes by "Eric G. Werk" egw@netguide.dk.   31 Jan 2002 jlim - finally installed postgresql. testing  01 Mar 2001 jlim - Freek Dijkstra changes, also support for text type    See http://www.varlena.com/varlena/GeneralBits/47.php  	-- What indexes are on my table?	select * from pg_indexes where tablename = 'tablename';		-- What triggers are on my table?	select c.relname as "Table", t.tgname as "Trigger Name", 	   t.tgconstrname as "Constraint Name", t.tgenabled as "Enabled",	   t.tgisconstraint as "Is Constraint", cc.relname as "Referenced Table",	   p.proname as "Function Name"	from pg_trigger t, pg_class c, pg_class cc, pg_proc p	where t.tgfoid = p.oid and t.tgrelid = c.oid	   and t.tgconstrrelid = cc.oid	   and c.relname = 'tablename';		-- What constraints are on my table?	select r.relname as "Table", c.conname as "Constraint Name",	   contype as "Constraint Type", conkey as "Key Columns",	   confkey as "Foreign Columns", consrc as "Source"	from pg_class r, pg_constraint c	where r.oid = c.conrelid	   and relname = 'tablename';*/// security - hide pathsif (!defined('ADODB_DIR')) die();function adodb_addslashes($s){	$len = strlen($s);	if ($len == 0) return "''";	if (strncmp($s,"'",1) === 0 && substr($s,$len-1) == "'") return $s; // already quoted		return "'".addslashes($s)."'";}class ADODB_postgres64 extends ADOConnection{	var $databaseType = 'postgres64';	var $dataProvider = 'postgres';	var $hasInsertID = true;	var $_resultid = false;  	var $concat_operator='||';	var $metaDatabasesSQL = "select datname from pg_database where datname not in ('template0','template1') order by 1";    var $metaTablesSQL = "select tablename,'T' from pg_tables where tablename not like 'pg\_%'	and tablename not in ('sql_features', 'sql_implementation_info', 'sql_languages',	 'sql_packages', 'sql_sizing', 'sql_sizing_profiles') 	union         select viewname,'V' from pg_views where viewname not like 'pg\_%'";	//"select tablename from pg_tables where tablename not like 'pg_%' order by 1";	var $isoDates = true; // accepts dates in ISO format	var $sysDate = "CURRENT_DATE";	var $sysTimeStamp = "CURRENT_TIMESTAMP";	var $blobEncodeType = 'C';	var $metaColumnsSQL = "SELECT a.attname,t.typname,a.attlen,a.atttypmod,a.attnotnull,a.atthasdef,a.attnum 		FROM pg_class c, pg_attribute a,pg_type t 		WHERE relkind in ('r','v') AND (c.relname='%s' or c.relname = lower('%s')) and a.attname not like '....%%'AND a.attnum > 0 AND a.atttypid = t.oid AND a.attrelid = c.oid ORDER BY a.attnum";	// used when schema defined	var $metaColumnsSQL1 = "SELECT a.attname, t.typname, a.attlen, a.atttypmod, a.attnotnull, a.atthasdef, a.attnum FROM pg_class c, pg_attribute a, pg_type t, pg_namespace n WHERE relkind in ('r','v') AND (c.relname='%s' or c.relname = lower('%s')) and c.relnamespace=n.oid and n.nspname='%s' 	and a.attname not like '....%%' AND a.attnum > 0 	AND a.atttypid = t.oid AND a.attrelid = c.oid ORDER BY a.attnum";		// get primary key etc -- from Freek Dijkstra	var $metaKeySQL = "SELECT ic.relname AS index_name, a.attname AS column_name,i.indisunique AS unique_key, i.indisprimary AS primary_key 	FROM pg_class bc, pg_class ic, pg_index i, pg_attribute a WHERE bc.oid = i.indrelid AND ic.oid = i.indexrelid AND (i.indkey[0] = a.attnum OR i.indkey[1] = a.attnum OR i.indkey[2] = a.attnum OR i.indkey[3] = a.attnum OR i.indkey[4] = a.attnum OR i.indkey[5] = a.attnum OR i.indkey[6] = a.attnum OR i.indkey[7] = a.attnum) AND a.attrelid = bc.oid AND bc.relname = '%s'";		var $hasAffectedRows = true;	var $hasLimit = false;	// set to true for pgsql 7 only. support pgsql/mysql SELECT * FROM TABLE LIMIT 10	// below suggested by Freek Dijkstra 	var $true = 'TRUE';		// string that represents TRUE for a database	var $false = 'FALSE';		// string that represents FALSE for a database	var $fmtDate = "'Y-m-d'";	// used by DBDate() as the default date format used by the database	var $fmtTimeStamp = "'Y-m-d H:i:s'"; // used by DBTimeStamp as the default timestamp fmt.	var $hasMoveFirst = true;	var $hasGenID = true;	var $_genIDSQL = "SELECT NEXTVAL('%s')";	var $_genSeqSQL = "CREATE SEQUENCE %s START %s";	var $_dropSeqSQL = "DROP SEQUENCE %s";	var $metaDefaultsSQL = "SELECT d.adnum as num, d.adsrc as def from pg_attrdef d, pg_class c where d.adrelid=c.oid and c.relname='%s' order by d.adnum";	var $random = 'random()';		/// random function	var $autoRollback = true; // apparently pgsql does not autorollback properly before php 4.3.4							// http://bugs.php.net/bug.php?id=25404								var $_bindInputArray = false; // requires postgresql 7.3+ and ability to modify database	var $disableBlobs = false; // set to true to disable blob checking, resulting in 2-5% improvement in performance.		// The last (fmtTimeStamp is not entirely correct: 	// PostgreSQL also has support for time zones, 	// and writes these time in this format: "2001-03-01 18:59:26+02". 	// There is no code for the "+02" time zone information, so I just left that out. 	// I'm not familiar enough with both ADODB as well as Postgres 	// to know what the concequences are. The other values are correct (wheren't in 0.94)	// -- Freek Dijkstra 	function ADODB_postgres64() 	{	// changes the metaColumnsSQL, adds columns: attnum[6]	}		function ServerInfo()	{		if (isset($this->version)) return $this->version;				$arr['description'] = $this->GetOne("select version()");		$arr['version'] = ADOConnection::_findvers($arr['description']);		$this->version = $arr;		return $arr;	}	function IfNull( $field, $ifNull ) 	{		return " coalesce($field, $ifNull) "; 	}	// get the last id - never tested	function pg_insert_id($tablename,$fieldname)	{		$result=pg_exec($this->_connectionID, "SELECT last_value FROM ${tablename}_${fieldname}_seq");		if ($result) {			$arr = @pg_fetch_row($result,0);			pg_freeresult($result);			if (isset($arr[0])) return $arr[0];		}		return false;	}	/* Warning from http://www.php.net/manual/function.pg-getlastoid.php:Using a OID as a unique identifier is not generally wise. Unless you are very careful, you might end up with a tuple having a different OID if a database must be reloaded. */	function _insertid($table,$column)	{		if (!is_resource($this->_resultid) || get_resource_type($this->_resultid) !== 'pgsql result') return false;		$oid = pg_getlastoid($this->_resultid);		// to really return the id, we need the table and column-name, else we can only return the oid != id		return empty($table) || empty($column) ? $oid : $this->GetOne("SELECT $column FROM $table WHERE oid=".(int)$oid);	}// I get this error with PHP before 4.0.6 - jlim// Warning: This compilation does not support pg_cmdtuples() in adodb-postgres.inc.php on line 44   function _affectedrows()   {   		if (!is_resource($this->_resultid) || get_resource_type($this->_resultid) !== 'pgsql result') return false;	   	return pg_cmdtuples($this->_resultid);   }   			// returns true/false	function BeginTrans()	{		if ($this->transOff) return true;		$this->transCnt += 1;		return @pg_Exec($this->_connectionID, "begin ".$this->_transmode);	}		function RowLock($tables,$where,$flds='1 as ignore') 	{		if (!$this->transCnt) $this->BeginTrans();		return $this->GetOne("select $flds from $tables where $where for update");	}	// returns true/false. 	function CommitTrans($ok=true) 	{ 		if ($this->transOff) return true;		if (!$ok) return $this->RollbackTrans();				$this->transCnt -= 1;		return @pg_Exec($this->_connectionID, "commit");	}		// returns true/false	function RollbackTrans()	{		if ($this->transOff) return true;		$this->transCnt -= 1;		return @pg_Exec($this->_connectionID, "rollback");	}		function &MetaTables($ttype=false,$showSchema=false,$mask=false) 	{		$info = $this->ServerInfo();		if ($info['version'] >= 7.3) {	    	$this->metaTablesSQL = "select tablename,'T' from pg_tables where tablename not like 'pg\_%'			  and schemaname  not in ( 'pg_catalog','information_schema')	union         select viewname,'V' from pg_views where viewname not like 'pg\_%'  and schemaname  not in ( 'pg_catalog','information_schema') ";		}		if ($mask) {			$save = $this->metaTablesSQL;			$mask = $this->qstr(strtolower($mask));			if ($info['version']>=7.3)				$this->metaTablesSQL = "select tablename,'T' from pg_tables where tablename like $mask and schemaname not in ( 'pg_catalog','information_schema')   union select viewname,'V' from pg_views where viewname like $mask and schemaname  not in ( 'pg_catalog','information_schema')  ";			else				$this->metaTablesSQL = "select tablename,'T' from pg_tables where tablename like $mask  union select viewname,'V' from pg_views where viewname like $mask";		}		$ret =& ADOConnection::MetaTables($ttype,$showSchema);				if ($mask) {			$this->metaTablesSQL = $save;		}		return $ret;	}			// if magic quotes disabled, use pg_escape_string()	function qstr($s,$magic_quotes=false)	{		if (!$magic_quotes) {			if (ADODB_PHPVER >= 0x5200) {				return  "'".pg_escape_string($this->_connectionID,$s)."'";			} 			if (ADODB_PHPVER >= 0x4200) {				return  "'".pg_escape_string($s)."'";			}			if ($this->replaceQuote[0] == '\\'){				$s = adodb_str_replace(array('\\',"\0"),array('\\\\',"\\\\000"),$s);			}			return  "'".str_replace("'",$this->replaceQuote,$s)."'"; 		}				// undo magic quotes for "		$s = str_replace('\\"','"',$s);		return "'$s'";	}				// Format date column in sql string given an input format that understands Y M D	function SQLDate($fmt, $col=false)	{			if (!$col) $col = $this->sysTimeStamp;		$s = 'TO_CHAR('.$col.",'";				$len = strlen($fmt);		for ($i=0; $i < $len; $i++) {			$ch = $fmt[$i];			switch($ch) {			case 'Y':			case 'y':				$s .= 'YYYY';				break;			case 'Q':			case 'q':				$s .= 'Q';				break;							case 'M':				$s .= 'Mon';				break;							case 'm':				$s .= 'MM';				break;			case 'D':			case 'd':				$s .= 'DD';				break;						case 'H':				$s.= 'HH24';				break;							case 'h':				$s .= 'HH';				break;							case 'i':				$s .= 'MI';				break;						case 's':				$s .= 'SS';				break;						case 'a':			case 'A':				$s .= 'AM';				break;							case 'w':				$s .= 'D';				break;						case 'l':				$s .= 'DAY';				break;						 case 'W':				$s .= 'WW';				break;			default:			// handle escape characters...				if ($ch == '\\') {					$i++;					$ch = substr($fmt,$i,1);				}				if (strpos('-/.:;, ',$ch) !== false) $s .= $ch;				else $s .= '"'.$ch.'"';							}		}		return $s. "')";	}				/* 	* Load a Large Object from a file 	* - the procedure stores the object id in the table and imports the object using 	* postgres proprietary blob handling routines 	*	* contributed by Mattia Rossi mattia@technologist.com	* modified for safe mode by juraj chlebec	*/ 	function UpdateBlobFile($table,$column,$path,$where,$blobtype='BLOB') 	{ 		pg_exec ($this->_connectionID, "begin"); 				$fd = fopen($path,'r');		$contents = fread($fd,filesize($path));		fclose($fd);				$oid = pg_lo_create($this->_connectionID);