Search moodle.org's
Developer Documentation

See Release Notes

  • Bug fixes for general core bugs in 3.11.x will end 14 Nov 2022 (12 months plus 6 months extension).
  • Bug fixes for security issues in 3.11.x will end 13 Nov 2023 (18 months plus 12 months extension).
  • PHP version: minimum PHP 7.3.0 Note: minimum PHP version has increased since Moodle 3.10. PHP 7.4.x is supported too.
<?php
< /* < @version v5.21.0 2021-02-27 < @copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved. < @copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community < 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 4 for best viewing. < < Latest version is available at https://adodb.org/ < < Microsoft Visual FoxPro data driver. Requires ODBC. Works only on MS Windows.
> /** > * IBM DB2 / Oracle compatibility driver. > * > * This driver re-maps ibm :0 bind variables to oracle compatible ? variables. > * > * @deprecated > * > * This file is part of ADOdb, a Database Abstraction Layer library for PHP. > * > * @package ADOdb > * @link https://adodb.org Project's web site and documentation > * @link https://github.com/ADOdb/ADOdb Source code and issue tracker > * > * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause > * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option, > * any later version. This means you can use it in proprietary products. > * See the LICENSE.md file distributed with this source code for details. > * @license BSD-3-Clause > * @license LGPL-2.1-or-later > * > * @copyright 2000-2013 John Lim > * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
*/ // security - hide paths if (!defined('ADODB_DIR')) die(); include_once(ADODB_DIR."/drivers/adodb-db2.inc.php"); if (!defined('ADODB_DB2OCI')){ define('ADODB_DB2OCI',1); /** * Smart remapping of :0, :1 bind vars to ? ? * Handles colons in comments -- and / * * / and in quoted strings. * @param string $sql SQL statement * @param array $arr parameters * @return array */ function _colonparser($sql,$arr) { $lensql = strlen($sql); $arrsize = sizeof($arr); $state = 'NORM'; $at = 1; $ch = $sql[0]; $ch2 = @$sql[1]; $sql2 = ''; $arr2 = array(); $nprev = 0; while (strlen($ch)) { switch($ch) { case '/': if ($state == 'NORM' && $ch2 == '*') { $state = 'COMMENT'; $at += 1; $ch = $ch2; $ch2 = $at < $lensql ? $sql[$at] : ''; } break; case '*': if ($state == 'COMMENT' && $ch2 == '/') { $state = 'NORM'; $at += 1; $ch = $ch2; $ch2 = $at < $lensql ? $sql[$at] : ''; } break; case "\n": case "\r": if ($state == 'COMMENT2') $state = 'NORM'; break; case "'": do { $at += 1; $ch = $ch2; $ch2 = $at < $lensql ? $sql[$at] : ''; } while ($ch !== "'"); break; case ':': if ($state == 'COMMENT' || $state == 'COMMENT2') break; //echo "$at=$ch $ch2, "; if ('0' <= $ch2 && $ch2 <= '9') { $n = ''; $nat = $at; do { $at += 1; $ch = $ch2; $n .= $ch; $ch2 = $at < $lensql ? $sql[$at] : ''; } while ('0' <= $ch && $ch <= '9'); #echo "$n $arrsize ] "; $n = (integer) $n; if ($n < $arrsize) { $sql2 .= substr($sql,$nprev,$nat-$nprev-1).'?'; $nprev = $at-1; $arr2[] = $arr[$n]; } } break; case '-': if ($state == 'NORM') { if ($ch2 == '-') $state = 'COMMENT2'; $at += 1; $ch = $ch2; $ch2 = $at < $lensql ? $sql[$at] : ''; } break; } $at += 1; $ch = $ch2; $ch2 = $at < $lensql ? $sql[$at] : ''; } if ($nprev == 0) { $sql2 = $sql; } else { $sql2 .= substr($sql,$nprev); } return array($sql2,$arr2); } class ADODB_db2oci extends ADODB_db2 { var $databaseType = "db2oci"; var $sysTimeStamp = 'sysdate'; var $sysDate = 'trunc(sysdate)'; var $_bindInputArray = true; function Param($name,$type='C') { return ':'.$name; } function MetaTables($ttype = false, $schema = false, $mask = false) { global $ADODB_FETCH_MODE; $savem = $ADODB_FETCH_MODE; $ADODB_FETCH_MODE = ADODB_FETCH_NUM; $qid = db2_tables($this->_connectionID); $rs = new ADORecordSet_db2($qid); $ADODB_FETCH_MODE = $savem; if (!$rs) { $false = false; return $false; } $arr = $rs->GetArray(); $rs->Close(); $arr2 = array(); // adodb_pr($arr); if ($ttype) { $isview = strncmp($ttype,'V',1) === 0; } for ($i=0; $i < sizeof($arr); $i++) { if (!$arr[$i][2]) continue; $type = $arr[$i][3]; $schemaval = ($schema) ? $arr[$i][1].'.' : ''; $name = $schemaval.$arr[$i][2]; $owner = $arr[$i][1]; if (substr($name,0,8) == 'EXPLAIN_') continue; if ($ttype) { if ($isview) { if (strncmp($type,'V',1) === 0) $arr2[] = $name; } else if (strncmp($type,'T',1) === 0 && strncmp($owner,'SYS',3) !== 0) $arr2[] = $name; } else if (strncmp($type,'T',1) === 0 && strncmp($owner,'SYS',3) !== 0) $arr2[] = $name; } return $arr2; } function _Execute($sql, $inputarr=false ) { if ($inputarr) list($sql,$inputarr) = _colonparser($sql, $inputarr); return parent::_Execute($sql, $inputarr); } }; class ADORecordSet_db2oci extends ADORecordSet_db2 { var $databaseType = "db2oci"; } } //define