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.20.16 12-Jan-2020
> @version v5.21.0 2021-02-27
@copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights @copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community reserved. 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 http://adodb.org/
> Latest version is available at https://adodb.org/
21.02.2002 - Wade Johnson wade@wadejohnson.de Extended ODBC class for Sybase SQLAnywhere. 1) Added support to retrieve the last row insert ID on tables with primary key column using autoincrement function. 2) Added blob support. Usage: a) create blob variable on db server: $dbconn->create_blobvar($blobVarName); b) load blob var from file. $filename must be complete path $dbcon->load_blobvar_from_file($blobVarName, $filename); c) Use the $blobVarName in SQL insert or update statement in the values clause: $recordSet = $dbconn->Execute('INSERT INTO tabname (idcol, blobcol) ' . 'VALUES (\'test\', ' . $blobVarName . ')'); instead of loading blob from a file, you can also load from an unformatted (raw) blob variable: $dbcon->load_blobvar_from_var($blobVarName, $varName); d) drop blob variable on db server to free up resources: $dbconn->drop_blobvar($blobVarName); Sybase_SQLAnywhere data driver. Requires ODBC. */ // security - hide paths if (!defined('ADODB_DIR')) die(); if (!defined('_ADODB_ODBC_LAYER')) {
< include(ADODB_DIR."/drivers/adodb-odbc.inc.php");
> include_once(ADODB_DIR."/drivers/adodb-odbc.inc.php");
} if (!defined('ADODB_SYBASE_SQLANYWHERE')){ define('ADODB_SYBASE_SQLANYWHERE',1); class ADODB_sqlanywhere extends ADODB_odbc { var $databaseType = "sqlanywhere"; var $hasInsertID = true; function _insertid() { return $this->GetOne('select @@identity'); } function create_blobvar($blobVarName) { $this->Execute("create variable $blobVarName long binary"); return; } function drop_blobvar($blobVarName) { $this->Execute("drop variable $blobVarName"); return; } function load_blobvar_from_file($blobVarName, $filename) { $chunk_size = 1000; $fd = fopen ($filename, "rb"); $integer_chunks = (integer)filesize($filename) / $chunk_size; $modulus = filesize($filename) % $chunk_size; if ($modulus != 0){ $integer_chunks += 1; } for($loop=1;$loop<=$integer_chunks;$loop++){ $contents = fread ($fd, $chunk_size); $contents = bin2hex($contents); $hexstring = ''; for($loop2=0;$loop2<strlen($contents);$loop2+=2){ $hexstring .= '\x' . substr($contents,$loop2,2); } $hexstring = $this->qstr($hexstring); $this->Execute("set $blobVarName = $blobVarName || " . $hexstring); } fclose ($fd); return; } function load_blobvar_from_var($blobVarName, &$varName) { $chunk_size = 1000; $integer_chunks = (integer)strlen($varName) / $chunk_size; $modulus = strlen($varName) % $chunk_size; if ($modulus != 0){ $integer_chunks += 1; } for($loop=1;$loop<=$integer_chunks;$loop++){ $contents = substr ($varName, (($loop - 1) * $chunk_size), $chunk_size); $contents = bin2hex($contents); $hexstring = ''; for($loop2=0;$loop2<strlen($contents);$loop2+=2){ $hexstring .= '\x' . substr($contents,$loop2,2); } $hexstring = $this->qstr($hexstring); $this->Execute("set $blobVarName = $blobVarName || " . $hexstring); } return; } /* Insert a null into the blob field of the table first. Then use UpdateBlob to store the blob. Usage: $conn->Execute('INSERT INTO blobtable (id, blobcol) VALUES (1, null)'); $conn->UpdateBlob('blobtable','blobcol',$blob,'id=1'); */ function UpdateBlob($table,$column,&$val,$where,$blobtype='BLOB') { $blobVarName = 'hold_blob'; $this->create_blobvar($blobVarName); $this->load_blobvar_from_var($blobVarName, $val); $this->Execute("UPDATE $table SET $column=$blobVarName WHERE $where"); $this->drop_blobvar($blobVarName); return true; } }; //class class ADORecordSet_sqlanywhere extends ADORecordSet_odbc { var $databaseType = "sqlanywhere";
< < function __construct($id,$mode=false) < { < parent::__construct($id,$mode); < }
}; //class } //define