mirror of
https://github.com/EGroupware/egroupware.git
synced 2025-06-19 08:26:52 +02:00
formatting
This commit is contained in:
Miles Lott
parent
4820ee5c02
commit
ffcb54d88f
@ -1,454 +1,546 @@
|
|||||||
<?php
|
<?php
|
||||||
/**************************************************************************\
|
/**************************************************************************\
|
||||||
* phpGroupWare API - *
|
* phpGroupWare API - *
|
||||||
* Copyright (c) 1998-2000 Luis Francisco Gonzalez Hernandez *
|
* Copyright (c) 1998-2000 Luis Francisco Gonzalez Hernandez *
|
||||||
* Oracle accessor based on Session Management for PHP3 *
|
* Oracle accessor based on Session Management for PHP3 *
|
||||||
* ------------------------------------------------------------------------ *
|
* ------------------------------------------------------------------------ *
|
||||||
* This is not part of phpGroupWare, but is used by phpGroupWare. *
|
* This is not part of phpGroupWare, but is used by phpGroupWare. *
|
||||||
* http://www.phpgroupware.org/ *
|
* http://www.phpgroupware.org/ *
|
||||||
* ------------------------------------------------------------------------ *
|
* ------------------------------------------------------------------------ *
|
||||||
* This program is free software; you can redistribute it and/or modify it *
|
* This program is free software; you can redistribute it and/or modify it *
|
||||||
* under the terms of the GNU Lesser General Public License as published *
|
* under the terms of the GNU Lesser General Public License as published *
|
||||||
* by the Free Software Foundation; either version 2.1 of the License, or *
|
* by the Free Software Foundation; either version 2.1 of the License, or *
|
||||||
* any later version. *
|
* any later version. *
|
||||||
\**************************************************************************/
|
\**************************************************************************/
|
||||||
/* $Id$ */
|
|
||||||
|
|
||||||
class db {
|
/* $Id$ */
|
||||||
var $Debug = false;
|
|
||||||
var $Home = "/u01/app/oracle/product/8.0.4";
|
|
||||||
var $Remote = 1;
|
|
||||||
/* Due to a strange error with Oracle 8.0.5, Apache and PHP3.0.6
|
|
||||||
you don't need to set the ENV - on my system Apache
|
|
||||||
will change to a zombie, if I don't set this to FALSE!
|
|
||||||
If unsure try it out, if it works. */
|
|
||||||
var $OraPutEnv = true;
|
|
||||||
|
|
||||||
var $Database = "";
|
class db
|
||||||
var $User = "";
|
{
|
||||||
var $Password = "";
|
var $Debug = False;
|
||||||
|
var $Home = '/u01/app/oracle/product/8.0.4';
|
||||||
|
var $Remote = 1;
|
||||||
|
/* Due to a strange error with Oracle 8.0.5, Apache and PHP3.0.6
|
||||||
|
you don't need to set the ENV - on my system Apache
|
||||||
|
will change to a zombie, if I don't set this to FALSE!
|
||||||
|
If unsure try it out, if it works. */
|
||||||
|
/* Milosch - omg, you aren't using 3.0.6 are you? */
|
||||||
|
var $OraPutEnv = true;
|
||||||
|
|
||||||
var $Link_ID = 0;
|
var $Database = '';
|
||||||
var $Query_ID = 0;
|
var $User = '';
|
||||||
var $Record = array();
|
var $Password = '';
|
||||||
var $Row;
|
|
||||||
|
|
||||||
var $Errno = 0;
|
var $Link_ID = 0;
|
||||||
var $Error = "";
|
var $Query_ID = 0;
|
||||||
var $ora_no_next_fetch=false;
|
var $Record = array();
|
||||||
|
var $Row;
|
||||||
|
|
||||||
|
var $Errno = 0;
|
||||||
|
var $Error = '';
|
||||||
|
var $ora_no_next_fetch = False;
|
||||||
|
|
||||||
/* copied from db_mysql for completeness */
|
/* copied from db_mysql for completeness */
|
||||||
/* public: identification constant. never change this. */
|
/* public: identification constant. never change this. */
|
||||||
var $type = "oracle";
|
var $type = 'oracle';
|
||||||
var $revision = "1.2";
|
var $revision = '1.2';
|
||||||
|
|
||||||
var $Halt_On_Error = "yes"; ## "yes" (halt with message), "no" (ignore errors quietly), "report" (ignore errror, but spit a warning)
|
var $Halt_On_Error = 'yes'; ## 'yes' (halt with message), 'no' (ignore errors quietly), 'report' (ignore errror, but spit a warning)
|
||||||
|
|
||||||
/* public: constructor */
|
/* public: constructor */
|
||||||
function db($query = "") {
|
function db($query = '')
|
||||||
$this->query($query);
|
{
|
||||||
}
|
$this->query($query);
|
||||||
|
}
|
||||||
|
|
||||||
/* public: some trivial reporting */
|
/* public: some trivial reporting */
|
||||||
function link_id() {
|
function link_id()
|
||||||
return $this->Link_ID;
|
{
|
||||||
}
|
return $this->Link_ID;
|
||||||
|
}
|
||||||
|
|
||||||
function query_id() {
|
function query_id()
|
||||||
return $this->Query_ID;
|
{
|
||||||
}
|
return $this->Query_ID;
|
||||||
|
}
|
||||||
|
|
||||||
function connect() {
|
function connect()
|
||||||
## see above why we do this
|
{
|
||||||
if ($this->OraPutEnv) {
|
## see above why we do this
|
||||||
PutEnv("ORACLE_SID=$this->Database");
|
if ($this->OraPutEnv)
|
||||||
PutEnv("ORACLE_HOME=$this->Home");
|
{
|
||||||
}
|
PutEnv("ORACLE_SID=$this->Database");
|
||||||
if ( 0 == $this->Link_ID ) {
|
PutEnv("ORACLE_HOME=$this->Home");
|
||||||
if($this->Debug) {
|
}
|
||||||
printf("<br>Connect()ing to $this->Database...<br>\n");
|
if ( 0 == $this->Link_ID )
|
||||||
}
|
{
|
||||||
if($this->Remote) {
|
if($this->Debug)
|
||||||
if($this->Debug) {
|
{
|
||||||
printf("<br>connect() $this->User/******@$this->Database.world<br>\n");
|
printf('<br>Connecting to ' . $this->Database . "...<br>\n");
|
||||||
}
|
}
|
||||||
if($GLOBALS['phpgw_info']['server']['db_persistent'])
|
if($this->Remote)
|
||||||
{
|
{
|
||||||
$this->Link_ID=ora_plogon("$this->User/$this->Password@$this->Database","");
|
if($this->Debug)
|
||||||
/************** (comment by SSilk)
|
{
|
||||||
this dosn't work on my system:
|
printf("<br>connect() $this->User/******@$this->Database.world<br>\n");
|
||||||
$this->Link_ID=ora_plogon("$this->User@$this->Database.world","$this->Password");
|
}
|
||||||
***************/
|
if($GLOBALS['phpgw_info']['server']['db_persistent'])
|
||||||
}
|
{
|
||||||
else
|
$this->Link_ID = ora_plogon("$this->User/$this->Password@$this->Database","");
|
||||||
{
|
/************** (comment by SSilk)
|
||||||
$this->Link_ID=ora_logon("$this->User/$this->Password@$this->Database","");
|
this dosn't work on my system:
|
||||||
/************** (comment by SSilk)
|
$this->Link_ID = ora_plogon("$this->User@$this->Database.world","$this->Password");
|
||||||
this dosn't work on my system:
|
***************/
|
||||||
$this->Link_ID=ora_logon("$this->User@$this->Database.world","$this->Password");
|
}
|
||||||
***************/
|
else
|
||||||
}
|
{
|
||||||
} else {
|
$this->Link_ID = ora_logon("$this->User/$this->Password@$this->Database","");
|
||||||
if($this->Debug) {
|
/************** (comment by SSilk)
|
||||||
printf("<br>connect() $this->User, $this->Password <br>\n");
|
this dosn't work on my system:
|
||||||
}
|
$this->Link_ID=ora_logon("$this->User@$this->Database.world","$this->Password");
|
||||||
if($GLOBALS['phpgw_info']['server']['db_persistent'])
|
***************/
|
||||||
{
|
}
|
||||||
$this->Link_ID=ora_plogon("$this->User","$this->Password");
|
}
|
||||||
/* (comment by SSilk: don't know how this could work, but I leave this untouched!) */
|
else
|
||||||
}
|
{
|
||||||
else
|
if($this->Debug)
|
||||||
{
|
{
|
||||||
$this->Link_ID=ora_logon("$this->User","$this->Password");
|
printf("<br>connect() $this->User, $this->Password <br>\n");
|
||||||
}
|
}
|
||||||
}
|
if($GLOBALS['phpgw_info']['server']['db_persistent'])
|
||||||
if($this->Debug) {
|
{
|
||||||
printf("<br>connect() Link_ID: $this->Link_ID<br>\n");
|
$this->Link_ID=ora_plogon("$this->User","$this->Password");
|
||||||
}
|
/* (comment by SSilk: don't know how this could work, but I leave this untouched!) */
|
||||||
if (!$this->Link_ID) {
|
}
|
||||||
$this->halt("connect() Link-ID == false " .
|
else
|
||||||
"($this->Link_ID), ora_".($GLOBALS['phpgw_info']['server']['db_persistent']?'p':'')."logon failed");
|
{
|
||||||
} else {
|
$this->Link_ID=ora_logon("$this->User","$this->Password");
|
||||||
//echo "commit on<p>";
|
}
|
||||||
ora_commiton($this->Link_ID);
|
}
|
||||||
}
|
if($this->Debug)
|
||||||
if($this->Debug) {
|
{
|
||||||
printf("<br>connect() Obtained the Link_ID: $this->Link_ID<br>\n");
|
printf("<br>connect() Link_ID: $this->Link_ID<br>\n");
|
||||||
}
|
}
|
||||||
}
|
if (!$this->Link_ID)
|
||||||
}
|
{
|
||||||
|
$this->halt('connect() Link-ID == false '
|
||||||
|
. "($this->Link_ID), ora_".($GLOBALS['phpgw_info']['server']['db_persistent']?'p':'').'logon failed');
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
//echo 'commit on<p>';
|
||||||
|
ora_commiton($this->Link_ID);
|
||||||
|
}
|
||||||
|
if($this->Debug)
|
||||||
|
{
|
||||||
|
printf("<br>connect() Obtained the Link_ID: $this->Link_ID<br>\n");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
## In order to increase the # of cursors per system/user go edit the
|
## In order to increase the # of cursors per system/user go edit the
|
||||||
## init.ora file and increase the max_open_cursors parameter. Yours is on
|
## init.ora file and increase the max_open_cursors parameter. Yours is on
|
||||||
## the default value, 100 per user.
|
## the default value, 100 per user.
|
||||||
## We tried to change the behaviour of query() in a way, that it tries
|
## We tried to change the behaviour of query() in a way, that it tries
|
||||||
## to safe cursors, but on the other side be carefull with this, that you
|
## to safe cursors, but on the other side be carefull with this, that you
|
||||||
## don't use an old result.
|
## don't use an old result.
|
||||||
##
|
##
|
||||||
## You can also make extensive use of ->disconnect()!
|
## You can also make extensive use of ->disconnect()!
|
||||||
## The unused QueryIDs will be recycled sometimes.
|
## The unused QueryIDs will be recycled sometimes.
|
||||||
|
|
||||||
function query($Query_String) {
|
function query($Query_String)
|
||||||
|
{
|
||||||
|
/* No empty queries, please, since PHP4 chokes on them. */
|
||||||
|
if ($Query_String == '')
|
||||||
|
{
|
||||||
|
/* The empty query string is passed on from the constructor,
|
||||||
|
* when calling the class without a query, e.g. in situations
|
||||||
|
* like these: '$db = new DB_Sql_Subclass;'
|
||||||
|
*/
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
$this->connect();
|
||||||
|
$this->lastQuery=$Query_String;
|
||||||
|
|
||||||
/* No empty queries, please, since PHP4 chokes on them. */
|
if (!$this->Query_ID)
|
||||||
if ($Query_String == "")
|
{
|
||||||
/* The empty query string is passed on from the constructor,
|
$this->Query_ID = ora_open($this->Link_ID);
|
||||||
* when calling the class without a query, e.g. in situations
|
}
|
||||||
* like these: '$db = new DB_Sql_Subclass;'
|
if($this->Debug)
|
||||||
*/
|
{
|
||||||
return 0;
|
printf("Debug: query = %s<br>\n", $Query_String);
|
||||||
|
printf("<br>Debug: Query_ID: %d<br>\n", $this->Query_ID);
|
||||||
|
}
|
||||||
|
|
||||||
$this->connect();
|
if(!@ora_parse($this->Query_ID,$Query_String))
|
||||||
$this->lastQuery=$Query_String;
|
{
|
||||||
|
$this->Errno=ora_errorcode($this->Query_ID);
|
||||||
|
$this->Error=ora_error($this->Query_ID);
|
||||||
|
$this->halt("<BR>ora_parse() failed:<BR>$Query_String<BR><small>Snap & paste this to sqlplus!</SMALL>");
|
||||||
|
}
|
||||||
|
elseif (!@ora_exec($this->Query_ID))
|
||||||
|
{
|
||||||
|
$this->Errno=ora_errorcode($this->Query_ID);
|
||||||
|
$this->Error=ora_error($this->Query_ID);
|
||||||
|
$this->halt("<BR>\n$Query_String\n<BR><small>Snap & paste this to sqlplus!</SMALL>");
|
||||||
|
}
|
||||||
|
|
||||||
if (!$this->Query_ID) {
|
$this->Row=0;
|
||||||
$this->Query_ID= ora_open($this->Link_ID);
|
|
||||||
}
|
|
||||||
if($this->Debug) {
|
|
||||||
printf("Debug: query = %s<br>\n", $Query_String);
|
|
||||||
printf("<br>Debug: Query_ID: %d<br>\n", $this->Query_ID);
|
|
||||||
}
|
|
||||||
|
|
||||||
if(!@ora_parse($this->Query_ID,$Query_String)) {
|
if(!$this->Query_ID)
|
||||||
$this->Errno=ora_errorcode($this->Query_ID);
|
{
|
||||||
$this->Error=ora_error($this->Query_ID);
|
$this->halt('Invalid SQL: '.$Query_String);
|
||||||
$this->halt("<BR>ora_parse() failed:<BR>$Query_String<BR><small>Snap & paste this to sqlplus!</SMALL>");
|
}
|
||||||
} elseif (!@ora_exec($this->Query_ID)) {
|
|
||||||
$this->Errno=ora_errorcode($this->Query_ID);
|
|
||||||
$this->Error=ora_error($this->Query_ID);
|
|
||||||
$this->halt("<BR>\n$Query_String\n<BR><small>Snap & paste this to sqlplus!</SMALL>");
|
|
||||||
}
|
|
||||||
|
|
||||||
$this->Row=0;
|
return $this->Query_ID;
|
||||||
|
}
|
||||||
|
|
||||||
if(!$this->Query_ID) {
|
function next_record()
|
||||||
$this->halt("Invalid SQL: ".$Query_String);
|
{
|
||||||
}
|
if (!$this->no_next_fetch &&
|
||||||
|
0 == ora_fetch($this->Query_ID))
|
||||||
|
{
|
||||||
|
if ($this->Debug)
|
||||||
|
{
|
||||||
|
printf("<br>next_record(): ID: %d,Rows: %d<br>\n",
|
||||||
|
$this->Query_ID,$this->num_rows());
|
||||||
|
}
|
||||||
|
$this->Row +=1;
|
||||||
|
|
||||||
return $this->Query_ID;
|
$errno=ora_errorcode($this->Query_ID);
|
||||||
}
|
if(1403 == $errno)
|
||||||
|
{ # 1043 means no more records found
|
||||||
|
$this->Errno = 0;
|
||||||
|
$this->Error = '';
|
||||||
|
$this->disconnect();
|
||||||
|
$stat=0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$this->Error=ora_error($this->Query_ID);
|
||||||
|
$this->Errno=$errno;
|
||||||
|
if($this->Debug)
|
||||||
|
{
|
||||||
|
printf('<br>%d Error: %s',
|
||||||
|
$this->Errno,
|
||||||
|
$this->Error);
|
||||||
|
}
|
||||||
|
$stat=0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$this->no_next_fetch=false;
|
||||||
|
for($ix=0;$ix<ora_numcols($this->Query_ID);$ix++)
|
||||||
|
{
|
||||||
|
$col=strtolower(ora_columnname($this->Query_ID,$ix));
|
||||||
|
$value=ora_getcolumn($this->Query_ID,$ix);
|
||||||
|
$this->Record[ "$col" ] = $value;
|
||||||
|
# echo"<b>[$col]</b>: $value <br>\n";
|
||||||
|
}
|
||||||
|
$stat=1;
|
||||||
|
}
|
||||||
|
return $stat;
|
||||||
|
}
|
||||||
|
|
||||||
function next_record() {
|
## seek() works only for $pos - 1 and $pos
|
||||||
if (!$this->no_next_fetch &&
|
## Perhaps I make a own implementation, but my
|
||||||
0 == ora_fetch($this->Query_ID)) {
|
## opinion is, that this should be done by PHP3
|
||||||
if ($this->Debug) {
|
function seek($pos)
|
||||||
printf("<br>next_record(): ID: %d,Rows: %d<br>\n",
|
{
|
||||||
$this->Query_ID,$this->num_rows());
|
if($this->Row - 1 == $pos)
|
||||||
}
|
{
|
||||||
$this->Row +=1;
|
$this->no_next_fetch=true;
|
||||||
|
}
|
||||||
|
elseif ($this->Row == $pos )
|
||||||
|
{
|
||||||
|
## do nothing
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$this->halt("Invalid seek(): Position is cannot be handled by API.<BR>".
|
||||||
|
"Difference too big. Wanted: $pos Current pos: $this->Row");
|
||||||
|
}
|
||||||
|
if($Debug)
|
||||||
|
{
|
||||||
|
echo "<BR>Debug: seek = $pos<BR>";
|
||||||
|
}
|
||||||
|
$this->Row=$pos;
|
||||||
|
}
|
||||||
|
|
||||||
$errno=ora_errorcode($this->Query_ID);
|
function lock($table, $mode = 'write')
|
||||||
if(1403 == $errno) { # 1043 means no more records found
|
{
|
||||||
$this->Errno=0;
|
if ($mode == 'write')
|
||||||
$this->Error="";
|
{
|
||||||
$this->disconnect();
|
$result = ora_do($this->Link_ID, "lock table $table in row exclusive mode");
|
||||||
$stat=0;
|
}
|
||||||
} else {
|
else
|
||||||
$this->Error=ora_error($this->Query_ID);
|
{
|
||||||
$this->Errno=$errno;
|
$result = 1;
|
||||||
if($this->Debug) {
|
}
|
||||||
printf("<br>%d Error: %s",
|
return $result;
|
||||||
$this->Errno,
|
}
|
||||||
$this->Error);
|
|
||||||
}
|
|
||||||
$stat=0;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$this->no_next_fetch=false;
|
|
||||||
for($ix=0;$ix<ora_numcols($this->Query_ID);$ix++) {
|
|
||||||
$col=strtolower(ora_columnname($this->Query_ID,$ix));
|
|
||||||
$value=ora_getcolumn($this->Query_ID,$ix);
|
|
||||||
$this->Record[ "$col" ] = $value;
|
|
||||||
# echo"<b>[$col]</b>: $value <br>\n";
|
|
||||||
}
|
|
||||||
$stat=1;
|
|
||||||
}
|
|
||||||
|
|
||||||
return $stat;
|
function unlock()
|
||||||
}
|
{
|
||||||
|
return ora_do($this->Link_ID, 'commit');
|
||||||
|
}
|
||||||
|
|
||||||
## seek() works only for $pos - 1 and $pos
|
function metadata($table,$full=false)
|
||||||
## Perhaps I make a own implementation, but my
|
{
|
||||||
## opinion is, that this should be done by PHP3
|
$count = 0;
|
||||||
function seek($pos) {
|
$id = 0;
|
||||||
if ($this->Row - 1 == $pos) {
|
$res = array();
|
||||||
$this->no_next_fetch=true;
|
|
||||||
} elseif ($this->Row == $pos ) {
|
|
||||||
## do nothing
|
|
||||||
} else {
|
|
||||||
$this->halt("Invalid seek(): Position is cannot be handled by API.<BR>".
|
|
||||||
"Difference too big. Wanted: $pos Current pos: $this->Row");
|
|
||||||
}
|
|
||||||
if ($Debug) echo "<BR>Debug: seek = $pos<BR>";
|
|
||||||
$this->Row=$pos;
|
|
||||||
}
|
|
||||||
|
|
||||||
function lock($table, $mode = "write") {
|
/*
|
||||||
if ($mode == "write") {
|
* Due to compatibility problems with Table we changed the behavior
|
||||||
$result = ora_do($this->Link_ID, "lock table $table in row exclusive mode");
|
* of metadata();
|
||||||
} else {
|
* depending on $full, metadata returns the following values:
|
||||||
$result = 1;
|
*
|
||||||
}
|
* - full is false (default):
|
||||||
return $result;
|
* $result[]:
|
||||||
}
|
* [0]['table'] table name
|
||||||
|
* [0]['name'] field name
|
||||||
|
* [0]['type'] field type
|
||||||
|
* [0]['len'] field length
|
||||||
|
* [0]['flags'] field flags ('NOT NULL', 'INDEX')
|
||||||
|
* [0]['format'] precision and scale of number (eg. '10,2') or empty
|
||||||
|
* [0]['index'] name of index (if has one)
|
||||||
|
* [0]['chars'] number of chars (if any char-type)
|
||||||
|
*
|
||||||
|
* - full is true
|
||||||
|
* $result[]:
|
||||||
|
* ['num_fields'] number of metadata records
|
||||||
|
* [0]['table'] table name
|
||||||
|
* [0]['name'] field name
|
||||||
|
* [0]['type'] field type
|
||||||
|
* [0]['len'] field length
|
||||||
|
* [0]['flags'] field flags ('NOT NULL', 'INDEX')
|
||||||
|
* [0]['format'] precision and scale of number (eg. '10,2') or empty
|
||||||
|
* [0]['index'] name of index (if has one)
|
||||||
|
* [0]['chars'] number of chars (if any char-type)
|
||||||
|
* ['meta'][field name] index of field named 'field name'
|
||||||
|
* The last one is used, if you have a field name, but no index.
|
||||||
|
* Test: if (isset($result['meta']['myfield'])) {} ...
|
||||||
|
*/
|
||||||
|
|
||||||
function unlock() {
|
$this->connect();
|
||||||
return ora_do($this->Link_ID, "commit");
|
|
||||||
}
|
|
||||||
|
|
||||||
function metadata($table,$full=false) {
|
## This is a RIGHT OUTER JOIN: '(+)', if you want to see, what
|
||||||
$count = 0;
|
## this query results try the following:
|
||||||
$id = 0;
|
## $table = new Table; $db = new my_DB_Sql; # you have to make
|
||||||
$res = array();
|
## # your own class
|
||||||
|
## $table->show_results($db->query(see query vvvvvv))
|
||||||
|
##
|
||||||
|
$this->query("SELECT T.table_name,T.column_name,T.data_type,".
|
||||||
|
"T.data_length,T.data_precision,T.data_scale,T.nullable,".
|
||||||
|
"T.char_col_decl_length,I.index_name".
|
||||||
|
" FROM ALL_TAB_COLUMNS T,ALL_IND_COLUMNS I".
|
||||||
|
" WHERE T.column_name=I.column_name (+)".
|
||||||
|
" AND T.table_name=I.table_name (+)".
|
||||||
|
" AND T.table_name=UPPER('$table') ORDER BY T.column_id");
|
||||||
|
|
||||||
/*
|
$i=0;
|
||||||
* Due to compatibility problems with Table we changed the behavior
|
while ($this->next_record())
|
||||||
* of metadata();
|
{
|
||||||
* depending on $full, metadata returns the following values:
|
$res[$i]['table'] = $this->Record[table_name];
|
||||||
*
|
$res[$i]['name'] = strtolower($this->Record[column_name]);
|
||||||
* - full is false (default):
|
$res[$i]['type'] = $this->Record[data_type];
|
||||||
* $result[]:
|
$res[$i]['len'] = $this->Record[data_length];
|
||||||
* [0]["table"] table name
|
if ($this->Record[index_name])
|
||||||
* [0]["name"] field name
|
{
|
||||||
* [0]["type"] field type
|
$res[$i]['flags'] = 'INDEX ';
|
||||||
* [0]["len"] field length
|
}
|
||||||
* [0]["flags"] field flags ("NOT NULL", "INDEX")
|
$res[$i]['flags'] .= ( $this->Record['nullable'] == 'N') ? '' : 'NOT NULL';
|
||||||
* [0]["format"] precision and scale of number (eg. "10,2") or empty
|
$res[$i]['format']= (int)$this->Record['data_precision'].','.
|
||||||
* [0]["index"] name of index (if has one)
|
(int)$this->Record[data_scale];
|
||||||
* [0]["chars"] number of chars (if any char-type)
|
if ('0,0'==$res[$i]['format'])
|
||||||
*
|
{
|
||||||
* - full is true
|
$res[$i]['format']='';
|
||||||
* $result[]:
|
}
|
||||||
* ["num_fields"] number of metadata records
|
$res[$i]['index'] = $this->Record[index_name];
|
||||||
* [0]["table"] table name
|
$res[$i]['chars'] = $this->Record[char_col_decl_length];
|
||||||
* [0]["name"] field name
|
if ($full)
|
||||||
* [0]["type"] field type
|
{
|
||||||
* [0]["len"] field length
|
$j=$res[$i]['name'];
|
||||||
* [0]["flags"] field flags ("NOT NULL", "INDEX")
|
$res['meta'][$j] = $i;
|
||||||
* [0]["format"] precision and scale of number (eg. "10,2") or empty
|
$res['meta'][strtoupper($j)] = $i;
|
||||||
* [0]["index"] name of index (if has one)
|
}
|
||||||
* [0]["chars"] number of chars (if any char-type)
|
if ($full)
|
||||||
* ["meta"][field name] index of field named "field name"
|
{
|
||||||
* The last one is used, if you have a field name, but no index.
|
$res['meta'][$res[$i]['name']] = $i;
|
||||||
* Test: if (isset($result['meta']['myfield'])) {} ...
|
}
|
||||||
*/
|
$i++;
|
||||||
|
}
|
||||||
|
if ($full)
|
||||||
|
{
|
||||||
|
$res['num_fields']=$i;
|
||||||
|
}
|
||||||
|
# $this->disconnect();
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
$this->connect();
|
## THIS FUNCTION IS UNSTESTED!
|
||||||
|
function affected_rows()
|
||||||
|
{
|
||||||
|
if ($Debug)
|
||||||
|
{
|
||||||
|
echo '<BR>Debug: affected_rows='. ora_numrows($this->Query_ID).'<BR>';
|
||||||
|
}
|
||||||
|
return ora_numrows($this->Query_ID);
|
||||||
|
}
|
||||||
|
|
||||||
## This is a RIGHT OUTER JOIN: "(+)", if you want to see, what
|
## Known bugs: It will not work for SELECT DISTINCT and any
|
||||||
## this query results try the following:
|
## other constructs which are depending on the resulting rows.
|
||||||
## $table = new Table; $db = new my_DB_Sql; # you have to make
|
## So you *really need* to check every query you make, if it
|
||||||
## # your own class
|
## will work with it.
|
||||||
## $table->show_results($db->query(see query vvvvvv))
|
##
|
||||||
##
|
## Also, for a qualified replacement you need to parse the
|
||||||
$this->query("SELECT T.table_name,T.column_name,T.data_type,".
|
## selection, cause this will fail: 'SELECT id, from FROM ...').
|
||||||
"T.data_length,T.data_precision,T.data_scale,T.nullable,".
|
## 'FROM' is - as far as I know a keyword in Oracle, so it can
|
||||||
"T.char_col_decl_length,I.index_name".
|
## only be used in this way. But you have been warned.
|
||||||
" FROM ALL_TAB_COLUMNS T,ALL_IND_COLUMNS I".
|
function num_rows()
|
||||||
" WHERE T.column_name=I.column_name (+)".
|
{
|
||||||
" AND T.table_name=I.table_name (+)".
|
$curs=ora_open($this->Link_ID);
|
||||||
" AND T.table_name=UPPER('$table') ORDER BY T.column_id");
|
|
||||||
|
|
||||||
$i=0;
|
## this is the important part and it is also the HACK!
|
||||||
while ($this->next_record()) {
|
if (eregi("^[[:space:]]*SELECT[[:space:]]",$this->lastQuery) )
|
||||||
$res[$i]["table"] = $this->Record[table_name];
|
{
|
||||||
$res[$i]["name"] = strtolower($this->Record[column_name]);
|
$from_pos = strpos(strtoupper($this->lastQuery),'FROM');
|
||||||
$res[$i]["type"] = $this->Record[data_type];
|
$q = 'SELECT count(*) '. substr($this->lastQuery, $from_pos);
|
||||||
$res[$i]["len"] = $this->Record[data_length];
|
|
||||||
if ($this->Record[index_name]) $res[$i]["flags"] = "INDEX ";
|
|
||||||
$res[$i]["flags"] .= ( $this->Record[nullable] == 'N') ? '' : 'NOT NULL';
|
|
||||||
$res[$i]["format"]= (int)$this->Record[data_precision].",".
|
|
||||||
(int)$this->Record[data_scale];
|
|
||||||
if ("0,0"==$res[$i]["format"]) $res[$i]["format"]='';
|
|
||||||
$res[$i]["index"] = $this->Record[index_name];
|
|
||||||
$res[$i]["chars"] = $this->Record[char_col_decl_length];
|
|
||||||
if ($full) {
|
|
||||||
$j=$res[$i]["name"];
|
|
||||||
$res["meta"][$j] = $i;
|
|
||||||
$res["meta"][strtoupper($j)] = $i;
|
|
||||||
}
|
|
||||||
if ($full) $res["meta"][$res[$i]["name"]] = $i;
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
if ($full) $res["num_fields"]=$i;
|
|
||||||
# $this->disconnect();
|
|
||||||
return $res;
|
|
||||||
}
|
|
||||||
|
|
||||||
## THIS FUNCTION IS UNSTESTED!
|
ORA_parse($curs,$q);
|
||||||
function affected_rows() {
|
ORA_exec($curs);
|
||||||
if ($Debug) echo "<BR>Debug: affected_rows=". ora_numrows($this->Query_ID)."<BR>";
|
ORA_fetch($curs);
|
||||||
return ora_numrows($this->Query_ID);
|
if ($Debug)
|
||||||
}
|
{
|
||||||
|
echo '<BR>Debug: num_rows='. ORA_getcolumn($curs,0).'<BR>';
|
||||||
|
}
|
||||||
|
return(ORA_getcolumn($curs,0));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$this->halt("Last Query was not a SELECT: $this->lastQuery");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
## Known bugs: It will not work for SELECT DISTINCT and any
|
function num_fields()
|
||||||
## other constructs which are depending on the resulting rows.
|
{
|
||||||
## So you *really need* to check every query you make, if it
|
if ($Debug)
|
||||||
## will work with it.
|
{
|
||||||
##
|
echo '<BR>Debug: num_fields='. ora_numcols($this->Query_ID) . '<BR>';
|
||||||
## Also, for a qualified replacement you need to parse the
|
}
|
||||||
## selection, cause this will fail: "SELECT id, from FROM ...").
|
return ora_numcols($this->Query_ID);
|
||||||
## "FROM" is - as far as I know a keyword in Oracle, so it can
|
}
|
||||||
## only be used in this way. But you have been warned.
|
|
||||||
function num_rows() {
|
|
||||||
$curs=ora_open($this->Link_ID);
|
|
||||||
|
|
||||||
## this is the important part and it is also the HACK!
|
function nf()
|
||||||
if (eregi("^[[:space:]]*SELECT[[:space:]]",$this->lastQuery) ) {
|
{
|
||||||
$from_pos = strpos(strtoupper($this->lastQuery),"FROM");
|
return $this->num_rows();
|
||||||
$q = "SELECT count(*) ". substr($this->lastQuery, $from_pos);
|
}
|
||||||
|
|
||||||
ORA_parse($curs,$q);
|
function np()
|
||||||
ORA_exec($curs);
|
{
|
||||||
ORA_fetch($curs);
|
print $this->num_rows();
|
||||||
if ($Debug) echo "<BR>Debug: num_rows=". ORA_getcolumn($curs,0)."<BR>";
|
}
|
||||||
return(ORA_getcolumn($curs,0));
|
|
||||||
} else {
|
|
||||||
$this->halt("Last Query was not a SELECT: $this->lastQuery");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
function num_fields() {
|
function f($Name)
|
||||||
if ($Debug) echo "<BR>Debug: num_fields=". ora_numcols($this->Query_ID) . "<BR>";
|
{
|
||||||
return ora_numcols($this->Query_ID);
|
return $this->Record[$Name];
|
||||||
}
|
}
|
||||||
|
|
||||||
function nf() {
|
function p($Name)
|
||||||
return $this->num_rows();
|
{
|
||||||
}
|
print $this->Record[$Name];
|
||||||
|
}
|
||||||
|
|
||||||
function np() {
|
/* public: sequence number */
|
||||||
print $this->num_rows();
|
function nextid($seq_name)
|
||||||
}
|
{
|
||||||
|
$this->connect();
|
||||||
|
|
||||||
function f($Name) {
|
/* Independent Query_ID */
|
||||||
return $this->Record[$Name];
|
$Query_ID = ora_open($this->Link_ID);
|
||||||
}
|
|
||||||
|
|
||||||
function p($Name) {
|
if(!@ora_parse($Query_ID,"SELECT $seq_name.NEXTVAL FROM DUAL"))
|
||||||
print $this->Record[$Name];
|
{
|
||||||
}
|
// There is no such sequence yet, then create it
|
||||||
|
if(!@ora_parse($Query_ID,"CREATE SEQUENCE $seq_name") ||
|
||||||
|
!@ora_exec($Query_ID))
|
||||||
|
{
|
||||||
|
$this->halt('<BR> nextid() function - unable to create sequence');
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
@ora_parse($Query_ID,"SELECT $seq_name.NEXTVAL FROM DUAL");
|
||||||
|
}
|
||||||
|
if (!@ora_exec($Query_ID))
|
||||||
|
{
|
||||||
|
$this->halt("<BR>ora_exec() failed:<BR>nextID function");
|
||||||
|
}
|
||||||
|
if (@ora_fetch($Query_ID) )
|
||||||
|
{
|
||||||
|
$next_id = ora_getcolumn($Query_ID, 0);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$next_id = 0;
|
||||||
|
}
|
||||||
|
if ( Query_ID > 0 )
|
||||||
|
{
|
||||||
|
ora_close(Query_ID);
|
||||||
|
}
|
||||||
|
return $next_id;
|
||||||
|
}
|
||||||
|
|
||||||
/* public: sequence number */
|
function disconnect()
|
||||||
function nextid($seq_name)
|
{
|
||||||
{
|
if($this->Debug)
|
||||||
$this->connect();
|
{
|
||||||
|
echo "Debug: Disconnecting $this->Query_ID...<br>\n";
|
||||||
|
}
|
||||||
|
if ( $this->Query_ID < 1 )
|
||||||
|
{
|
||||||
|
echo "<B>Warning</B>: disconnect(): Cannot free ID $this->Query_ID\n";
|
||||||
|
# return();
|
||||||
|
}
|
||||||
|
ora_close($this->Query_ID);
|
||||||
|
$this->Query_ID=0;
|
||||||
|
}
|
||||||
|
|
||||||
/* Independent Query_ID */
|
/* private: error handling */
|
||||||
$Query_ID = ora_open($this->Link_ID);
|
function halt($msg)
|
||||||
|
{
|
||||||
|
if ($this->Halt_On_Error == 'no')
|
||||||
|
{
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
if(!@ora_parse($Query_ID,"SELECT $seq_name.NEXTVAL FROM DUAL"))
|
$this->haltmsg($msg);
|
||||||
{
|
|
||||||
// There is no such sequence yet, then create it
|
|
||||||
if(!@ora_parse($Query_ID,"CREATE SEQUENCE $seq_name")
|
|
||||||
||
|
|
||||||
!@ora_exec($Query_ID)
|
|
||||||
)
|
|
||||||
{
|
|
||||||
$this->halt("<BR> nextid() function - unable to create sequence");
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
@ora_parse($Query_ID,"SELECT $seq_name.NEXTVAL FROM DUAL");
|
|
||||||
}
|
|
||||||
if (!@ora_exec($Query_ID)) {
|
|
||||||
$this->halt("<BR>ora_exec() failed:<BR>nextID function");
|
|
||||||
}
|
|
||||||
if (@ora_fetch($Query_ID) ) {
|
|
||||||
$next_id = ora_getcolumn($Query_ID, 0);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$next_id = 0;
|
|
||||||
}
|
|
||||||
if ( Query_ID > 0 ) {
|
|
||||||
ora_close(Query_ID);
|
|
||||||
}
|
|
||||||
|
|
||||||
return $next_id;
|
if ($this->Halt_On_Error != 'report')
|
||||||
}
|
{
|
||||||
|
die('Session halted.');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
function disconnect() {
|
function haltmsg($msg)
|
||||||
if($this->Debug) {
|
{
|
||||||
echo "Debug: Disconnecting $this->Query_ID...<br>\n";
|
printf("<b>Database error:</b> %s<br>\n", $msg);
|
||||||
}
|
printf("<b>Oracle Error</b>: %s (%s)<br>\n",
|
||||||
if ( $this->Query_ID < 1 ) {
|
$this->Errno,
|
||||||
echo "<B>Warning</B>: disconnect(): Cannot free ID $this->Query_ID\n";
|
$this->Error);
|
||||||
# return();
|
}
|
||||||
}
|
|
||||||
ora_close($this->Query_ID);
|
|
||||||
$this->Query_ID=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* private: error handling */
|
function table_names()
|
||||||
function halt($msg) {
|
{
|
||||||
if ($this->Halt_On_Error == "no")
|
$this->connect();
|
||||||
return;
|
$this->query('SELECT table_name,tablespace_name FROM user_tables');
|
||||||
|
$i=0;
|
||||||
$this->haltmsg($msg);
|
while ($this->next_record())
|
||||||
|
{
|
||||||
if ($this->Halt_On_Error != "report")
|
$info[$i]['table_name'] = $this->Record['table_name'];
|
||||||
die("Session halted.");
|
$info[$R]['tablespace_name'] = $this->Record['tablespace_name'];
|
||||||
}
|
$i++;
|
||||||
|
}
|
||||||
function haltmsg($msg) {
|
return $info;
|
||||||
printf("<b>Database error:</b> %s<br>\n", $msg);
|
}
|
||||||
printf("<b>Oracle Error</b>: %s (%s)<br>\n",
|
}
|
||||||
$this->Errno,
|
|
||||||
$this->Error);
|
|
||||||
}
|
|
||||||
|
|
||||||
function table_names() {
|
|
||||||
$this->connect();
|
|
||||||
$this->query("
|
|
||||||
SELECT table_name,tablespace_name
|
|
||||||
FROM user_tables");
|
|
||||||
$i=0;
|
|
||||||
while ($this->next_record())
|
|
||||||
{
|
|
||||||
$info[$i]["table_name"] =$this->Record["table_name"];
|
|
||||||
$info[$i]["tablespace_name"]=$this->Record["tablespace_name"];
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
return $info;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user