/* +----------------------------------------------------------------------+ | PHP version 4.0 | +----------------------------------------------------------------------+ | Copyright (c) 1997, 1998, 1999 The PHP Group | +----------------------------------------------------------------------+ | This source file is subject to version 2.0 of the PHP license, | | that is bundled with this package in the file LICENSE, and is | | available at through the world-wide-web at | | http://www.php.net/license/2_0.txt. | | 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. | +----------------------------------------------------------------------+ | Authors: Rasmus Lerdorf | | Zeev Suraski | +----------------------------------------------------------------------+ */ #include "php.h" #include "php_ini.h" #include "php_globals.h" #include "ext/standard/head.h" #include "info.h" #include "SAPI.h" #ifndef MSVC5 #include "build-defs.h" #endif #include "zend_globals.h" /* needs ELS */ #define PHP3_CONF_LONG(directive,value1,value2) \ php_printf("%s%ld%ld\n",directive,value1,value2); #define SECTION(name) PUTS("

" name "

\n") #define CREDIT_LINE(module, authors) php_info_print_table_row(2, module, authors) static int _display_module_info(zend_module_entry *module, void *arg) { int show_info_func = *((int *) arg); if (show_info_func && module->info_func) { php_printf("

%s

\n", module->name); module->info_func(module); } else if (!show_info_func && !module->info_func) { php_printf(""); php_printf(module->name); php_printf("\n"); } return 0; } PHPAPI void php_print_info(int flag) { char **env,*tmp1,*tmp2; char *php3_uname; int allow_builtin_links = INI_INT("allow_builtin_links"); #if WIN32|WINNT char php3_windows_uname[256]; DWORD dwBuild=0; DWORD dwVersion = GetVersion(); DWORD dwWindowsMajorVersion = (DWORD)(LOBYTE(LOWORD(dwVersion))); DWORD dwWindowsMinorVersion = (DWORD)(HIBYTE(LOWORD(dwVersion))); #endif ELS_FETCH(); PLS_FETCH(); SLS_FETCH(); if (flag & PHP_INFO_GENERAL) { #if WIN32|WINNT // Get build numbers for Windows NT or Win95 if (dwVersion < 0x80000000){ dwBuild = (DWORD)(HIWORD(dwVersion)); snprintf(php3_windows_uname,255,"%s %d.%d build %d","Windows NT",dwWindowsMajorVersion,dwWindowsMinorVersion,dwBuild); } else { snprintf(php3_windows_uname,255,"%s %d.%d","Windows 95/98",dwWindowsMajorVersion,dwWindowsMinorVersion); } php3_uname = php3_windows_uname; #else php3_uname=PHP_UNAME; #endif php_printf("

PHP Version %s

\n", PHP_VERSION); PUTS("
"); if (allow_builtin_links) { PUTS("\n"); } php_printf("System: %s
Build Date: %s\n
", php3_uname, __DATE__); php_printf("php.ini path: %s
\n", CONFIGURATION_FILE_PATH); php_printf("ZEND_DEBUG=%d
\n", ZEND_DEBUG); #ifdef ZTS php_printf("ZTS is defined"); #else php_printf("ZTS is undefined"); #endif /* Zend Engine */ PUTS("
"); if (allow_builtin_links) { PUTS("\n"); } php_printf("This program makes use of the Zend scripting language engine:
%s
", get_zend_version()); } PUTS("
"); if ((flag & PHP_INFO_CREDITS) && allow_builtin_links) { PUTS("
"); PUTS(""); PUTS("

PHP 4.0 Credits

\n"); PUTS("
\n"); } if (flag & PHP_INFO_CONFIGURATION) { PUTS("

Configuration

\n"); PUTS("

PHP Core

