forked from GNUsocial/gnu-social
532 lines
15 KiB
PHP
532 lines
15 KiB
PHP
<?php
|
|
|
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
|
|
|
/**
|
|
* The PEAR DB driver for PHP's dbase extension
|
|
* for interacting with dBase databases
|
|
*
|
|
* PHP version 5
|
|
*
|
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
|
* that is available through the world-wide-web at the following URI:
|
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
|
* the PHP License and are unable to obtain it through the web, please
|
|
* send a note to license@php.net so we can mail you a copy immediately.
|
|
*
|
|
* @category Database
|
|
* @package DB
|
|
* @author Tomas V.V. Cox <cox@idecnet.com>
|
|
* @author Daniel Convissor <danielc@php.net>
|
|
* @copyright 1997-2007 The PHP Group
|
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
|
* @version CVS: $Id$
|
|
* @link http://pear.php.net/package/DB
|
|
*/
|
|
|
|
/**
|
|
* Obtain the DB_common class so it can be extended from
|
|
*/
|
|
//require_once 'DB/common.php';
|
|
require_once 'common.php';
|
|
|
|
/**
|
|
* The methods PEAR DB uses to interact with PHP's dbase extension
|
|
* for interacting with dBase databases
|
|
*
|
|
* These methods overload the ones declared in DB_common.
|
|
*
|
|
* @category Database
|
|
* @package DB
|
|
* @author Tomas V.V. Cox <cox@idecnet.com>
|
|
* @author Daniel Convissor <danielc@php.net>
|
|
* @copyright 1997-2007 The PHP Group
|
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
|
* @version Release: 1.9.2
|
|
* @link http://pear.php.net/package/DB
|
|
*/
|
|
class DB_dbase extends DB_common
|
|
{
|
|
// {{{ properties
|
|
|
|
/**
|
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
|
* @var string
|
|
*/
|
|
public $phptype = 'dbase';
|
|
|
|
/**
|
|
* The database syntax variant to be used (db2, access, etc.), if any
|
|
* @var string
|
|
*/
|
|
public $dbsyntax = 'dbase';
|
|
|
|
/**
|
|
* The capabilities of this DB implementation
|
|
*
|
|
* The 'new_link' element contains the PHP version that first provided
|
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
|
*
|
|
* Meaning of the 'limit' element:
|
|
* + 'emulate' = emulate with fetch row by number
|
|
* + 'alter' = alter the query
|
|
* + false = skip rows
|
|
*
|
|
* @var array
|
|
*/
|
|
public $features = array(
|
|
'limit' => false,
|
|
'new_link' => false,
|
|
'numrows' => true,
|
|
'pconnect' => false,
|
|
'prepare' => false,
|
|
'ssl' => false,
|
|
'transactions' => false,
|
|
);
|
|
|
|
/**
|
|
* A mapping of native error codes to DB error codes
|
|
* @var array
|
|
*/
|
|
public $errorcode_map = array();
|
|
|
|
/**
|
|
* The raw database connection created by PHP
|
|
* @var resource
|
|
*/
|
|
public $connection;
|
|
|
|
/**
|
|
* The DSN information for connecting to a database
|
|
* @var array
|
|
*/
|
|
public $dsn = array();
|
|
|
|
|
|
/**
|
|
* A means of emulating result resources
|
|
* @var array
|
|
*/
|
|
public $res_row = array();
|
|
|
|
/**
|
|
* The quantity of results so far
|
|
*
|
|
* For emulating result resources.
|
|
*
|
|
* @var integer
|
|
*/
|
|
public $result = 0;
|
|
|
|
/**
|
|
* Maps dbase data type id's to human readable strings
|
|
*
|
|
* The human readable values are based on the output of PHP's
|
|
* dbase_get_header_info() function.
|
|
*
|
|
* @var array
|
|
* @since Property available since Release 1.7.0
|
|
*/
|
|
public $types = array(
|
|
'C' => 'character',
|
|
'D' => 'date',
|
|
'L' => 'boolean',
|
|
'M' => 'memo',
|
|
'N' => 'number',
|
|
);
|
|
|
|
|
|
// }}}
|
|
// {{{ constructor
|
|
|
|
/**
|
|
* This constructor calls <kbd>parent::__construct()</kbd>
|
|
*
|
|
* @return void
|
|
*/
|
|
public function __construct()
|
|
{
|
|
parent::__construct();
|
|
}
|
|
|
|
// }}}
|
|
// {{{ connect()
|
|
|
|
/**
|
|
* Connect to the database and create it if it doesn't exist
|
|
*
|
|
* Don't call this method directly. Use DB::connect() instead.
|
|
*
|
|
* PEAR DB's dbase driver supports the following extra DSN options:
|
|
* + mode An integer specifying the read/write mode to use
|
|
* (0 = read only, 1 = write only, 2 = read/write).
|
|
* Available since PEAR DB 1.7.0.
|
|
* + fields An array of arrays that PHP's dbase_create() function needs
|
|
* to create a new database. This information is used if the
|
|
* dBase file specified in the "database" segment of the DSN
|
|
* does not exist. For more info, see the PHP manual's
|
|
* {@link http://php.net/dbase_create dbase_create()} page.
|
|
* Available since PEAR DB 1.7.0.
|
|
*
|
|
* Example of how to connect and establish a new dBase file if necessary:
|
|
* <code>
|
|
* require_once 'DB.php';
|
|
*
|
|
* $dsn = array(
|
|
* 'phptype' => 'dbase',
|
|
* 'database' => '/path/and/name/of/dbase/file',
|
|
* 'mode' => 2,
|
|
* 'fields' => array(
|
|
* array('a', 'N', 5, 0),
|
|
* array('b', 'C', 40),
|
|
* array('c', 'C', 255),
|
|
* array('d', 'C', 20),
|
|
* ),
|
|
* );
|
|
* $options = array(
|
|
* 'debug' => 2,
|
|
* 'portability' => DB_PORTABILITY_ALL,
|
|
* );
|
|
*
|
|
* $db = DB::connect($dsn, $options);
|
|
* if ((new PEAR)->isError($db)) {
|
|
* die($db->getMessage());
|
|
* }
|
|
* </code>
|
|
*
|
|
* @param array $dsn the data source name
|
|
* @param bool $persistent should the connection be persistent?
|
|
*
|
|
* @return int|object
|
|
*/
|
|
public function connect($dsn, $persistent = false)
|
|
{
|
|
if (!PEAR::loadExtension('dbase')) {
|
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
|
}
|
|
|
|
$this->dsn = $dsn;
|
|
if ($dsn['dbsyntax']) {
|
|
$this->dbsyntax = $dsn['dbsyntax'];
|
|
}
|
|
|
|
/*
|
|
* Turn track_errors on for entire script since $php_errormsg
|
|
* is the only way to find errors from the dbase extension.
|
|
*/
|
|
@ini_set('track_errors', 1);
|
|
$php_errormsg = '';
|
|
|
|
if (!file_exists($dsn['database'])) {
|
|
$this->dsn['mode'] = 2;
|
|
if (empty($dsn['fields']) || !is_array($dsn['fields'])) {
|
|
return $this->raiseError(
|
|
DB_ERROR_CONNECT_FAILED,
|
|
null,
|
|
null,
|
|
null,
|
|
'the dbase file does not exist and '
|
|
. 'it could not be created because '
|
|
. 'the "fields" element of the DSN '
|
|
. 'is not properly set'
|
|
);
|
|
}
|
|
$this->connection = @dbase_create(
|
|
$dsn['database'],
|
|
$dsn['fields']
|
|
);
|
|
if (!$this->connection) {
|
|
return $this->raiseError(
|
|
DB_ERROR_CONNECT_FAILED,
|
|
null,
|
|
null,
|
|
null,
|
|
'the dbase file does not exist and '
|
|
. 'the attempt to create it failed: '
|
|
. $php_errormsg
|
|
);
|
|
}
|
|
} else {
|
|
if (!isset($this->dsn['mode'])) {
|
|
$this->dsn['mode'] = 0;
|
|
}
|
|
$this->connection = @dbase_open(
|
|
$dsn['database'],
|
|
$this->dsn['mode']
|
|
);
|
|
if (!$this->connection) {
|
|
return $this->raiseError(
|
|
DB_ERROR_CONNECT_FAILED,
|
|
null,
|
|
null,
|
|
null,
|
|
$php_errormsg
|
|
);
|
|
}
|
|
}
|
|
return DB_OK;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ disconnect()
|
|
|
|
/**
|
|
* Disconnects from the database server
|
|
*
|
|
* @return bool TRUE on success, FALSE on failure
|
|
*/
|
|
public function disconnect()
|
|
{
|
|
$ret = @dbase_close($this->connection);
|
|
$this->connection = null;
|
|
return $ret;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ &query()
|
|
|
|
public function &query($query = null)
|
|
{
|
|
// emulate result resources
|
|
$this->res_row[(int)$this->result] = 0;
|
|
$tmp = new DB_result($this, $this->result++);
|
|
return $tmp;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ fetchInto()
|
|
|
|
/**
|
|
* Places a row from the result set into the given array
|
|
*
|
|
* Formating of the array and the data therein are configurable.
|
|
* See DB_result::fetchInto() for more information.
|
|
*
|
|
* This method is not meant to be called directly. Use
|
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
|
* because DB_result is a separate object.
|
|
*
|
|
* @param resource $result the query result resource
|
|
* @param array $arr the referenced array to put the data in
|
|
* @param int $fetchmode how the resulting array should be indexed
|
|
* @param int $rownum the row number to fetch (0 = first row)
|
|
*
|
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
|
* reached or on failure
|
|
*
|
|
* @see DB_result::fetchInto()
|
|
*/
|
|
public function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
|
{
|
|
if ($rownum === null) {
|
|
$rownum = $this->res_row[(int)$result]++;
|
|
}
|
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
|
$arr = @dbase_get_record_with_names($this->connection, $rownum);
|
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
|
}
|
|
} else {
|
|
$arr = @dbase_get_record($this->connection, $rownum);
|
|
}
|
|
if (!$arr) {
|
|
return null;
|
|
}
|
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
|
$this->_rtrimArrayValues($arr);
|
|
}
|
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
|
$this->_convertNullArrayValuesToEmpty($arr);
|
|
}
|
|
return DB_OK;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ freeResult()
|
|
|
|
/**
|
|
* Deletes the result set and frees the memory occupied by the result set.
|
|
*
|
|
* This method is a no-op for dbase, as there aren't result resources in
|
|
* the same sense as most other database backends.
|
|
*
|
|
* @param resource $result PHP's query result resource
|
|
*
|
|
* @return bool TRUE on success, FALSE if $result is invalid
|
|
*
|
|
* @see DB_result::free()
|
|
*/
|
|
public function freeResult($result)
|
|
{
|
|
return true;
|
|
}
|
|
|
|
// }}}
|
|
// {{{ numCols()
|
|
|
|
/**
|
|
* Gets the number of columns in a result set
|
|
*
|
|
* This method is not meant to be called directly. Use
|
|
* DB_result::numCols() instead. It can't be declared "protected"
|
|
* because DB_result is a separate object.
|
|
*
|
|
* @param $foo
|
|
* @return int the number of columns. A DB_Error object on failure.
|
|
*
|
|
* @see DB_result::numCols()
|
|
*/
|
|
public function numCols($foo)
|
|
{
|
|
return @dbase_numfields($this->connection);
|
|
}
|
|
|
|
// }}}
|
|
// {{{ numRows()
|
|
|
|
/**
|
|
* Gets the number of rows in a result set
|
|
*
|
|
* This method is not meant to be called directly. Use
|
|
* DB_result::numRows() instead. It can't be declared "protected"
|
|
* because DB_result is a separate object.
|
|
*
|
|
* @param $foo
|
|
* @return int the number of rows. A DB_Error object on failure.
|
|
*
|
|
* @see DB_result::numRows()
|
|
*/
|
|
public function numRows($foo)
|
|
{
|
|
return @dbase_numrecords($this->connection);
|
|
}
|
|
|
|
// }}}
|
|
// {{{ quoteBoolean()
|
|
|
|
/**
|
|
* Formats a boolean value for use within a query in a locale-independent
|
|
* manner.
|
|
*
|
|
* @param boolean the boolean value to be quoted.
|
|
* @return string the quoted string.
|
|
* @see DB_common::quoteSmart()
|
|
* @since Method available since release 1.7.8.
|
|
*/
|
|
public function quoteBoolean($boolean)
|
|
{
|
|
return $boolean ? 'T' : 'F';
|
|
}
|
|
|
|
// }}}
|
|
// {{{ tableInfo()
|
|
|
|
/**
|
|
* Returns information about the current database
|
|
*
|
|
* @param mixed $result THIS IS UNUSED IN DBASE. The current database
|
|
* is examined regardless of what is provided here.
|
|
* @param int $mode a valid tableInfo mode
|
|
*
|
|
* @return array|object
|
|
* A DB_Error object on failure.
|
|
*
|
|
* @see DB_common::tableInfo()
|
|
* @since Method available since Release 1.7.0
|
|
*/
|
|
public function tableInfo($result = null, $mode = null)
|
|
{
|
|
if (function_exists('dbase_get_header_info')) {
|
|
$id = @dbase_get_header_info($this->connection);
|
|
if (!$id && $php_errormsg) {
|
|
return $this->raiseError(
|
|
DB_ERROR,
|
|
null,
|
|
null,
|
|
null,
|
|
$php_errormsg
|
|
);
|
|
}
|
|
} else {
|
|
/*
|
|
* This segment for PHP 4 is loosely based on code by
|
|
* Hadi Rusiah <deegos@yahoo.com> in the comments on
|
|
* the dBase reference page in the PHP manual.
|
|
*/
|
|
$db = @fopen($this->dsn['database'], 'r');
|
|
if (!$db) {
|
|
return $this->raiseError(
|
|
DB_ERROR_CONNECT_FAILED,
|
|
null,
|
|
null,
|
|
null,
|
|
$php_errormsg
|
|
);
|
|
}
|
|
|
|
$id = array();
|
|
$i = 0;
|
|
|
|
$line = fread($db, 32);
|
|
while (!feof($db)) {
|
|
$line = fread($db, 32);
|
|
if (substr($line, 0, 1) == chr(13)) {
|
|
break;
|
|
} else {
|
|
$pos = strpos(substr($line, 0, 10), chr(0));
|
|
$pos = ($pos == 0 ? 10 : $pos);
|
|
$id[$i] = array(
|
|
'name' => substr($line, 0, $pos),
|
|
'type' => $this->types[substr($line, 11, 1)],
|
|
'length' => ord(substr($line, 16, 1)),
|
|
'precision' => ord(substr($line, 17, 1)),
|
|
);
|
|
}
|
|
$i++;
|
|
}
|
|
|
|
fclose($db);
|
|
}
|
|
|
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
|
$case_func = 'strtolower';
|
|
} else {
|
|
$case_func = 'strval';
|
|
}
|
|
|
|
$res = array();
|
|
$count = count($id);
|
|
|
|
if ($mode) {
|
|
$res['num_fields'] = $count;
|
|
}
|
|
|
|
for ($i = 0; $i < $count; $i++) {
|
|
$res[$i] = array(
|
|
'table' => $this->dsn['database'],
|
|
'name' => $case_func($id[$i]['name']),
|
|
'type' => $id[$i]['type'],
|
|
'len' => $id[$i]['length'],
|
|
'flags' => ''
|
|
);
|
|
if ($mode & DB_TABLEINFO_ORDER) {
|
|
$res['order'][$res[$i]['name']] = $i;
|
|
}
|
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
|
}
|
|
}
|
|
|
|
return $res;
|
|
}
|
|
|
|
// }}}
|
|
}
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
*/
|