mirror of
https://github.com/php/php-src.git
synced 2026-04-25 17:08:14 +02:00
Zeev Suraski
bc415d5a88
* Fully implement ISAPI support - POST and cookies among other things. * Almost completely rewrote phpinfo(). Allow modules to easily display their information in phpinfo() without modifying phpinfo() itself (prototype for the module info function was changed, thus the large amount of updated module files). * Initial extended SAPI support for Apache, completely untested. * CGI now uses SAPI fully as well.
532 lines
13 KiB
C
532 lines
13 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| 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: Uwe Steinmann <Uwe.Steinmann@fernuni-hagen.de> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
/* FdfTk lib 2.0 is a Complete C/C++ FDF Toolkit available from
|
|
http://beta1.adobe.com/ada/acrosdk/forms.html. */
|
|
|
|
/* Note that there is no code from the FdfTk lib in this file */
|
|
|
|
#if !PHP_31 && defined(THREAD_SAFE)
|
|
#undef THREAD_SAFE
|
|
#endif
|
|
|
|
#include "php.h"
|
|
#include "head.h"
|
|
#include <math.h>
|
|
#include "php3_fdf.h"
|
|
|
|
#if HAVE_SYS_WAIT_H
|
|
# include <sys/wait.h>
|
|
#endif
|
|
#if HAVE_UNISTD_H
|
|
# include <unistd.h>
|
|
#endif
|
|
#if WIN32|WINNT
|
|
# include <io.h>
|
|
# include <fcntl.h>
|
|
#endif
|
|
|
|
#if HAVE_FDFLIB
|
|
|
|
#ifdef THREAD_SAFE
|
|
DWORD FDFlibTls;
|
|
static int numthreads=0;
|
|
|
|
typedef struct fdflib_global_struct{
|
|
int le_fdf;
|
|
} fdflib_global_struct;
|
|
|
|
# define FDF_GLOBAL(a) fdflib_globals->a
|
|
# define FDF_TLS_VARS fdflib_global_struct *fdflib_globals=TlsGetValue(FDFlibTls)
|
|
|
|
#else
|
|
# define FDF_GLOBAL(a) a
|
|
# define FDF_TLS_VARS
|
|
int le_fdf_info;
|
|
int le_fdf;
|
|
#endif
|
|
|
|
function_entry fdf_functions[] = {
|
|
{"fdf_open", php3_fdf_open, NULL},
|
|
{"fdf_create", php3_fdf_create, NULL},
|
|
{"fdf_close", php3_fdf_close, NULL},
|
|
{"fdf_save", php3_fdf_save, NULL},
|
|
{"fdf_get_value", php3_fdf_get_value, NULL},
|
|
{"fdf_set_value", php3_fdf_set_value, NULL},
|
|
{"fdf_next_field_name", php3_fdf_next_field_name, NULL},
|
|
{"fdf_set_ap", php3_fdf_set_ap, NULL},
|
|
{"fdf_set_status", php3_fdf_set_status, NULL},
|
|
{"fdf_get_status", php3_fdf_get_status, NULL},
|
|
{"fdf_set_file", php3_fdf_set_file, NULL},
|
|
{"fdf_get_file", php3_fdf_get_file, NULL},
|
|
{NULL, NULL, NULL}
|
|
};
|
|
|
|
php3_module_entry fdf_module_entry = {
|
|
"fdf", fdf_functions, php3_minit_fdf, php3_mend_fdf, NULL, NULL, php3_info_fdf, STANDARD_MODULE_PROPERTIES
|
|
};
|
|
|
|
#if COMPILE_DL
|
|
#include "dl/phpdl.h"
|
|
DLEXPORT php3_module_entry *get_module(void) { return &fdf_module_entry; }
|
|
#endif
|
|
|
|
int php3_minit_fdf(INIT_FUNC_ARGS)
|
|
{
|
|
FDFErc err;
|
|
FDF_GLOBAL(le_fdf) = register_list_destructors(FDFClose, NULL);
|
|
err = FDFInitialize();
|
|
if(err == FDFErcOK)
|
|
printf("FDFINitital executed\n");
|
|
return SUCCESS;
|
|
}
|
|
|
|
void php3_info_fdf(ZEND_MODULE_INFO_FUNC_ARGS) {
|
|
/* need to use a PHPAPI function here because it is external module in windows */
|
|
php3_printf("FdfTk Version %s", FDFGetVersion());
|
|
}
|
|
|
|
int php3_mend_fdf(void){
|
|
FDFErc err;
|
|
err = FDFFinalize();
|
|
if(err == FDFErcOK)
|
|
printf("FDFFinalize executed\n");
|
|
return SUCCESS;
|
|
}
|
|
|
|
/* {{{ proto int fdf_open(string filename)
|
|
Opens a new fdf document */
|
|
void php3_fdf_open(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *file;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &file) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string(file);
|
|
|
|
err = FDFOpen(file->value.str.val, 0, &fdf);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
if(!fdf)
|
|
RETURN_FALSE;
|
|
|
|
id = php3_list_insert(fdf,FDF_GLOBAL(le_fdf));
|
|
RETURN_LONG(id);
|
|
} /* }}} */
|
|
|
|
/* {{{ proto void fdf_close(int fdfdoc)
|
|
Closes the fdf document */
|
|
void php3_fdf_close(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
// FDFClose(fdf);
|
|
php3_list_delete(id);
|
|
|
|
RETURN_TRUE;
|
|
} /* }}} */
|
|
|
|
/* {{{ proto void fdf_create(void)
|
|
Creates a new fdf document */
|
|
void php3_fdf_create(INTERNAL_FUNCTION_PARAMETERS) {
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
err = FDFCreate(&fdf);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
if(!fdf)
|
|
RETURN_FALSE;
|
|
|
|
id = php3_list_insert(fdf,FDF_GLOBAL(le_fdf));
|
|
RETURN_LONG(id);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_get_value(int fdfdoc, string fieldname)
|
|
Gets the value of a field as string */
|
|
void php3_fdf_get_value(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2;
|
|
int id, type;
|
|
ASInt32 nr;
|
|
char *buffer;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFGetValue(fdf, arg2->value.str.val, NULL, 0, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
buffer = emalloc(nr);
|
|
err = FDFGetValue(fdf, arg2->value.str.val, buffer, nr, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_STRING(buffer, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_set_value(int fdfdoc, string fieldname, string value, int isName)
|
|
Sets the value of a field */
|
|
void php3_fdf_set_value(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2, *arg3, *arg4;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 4 || getParameters(ht, 4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
convert_to_string(arg3);
|
|
convert_to_long(arg4);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFSetValue(fdf, arg2->value.str.val, arg3->value.str.val, (ASBool) arg4->value.lval);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_next_field_name(int fdfdoc [, string fieldname])
|
|
Gets the name of the next field name or the first field name */
|
|
void php3_fdf_next_field_name(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *argv[2];
|
|
int id, type, argc;
|
|
ASInt32 nr;
|
|
char *buffer, *fieldname;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
argc = ARG_COUNT(ht);
|
|
if((argc > 2) || (argc < 1))
|
|
WRONG_PARAM_COUNT;
|
|
|
|
if (getParametersArray(ht, argc, argv) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(argv[0]);
|
|
if(argc == 2) {
|
|
convert_to_string(argv[1]);
|
|
fieldname = argv[1]->value.str.val;
|
|
} else {
|
|
fieldname = NULL;
|
|
}
|
|
id=argv[0]->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFNextFieldName(fdf, fieldname, NULL, 0, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
if(nr == 0)
|
|
RETURN_STRING(empty_string, 1);
|
|
|
|
buffer = emalloc(nr);
|
|
err = FDFNextFieldName(fdf, fieldname, buffer, nr, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_STRING(buffer, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_set_ap(int fdfdoc, string fieldname, int face, string filename, int pagenr)
|
|
Sets the value of a field */
|
|
void php3_fdf_set_ap(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2, *arg3, *arg4, *arg5;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDFAppFace face;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 5 || getParameters(ht, 5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
convert_to_long(arg3);
|
|
convert_to_string(arg4);
|
|
convert_to_long(arg5);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
switch(arg3->value.lval) {
|
|
case 1:
|
|
face = FDFNormalAP;
|
|
break;
|
|
case 2:
|
|
face = FDFRolloverAP;
|
|
break;
|
|
case 3:
|
|
face = FDFDownAP;
|
|
break;
|
|
default:
|
|
face = FDFNormalAP;
|
|
}
|
|
|
|
err = FDFSetAP(fdf, arg2->value.str.val, face, NULL, arg4->value.str.val, (ASInt32) arg5->value.lval);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_set_status(int fdfdoc, string status)
|
|
Sets the value in the /Status key. */
|
|
void php3_fdf_set_status(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2;
|
|
int id, type;
|
|
ASInt32 nr;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFSetStatus(fdf, arg2->value.str.val);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_get_status(int fdfdoc)
|
|
Gets the value in the /Status key. */
|
|
void php3_fdf_get_status(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1;
|
|
int id, type;
|
|
ASInt32 nr;
|
|
char *buf;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFGetStatus(fdf, NULL, 0, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
if(nr == 0)
|
|
RETURN_STRING(empty_string, 1);
|
|
buf = emalloc(nr);
|
|
err = FDFGetStatus(fdf, buf, nr, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_STRING(buf, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_set_file(int fdfdoc, string filename)
|
|
Sets the value of the FDF's /F key */
|
|
void php3_fdf_set_file(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFSetFile(fdf, arg2->value.str.val);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_get_file(int fdfdoc)
|
|
Gets the value in the /F key. */
|
|
void php3_fdf_get_file(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1;
|
|
int id, type;
|
|
ASInt32 nr;
|
|
char *buf;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFGetFile(fdf, NULL, 0, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
if(nr == 0)
|
|
RETURN_STRING(empty_string, 1);
|
|
buf = emalloc(nr);
|
|
err = FDFGetFile(fdf, buf, nr, &nr);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_STRING(buf, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto void fdf_save(int fdfdoc, string filename)
|
|
Writes out an FDF file. */
|
|
void php3_fdf_save(INTERNAL_FUNCTION_PARAMETERS) {
|
|
pval *arg1, *arg2;
|
|
int id, type;
|
|
FDFDoc fdf;
|
|
FDFErc err;
|
|
FDF_TLS_VARS;
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_long(arg1);
|
|
convert_to_string(arg2);
|
|
id=arg1->value.lval;
|
|
fdf = php3_list_find(id,&type);
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
err = FDFSave(fdf, arg2->value.str.val);
|
|
if(err != FDFErcOK)
|
|
printf("Aiii, error\n");
|
|
|
|
RETURN_TRUE;
|
|
} /* }}} */
|
|
|
|
#endif
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
*/
|