source: sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/drivers/adodb-oracle.inc.php @ 8222

Revision 8222, 9.2 KB checked in by angelo, 11 years ago (diff)

Ticket #3491 - Compatibilizar Expresso com novas versoes do PHP

  • Property svn:eol-style set to native
  • Property svn:executable set to *
Line 
1<?php
2/*
3V5.18 3 Sep 2012  (c) 2000-2012 John Lim (jlim#natsoft.com). All rights reserved.
4  Released under both BSD license and Lesser GPL library license.
5  Whenever there is any discrepancy between the two licenses,
6  the BSD license will take precedence.
7
8  Latest version is available at http://adodb.sourceforge.net
9 
10  Oracle data driver. Requires Oracle client. Works on Windows and Unix and Oracle 7.
11 
12  If you are using Oracle 8 or later, use the oci8 driver which is much better and more reliable.
13*/
14
15// security - hide paths
16if (!defined('ADODB_DIR')) die();
17
18class ADODB_oracle extends ADOConnection {
19        var $databaseType = "oracle";
20        var $replaceQuote = "''"; // string to use to replace quotes
21        var $concat_operator='||';
22        var $_curs;
23        var $_initdate = true; // init date to YYYY-MM-DD
24        var $metaTablesSQL = 'select table_name from cat';     
25        var $metaColumnsSQL = "select cname,coltype,width from col where tname='%s' order by colno";
26        var $sysDate = "TO_DATE(TO_CHAR(SYSDATE,'YYYY-MM-DD'),'YYYY-MM-DD')";
27        var $sysTimeStamp = 'SYSDATE';
28        var $connectSID = true;
29       
30        function ADODB_oracle()
31        {
32        }
33
34        // format and return date string in database date format
35        function DBDate($d)
36        {
37                if (is_string($d)) $d = ADORecordSet::UnixDate($d);
38                if (is_object($d)) $ds = $d->format($this->fmtDate);
39                else $ds = adodb_date($this->fmtDate,$d);
40                return 'TO_DATE('.$ds.",'YYYY-MM-DD')";
41        }
42       
43        // format and return date string in database timestamp format
44        function DBTimeStamp($ts)
45        {
46
47                if (is_string($ts)) $ts = ADORecordSet::UnixTimeStamp($ts);
48                if (is_object($ts)) $ds = $ts->format($this->fmtDate);
49                else $ds = adodb_date($this->fmtTimeStamp,$ts);
50                return 'TO_DATE('.$ds.",'RRRR-MM-DD, HH:MI:SS AM')";
51        }
52       
53       
54        function BindDate($d)
55        {
56                $d = ADOConnection::DBDate($d);
57                if (strncmp($d,"'",1)) return $d;
58               
59                return substr($d,1,strlen($d)-2);
60        }
61       
62        function BindTimeStamp($d)
63        {
64                $d = ADOConnection::DBTimeStamp($d);
65                if (strncmp($d,"'",1)) return $d;
66               
67                return substr($d,1,strlen($d)-2);
68        }
69       
70
71       
72        function BeginTrans()
73        {         
74                 $this->autoCommit = false;
75                 ora_commitoff($this->_connectionID);
76                 return true;
77        }
78
79       
80        function CommitTrans($ok=true)
81        {
82                   if (!$ok) return $this->RollbackTrans();
83                   $ret = ora_commit($this->_connectionID);
84                   ora_commiton($this->_connectionID);
85                   return $ret;
86        }
87
88       
89        function RollbackTrans()
90        {
91                $ret = ora_rollback($this->_connectionID);
92                ora_commiton($this->_connectionID);
93                return $ret;
94        }
95
96
97        /* there seems to be a bug in the oracle extension -- always returns ORA-00000 - no error */
98        function ErrorMsg()
99        {   
100        if ($this->_errorMsg !== false) return $this->_errorMsg;
101
102        if (is_resource($this->_curs)) $this->_errorMsg = @ora_error($this->_curs);
103                if (empty($this->_errorMsg)) $this->_errorMsg = @ora_error($this->_connectionID);
104                return $this->_errorMsg;
105        }
106
107 
108        function ErrorNo()
109        {
110                if ($this->_errorCode !== false) return $this->_errorCode;
111
112                if (is_resource($this->_curs)) $this->_errorCode = @ora_errorcode($this->_curs);
113                if (empty($this->_errorCode)) $this->_errorCode = @ora_errorcode($this->_connectionID);
114        return $this->_errorCode;
115        }
116
117       
118
119                // returns true or false
120                function _connect($argHostname, $argUsername, $argPassword, $argDatabasename, $mode=0)
121                {
122                        if (!function_exists('ora_plogon')) return null;
123                               
124            // <G. Giunta 2003/03/03/> Reset error messages before connecting
125            $this->_errorMsg = false;
126                    $this->_errorCode = false;
127       
128            // G. Giunta 2003/08/13 - This looks danegrously suspicious: why should we want to set
129            // the oracle home to the host name of remote DB?
130//                      if ($argHostname) putenv("ORACLE_HOME=$argHostname");
131
132                        if($argHostname) { // code copied from version submitted for oci8 by Jorma Tuomainen <jorma.tuomainen@ppoy.fi>
133                                if (empty($argDatabasename)) $argDatabasename = $argHostname;
134                                else {
135                                        if(strpos($argHostname,":")) {
136                                                $argHostinfo=explode(":",$argHostname);
137                                                $argHostname=$argHostinfo[0];
138                                                $argHostport=$argHostinfo[1];
139                                        } else {
140                                                $argHostport="1521";
141                                        }
142
143
144                                        if ($this->connectSID) {
145                                                $argDatabasename="(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=".$argHostname
146                                                .")(PORT=$argHostport))(CONNECT_DATA=(SID=$argDatabasename)))";
147                                        } else
148                                                $argDatabasename="(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=".$argHostname
149                                                .")(PORT=$argHostport))(CONNECT_DATA=(SERVICE_NAME=$argDatabasename)))";
150                                }
151
152                        }
153
154                        if ($argDatabasename) $argUsername .= "@$argDatabasename";
155
156                //if ($argHostname) print "<p>Connect: 1st argument should be left blank for $this->databaseType</p>";
157                        if ($mode == 1)
158                                $this->_connectionID = ora_plogon($argUsername,$argPassword);
159                        else
160                                $this->_connectionID = ora_logon($argUsername,$argPassword);
161                        if ($this->_connectionID === false) return false;
162                        if ($this->autoCommit) ora_commiton($this->_connectionID);
163                        if ($this->_initdate) {
164                                $rs = $this->_query("ALTER SESSION SET NLS_DATE_FORMAT='YYYY-MM-DD'");
165                                if ($rs) ora_close($rs);
166                        }
167
168                        return true;
169                }
170
171
172                // returns true or false
173                function _pconnect($argHostname, $argUsername, $argPassword, $argDatabasename)
174                {
175                        return $this->_connect($argHostname, $argUsername, $argPassword, $argDatabasename, 1);
176                }
177
178
179                // returns query ID if successful, otherwise false
180                function _query($sql,$inputarr=false)
181                {
182            // <G. Giunta 2003/03/03/> Reset error messages before executing
183            $this->_errorMsg = false;
184                    $this->_errorCode = false;
185
186                        $curs = ora_open($this->_connectionID);
187                 
188                        if ($curs === false) return false;
189                        $this->_curs = $curs;
190                        if (!ora_parse($curs,$sql)) return false;
191                        if (ora_exec($curs)) return $curs;
192            // <G. Giunta 2004/03/03> before we close the cursor, we have to store the error message
193            // that we can obtain ONLY from the cursor (and not from the connection)
194            $this->_errorCode = @ora_errorcode($curs);
195            $this->_errorMsg = @ora_error($curs);
196            // </G. Giunta 2004/03/03>           
197                        @ora_close($curs);
198                        return false;
199                }
200
201
202                // returns true or false
203                function _close()
204                {
205                        return @ora_logoff($this->_connectionID);
206                }
207
208
209
210}
211
212
213/*--------------------------------------------------------------------------------------
214                 Class Name: Recordset
215--------------------------------------------------------------------------------------*/
216
217class ADORecordset_oracle extends ADORecordSet {
218
219        var $databaseType = "oracle";
220        var $bind = false;
221
222        function ADORecordset_oracle($queryID,$mode=false)
223        {
224               
225                if ($mode === false) {
226                        global $ADODB_FETCH_MODE;
227                        $mode = $ADODB_FETCH_MODE;
228                }
229                $this->fetchMode = $mode;
230               
231                $this->_queryID = $queryID;
232       
233                $this->_inited = true;
234                $this->fields = array();
235                if ($queryID) {
236                        $this->_currentRow = 0;
237                        $this->EOF = !$this->_fetch();
238                        @$this->_initrs();
239                } else {
240                        $this->_numOfRows = 0;
241                        $this->_numOfFields = 0;
242                        $this->EOF = true;
243                }
244               
245                return $this->_queryID;
246        }
247
248
249
250           /*           Returns: an object containing field information.
251                           Get column information in the Recordset object. fetchField() can be used in order to obtain information about
252                           fields in a certain query result. If the field offset isn't specified, the next field that wasn't yet retrieved by
253                           fetchField() is retrieved.           */
254
255           function FetchField($fieldOffset = -1)
256           {
257                        $fld = new ADOFieldObject;
258                        $fld->name = ora_columnname($this->_queryID, $fieldOffset);
259                        $fld->type = ora_columntype($this->_queryID, $fieldOffset);
260                        $fld->max_length = ora_columnsize($this->_queryID, $fieldOffset);
261                        return $fld;
262           }
263
264        /* Use associative array to get fields array */
265        function Fields($colname)
266        {
267                if (!$this->bind) {
268                        $this->bind = array();
269                        for ($i=0; $i < $this->_numOfFields; $i++) {
270                                $o = $this->FetchField($i);
271                                $this->bind[strtoupper($o->name)] = $i;
272                        }
273                }
274               
275                 return $this->fields[$this->bind[strtoupper($colname)]];
276        }
277       
278   function _initrs()
279   {
280                   $this->_numOfRows = -1;
281                   $this->_numOfFields = @ora_numcols($this->_queryID);
282   }
283
284
285   function _seek($row)
286   {
287                   return false;
288   }
289
290   function _fetch($ignore_fields=false) {
291// should remove call by reference, but ora_fetch_into requires it in 4.0.3pl1
292                if ($this->fetchMode & ADODB_FETCH_ASSOC)
293                        return @ora_fetch_into($this->_queryID,$this->fields,ORA_FETCHINTO_NULLS|ORA_FETCHINTO_ASSOC);
294                else
295                        return @ora_fetch_into($this->_queryID,$this->fields,ORA_FETCHINTO_NULLS);
296   }
297
298   /*           close() only needs to be called if you are worried about using too much memory while your script
299                   is running. All associated result memory for the specified result identifier will automatically be freed.            */
300
301   function _close()
302{
303                   return @ora_close($this->_queryID);
304   }
305
306        function MetaType($t,$len=-1)
307        {
308                if (is_object($t)) {
309                        $fieldobj = $t;
310                        $t = $fieldobj->type;
311                        $len = $fieldobj->max_length;
312                }
313               
314                switch (strtoupper($t)) {
315                case 'VARCHAR':
316                case 'VARCHAR2':
317                case 'CHAR':
318                case 'VARBINARY':
319                case 'BINARY':
320                                if ($len <= $this->blobSize) return 'C';
321                case 'LONG':
322                case 'LONG VARCHAR':
323                case 'CLOB':
324                return 'X';
325                case 'LONG RAW':
326                case 'LONG VARBINARY':
327                case 'BLOB':
328                                return 'B';
329               
330                case 'DATE': return 'D';
331               
332                //case 'T': return 'T';
333               
334                case 'BIT': return 'L';
335                case 'INT':
336                case 'SMALLINT':
337                case 'INTEGER': return 'I';
338                default: return 'N';
339                }
340        }
341}
342?>
Note: See TracBrowser for help on using the repository browser.