1999-04-22 00:25:57 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2004-01-08 08:18:22 +00:00
|
|
|
| PHP Version 5 |
|
1999-04-22 00:25:57 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 12:51:34 +00:00
|
|
|
| Copyright (c) 1997-2006 The PHP Group |
|
1999-04-22 00:25:57 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 12:51:34 +00:00
|
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
1999-07-16 13:13:16 +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: |
|
2006-01-01 12:51:34 +00:00
|
|
|
| http://www.php.net/license/3_01.txt |
|
1999-07-16 13:13:16 +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. |
|
1999-04-22 00:25:57 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Authors: Brian Schaffner <brian@tool.net> |
|
|
|
|
| Shane Caraveo <shane@caraveo.com> |
|
|
|
|
| Zeev Suraski <zeev@zend.com> |
|
|
|
|
+----------------------------------------------------------------------+
|
2000-07-24 01:40:02 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
/* $Id$ */
|
1999-04-22 00:25:57 +00:00
|
|
|
|
|
|
|
#include "php.h"
|
|
|
|
#include "dl.h"
|
|
|
|
#include "php_globals.h"
|
2005-07-29 13:25:33 +00:00
|
|
|
#include "php_ini.h"
|
2000-04-05 21:43:03 +00:00
|
|
|
#include "ext/standard/info.h"
|
2005-07-29 13:25:33 +00:00
|
|
|
|
2000-06-26 18:27:12 +00:00
|
|
|
#include "SAPI.h"
|
2000-11-06 06:31:00 +00:00
|
|
|
|
2002-04-04 00:24:34 +00:00
|
|
|
#if defined(HAVE_LIBDL) || HAVE_MACH_O_DYLD_H
|
1999-04-22 00:25:57 +00:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdio.h>
|
2000-03-18 16:16:15 +00:00
|
|
|
|
2002-09-05 14:25:07 +00:00
|
|
|
#ifdef HAVE_STRING_H
|
1999-04-22 00:25:57 +00:00
|
|
|
#include <string.h>
|
|
|
|
#else
|
|
|
|
#include <strings.h>
|
|
|
|
#endif
|
2000-02-11 15:59:30 +00:00
|
|
|
#ifdef PHP_WIN32
|
1999-04-22 00:25:57 +00:00
|
|
|
#include "win32/param.h"
|
|
|
|
#include "win32/winutil.h"
|
2000-06-12 20:22:17 +00:00
|
|
|
#define GET_DL_ERROR() php_win_err()
|
2002-09-05 14:25:07 +00:00
|
|
|
#elif defined(NETWARE)
|
|
|
|
#include <sys/param.h>
|
|
|
|
#define GET_DL_ERROR() dlerror()
|
1999-04-22 00:25:57 +00:00
|
|
|
#else
|
|
|
|
#include <sys/param.h>
|
2002-04-04 00:24:34 +00:00
|
|
|
#define GET_DL_ERROR() DL_ERROR()
|
1999-04-22 00:25:57 +00:00
|
|
|
#endif
|
|
|
|
|
2002-04-04 00:24:34 +00:00
|
|
|
#endif /* defined(HAVE_LIBDL) || HAVE_MACH_O_DYLD_H */
|
1999-04-22 00:25:57 +00:00
|
|
|
|
2000-06-12 20:22:17 +00:00
|
|
|
|
1999-04-22 00:25:57 +00:00
|
|
|
/* {{{ proto int dl(string extension_filename)
|
|
|
|
Load a PHP extension at runtime */
|
2000-03-06 20:37:11 +00:00
|
|
|
PHP_FUNCTION(dl)
|
1999-04-22 00:25:57 +00:00
|
|
|
{
|
2005-06-17 09:39:23 +00:00
|
|
|
zval **file;
|
1999-04-22 00:25:57 +00:00
|
|
|
|
2004-05-25 13:25:22 +00:00
|
|
|
/* obtain arguments */
|
|
|
|
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &file) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_string_ex(file);
|
|
|
|
|
2005-06-16 15:36:39 +00:00
|
|
|
if (!PG(enable_dl)) {
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Dynamically loaded extensions aren't enabled");
|
|
|
|
RETURN_FALSE;
|
|
|
|
} else if (PG(safe_mode)) {
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Dynamically loaded extensions aren't allowed when running in Safe Mode");
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2003-01-29 15:39:10 +00:00
|
|
|
if ((strncmp(sapi_module.name, "cgi", 3)!=0) &&
|
|
|
|
(strcmp(sapi_module.name, "cli")!=0) &&
|
|
|
|
(strncmp(sapi_module.name, "embed", 5)!=0)) {
|
2005-06-16 15:36:39 +00:00
|
|
|
#ifdef ZTS
|
2004-05-25 13:25:22 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Not supported in multithreaded Web servers - use extension=%s in your php.ini", Z_STRVAL_PP(file));
|
2002-10-13 14:14:34 +00:00
|
|
|
RETURN_FALSE;
|
2005-06-16 15:36:39 +00:00
|
|
|
#else
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_STRICT, "dl() is deprecated - use extension=%s in your php.ini", Z_STRVAL_PP(file));
|
2000-06-26 18:27:12 +00:00
|
|
|
#endif
|
1999-04-22 00:25:57 +00:00
|
|
|
}
|
2005-06-16 15:36:39 +00:00
|
|
|
|
2005-08-08 16:49:44 +00:00
|
|
|
php_dl(*file, MODULE_TEMPORARY, return_value, 0 TSRMLS_CC);
|
2005-06-16 15:36:39 +00:00
|
|
|
EG(full_tables_cleanup) = 1;
|
1999-04-22 00:25:57 +00:00
|
|
|
}
|
1999-10-13 19:55:25 +00:00
|
|
|
|
1999-04-22 00:25:57 +00:00
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
|
2002-04-04 00:24:34 +00:00
|
|
|
#if defined(HAVE_LIBDL) || HAVE_MACH_O_DYLD_H
|
1999-04-22 00:25:57 +00:00
|
|
|
|
2000-03-11 16:23:30 +00:00
|
|
|
#ifdef ZTS
|
|
|
|
#define USING_ZTS 1
|
|
|
|
#else
|
|
|
|
#define USING_ZTS 0
|
|
|
|
#endif
|
|
|
|
|
2001-06-06 13:06:12 +00:00
|
|
|
/* {{{ php_dl
|
|
|
|
*/
|
2005-08-08 16:49:44 +00:00
|
|
|
void php_dl(zval *file, int type, zval *return_value, int start_now TSRMLS_DC)
|
1999-04-22 00:25:57 +00:00
|
|
|
{
|
|
|
|
void *handle;
|
2000-03-07 03:43:03 +00:00
|
|
|
char *libpath;
|
2004-05-25 13:51:00 +00:00
|
|
|
zend_module_entry *module_entry;
|
1999-12-17 20:55:31 +00:00
|
|
|
zend_module_entry *(*get_module)(void);
|
2000-06-12 20:22:17 +00:00
|
|
|
int error_type;
|
2000-06-12 21:01:03 +00:00
|
|
|
char *extension_dir;
|
2000-05-02 14:44:08 +00:00
|
|
|
|
2005-07-29 13:25:33 +00:00
|
|
|
if (type == MODULE_PERSISTENT) {
|
|
|
|
extension_dir = INI_STR("extension_dir");
|
2000-06-12 21:01:03 +00:00
|
|
|
} else {
|
|
|
|
extension_dir = PG(extension_dir);
|
|
|
|
}
|
|
|
|
|
2005-07-29 13:25:33 +00:00
|
|
|
if (type == MODULE_TEMPORARY) {
|
2000-06-12 20:22:17 +00:00
|
|
|
error_type = E_WARNING;
|
|
|
|
} else {
|
|
|
|
error_type = E_CORE_WARNING;
|
|
|
|
}
|
|
|
|
|
2000-06-12 21:01:03 +00:00
|
|
|
if (extension_dir && extension_dir[0]){
|
|
|
|
int extension_dir_len = strlen(extension_dir);
|
1999-04-22 00:25:57 +00:00
|
|
|
|
2001-09-25 21:58:48 +00:00
|
|
|
libpath = emalloc(extension_dir_len+Z_STRLEN_P(file)+2);
|
2000-03-07 03:43:03 +00:00
|
|
|
|
2000-06-12 21:01:03 +00:00
|
|
|
if (IS_SLASH(extension_dir[extension_dir_len-1])) {
|
2001-09-25 21:58:48 +00:00
|
|
|
sprintf(libpath, "%s%s", extension_dir, Z_STRVAL_P(file)); /* SAFE */
|
2000-06-09 00:43:43 +00:00
|
|
|
} else {
|
2002-11-04 12:53:24 +00:00
|
|
|
sprintf(libpath, "%s%c%s", extension_dir, DEFAULT_SLASH, Z_STRVAL_P(file)); /* SAFE */
|
2000-06-09 00:43:43 +00:00
|
|
|
}
|
1999-04-22 00:25:57 +00:00
|
|
|
} else {
|
2001-09-25 21:58:48 +00:00
|
|
|
libpath = estrndup(Z_STRVAL_P(file), Z_STRLEN_P(file));
|
1999-04-22 00:25:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* load dynamic symbol */
|
2000-02-10 19:41:21 +00:00
|
|
|
handle = DL_LOAD(libpath);
|
1999-04-22 00:25:57 +00:00
|
|
|
if (!handle) {
|
2002-08-24 01:19:28 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, error_type, "Unable to load dynamic library '%s' - %s", libpath, GET_DL_ERROR());
|
2003-12-17 11:20:35 +00:00
|
|
|
GET_DL_ERROR(); /* free the buffer storing the error */
|
2000-03-07 03:43:03 +00:00
|
|
|
efree(libpath);
|
1999-04-22 00:25:57 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2000-03-07 03:43:03 +00:00
|
|
|
|
|
|
|
efree(libpath);
|
|
|
|
|
2000-03-30 01:21:03 +00:00
|
|
|
get_module = (zend_module_entry *(*)(void)) DL_FETCH_SYMBOL(handle, "get_module");
|
|
|
|
|
|
|
|
/*
|
|
|
|
* some OS prepend _ to symbol names while their dynamic linker
|
|
|
|
* does not do that automatically. Thus we check manually for
|
|
|
|
* _get_module.
|
|
|
|
*/
|
|
|
|
|
|
|
|
if (!get_module)
|
|
|
|
get_module = (zend_module_entry *(*)(void)) DL_FETCH_SYMBOL(handle, "_get_module");
|
|
|
|
|
1999-04-22 00:25:57 +00:00
|
|
|
if (!get_module) {
|
2000-02-10 19:41:21 +00:00
|
|
|
DL_UNLOAD(handle);
|
2002-08-24 01:19:28 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, error_type, "Invalid library (maybe not a PHP library) '%s' ", Z_STRVAL_P(file));
|
1999-04-22 00:25:57 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
module_entry = get_module();
|
2000-03-13 06:00:36 +00:00
|
|
|
if ((module_entry->zend_debug != ZEND_DEBUG) || (module_entry->zts != USING_ZTS)
|
|
|
|
|| (module_entry->zend_api != ZEND_MODULE_API_NO)) {
|
2002-03-23 15:37:27 +00:00
|
|
|
/* Check for pre-4.1.0 module which has a slightly different module_entry structure :( */
|
|
|
|
struct pre_4_1_0_module_entry {
|
|
|
|
char *name;
|
|
|
|
zend_function_entry *functions;
|
|
|
|
int (*module_startup_func)(INIT_FUNC_ARGS);
|
|
|
|
int (*module_shutdown_func)(SHUTDOWN_FUNC_ARGS);
|
|
|
|
int (*request_startup_func)(INIT_FUNC_ARGS);
|
|
|
|
int (*request_shutdown_func)(SHUTDOWN_FUNC_ARGS);
|
|
|
|
void (*info_func)(ZEND_MODULE_INFO_FUNC_ARGS);
|
|
|
|
int (*global_startup_func)(void);
|
|
|
|
int (*global_shutdown_func)(void);
|
|
|
|
int globals_id;
|
|
|
|
int module_started;
|
|
|
|
unsigned char type;
|
|
|
|
void *handle;
|
|
|
|
int module_number;
|
|
|
|
unsigned char zend_debug;
|
|
|
|
unsigned char zts;
|
|
|
|
unsigned int zend_api;
|
|
|
|
};
|
|
|
|
|
|
|
|
char *name;
|
|
|
|
int zend_api;
|
|
|
|
unsigned char zend_debug, zts;
|
|
|
|
|
|
|
|
if(( ((struct pre_4_1_0_module_entry *)module_entry)->zend_api > 20000000)
|
|
|
|
&&(((struct pre_4_1_0_module_entry *)module_entry)->zend_api < 20010901)) {
|
|
|
|
name = ((struct pre_4_1_0_module_entry *)module_entry)->name;
|
|
|
|
zend_api = ((struct pre_4_1_0_module_entry *)module_entry)->zend_api;
|
|
|
|
zend_debug = ((struct pre_4_1_0_module_entry *)module_entry)->zend_debug;
|
|
|
|
zts = ((struct pre_4_1_0_module_entry *)module_entry)->zts;
|
|
|
|
} else {
|
|
|
|
name = module_entry->name;
|
|
|
|
zend_api = module_entry->zend_api;
|
|
|
|
zend_debug = module_entry->zend_debug;
|
|
|
|
zts = module_entry->zts;
|
|
|
|
}
|
|
|
|
|
2002-12-05 20:59:49 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, error_type,
|
2002-03-23 15:37:27 +00:00
|
|
|
"%s: Unable to initialize module\n"
|
|
|
|
"Module compiled with module API=%d, debug=%d, thread-safety=%d\n"
|
|
|
|
"PHP compiled with module API=%d, debug=%d, thread-safety=%d\n"
|
|
|
|
"These options need to match\n",
|
|
|
|
name, zend_api, zend_debug, zts,
|
2002-09-05 14:32:47 +00:00
|
|
|
ZEND_MODULE_API_NO, ZEND_DEBUG, USING_ZTS);
|
2002-03-23 15:37:27 +00:00
|
|
|
DL_UNLOAD(handle);
|
|
|
|
RETURN_FALSE;
|
2000-03-11 16:23:30 +00:00
|
|
|
}
|
2004-05-18 16:13:57 +00:00
|
|
|
module_entry->type = type;
|
1999-04-22 00:25:57 +00:00
|
|
|
module_entry->module_number = zend_next_free_module();
|
2004-07-20 19:23:55 +00:00
|
|
|
module_entry->handle = handle;
|
|
|
|
|
2005-07-18 16:20:08 +00:00
|
|
|
if ((module_entry = zend_register_module_ex(module_entry TSRMLS_CC)) == NULL) {
|
2004-05-21 17:08:36 +00:00
|
|
|
DL_UNLOAD(handle);
|
1999-04-22 00:25:57 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
2004-05-21 17:17:55 +00:00
|
|
|
|
2005-08-08 16:49:44 +00:00
|
|
|
if ((type == MODULE_TEMPORARY || start_now) && zend_startup_module_ex(module_entry TSRMLS_CC) == FAILURE) {
|
2005-06-17 09:39:23 +00:00
|
|
|
DL_UNLOAD(handle);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2005-08-08 16:49:44 +00:00
|
|
|
if ((type == MODULE_TEMPORARY || start_now) && module_entry->request_startup_func) {
|
2005-06-17 09:39:23 +00:00
|
|
|
if (module_entry->request_startup_func(type, module_entry->module_number TSRMLS_CC) == FAILURE) {
|
2004-05-21 17:17:55 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, error_type, "Unable to initialize module '%s'", module_entry->name);
|
|
|
|
DL_UNLOAD(handle);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
}
|
1999-04-22 00:25:57 +00:00
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
2001-06-06 13:06:12 +00:00
|
|
|
/* }}} */
|
1999-04-24 00:12:00 +00:00
|
|
|
|
1999-07-26 20:09:08 +00:00
|
|
|
PHP_MINFO_FUNCTION(dl)
|
1999-04-24 00:12:00 +00:00
|
|
|
{
|
2001-07-30 06:18:13 +00:00
|
|
|
php_info_print_table_row(2, "Dynamic Library Support", "enabled");
|
1999-04-22 00:25:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
#else
|
|
|
|
|
2005-08-08 16:49:44 +00:00
|
|
|
void php_dl(zval *file, int type, zval *return_value, int start_now TSRMLS_DC)
|
1999-04-22 00:25:57 +00:00
|
|
|
{
|
2002-08-24 01:19:28 +00:00
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Cannot dynamically load %s - dynamic modules are not supported", Z_STRVAL_P(file));
|
1999-04-22 00:25:57 +00:00
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
2000-03-06 20:37:11 +00:00
|
|
|
PHP_MINFO_FUNCTION(dl)
|
|
|
|
{
|
2001-10-06 20:13:39 +00:00
|
|
|
PUTS("Dynamic Library support not available<br />.\n");
|
2000-03-06 20:37:11 +00:00
|
|
|
}
|
|
|
|
|
1999-04-22 00:25:57 +00:00
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* End:
|
2001-09-09 13:29:31 +00:00
|
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
|
|
* vim<600: sw=4 ts=4
|
1999-04-22 00:25:57 +00:00
|
|
|
*/
|