diff options
| -rw-r--r-- | Makefile.in | 2 | ||||
| -rw-r--r-- | ext/filepro/Makefile.am | 6 | ||||
| -rw-r--r-- | ext/filepro/config.h.stub | 2 | ||||
| -rw-r--r-- | ext/filepro/config.m4 | 17 | ||||
| -rw-r--r-- | ext/filepro/filepro.c | 552 | ||||
| -rw-r--r-- | ext/filepro/filepro.h | 57 | ||||
| -rw-r--r-- | ext/filepro/setup.stub | 5 |
7 files changed, 640 insertions, 1 deletions
diff --git a/Makefile.in b/Makefile.in index cf2cda2ef1..4c2c356952 100644 --- a/Makefile.in +++ b/Makefile.in @@ -69,7 +69,7 @@ OBJS = main.o internal_functions.o snprintf.o php3_sprintf.o \ php_ini.o FUNCTIONS_SOURCE = functions/apache.c functions/fhttpd.c \ - functions/crypt.c functions/db.c functions/dl.c functions/filepro.c \ + functions/crypt.c functions/db.c functions/dl.c \ functions/head.c functions/imap.c functions/mime.c \ functions/msql.c \ functions/oracle.c functions/oci8.c functions/pgsql.c \ diff --git a/ext/filepro/Makefile.am b/ext/filepro/Makefile.am new file mode 100644 index 0000000000..ff539050be --- /dev/null +++ b/ext/filepro/Makefile.am @@ -0,0 +1,6 @@ +# $Id$ + +INCLUDES=@INCLUDES@ -I@top_srcdir@ -I@top_srcdir@/libzend +noinst_LIBRARIES=libphpext_filepro.a +libphpext_filepro_a_SOURCES=filepro.c + diff --git a/ext/filepro/config.h.stub b/ext/filepro/config.h.stub new file mode 100644 index 0000000000..0a273b1502 --- /dev/null +++ b/ext/filepro/config.h.stub @@ -0,0 +1,2 @@ +#define HAVE_FILEPRO 0 + diff --git a/ext/filepro/config.m4 b/ext/filepro/config.m4 new file mode 100644 index 0000000000..2c0fd3b43b --- /dev/null +++ b/ext/filepro/config.m4 @@ -0,0 +1,17 @@ +dnl $Id$ + +AC_MSG_CHECKING(whether to include the bundled filePro support) +AC_ARG_WITH(filepro, +[ --with-filepro Include the bundled read-only filePro support],[ + if test "$withval" != "no"; then + AC_DEFINE(HAVE_FILEPRO, 1) + AC_MSG_RESULT(yes) + PHP_EXTENSION(filepro) + else + AC_DEFINE(HAVE_FILEPRO, 0) + AC_MSG_RESULT(no) + fi +],[ + AC_DEFINE(HAVE_FILEPRO, 0) + AC_MSG_RESULT(no) +]) diff --git a/ext/filepro/filepro.c b/ext/filepro/filepro.c new file mode 100644 index 0000000000..ab055fc442 --- /dev/null +++ b/ext/filepro/filepro.c @@ -0,0 +1,552 @@ +/* + +----------------------------------------------------------------------+ + | PHP HTML Embedded Scripting Language Version 3.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997,1998 PHP Development Team (See Credits file) | + +----------------------------------------------------------------------+ + | This program is free software; you can redistribute it and/or modify | + | it under the terms of one of the following licenses: | + | | + | A) the GNU General Public License as published by the Free Software | + | Foundation; either version 2 of the License, or (at your option) | + | any later version. | + | | + | B) the PHP License as published by the PHP Development Team and | + | included in the distribution in the file: LICENSE | + | | + | This program is distributed in the hope that it will be useful, | + | but WITHOUT ANY WARRANTY; without even the implied warranty of | + | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | + | GNU General Public License for more details. | + | | + | You should have received a copy of both licenses referred to here. | + | If you did not, or have any questions about PHP licensing, please | + | contact core@php.net. | + +----------------------------------------------------------------------+ + | Authors: Chad Robinson <chadr@brttech.com> | + +----------------------------------------------------------------------+ + + filePro 4.x support developed by Chad Robinson, chadr@brttech.com + Contact Chad Robinson at BRT Technical Services Corp. for details. + filePro is a registered trademark by Fiserv, Inc. This file contains + no code or information that is not freely available from the filePro + web site at http://www.fileproplus.com/ + + */ +#ifdef THREAD_SAFE +#include "tls.h" +#endif +#include "php.h" +#include "safe_mode.h" +#include "fopen-wrappers.h" +#include <string.h> +#if MSVC5 +#include <windows.h> +#else +#include <sys/param.h> +#endif +#include <errno.h> +#include "php_globals.h" + +#include "filepro.h" +#if HAVE_FILEPRO + +typedef struct fp_field { + char *name; + char *format; + int width; + struct fp_field *next; +} FP_FIELD; + +#ifdef THREAD_SAFE +DWORD FPTls; +static int numthreads=0; + +typedef struct fp_global_struct{ + char *fp_database; + signed int fp_fcount; + signed int fp_keysize; + FP_FIELD *fp_fieldlist; +}fp_global_struct; + +#define FP_GLOBAL(a) fp_globals->a + +#define FP_TLS_VARS \ + fp_global_struct *fp_globals; \ + fp_globals=TlsGetValue(FPTls); + +#else +#define FP_GLOBAL(a) a +#define FP_TLS_VARS +static char *fp_database = NULL; /* Database directory */ +static signed int fp_fcount = -1; /* Column count */ +static signed int fp_keysize = -1; /* Size of key records */ +static FP_FIELD *fp_fieldlist = NULL; /* List of fields */ +#endif + + +int php3_minit_filepro(INIT_FUNC_ARGS) +{ +#ifdef THREAD_SAFE + fp_global_struct *fp_globals; +#if !COMPILE_DL + CREATE_MUTEX(fp_mutex,"FP_TLS"); + SET_MUTEX(fp_mutex); + numthreads++; + if (numthreads==1){ + if ((FPTls=TlsAlloc())==0xFFFFFFFF){ + FREE_MUTEX(fp_mutex); + return 0; + }} + FREE_MUTEX(fp_mutex); +#endif + fp_globals = (fp_global_struct *) LocalAlloc(LPTR, sizeof(fp_global_struct)); + TlsSetValue(FPTls, (void *) fp_globals); +#endif + FP_GLOBAL(fp_database)=NULL; + FP_GLOBAL(fp_fcount)=-1; + FP_GLOBAL(fp_keysize)=-1; + FP_GLOBAL(fp_fieldlist)=NULL; + + return SUCCESS; +} + +int php3_mend_filepro(void){ +#ifdef THREAD_SAFE + fp_global_struct *fp_globals; + fp_globals = TlsGetValue(FPTls); + if (fp_globals != 0) + LocalFree((HLOCAL) fp_globals); +#if !COMPILE_DL + SET_MUTEX(fp_mutex); + numthreads--; + if (!numthreads){ + if (!TlsFree(FPTls)){ + FREE_MUTEX(fp_mutex); + return 0; + }} + FREE_MUTEX(fp_mutex); +#endif +#endif + return SUCCESS; +} + + +function_entry filepro_functions[] = { + {"filepro", php3_filepro, NULL}, + {"filepro_rowcount", php3_filepro_rowcount, NULL}, + {"filepro_fieldname", php3_filepro_fieldname, NULL}, + {"filepro_fieldtype", php3_filepro_fieldtype, NULL}, + {"filepro_fieldwidth", php3_filepro_fieldwidth, NULL}, + {"filepro_fieldcount", php3_filepro_fieldcount, NULL}, + {"filepro_retrieve", php3_filepro_retrieve, NULL}, + {NULL, NULL, NULL} +}; + +php3_module_entry filepro_module_entry = { + "FilePro", filepro_functions, php3_minit_filepro, php3_mend_filepro, NULL, NULL, NULL, STANDARD_MODULE_PROPERTIES +}; + + +#if COMPILE_DL +#include "dl/phpdl.h" +DLEXPORT php3_module_entry *get_module(void) { return &filepro_module_entry; } +#if (WIN32|WINNT) && defined(THREAD_SAFE) + +/*NOTE: You should have an odbc.def file where you +export DllMain*/ +BOOL WINAPI DllMain(HANDLE hModule, + DWORD ul_reason_for_call, + LPVOID lpReserved) +{ + switch( ul_reason_for_call ) { + case DLL_PROCESS_ATTACH: + if ((FPTls=TlsAlloc())==0xFFFFFFFF){ + return 0; + } + break; + case DLL_THREAD_ATTACH: + break; + case DLL_THREAD_DETACH: + break; + case DLL_PROCESS_DETACH: + if (!TlsFree(FPTls)){ + return 0; + } + break; + } + return 1; +} +#endif +#endif + +/* + * LONG filePro(STRING directory) + * + * Read and verify the map file. We store the field count and field info + * internally, which means we become unstable if you modify the table while + * a user is using it! We cannot lock anything since Web connections don't + * provide the ability to later unlock what we locked. Be smart, be safe. + */ +void php3_filepro(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *dir; + FILE *fp; + char workbuf[256]; /* FIX - should really be the max filename length */ + char readbuf[256]; + int i; + FP_FIELD *new_field, *tmp; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &dir) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_string(dir); + + /* FIX - we should really check and free these if they are used! */ + FP_GLOBAL(fp_database) = NULL; + FP_GLOBAL(fp_fieldlist) = NULL; + FP_GLOBAL(fp_fcount) = -1; + FP_GLOBAL(fp_keysize) = -1; + + sprintf(workbuf, "%s/map", dir->value.str.val); + + if (PG(safe_mode) && (!_php3_checkuid(workbuf, 2))) { + RETURN_FALSE; + } + + if (_php3_check_open_basedir(workbuf)) { + RETURN_FALSE; + } + + if (!(fp = fopen(workbuf, "r"))) { + php3_error(E_WARNING, "filePro: cannot open map: [%d] %s", + errno, strerror(errno)); + RETURN_FALSE; + } + if (!fgets(readbuf, 250, fp)) { + fclose(fp); + php3_error(E_WARNING, "filePro: cannot read map: [%d] %s", + errno, strerror(errno)); + RETURN_FALSE; + } + + /* Get the field count, assume the file is readable! */ + if (strcmp(strtok(readbuf, ":"), "map")) { + php3_error(E_WARNING, "filePro: map file corrupt or encrypted"); + RETURN_FALSE; + } + FP_GLOBAL(fp_keysize) = atoi(strtok(NULL, ":")); + strtok(NULL, ":"); + FP_GLOBAL(fp_fcount) = atoi(strtok(NULL, ":")); + + /* Read in the fields themselves */ + for (i = 0; i < FP_GLOBAL(fp_fcount); i++) { + if (!fgets(readbuf, 250, fp)) { + fclose(fp); + php3_error(E_WARNING, "filePro: cannot read map: [%d] %s", + errno, strerror(errno)); + RETURN_FALSE; + } + new_field = emalloc(sizeof(FP_FIELD)); + new_field->next = NULL; + new_field->name = estrdup(strtok(readbuf, ":")); + new_field->width = atoi(strtok(NULL, ":")); + new_field->format = estrdup(strtok(NULL, ":")); + + /* Store in forward-order to save time later */ + if (!FP_GLOBAL(fp_fieldlist)) { + FP_GLOBAL(fp_fieldlist) = new_field; + } else { + for (tmp = FP_GLOBAL(fp_fieldlist); tmp; tmp = tmp->next) { + if (!tmp->next) { + tmp->next = new_field; + tmp = new_field; + } + } + } + } + fclose(fp); + + FP_GLOBAL(fp_database) = estrndup(dir->value.str.val,dir->value.str.len); + + RETVAL_TRUE; +} + + +/* + * LONG filePro_rowcount(void) + * + * Count the used rows in the database. filePro just marks deleted records + * as deleted; they are not removed. Since no counts are maintained we need + * to go in and count records ourselves. <sigh> + * + * Errors return false, success returns the row count. + */ +void php3_filepro_rowcount(INTERNAL_FUNCTION_PARAMETERS) +{ + FILE *fp; + char workbuf[MAXPATHLEN]; + char readbuf[256]; + int recsize = 0, records = 0; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 0) { + WRONG_PARAM_COUNT; + } + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + recsize = FP_GLOBAL(fp_keysize) + 19; /* 20 bytes system info -1 to save time later */ + + /* Now read the records in, moving forward recsize-1 bytes each time */ + sprintf(workbuf, "%s/key", FP_GLOBAL(fp_database)); + + if (PG(safe_mode) && (!_php3_checkuid(workbuf, 2))) { + RETURN_FALSE; + } + + if (_php3_check_open_basedir(workbuf)) { + RETURN_FALSE; + } + + if (!(fp = fopen(workbuf, "r"))) { + php3_error(E_WARNING, "filePro: cannot open key: [%d] %s", + errno, strerror(errno)); + RETURN_FALSE; + } + while (!feof(fp)) { + if (fread(readbuf, 1, 1, fp) == 1) { + if (readbuf[0]) + records++; + fseek(fp, recsize, SEEK_CUR); + } + } + fclose(fp); + + RETVAL_LONG(records); +} + + +/* + * STRING filePro_fieldname(LONG field_number) + * + * Errors return false, success returns the name of the field. + */ +void php3_filepro_fieldname(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *fno; + FP_FIELD *lp; + int i; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &fno) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(fno); + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + for (i = 0, lp = FP_GLOBAL(fp_fieldlist); lp; lp = lp->next, i++) { + if (i == fno->value.lval) { + RETURN_STRING(lp->name,1); + } + } + + php3_error(E_WARNING, + "filePro: unable to locate field number %d.\n", + fno->value.lval); + + RETVAL_FALSE; +} + + +/* + * STRING filePro_fieldtype(LONG field_number) + * + * Errors return false, success returns the type (edit) of the field + */ +void php3_filepro_fieldtype(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *fno; + FP_FIELD *lp; + int i; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &fno) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(fno); + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + for (i = 0, lp = FP_GLOBAL(fp_fieldlist); lp; lp = lp->next, i++) { + if (i == fno->value.lval) { + RETURN_STRING(lp->format,1); + } + } + php3_error(E_WARNING, + "filePro: unable to locate field number %d.\n", + fno->value.lval); + RETVAL_FALSE; +} + + +/* + * STRING filePro_fieldwidth(int field_number) + * + * Errors return false, success returns the character width of the field. + */ +void php3_filepro_fieldwidth(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *fno; + FP_FIELD *lp; + int i; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &fno) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(fno); + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + for (i = 0, lp = FP_GLOBAL(fp_fieldlist); lp; lp = lp->next, i++) { + if (i == fno->value.lval) { + RETURN_LONG(lp->width); + } + } + php3_error(E_WARNING, + "filePro: unable to locate field number %d.\n", + fno->value.lval); + RETVAL_FALSE; +} + + +/* + * LONG filePro_fieldcount(void) + * + * Errors return false, success returns the field count. + */ +void php3_filepro_fieldcount(INTERNAL_FUNCTION_PARAMETERS) +{ + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 0) { + WRONG_PARAM_COUNT; + } + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + /* Read in the first line from the map file */ + RETVAL_LONG(FP_GLOBAL(fp_fcount)); +} + + +/* + * STRING filePro_retrieve(int row_number, int field_number) + * + * Errors return false, success returns the datum. + */ +void php3_filepro_retrieve(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *rno, *fno; + FP_FIELD *lp; + FILE *fp; + char workbuf[MAXPATHLEN]; + char readbuf[1024]; /* FIX - Work out better buffering! */ + int i, fnum, rnum; + long offset; + FP_TLS_VARS; + + if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &rno, &fno) == FAILURE) { + WRONG_PARAM_COUNT; + } + + if (!FP_GLOBAL(fp_database)) { + php3_error(E_WARNING, + "filePro: must set database directory first!\n"); + RETURN_FALSE; + } + + convert_to_long(rno); + convert_to_long(fno); + + fnum = fno->value.lval; + rnum = rno->value.lval; + + if (rnum < 0 || fnum < 0 || fnum >= FP_GLOBAL(fp_fcount)) { + php3_error(E_WARNING, "filepro: parameters out of range"); + RETURN_FALSE; + } + + offset = (rnum + 1) * (FP_GLOBAL(fp_keysize) + 20) + 20; /* Record location */ + for (i = 0, lp = FP_GLOBAL(fp_fieldlist); lp && i < fnum; lp = lp->next, i++) { + offset += lp->width; + } + if (!lp) { + php3_error(E_WARNING, "filePro: cannot locate field"); + RETURN_FALSE; + } + + /* Now read the record in */ + sprintf(workbuf, "%s/key", FP_GLOBAL(fp_database)); + + if (PG(safe_mode) && (!_php3_checkuid(workbuf, 2))) { + RETURN_FALSE; + } + + if (_php3_check_open_basedir(workbuf)) { + RETURN_FALSE; + } + + if (!(fp = fopen(workbuf, "r"))) { + php3_error(E_WARNING, "filePro: cannot open key: [%d] %s", + errno, strerror(errno)); + fclose(fp); + RETURN_FALSE; + } + fseek(fp, offset, SEEK_SET); + if (fread(readbuf, lp->width, 1, fp) != 1) { + php3_error(E_WARNING, "filePro: cannot read data: [%d] %s", + errno, strerror(errno)); + fclose(fp); + RETURN_FALSE; + } + readbuf[lp->width] = '\0'; + fclose(fp); + RETURN_STRING(readbuf,1); +} + +#endif + +/* + * Local variables: + * tab-width: 4 + * c-basic-offset: 4 + * End: + */ diff --git a/ext/filepro/filepro.h b/ext/filepro/filepro.h new file mode 100644 index 0000000000..7633af1cb1 --- /dev/null +++ b/ext/filepro/filepro.h @@ -0,0 +1,57 @@ +/* + +----------------------------------------------------------------------+ + | PHP HTML Embedded Scripting Language Version 3.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997,1998 PHP Development Team (See Credits file) | + +----------------------------------------------------------------------+ + | This program is free software; you can redistribute it and/or modify | + | it under the terms of one of the following licenses: | + | | + | A) the GNU General Public License as published by the Free Software | + | Foundation; either version 2 of the License, or (at your option) | + | any later version. | + | | + | B) the PHP License as published by the PHP Development Team and | + | included in the distribution in the file: LICENSE | + | | + | This program is distributed in the hope that it will be useful, | + | but WITHOUT ANY WARRANTY; without even the implied warranty of | + | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | + | GNU General Public License for more details. | + | | + | You should have received a copy of both licenses referred to here. | + | If you did not, or have any questions about PHP licensing, please | + | contact core@php.net. | + +----------------------------------------------------------------------+ + | Authors: Chad Robinson <chadr@brttech.com> | + +----------------------------------------------------------------------+ + + filePro 4.x support developed by Chad Robinson, chadr@brttech.com + Contact Chad Robinson at BRT Technical Services Corp. for details. + filePro is a registered trademark by Fiserv, Inc. This file contains + no code or information that is not freely available from the filePro + web site at http://www.fileproplus.com/ + + */ + +/* $Id$ */ + +#ifndef _FILEPRO_H +#define _FILEPRO_H +#if HAVE_FILEPRO +extern php3_module_entry filepro_module_entry; +#define filepro_module_ptr &filepro_module_entry + +extern void php3_filepro(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_rowcount(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_fieldname(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_fieldtype(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_fieldwidth(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_fieldcount(INTERNAL_FUNCTION_PARAMETERS); +extern void php3_filepro_retrieve(INTERNAL_FUNCTION_PARAMETERS); +extern int php3_minit_filepro(INIT_FUNC_ARGS); +extern int php3_mend_filepro(void); +#else +#define filepro_module_ptr NULL +#endif +#endif /* _FILEPRO_H */ diff --git a/ext/filepro/setup.stub b/ext/filepro/setup.stub new file mode 100644 index 0000000000..7107744f02 --- /dev/null +++ b/ext/filepro/setup.stub @@ -0,0 +1,5 @@ +# $Source$ +# $Id$ + +define_option with-filepro 'filePro support? ' yesno no \ +' Whether to use the bundled filePro library. Read-access only.' |