2002-11-26 12:05:59 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2019-01-30 09:03:12 +00:00
|
|
|
| Copyright (c) The PHP Group |
|
2002-11-26 12:05:59 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 12:51:34 +00:00
|
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
2002-11-26 12:05:59 +00:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
| available through the world-wide-web at the following url: |
|
2021-05-06 10:16:35 +00:00
|
|
|
| https://www.php.net/license/3_01.txt |
|
2002-11-26 12:05:59 +00:00
|
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
|
|
+----------------------------------------------------------------------+
|
2003-06-19 11:10:14 +00:00
|
|
|
| Authors: Marcus Boerger <helly@php.net> |
|
|
|
|
| Sascha Schumann <sascha@schumann.cx> |
|
2002-11-26 12:05:59 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include "config.h"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "php.h"
|
|
|
|
|
2020-08-07 18:15:38 +00:00
|
|
|
#ifdef DBA_DB4
|
2002-11-26 12:05:59 +00:00
|
|
|
#include "php_db4.h"
|
|
|
|
#include <sys/stat.h>
|
|
|
|
|
|
|
|
#include <string.h>
|
|
|
|
#ifdef DB4_INCLUDE_FILE
|
|
|
|
#include DB4_INCLUDE_FILE
|
|
|
|
#else
|
|
|
|
#include <db.h>
|
|
|
|
#endif
|
|
|
|
|
2008-06-19 22:39:56 +00:00
|
|
|
static void php_dba_db4_errcall_fcn(
|
2010-06-03 07:03:05 +00:00
|
|
|
#if (DB_VERSION_MAJOR > 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 3))
|
2015-01-03 09:22:58 +00:00
|
|
|
const DB_ENV *dbenv,
|
2008-06-19 22:39:56 +00:00
|
|
|
#endif
|
|
|
|
const char *errpfx, const char *msg)
|
2002-12-29 15:32:38 +00:00
|
|
|
{
|
2014-10-15 07:37:55 +00:00
|
|
|
|
2010-06-03 07:03:05 +00:00
|
|
|
#if (DB_VERSION_MAJOR == 5 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 8))
|
2010-03-05 06:45:28 +00:00
|
|
|
/* Bug 51086, Berkeley DB 4.8.26 */
|
2011-06-27 22:58:59 +00:00
|
|
|
/* This code suppresses a BDB 4.8+ error message, thus keeping PHP test compatibility */
|
2010-03-05 06:45:28 +00:00
|
|
|
{
|
2014-12-13 22:06:14 +00:00
|
|
|
const char *function = get_active_function_name();
|
2010-03-05 06:45:28 +00:00
|
|
|
if (function && (!strcmp(function,"dba_popen") || !strcmp(function,"dba_open"))
|
2011-06-27 22:58:59 +00:00
|
|
|
&& (!strncmp(msg, "fop_read_meta", sizeof("fop_read_meta")-1)
|
|
|
|
|| !strncmp(msg, "BDB0004 fop_read_meta", sizeof("BDB0004 fop_read_meta")-1))) {
|
2010-03-05 06:45:28 +00:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
php_error_docref(NULL, E_NOTICE, "%s%s", errpfx?errpfx:"", msg);
|
2002-12-29 15:32:38 +00:00
|
|
|
}
|
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
typedef struct {
|
|
|
|
DB *dbp;
|
|
|
|
DBC *cursor;
|
|
|
|
} dba_db4_data;
|
|
|
|
|
|
|
|
DBA_OPEN_FUNC(db4)
|
|
|
|
{
|
|
|
|
DB *dbp = NULL;
|
|
|
|
DBTYPE type;
|
2002-12-29 15:32:38 +00:00
|
|
|
int gmode = 0, err;
|
2021-11-06 23:09:40 +00:00
|
|
|
int filemode = info->file_permission;
|
2002-11-26 12:05:59 +00:00
|
|
|
struct stat check_stat;
|
2023-04-08 16:03:28 +00:00
|
|
|
int s = VCWD_STAT(ZSTR_VAL(info->path), &check_stat);
|
2002-11-26 12:05:59 +00:00
|
|
|
|
2010-03-05 06:45:28 +00:00
|
|
|
#if (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR <= 7) /* Bug 51086 */
|
2004-05-10 01:42:43 +00:00
|
|
|
if (!s && !check_stat.st_size) {
|
|
|
|
info->mode = DBA_TRUNC; /* force truncate */
|
|
|
|
}
|
|
|
|
|
|
|
|
type = info->mode == DBA_READER ? DB_UNKNOWN :
|
2002-11-26 12:05:59 +00:00
|
|
|
info->mode == DBA_TRUNC ? DB_BTREE :
|
2004-05-10 01:42:43 +00:00
|
|
|
s ? DB_BTREE : DB_UNKNOWN;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
gmode = info->mode == DBA_READER ? DB_RDONLY :
|
2015-01-03 09:22:58 +00:00
|
|
|
(info->mode == DBA_CREAT && s) ? DB_CREATE :
|
2002-11-26 12:05:59 +00:00
|
|
|
(info->mode == DBA_CREAT && !s) ? 0 :
|
2015-01-03 09:22:58 +00:00
|
|
|
info->mode == DBA_WRITER ? 0 :
|
2002-11-26 12:05:59 +00:00
|
|
|
info->mode == DBA_TRUNC ? DB_CREATE | DB_TRUNCATE : -1;
|
2010-03-05 06:45:28 +00:00
|
|
|
#else
|
|
|
|
if (!s && !check_stat.st_size) {
|
|
|
|
info->mode = DBA_CREAT; /* force creation */
|
|
|
|
}
|
|
|
|
|
|
|
|
type = info->mode == DBA_READER ? DB_UNKNOWN :
|
|
|
|
(info->mode == DBA_TRUNC || info->mode == DBA_CREAT) ? DB_BTREE :
|
|
|
|
s ? DB_BTREE : DB_UNKNOWN;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2010-03-05 06:45:28 +00:00
|
|
|
gmode = info->mode == DBA_READER ? DB_RDONLY :
|
2015-01-03 09:22:58 +00:00
|
|
|
info->mode == DBA_CREAT ? DB_CREATE :
|
|
|
|
info->mode == DBA_WRITER ? 0 :
|
2010-03-05 06:45:28 +00:00
|
|
|
info->mode == DBA_TRUNC ? DB_CREATE | DB_TRUNCATE : -1;
|
|
|
|
#endif
|
2002-11-26 12:05:59 +00:00
|
|
|
|
2002-12-30 13:09:03 +00:00
|
|
|
if (gmode == -1) {
|
2002-11-26 12:05:59 +00:00
|
|
|
return FAILURE; /* not possible */
|
2002-12-30 13:09:03 +00:00
|
|
|
}
|
2002-11-26 12:05:59 +00:00
|
|
|
|
2005-12-08 19:35:05 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
gmode |= DB_THREAD;
|
|
|
|
}
|
|
|
|
|
2002-12-29 15:32:38 +00:00
|
|
|
if ((err=db_create(&dbp, NULL, 0)) == 0) {
|
|
|
|
dbp->set_errcall(dbp, php_dba_db4_errcall_fcn);
|
|
|
|
if (
|
2010-06-03 07:03:05 +00:00
|
|
|
#if (DB_VERSION_MAJOR > 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 1))
|
2023-04-08 16:03:28 +00:00
|
|
|
(err=dbp->open(dbp, 0, ZSTR_VAL(info->path), NULL, type, gmode, filemode)) == 0) {
|
2002-11-26 12:05:59 +00:00
|
|
|
#else
|
2023-04-08 16:03:28 +00:00
|
|
|
(err=dbp->open(dbp, ZSTR_VAL(info->path), NULL, type, gmode, filemode)) == 0) {
|
2002-11-26 12:05:59 +00:00
|
|
|
#endif
|
2002-12-29 15:32:38 +00:00
|
|
|
dba_db4_data *data;
|
2002-11-26 12:05:59 +00:00
|
|
|
|
2002-12-29 15:32:38 +00:00
|
|
|
data = pemalloc(sizeof(*data), info->flags&DBA_PERSISTENT);
|
|
|
|
data->dbp = dbp;
|
|
|
|
data->cursor = NULL;
|
|
|
|
info->dbf = data;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-12-29 15:32:38 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} else {
|
|
|
|
dbp->close(dbp, 0);
|
|
|
|
*error = db_strerror(err);
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
*error = db_strerror(err);
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_CLOSE_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
if (dba->cursor) dba->cursor->c_close(dba->cursor);
|
|
|
|
dba->dbp->close(dba->dbp, 0);
|
2002-12-20 17:47:58 +00:00
|
|
|
pefree(dba, info->flags&DBA_PERSISTENT);
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_FETCH_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
DBT gval;
|
2021-10-25 20:26:03 +00:00
|
|
|
DBT gkey;
|
2021-11-07 00:52:27 +00:00
|
|
|
zend_string *fetched_value = NULL;
|
2021-10-25 20:26:03 +00:00
|
|
|
|
|
|
|
memset(&gkey, 0, sizeof(gkey));
|
2021-11-07 00:52:27 +00:00
|
|
|
gkey.data = ZSTR_VAL(key);
|
|
|
|
gkey.size = ZSTR_LEN(key);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
memset(&gval, 0, sizeof(gval));
|
2006-02-18 17:11:06 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
gval.flags |= DB_DBT_MALLOC;
|
|
|
|
}
|
2002-11-26 12:05:59 +00:00
|
|
|
if (!dba->dbp->get(dba->dbp, NULL, &gkey, &gval, 0)) {
|
2021-11-07 00:52:27 +00:00
|
|
|
fetched_value = zend_string_init(gval.data, gval.size, /* persistent */ false);
|
2006-02-18 17:11:06 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
free(gval.data);
|
|
|
|
}
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
2021-11-07 00:52:27 +00:00
|
|
|
return fetched_value;
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_UPDATE_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
DBT gval;
|
2021-10-25 20:26:03 +00:00
|
|
|
DBT gkey;
|
|
|
|
|
|
|
|
memset(&gkey, 0, sizeof(gkey));
|
2021-11-07 01:10:38 +00:00
|
|
|
gkey.data = ZSTR_VAL(key);
|
|
|
|
gkey.size = ZSTR_LEN(key);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
memset(&gval, 0, sizeof(gval));
|
2021-11-07 01:10:38 +00:00
|
|
|
gval.data = ZSTR_VAL(val);
|
|
|
|
gval.size = ZSTR_LEN(val);
|
2002-11-26 12:05:59 +00:00
|
|
|
|
2015-01-03 09:22:58 +00:00
|
|
|
if (!dba->dbp->put(dba->dbp, NULL, &gkey, &gval,
|
2002-11-26 12:05:59 +00:00
|
|
|
mode == 1 ? DB_NOOVERWRITE : 0)) {
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_EXISTS_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
DBT gval;
|
2021-10-25 20:26:03 +00:00
|
|
|
DBT gkey;
|
|
|
|
|
|
|
|
memset(&gkey, 0, sizeof(gkey));
|
2021-11-07 01:20:06 +00:00
|
|
|
gkey.data = ZSTR_VAL(key);
|
|
|
|
gkey.size = ZSTR_LEN(key);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
memset(&gval, 0, sizeof(gval));
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2009-08-01 23:10:11 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
gval.flags |= DB_DBT_MALLOC;
|
|
|
|
}
|
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
if (!dba->dbp->get(dba->dbp, NULL, &gkey, &gval, 0)) {
|
2009-08-01 23:10:11 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
free(gval.data);
|
|
|
|
}
|
2002-11-26 12:05:59 +00:00
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_DELETE_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
|
|
|
DBT gkey;
|
|
|
|
|
|
|
|
memset(&gkey, 0, sizeof(gkey));
|
2021-11-07 01:24:32 +00:00
|
|
|
gkey.data = ZSTR_VAL(key);
|
|
|
|
gkey.size = ZSTR_LEN(key);
|
2002-11-26 12:05:59 +00:00
|
|
|
|
|
|
|
return dba->dbp->del(dba->dbp, NULL, &gkey, 0) ? FAILURE : SUCCESS;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_FIRSTKEY_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
|
|
|
|
if (dba->cursor) {
|
|
|
|
dba->cursor->c_close(dba->cursor);
|
|
|
|
}
|
|
|
|
|
|
|
|
dba->cursor = NULL;
|
|
|
|
if (dba->dbp->cursor(dba->dbp, NULL, &dba->cursor, 0) != 0) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
2021-11-07 20:15:54 +00:00
|
|
|
return dba_nextkey_db4(info);
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_NEXTKEY_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
DBT gkey, gval;
|
2021-11-07 20:15:54 +00:00
|
|
|
zend_string *key = NULL;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
memset(&gkey, 0, sizeof(gkey));
|
|
|
|
memset(&gval, 0, sizeof(gval));
|
|
|
|
|
2006-02-18 17:11:06 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
gkey.flags |= DB_DBT_MALLOC;
|
|
|
|
gval.flags |= DB_DBT_MALLOC;
|
|
|
|
}
|
2009-05-13 02:14:53 +00:00
|
|
|
if (dba->cursor && dba->cursor->c_get(dba->cursor, &gkey, &gval, DB_NEXT) == 0) {
|
2002-11-26 12:05:59 +00:00
|
|
|
if (gkey.data) {
|
2021-11-07 20:15:54 +00:00
|
|
|
key = zend_string_init(gkey.data, gkey.size, /* persistent */ false);
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
2006-02-18 17:11:06 +00:00
|
|
|
if (info->flags & DBA_PERSISTENT) {
|
|
|
|
if (gkey.data) {
|
|
|
|
free(gkey.data);
|
|
|
|
}
|
|
|
|
if (gval.data) {
|
|
|
|
free(gval.data);
|
|
|
|
}
|
|
|
|
}
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
2021-11-07 20:15:54 +00:00
|
|
|
return key;
|
2002-11-26 12:05:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
DBA_OPTIMIZE_FUNC(db4)
|
|
|
|
{
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
|
|
|
DBA_SYNC_FUNC(db4)
|
|
|
|
{
|
2021-10-25 20:26:03 +00:00
|
|
|
dba_db4_data *dba = info->dbf;
|
2002-11-26 12:05:59 +00:00
|
|
|
|
|
|
|
return dba->dbp->sync(dba->dbp, 0) ? FAILURE : SUCCESS;
|
|
|
|
}
|
|
|
|
|
2002-12-30 13:07:30 +00:00
|
|
|
DBA_INFO_FUNC(db4)
|
|
|
|
{
|
|
|
|
return estrdup(DB_VERSION_STRING);
|
|
|
|
}
|
|
|
|
|
2002-11-26 12:05:59 +00:00
|
|
|
#endif
|