\n"); display_ini_entries(NULL); } if (flag & PHP_INFO_MODULES) { int show_info_func; show_info_func = 1; zend_hash_apply_with_argument(&module_registry, (int (*)(void *, void *)) _display_module_info, &show_info_func); SECTION("Additional Modules"); PUTS("\n"); show_info_func = 0; zend_hash_apply_with_argument(&module_registry, (int (*)(void *, void *)) _display_module_info, &show_info_func); PUTS("
\n"); } if (flag & PHP_INFO_ENVIRONMENT) { SECTION("Environment"); PUTS("\n"); php_info_print_table_header(2, "Variable", "Value"); for (env=environ; env!=NULL && *env !=NULL; env++) { tmp1 = estrdup(*env); if (!(tmp2=strchr(tmp1,'='))) { /* malformed entry? */ efree(tmp1); continue; } *tmp2 = 0; tmp2++; php_info_print_table_row(2, tmp1, tmp2); efree(tmp1); } PUTS("
\n"); } if (flag & PHP_INFO_VARIABLES) { pval **data, **tmp; char *string_key; ulong num_key; SECTION("PHP Variables"); PUTS("\n"); php_info_print_table_header(2, "Variable", "Value"); if (zend_hash_find(&EG(symbol_table), "PHP_SELF", sizeof("PHP_SELF"), (void **) &data) != FAILURE) { php_info_print_table_row(2, "PHP_SELF", (*data)->value.str.val); } if (zend_hash_find(&EG(symbol_table), "PHP_AUTH_TYPE", sizeof("PHP_AUTH_TYPE"), (void **) &data) != FAILURE) { php_info_print_table_row(2, "PHP_AUTH_TYPE", (*data)->value.str.val); } if (zend_hash_find(&EG(symbol_table), "PHP_AUTH_USER", sizeof("PHP_AUTH_USER"), (void **) &data) != FAILURE) { php_info_print_table_row(2, "PHP_AUTH_USER", (*data)->value.str.val); } if (zend_hash_find(&EG(symbol_table), "PHP_AUTH_PW", sizeof("PHP_AUTH_PW"), (void **) &data) != FAILURE) { php_info_print_table_row(2, "PHP_AUTH_PW", (*data)->value.str.val); } if (zend_hash_find(&EG(symbol_table), "HTTP_GET_VARS", sizeof("HTTP_GET_VARS"), (void **) &data) != FAILURE) { zend_hash_internal_pointer_reset((*data)->value.ht); while (zend_hash_get_current_data((*data)->value.ht, (void **) &tmp) == SUCCESS) { convert_to_string(*tmp); PUTS("\n"); zend_hash_move_forward((*data)->value.ht); } } if (zend_hash_find(&EG(symbol_table), "HTTP_POST_VARS", sizeof("HTTP_POST_VARS"), (void **) &data) != FAILURE) { zend_hash_internal_pointer_reset((*data)->value.ht); while (zend_hash_get_current_data((*data)->value.ht, (void **) &tmp) == SUCCESS) { convert_to_string(*tmp); PUTS("\n"); zend_hash_move_forward((*data)->value.ht); } } if (zend_hash_find(&EG(symbol_table), "HTTP_COOKIE_VARS", sizeof("HTTP_COOKIE_VARS"), (void **) &data) != FAILURE) { zend_hash_internal_pointer_reset((*data)->value.ht); while (zend_hash_get_current_data((*data)->value.ht, (void **) &tmp) == SUCCESS) { convert_to_string(*tmp); PUTS("\n"); zend_hash_move_forward((*data)->value.ht); } } PUTS("
HTTP_GET_VARS[\""); switch (zend_hash_get_current_key((*data)->value.ht, &string_key, &num_key)) { case HASH_KEY_IS_STRING: PUTS(string_key); efree(string_key); break; case HASH_KEY_IS_LONG: php_printf("%ld",num_key); break; } PUTS("\"]"); PUTS((*tmp)->value.str.val); /* This could be "Array" - too ugly to expand that for now */ PUTS("
HTTP_POST_VARS[\""); switch (zend_hash_get_current_key((*data)->value.ht, &string_key, &num_key)) { case HASH_KEY_IS_STRING: PUTS(string_key); efree(string_key); break; case HASH_KEY_IS_LONG: php_printf("%ld",num_key); break; } PUTS("\"]"); PUTS((*tmp)->value.str.val); PUTS("
HTTP_COOKIE_VARS[\""); switch (zend_hash_get_current_key((*data)->value.ht, &string_key, &num_key)) { case HASH_KEY_IS_STRING: PUTS(string_key); efree(string_key); break; case HASH_KEY_IS_LONG: php_printf("%ld",num_key); break; } PUTS("\"]"); PUTS((*tmp)->value.str.val); PUTS("
\n"); } PUTS("
"); if (flag & PHP_INFO_LICENSE) { SECTION("PHP License"); PUTS("
This program is free software; you can redistribute it and/or modify\n");
		PUTS("it under the terms of the PHP License as published by the PHP Group\n");
		PUTS("and included in the distribution in the file:  LICENSE\n");
		PUTS("\n");
		PUTS("This program is distributed in the hope that it will be useful,\n");
		PUTS("but WITHOUT ANY WARRANTY; without even the implied warranty of\n");
		PUTS("MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n");
		PUTS("\n");
		PUTS("If you did not receive a copy of the PHP license, or have any questions about\n");
		PUTS("PHP licensing, please contact license@php.net.
\n"); } } void php_print_credits(int flag) { if (flag & PHP_CREDITS_FULLPAGE) { PUTS("PHP Credits
\n"); } PUTS("

PHP 4.0 Credits

\n"); if (flag & PHP_CREDITS_GENERAL) { /* Language */ PUTS("\n"); PUTS("\n"); php_info_print_table_header(2, "Contribution", "Authors"); CREDIT_LINE("Zend Scripting Language Engine", "Andi Gutmans, Zeev Suraski"); CREDIT_LINE("Extension Module API", "Andi Gutmans, Zeev Suraski"); CREDIT_LINE("UNIX Build and Modularization", "Stig Bakken"); CREDIT_LINE("Win32 Port", "Shane Caraveo, Zeev Suraski"); CREDIT_LINE("Server API (SAPI) Abstraction Layer", "Andi Gutmans, Shane Caraveo, Zeev Suraski"); CREDIT_LINE("Apache SAPI Module", "Rasmus Lerdorf, Zeev Suraski"); CREDIT_LINE("ISAPI SAPI Module", "Andi Gutmans, Zeev Suraski"); CREDIT_LINE("CGI SAPI Module", "Rasmus Lerdorf, Stig Bakken"); CREDIT_LINE("Overall Work", "Thies C. Arntzen, Stig Bakken, Shane Caraveo, \ Rasmus Lerdorf, Sascha Schumann, Zeev Suraski, Andrey Zmievski, \ and others"); PUTS("
PHP 4.0 Authors
\n"); } if (flag & PHP_CREDITS_MODULES) { /* Modules */ PUTS("\n"); PUTS("\n"); php_info_print_table_header(2, "Module", "Authors"); CREDIT_LINE("Apache", "Rasmus Lerdorf, Stig Bakken, David Sklar"); CREDIT_LINE("BC Math", "Andi Gutmans"); CREDIT_LINE("Win32 COM", "Zeev Suraski"); CREDIT_LINE("DAV", "Stig Bakken"); CREDIT_LINE("DBA", "Sascha Schumann"); CREDIT_LINE("DBM", "Rasmus Lerdorf, Jim Winstead"); CREDIT_LINE("dBase", "Jim Winstead"); CREDIT_LINE("FDF", "Uwe Steinmann"); CREDIT_LINE("FilePro", "Chad Robinson"); CREDIT_LINE("GD imaging", "Rasmus Lerdorf, Stig Bakken, Jim Winstead"); CREDIT_LINE("GetText", "Alex Plotnick"); CREDIT_LINE("HyperWave", "Uwe Steinmann"); CREDIT_LINE("IMAP", "Rex Logan, Mark Musone, Brian Wang, Kaj-Michael Lang, Antoni Pamies Olive, Rasmus Lerdorf"); CREDIT_LINE("Informix", "Danny Heijl, Christian Cartus, Jouni Ahto"); CREDIT_LINE("Interbase", "Jouni Ahto"); CREDIT_LINE("LDAP", "Amitay Isaacs, Eric Warnke, Rasmus Lerdorf, Gerrit Thomson"); CREDIT_LINE("mcrypt", "Sascha Schumann"); CREDIT_LINE("mhash", "Sascha Schumann"); CREDIT_LINE("mSQL", "Zeev Suraski"); CREDIT_LINE("MySQL", "Zeev Suraski"); CREDIT_LINE("OCI8", "Stig Bakken, Thies C. Arntzen"); CREDIT_LINE("ODBC", "Stig Bakken, Andreas Karajannis, Frank M. Kromann"); CREDIT_LINE("Oracle", "Stig Bakken, Mitch Golden, Rasmus Lerdorf, Andreas Karajannis, Thies C. Arntzen"); CREDIT_LINE("Perl Compatible Regexps", "Andrey Zmievski"); CREDIT_LINE("PDF", "Uwe Steinmann"); CREDIT_LINE("PostgreSQL", "Jouni Ahto, Zeev Suraski"); CREDIT_LINE("Sessions", "Sascha Schumann, Andrey Zmievski"); CREDIT_LINE("SNMP", "Rasmus Lerdorf"); CREDIT_LINE("Sybase", "Zeev Suraski"); CREDIT_LINE("System V Shared Memory", "Christian Cartus"); CREDIT_LINE("System V Semaphores", "Tom May"); CREDIT_LINE("WDDX", "Andrey Zmievski"); CREDIT_LINE("XML", "Stig Bakken"); CREDIT_LINE("Yellow Pages", "Stephanie Wehner"); CREDIT_LINE("Zlib", "Rasmus Lerdorf, Stefan Roehrich"); PUTS("
Module Authors
\n"); } if (flag & PHP_CREDITS_DOCS) { /* Documentation */ } if (flag & PHP_CREDITS_FULLPAGE) { PUTS("
\n"); } } PHPAPI void php_info_print_table_header(int num_cols, ...) { int i; va_list row_elements; char *row_element; va_start(row_elements, num_cols); php_printf(""); for (i=0; i%s", row_element); } php_printf("\n"); va_end(row_elements); } PHPAPI void php_info_print_table_row(int num_cols, ...) { int i; va_list row_elements; char *color = PHP_ENTRY_NAME_COLOR; char *row_element; va_start(row_elements, num_cols); php_printf(""); for (i=0; i%s%s%s", color, (i==0?"":""), row_element, (i==0?"":"")); color = PHP_CONTENTS_COLOR; } php_printf("\n"); va_end(row_elements); } void register_phpinfo_constants(INIT_FUNC_ARGS) { ELS_FETCH(); REGISTER_LONG_CONSTANT("INFO_GENERAL", PHP_INFO_GENERAL, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_CREDITS", PHP_INFO_CREDITS, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_CONFIGURATION", PHP_INFO_CONFIGURATION, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_MODULES", PHP_INFO_MODULES, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_ENVIRONMENT", PHP_INFO_ENVIRONMENT, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_VARIABLES", PHP_INFO_VARIABLES, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_LICENSE", PHP_INFO_LICENSE, CONST_PERSISTENT|CONST_CS); REGISTER_LONG_CONSTANT("INFO_ALL", PHP_INFO_ALL, CONST_PERSISTENT|CONST_CS); } /* {{{ proto void phpinfo(void) Output a page of useful information about PHP and the current request */ PHP_FUNCTION(phpinfo) { int flag; zval *flag_arg; switch (ARG_COUNT(ht)) { case 0: flag = 0xFFFFFFFF; break; case 1: if (getParameters(ht, 1, &flag_arg)==FAILURE) { RETURN_FALSE; } convert_to_long(flag_arg); flag = flag_arg->value.lval; break; default: WRONG_PARAM_COUNT; break; } php_print_info(flag); RETURN_TRUE; } /* }}} */ /* {{{ proto string phpversion(void) Return the current PHP version */ PHP_FUNCTION(phpversion) { RETURN_STRING(PHP_VERSION,1); } /* }}} */ /* {{{ proto void phpcredits(int) Prints the list of people who've contributed to the PHP project */ PHP_FUNCTION(phpcredits) { int flag; zval *flag_arg; switch (ARG_COUNT(ht)) { case 0: flag = 0xFFFFFFFF; break; case 1: if (getParameters(ht, 1, &flag_arg)==FAILURE) { RETURN_FALSE; } convert_to_long(flag_arg); flag = flag_arg->value.lval; break; default: WRONG_PARAM_COUNT; break; } php_print_credits(flag); RETURN_TRUE; } /* }}} */ /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * End: */