var $Database = “”;
 var $User = “”;
 var $Password = “”;

 var $Link_ID = 0;
 var $Query_ID = 0;
 var $Record = array();
 var $Row;

 var $Errno = 0;
 var $Error = “”;
 var $ora_no_next_fetch=false;
 /* copied from db_mysql for completeness */
 /* public: identification constant. never change this. */
 var $type = “oracle”;
 var $revision = “Revision: 1.3″;
 var $Halt_On_Error = “yes”; ## “yes” (halt with message), “no” (ignore errors quietly), “report” (ignore errror, but spit a warning)

 /* public: constructor */
 function DB_Sql($query = “”) {
  $this->query($query);
 }

 /* public: some trivial reporting */
 function link_id() {
  return $this->Link_ID;
 }

 function query_id() {
  return $this->Query_ID;
 }

 function connect() {
  ## see above why we do this
  if ($this->OraPutEnv) {
   PutEnv(”ORACLE_SID=$this->Database”);
   PutEnv(”ORACLE_HOME=$this->Home”);
  }
  if ( 0 == $this->Link_ID ) {
   if($this->Debug) {
    printf(”<br>Connect()ing to $this->Database…<br>n”);
   }
   if($this->Remote) {
    if($this->Debug) {
     printf(”<br>connect() $this->User/******@$this->Database<br>n”);
    }
    $this->Link_ID=ora_plogon
    (”$this->User/$this->Password@$this->Database”,”");
    /************** (comment by SSilk)
    this dosn’t work on my system:
    $this->Link_ID=ora_plogon
    (”$this->User@$this->Database.world”,”$this->Password”);
    ***************/
   } else {
    if($this->Debug) {
     printf(”<br>connect() $this->User, $this->Password <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->Debug) {
    printf(”<br>connect() Link_ID: $this->Link_ID<br>n”);
   }
   if (!$this->Link_ID) {
    $this->halt(”connect() Link-ID == false ” .
    ”($this->Link_ID), ora_plogon 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”);
   }
   ## Execute Connect Query
   if ($this->ConnectQuery) {
    $this->query($this->ConnectQuery);
   }
  }
 }

 ## 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
 ## the default value, 100 per user.
 ## 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
 ## don’t use an old result.
 ##
 ## You can also make extensive use of ->disconnect()!
 ## The unused QueryIDs will be recycled sometimes.

 function query($Query_String)
 {

  /* No empty query please. */
  if (empty($Query_String))
  {
   return 0;
  }

  $this->connect();
  $this->lastQuery=$Query_String;

  if (!$this->Query_ID) {
   $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)) {
   $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_Stringn<BR><small>Snap & paste this to sqlplus!</SMALL>”);
  }

  $this->Row=0;

  if(!$this->Query_ID) {
   $this->halt(”Invalid SQL: “.$Query_String);
  }

  return $this->Query_ID;
 }

 function next_record() {
  if (!$this->ora_no_next_fetch &&
  0 == ora_fetch($this->Query_ID)) {
   if ($this->Debug) {
    printf(”<br>next_record(): ID: %d Row: %d<br>n”,
    $this->Query_ID,$this->Row+1);
    // more info for $this->Row+1 is $this->num_rows(),
    // but dosn’t work in all cases (complicated selects)
    // and it is very slow here
   }
   $this->Row +=1;

   $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->ora_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;
    $this->Record[ $ix ] = $value;
    #DBG echo”<b>[$col]</b>: $value <br>n”;
   }
   $stat=1;
  }

  return $stat;
 }

 ## seek() works only for $pos – 1 and $pos
 ## Perhaps I make a own implementation, but my
 ## opinion is, that this should be done by PHP3
 function seek($pos) {
  if ($this->Row – 1 == $pos) {
   $this->ora_no_next_fetch=true;
  } elseif ($this->Row == $pos ) {
   ## do nothing
  } else {
   $this->halt(”Invalid seek(): Position is cannot be handled by API.<BR>”.
   ”Only a seek to the last element is allowed in this version<BR>”.
   ”Difference too big. Wanted: $pos Current pos: $this->Row”);
  }
  if ($this->Debug) echo “<BR>Debug: seek = $pos<BR>”;
  $this->Row=$pos;
 }

 function lock($table, $mode = “write”) {
  if ($mode == “write”) {
   $result = ora_do($this->Link_ID, “lock table $table in row exclusive mode”);
  } else {
   $result = 1;
  }
  return $result;
 }

 function unlock() {
  return ora_do($this->Link_ID, “commit”);
 }

 // Important note: This function dosn’t work with Oracle-Database-Links!
 // You are free to get a better method. :)
 function metadata($table,$full=false) {
  $count = 0;
  $id = 0;
  $res = array();

  /*
  * Due to compatibility problems with Table we changed the behavior
  * of metadata();
  * depending on $full, metadata returns the following values:
  *
  * – full is false (default):
  * $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)
  * [0]["php_type"] the correspondig PHP-type
  * [0]["php_subtype"] the subtype of PHP-type
  * ["meta"][field name] index of field named “field name”
  * This could used, if you have the name, but no index-num – very fast
  * Test: if (isset($result['meta']['myfield'])) {} …
  */

  $this->connect();

  ## This is a RIGHT OUTER JOIN: “(+)”, if you want to see, what
  ## this query results try the following:
  ## $table = new Table; $db = new my_DB_Sql; # you have to make
  ## # 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;
  while ($this->next_record()) {
   $res[$i]["table"] = $this->Record[table_name];
   $res[$i]["name"] = strtolower($this->Record[column_name]);
   $res[$i]["type"] = $this->Record[data_type];
   $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;
    switch ($res[$i]["type"]) {
     case “VARCHAR2″ :
     case “VARCHAR” :
     case “CHAR” :
      $res["php_type"]=”string”;
      $res["php_subtype"]=”";
      break;
     case “DATE” :
      $res["php_type"]=”string”;
      $res["php_subtype"]=”date”;
      break;
     case “BLOB” :
     case “CLOB” :
     case “BFILE” :
     case “RAW” :
     case “LONG” :
     case “LONG RAW” :
      $res["php_type"]=”string”;
      $res["php_subtype"]=”blob”;
      break;
     case “NUMBER” :
      if ($res[$i]["format"]) {
       $res["php_type"]=”double”;
       $res["php_subtype"]=”";
      } else {
       $res["php_type"]=”int”;
       $res["php_subtype"]=”";
      }
      break;
     default :
      $this->halt(”metadata(): Type is not a valid value: ‘$res[$i][type]‘”);
      break;
    }
   }
   if ($full) $res["meta"][$res[$i]["name"]] = $i;
   $i++;
  }
  if ($full) $res["num_fields"]=$i;
  # $this->disconnect();
  return $res;
 }

 ## THIS FUNCTION IS UNSTESTED!
 function affected_rows() {
  if ($this->Debug) echo “<BR>Debug: affected_rows=”. ora_numrows($this->Query_ID).”<BR>”;
  return ora_numrows($this->Query_ID);
 }

 ## Known bugs: It will not work for SELECT DISTINCT and any
 ## other constructs which are depending on the resulting rows.
 ## So you *really need* to check every query you make, if it
 ## will work with it!
 ##
 ## Also, for a qualified replacement you need to parse the
 ## selection, cause this will fail: “SELECT id, from FROM …”).
 ## “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!
  if (eregi(”^[[:space:]]*SELECT[[:space:]]”,$this->lastQuery) )
  {

   # This works for all?? cases, including SELECT DISTINCT case.
   # We just make select count(*) from original sql expression
   # and remove ORDER BY (if any) for speed
   # I like regular expressions too ;-)))
   $q = sprintf(”SELECT COUNT(*) FROM (%s)”,
   @eregi_Replace(”ORDER[[:space:]]+BY[^)]*()*)”, “\1″,
   $this->lastQuery)
   );

   # works also for subselects:
   # if (eregi(”[[:space:]]+FROM([[:space:]]+.*[[:space:]]+FROM)”,$this->lastQuery,$r))
   # $areplace=$r[1];
   # $q=eregi_Replace(”^[[:space:]]*SELECT[[:space:]]+”.
   # “.*[[:space:]]+FROM”,
   # “SELECT COUNT(*) FROM$areplace”,
   # $this->lastQuery);

   if ($this->Debug) echo “<BR>Debug: num_rows: $q<BR>”;

   ORA_parse($curs,$q);
   ORA_exec($curs);
   ORA_fetch($curs);
   $result = ORA_getcolumn($curs,0);
   ORA_close($curs);
   if ($this->Debug)
   {
    echo “<BR>Debug: ID “.$this->QueryID.
    ” num_rows=”. $result .”<BR>”;
   }
   return $result;
  }
  else
  {
   $this->halt(”Last Query was not a SELECT: $this->lastQuery”);
  }
 }

 function num_fields() {
  if ($this->Debug) echo “<BR>Debug: num_fields=”. ora_numcols($this->Query_ID) . “<BR>”;
  return ora_numcols($this->Query_ID);
 }

 function nf() {
  return $this->num_rows();
 }

 function np() {
  print $this->num_rows();
 }

 function f($Name) {
  return $this->Record[$Name];
 }

 function p($Name) {
  print $this->Record[$Name];
 }

 /* public: sequence number */
 function nextid($seq_name)
 {
  $this->connect();

  /* Independent Query_ID */
  $Query_ID = ora_open($this->Link_ID);

  if(!@ora_parse($Query_ID,”SELECT $seq_name.NEXTVAL FROM DUAL”))
  {
   // 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;
 }

 function disconnect() {
  if($this->Debug) {
   echo “Debug: Disconnecting $this->Query_ID…<br>n”;
  }
  if ( $this->Query_ID < 1 ) {
   echo “<B>Warning</B>: disconnect(): Cannot free ID $this->Query_IDn”;
   # return();
  }
  ora_close($this->Query_ID);
  $this->Query_ID=0;
 }

 /* private: error handling */
 function halt($msg) {
  if ($this->Halt_On_Error == “no”)
  return;

  $this->haltmsg($msg);

  if ($this->Halt_On_Error != “report”)
  die(”Session halted.”);
 }

 function haltmsg($msg) {
  printf(”</td></tr></table><br><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;
 }
 // Some transaction support
 // Methods are used in ct_oracle.inc
 function begin_transaction()
 {
  $this->connect();
  // Now, disable autocommit
  Ora_CommitOff($this->Link_ID);
  if ($this->Debug)
  {
   print “BEGIN TRANSACTION<BR>”;
  }
 }
 function end_transaction()
 {
  if ($this->Debug)
  {
   print “BEGIN TRANSACTION<BR>”;
  }

  $res = 1;
  if(!@Ora_Commit($this->Link_ID))
  {
   Ora_CommitOn($this->Link_ID);
   $this->halt(”Unable to finish transaction”);
   $res = 0;
  }
  // Enable autocommit again
  Ora_CommitOn($this->Link_ID);

  if ($this->Debug)
  {
   print “END TRANSACTION : $res<BR>”;
  }
  return $res;
 }
}
?>