5 * Oracle extensions for the Pear DB backend.
6 * @author: Philippe.Vanhaesendonck@topgame.be
9 require_once 'lib/WikiDB/backend/PearDB_pgsql.php';
11 class WikiDB_backend_PearDB_oci8
12 extends WikiDB_backend_PearDB_pgsql
17 function WikiDB_backend_PearDB_oci8($dbparams) {
18 // Backend constructor
19 $this->WikiDB_backend_PearDB($dbparams);
20 if (DB::isError($this->_dbh)) return;
22 // Empty strings are NULLS
23 $this->_expressions['notempty'] = "IS NOT NULL";
24 $this->_expressions['iscontent'] = "DECODE(DBMS_LOB.GETLENGTH(content), NULL, 0, 0, 0, 1)";
28 // - No persistent conections (I don't like them)
29 $dbh->setOption('persistent', false);
30 // - Set lowercase compatibility option
31 // - Set numrows as well -- sure why this is needed, but some queries
32 // are triggering DB_ERROR_NOT_CAPABLE
33 $dbh->setOption('portability',
34 DB_PORTABILITY_LOWERCASE | DB_PORTABILITY_NULL_TO_EMPTY | DB_PORTABILITY_NUMROWS);
41 // Do nothing here -- Leave that for the DBA
42 // Cost Based Optimizer tuning vary from version to version
47 * Lock all tables we might use.
49 function _lock_tables($write_lock=true) {
52 // Not sure if we really need to lock tables here, the Oracle row
53 // locking mechanism should be more than enough
54 // For the time being, lets stay on the safe side and lock...
56 // Next line is default behaviour, so just skip it
57 // $dbh->query("SET TRANSACTION READ WRITE");
58 foreach ($this->_table_names as $table) {
59 $dbh->query("LOCK TABLE $table IN EXCLUSIVE MODE");
62 // Just ensure read consistency
63 $dbh->query("SET TRANSACTION READ ONLY");
68 return base64_encode($s);
71 function _unquote($s) {
72 return base64_decode($s);
75 function write_accesslog(&$entry) {
78 $log_tbl = $entry->_accesslog->logtable;
79 // duration problem: sprintf "%f" might use comma e.g. "100,201" in european locales
80 $dbh->query("INSERT INTO $log_tbl"
81 . " (time_stamp,remote_host,remote_user,request_method,request_line,request_uri,"
82 . "request_args,request_time,status,bytes_sent,referer,agent,request_duration)"
83 . " VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)",
85 // Problem: date formats are backend specific. Either use unixtime as %d (long),
86 // or the native timestamp format.
87 date('d-M-Y H:i:s', $entry->time),
90 $entry->request_method,
94 $entry->_ncsa_time($entry->time),
104 class WikiDB_backend_PearDB_oci8_search
105 extends WikiDB_backend_PearDB_search
107 // If we want case insensitive search, one need to create a Context
108 // Index on the CLOB. While it is very efficient, it requires the
109 // Intermedia Text option, so let's stick to the 'simple' thing
110 // Note that this does only an exact fulltext search, not using MATCH or LIKE.
111 function _fulltext_match_clause($node) {
112 if ($this->isStoplisted($node))
114 $page = $node->sql();
115 $exactword = $node->_sql_quote($node->word);
116 return ($this->_case_exact
117 ? "pagename LIKE '$page' OR DBMS_LOB.INSTR(content, '$exactword') > 0"
118 : "LOWER(pagename) LIKE '$page' OR DBMS_LOB.INSTR(content, '$exactword') > 0");
126 // c-hanging-comment-ender-p: nil
127 // indent-tabs-mode: nil