root/standard/info.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. php_info_print_html_esc
  2. php_info_printf
  3. php_info_print_request_uri
  4. php_info_print
  5. php_info_print_stream_hash
  6. php_info_print_module
  7. _display_module_info_func
  8. _display_module_info_def
  9. php_print_gpcse_array
  10. php_info_print_style
  11. php_info_html_esc
  12. php_get_windows_name
  13. php_get_windows_cpu
  14. php_get_uname
  15. php_print_info_htmlhead
  16. module_name_cmp
  17. php_print_info
  18. php_info_print_table_start
  19. php_info_print_table_end
  20. php_info_print_box_start
  21. php_info_print_box_end
  22. php_info_print_hr
  23. php_info_print_table_colspan_header
  24. php_info_print_table_header
  25. php_info_print_table_row_internal
  26. php_info_print_table_row
  27. php_info_print_table_row_ex
  28. register_phpinfo_constants
  29. PHP_FUNCTION
  30. PHP_FUNCTION
  31. PHP_FUNCTION
  32. php_logo_guid
  33. PHP_FUNCTION
  34. PHP_FUNCTION
  35. PHP_FUNCTION
  36. PHP_FUNCTION
  37. PHP_FUNCTION
  38. PHP_FUNCTION
  39. PHP_FUNCTION
  40. PHP_FUNCTION

/* 
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2013 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.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 <rasmus@php.net>                             |
   |          Zeev Suraski <zeev@zend.com>                                |
   |          Colin Viebrock <colin@easydns.com>                          |
   +----------------------------------------------------------------------+
*/

/* $Id$ */

#include "php.h"
#include "php_ini.h"
#include "php_globals.h"
#include "ext/standard/head.h"
#include "ext/standard/html.h"
#include "info.h"
#include "credits.h"
#include "css.h"
#include "SAPI.h"
#include <time.h>
#include "php_main.h"
#include "zend_globals.h"               /* needs ELS */
#include "zend_extensions.h"
#include "zend_highlight.h"
#ifdef HAVE_SYS_UTSNAME_H
#include <sys/utsname.h>
#endif


#ifdef PHP_WIN32
typedef void (WINAPI *PGNSI)(LPSYSTEM_INFO);
typedef BOOL (WINAPI *PGPI)(DWORD, DWORD, DWORD, DWORD, PDWORD);
# include "winver.h"

# if _MSC_VER < 1300
#  define OSVERSIONINFOEX php_win_OSVERSIONINFOEX
# endif
#endif

#define SECTION(name)   if (!sapi_module.phpinfo_as_text) { \
                                                        php_info_print("<h2>" name "</h2>\n"); \
                                                } else { \
                                                        php_info_print_table_start(); \
                                                        php_info_print_table_header(1, name); \
                                                        php_info_print_table_end(); \
                                                } \

PHPAPI extern char *php_ini_opened_path;
PHPAPI extern char *php_ini_scanned_path;
PHPAPI extern char *php_ini_scanned_files;

static int php_info_print_html_esc(const char *str, int len) /* {{{ */
{
        size_t new_len;
        int written;
        char *new_str;
        TSRMLS_FETCH();
        
        new_str = php_escape_html_entities((unsigned char *) str, len, &new_len, 0, ENT_QUOTES, "utf-8" TSRMLS_CC);
        written = php_output_write(new_str, new_len TSRMLS_CC);
        efree(new_str);
        return written;
}
/* }}} */

static int php_info_printf(const char *fmt, ...) /* {{{ */
{
        char *buf;
        int len, written;
        va_list argv;
        TSRMLS_FETCH();
        
        va_start(argv, fmt);
        len = vspprintf(&buf, 0, fmt, argv);
        va_end(argv);
        
        written = php_output_write(buf, len TSRMLS_CC);
        efree(buf);
        return written;
}
/* }}} */

static void php_info_print_request_uri(TSRMLS_D) /* {{{ */
{
        if (SG(request_info).request_uri) {
                php_info_print_html_esc(SG(request_info).request_uri, strlen(SG(request_info).request_uri));
        }
}
/* }}} */

static int php_info_print(const char *str) /* {{{ */
{
        TSRMLS_FETCH();
        return php_output_write(str, strlen(str) TSRMLS_CC);
}
/* }}} */

static void php_info_print_stream_hash(const char *name, HashTable *ht TSRMLS_DC) /* {{{ */
{
        char *key;
        uint len;
        
        if (ht) {
                if (zend_hash_num_elements(ht)) {
                        HashPosition pos;

                        if (!sapi_module.phpinfo_as_text) {
                                php_info_printf("<tr><td class=\"e\">Registered %s</td><td class=\"v\">", name);
                        } else {
                                php_info_printf("\nRegistered %s => ", name);
                        }
                        
                        zend_hash_internal_pointer_reset_ex(ht, &pos);
                        while (zend_hash_get_current_key_ex(ht, &key, &len, NULL, 0, &pos) == HASH_KEY_IS_STRING)
                        {
                                php_info_print(key);
                                zend_hash_move_forward_ex(ht, &pos);
                                if (zend_hash_get_current_key_ex(ht, &key, &len, NULL, 0, &pos) == HASH_KEY_IS_STRING) {
                                        php_info_print(", ");
                                } else {
                                        break;
                                }
                        }
                        
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print("</td></tr>\n");
                        }
                } else {
                        char reg_name[128];
                        snprintf(reg_name, sizeof(reg_name), "Registered %s", name);
                        php_info_print_table_row(2, reg_name, "none registered");
                }
        } else {
                php_info_print_table_row(2, name, "disabled");
        }
}
/* }}} */

PHPAPI void php_info_print_module(zend_module_entry *zend_module TSRMLS_DC) /* {{{ */
{
        if (zend_module->info_func || zend_module->version) {
                if (!sapi_module.phpinfo_as_text) {
                        php_info_printf("<h2><a name=\"module_%s\">%s</a></h2>\n", zend_module->name, zend_module->name);
                } else {
                        php_info_print_table_start();
                        php_info_print_table_header(1, zend_module->name);
                        php_info_print_table_end();
                }
                if (zend_module->info_func) {
                        zend_module->info_func(zend_module TSRMLS_CC);
                } else {
                        php_info_print_table_start();
                        php_info_print_table_row(2, "Version", zend_module->version);
                        php_info_print_table_end();
                        DISPLAY_INI_ENTRIES();
                }
        } else {
                if (!sapi_module.phpinfo_as_text) {
                        php_info_printf("<tr><td>%s</td></tr>\n", zend_module->name);
                } else {
                        php_info_printf("%s\n", zend_module->name);
                }       
        }
}
/* }}} */

static int _display_module_info_func(zend_module_entry *module TSRMLS_DC) /* {{{ */
{
        if (module->info_func || module->version) {
                php_info_print_module(module TSRMLS_CC);
        }
        return ZEND_HASH_APPLY_KEEP;
}
/* }}} */

static int _display_module_info_def(zend_module_entry *module TSRMLS_DC) /* {{{ */
{
        if (!module->info_func && !module->version) {
                php_info_print_module(module TSRMLS_CC);
        }
        return ZEND_HASH_APPLY_KEEP;
}
/* }}} */

/* {{{ php_print_gpcse_array
 */
static void php_print_gpcse_array(char *name, uint name_length TSRMLS_DC)
{
        zval **data, **tmp, tmp2;
        char *string_key;
        uint string_len;
        ulong num_key;

        zend_is_auto_global(name, name_length TSRMLS_CC);

        if (zend_hash_find(&EG(symbol_table), name, name_length+1, (void **) &data)!=FAILURE
                && (Z_TYPE_PP(data)==IS_ARRAY)) {
                zend_hash_internal_pointer_reset(Z_ARRVAL_PP(data));
                while (zend_hash_get_current_data(Z_ARRVAL_PP(data), (void **) &tmp) == SUCCESS) {
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print("<tr>");
                                php_info_print("<td class=\"e\">");
                        }

                        php_info_print(name);
                        php_info_print("[\"");
                        
                        switch (zend_hash_get_current_key_ex(Z_ARRVAL_PP(data), &string_key, &string_len, &num_key, 0, NULL)) {
                                case HASH_KEY_IS_STRING:
                                        if (!sapi_module.phpinfo_as_text) {
                                                php_info_print_html_esc(string_key, string_len-1);
                                        } else {
                                                php_info_print(string_key);
                                        }
                                        break;
                                case HASH_KEY_IS_LONG:
                                        php_info_printf("%ld", num_key);
                                        break;
                        }
                        php_info_print("\"]");
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print("</td><td class=\"v\">");
                        } else {
                                php_info_print(" => ");
                        }
                        if (Z_TYPE_PP(tmp) == IS_ARRAY) {
                                if (!sapi_module.phpinfo_as_text) {
                                        php_info_print("<pre>");
                                        zend_print_zval_r_ex((zend_write_func_t) php_info_print_html_esc, *tmp, 0 TSRMLS_CC);
                                        php_info_print("</pre>");
                                } else {
                                        zend_print_zval_r(*tmp, 0 TSRMLS_CC);
                                }
                        } else {
                                tmp2 = **tmp;
                                if (Z_TYPE_PP(tmp) != IS_STRING) {
                                        tmp = NULL;
                                        zval_copy_ctor(&tmp2);
                                        convert_to_string(&tmp2);
                                }

                                if (!sapi_module.phpinfo_as_text) {
                                        if (Z_STRLEN(tmp2) == 0) {
                                                php_info_print("<i>no value</i>");
                                        } else {
                                                php_info_print_html_esc(Z_STRVAL(tmp2), Z_STRLEN(tmp2));
                                        }
                                } else {
                                        php_info_print(Z_STRVAL(tmp2));
                                }

                                if (!tmp) {
                                        zval_dtor(&tmp2);
                                }
                        }
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print("</td></tr>\n");
                        } else {
                                php_info_print("\n");
                        }
                        zend_hash_move_forward(Z_ARRVAL_PP(data));
                }
        }
}
/* }}} */

/* {{{ php_info_print_style
 */
void php_info_print_style(TSRMLS_D)
{
        php_info_printf("<style type=\"text/css\">\n");
        php_info_print_css(TSRMLS_C);
        php_info_printf("</style>\n");
}
/* }}} */

/* {{{ php_info_html_esc
 */
PHPAPI char *php_info_html_esc(char *string TSRMLS_DC)
{
        size_t new_len;
        return php_escape_html_entities(string, strlen(string), &new_len, 0, ENT_QUOTES, NULL TSRMLS_CC);
}
/* }}} */

#ifdef PHP_WIN32
/* {{{  */

char* php_get_windows_name()
{
        OSVERSIONINFOEX osvi;
        SYSTEM_INFO si;
        PGNSI pGNSI;
        PGPI pGPI;
        BOOL bOsVersionInfoEx;
        DWORD dwType;
        char *major = NULL, *sub = NULL, *retval;

        ZeroMemory(&si, sizeof(SYSTEM_INFO));
        ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
        osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);

        if (!(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi))) {
                return NULL;
        }

        pGNSI = (PGNSI) GetProcAddress(GetModuleHandle("kernel32.dll"), "GetNativeSystemInfo");
        if(NULL != pGNSI) {
                pGNSI(&si);
        } else {
                GetSystemInfo(&si);
        }

        if (VER_PLATFORM_WIN32_NT==osvi.dwPlatformId && osvi.dwMajorVersion > 4 ) {
                if (osvi.dwMajorVersion == 6)   {
                        if( osvi.dwMinorVersion == 0 ) {
                                if( osvi.wProductType == VER_NT_WORKSTATION ) {
                                        major = "Windows Vista";
                                } else {
                                        major = "Windows Server 2008";
                                }
                        } else
                        if ( osvi.dwMinorVersion == 1 ) {
                                if( osvi.wProductType == VER_NT_WORKSTATION )  {
                                        major = "Windows 7";
                                } else {
                                        major = "Windows Server 2008 R2";
                                }
                        } else {
                                major = "Unknown Windows version";
                        }

                        pGPI = (PGPI) GetProcAddress(GetModuleHandle("kernel32.dll"), "GetProductInfo");
                        pGPI(6, 0, 0, 0, &dwType);

                        switch (dwType) {
                                case PRODUCT_ULTIMATE:
                                        sub = "Ultimate Edition";
                                        break;
                                case PRODUCT_HOME_PREMIUM:
                                        sub = "Home Premium Edition";
                                        break;
                                case PRODUCT_HOME_BASIC:
                                        sub = "Home Basic Edition";
                                        break;
                                case PRODUCT_ENTERPRISE:
                                        sub = "Enterprise Edition";
                                        break;
                                case PRODUCT_BUSINESS:
                                        sub = "Business Edition";
                                        break;
                                case PRODUCT_STARTER:
                                        sub = "Starter Edition";
                                        break;
                                case PRODUCT_CLUSTER_SERVER:
                                        sub = "Cluster Server Edition";
                                        break;
                                case PRODUCT_DATACENTER_SERVER:
                                        sub = "Datacenter Edition";
                                        break;
                                case PRODUCT_DATACENTER_SERVER_CORE:
                                        sub = "Datacenter Edition (core installation)";
                                        break;
                                case PRODUCT_ENTERPRISE_SERVER:
                                        sub = "Enterprise Edition";
                                        break;
                                case PRODUCT_ENTERPRISE_SERVER_CORE:
                                        sub = "Enterprise Edition (core installation)";
                                        break;
                                case PRODUCT_ENTERPRISE_SERVER_IA64:
                                        sub = "Enterprise Edition for Itanium-based Systems";
                                        break;
                                case PRODUCT_SMALLBUSINESS_SERVER:
                                        sub = "Small Business Server";
                                        break;
                                case PRODUCT_SMALLBUSINESS_SERVER_PREMIUM:
                                        sub = "Small Business Server Premium Edition";
                                        break;
                                case PRODUCT_STANDARD_SERVER:
                                        sub = "Standard Edition";
                                        break;
                                case PRODUCT_STANDARD_SERVER_CORE:
                                        sub = "Standard Edition (core installation)";
                                        break;
                                case PRODUCT_WEB_SERVER:
                                        sub = "Web Server Edition";
                                        break;
                        }
                }

                if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 2 ) {
                        if (GetSystemMetrics(SM_SERVERR2))
                                major = "Windows Server 2003 R2";
                        else if (osvi.wSuiteMask==VER_SUITE_STORAGE_SERVER)
                                major = "Windows Storage Server 2003";
                        else if (osvi.wSuiteMask==VER_SUITE_WH_SERVER)
                                major = "Windows Home Server";
                        else if (osvi.wProductType == VER_NT_WORKSTATION &&
                                si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64) {
                                major = "Windows XP Professional x64 Edition";
                        } else {
                                major = "Windows Server 2003";
                        }

                        /* Test for the server type. */
                        if ( osvi.wProductType != VER_NT_WORKSTATION ) {
                                if ( si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_IA64 ) {
                                        if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
                                                sub = "Datacenter Edition for Itanium-based Systems";
                                        else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
                                                sub = "Enterprise Edition for Itanium-based Systems";
                                }

                                else if ( si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64 ) {
                                        if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
                                                sub = "Datacenter x64 Edition";
                                        else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
                                                sub = "Enterprise x64 Edition";
                                        else sub = "Standard x64 Edition";
                                } else {
                                        if ( osvi.wSuiteMask & VER_SUITE_COMPUTE_SERVER )
                                                sub = "Compute Cluster Edition";
                                        else if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
                                                sub = "Datacenter Edition";
                                        else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
                                                sub = "Enterprise Edition";
                                        else if ( osvi.wSuiteMask & VER_SUITE_BLADE )
                                                sub = "Web Edition";
                                        else sub = "Standard Edition";
                                }
                        } 
                }

                if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 1 )     {
                        major = "Windows XP";
                        if( osvi.wSuiteMask & VER_SUITE_PERSONAL ) {
                                sub = "Home Edition";
                        } else if (GetSystemMetrics(SM_MEDIACENTER)) {
                                sub = "Media Center Edition";
                        } else if (GetSystemMetrics(SM_STARTER)) {
                                sub = "Starter Edition";
                        } else if (GetSystemMetrics(SM_TABLETPC)) {
                                sub = "Tablet PC Edition";
                        } else {
                                sub = "Professional";
                        }
                }

                if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 0 ) {
                        major = "Windows 2000";

                        if (osvi.wProductType == VER_NT_WORKSTATION ) {
                                sub = "Professional";
                        } else {
                                if( osvi.wSuiteMask & VER_SUITE_DATACENTER )
                                        sub = "Datacenter Server";
                                else if( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
                                        sub = "Advanced Server";
                                else sub = "Server";
                        }
                }
        } else {
                return NULL;
        }

        spprintf(&retval, 0, "%s%s%s%s%s", major, sub?" ":"", sub?sub:"", osvi.szCSDVersion[0] != '\0'?" ":"", osvi.szCSDVersion);
        return retval;
}
/* }}}  */

/* {{{  */
void php_get_windows_cpu(char *buf, int bufsize)
{
        SYSTEM_INFO SysInfo;
        GetSystemInfo(&SysInfo);
        switch (SysInfo.wProcessorArchitecture) {
                case PROCESSOR_ARCHITECTURE_INTEL :
                        snprintf(buf, bufsize, "i%d", SysInfo.dwProcessorType);
                        break;
                case PROCESSOR_ARCHITECTURE_MIPS :
                        snprintf(buf, bufsize, "MIPS R%d000", SysInfo.wProcessorLevel);
                        break;
                case PROCESSOR_ARCHITECTURE_ALPHA :
                        snprintf(buf, bufsize, "Alpha %d", SysInfo.wProcessorLevel);
                        break;
                case PROCESSOR_ARCHITECTURE_PPC :
                        snprintf(buf, bufsize, "PPC 6%02d", SysInfo.wProcessorLevel);
                        break;
                case PROCESSOR_ARCHITECTURE_IA64 :
                        snprintf(buf, bufsize,  "IA64");
                        break;
#if defined(PROCESSOR_ARCHITECTURE_IA32_ON_WIN64)
                case PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 :
                        snprintf(buf, bufsize, "IA32");
                        break;
#endif
#if defined(PROCESSOR_ARCHITECTURE_AMD64)
                case PROCESSOR_ARCHITECTURE_AMD64 :
                        snprintf(buf, bufsize, "AMD64");
                        break;
#endif
                case PROCESSOR_ARCHITECTURE_UNKNOWN :
                default:
                        snprintf(buf, bufsize, "Unknown");
                        break;
        }
}
/* }}}  */
#endif

/* {{{ php_get_uname
 */
PHPAPI char *php_get_uname(char mode)
{
        char *php_uname;
        char tmp_uname[256];
#ifdef PHP_WIN32
        DWORD dwBuild=0;
        DWORD dwVersion = GetVersion();
        DWORD dwWindowsMajorVersion =  (DWORD)(LOBYTE(LOWORD(dwVersion)));
        DWORD dwWindowsMinorVersion =  (DWORD)(HIBYTE(LOWORD(dwVersion)));
        DWORD dwSize = MAX_COMPUTERNAME_LENGTH + 1;
        char ComputerName[MAX_COMPUTERNAME_LENGTH + 1];
        
        GetComputerName(ComputerName, &dwSize);

        if (mode == 's') {
                php_uname = "Windows NT";
        } else if (mode == 'r') {
                snprintf(tmp_uname, sizeof(tmp_uname), "%d.%d", dwWindowsMajorVersion, dwWindowsMinorVersion);
                php_uname = tmp_uname;
        } else if (mode == 'n') {
                php_uname = ComputerName;
        } else if (mode == 'v') {
                char *winver = php_get_windows_name();
                dwBuild = (DWORD)(HIWORD(dwVersion));
                if(winver == NULL) {
                        snprintf(tmp_uname, sizeof(tmp_uname), "build %d", dwBuild);
                } else {
                        snprintf(tmp_uname, sizeof(tmp_uname), "build %d (%s)", dwBuild, winver);
                }
                php_uname = tmp_uname;
                if(winver) {
                        efree(winver);
                }
        } else if (mode == 'm') {
                php_get_windows_cpu(tmp_uname, sizeof(tmp_uname));
                php_uname = tmp_uname;
        } else { /* assume mode == 'a' */
                char *winver = php_get_windows_name();
                char wincpu[20];

                php_get_windows_cpu(wincpu, sizeof(wincpu));
                dwBuild = (DWORD)(HIWORD(dwVersion));
                snprintf(tmp_uname, sizeof(tmp_uname), "%s %s %d.%d build %d (%s) %s",
                                 "Windows NT", ComputerName,
                                 dwWindowsMajorVersion, dwWindowsMinorVersion, dwBuild, winver?winver:"unknown", wincpu);
                if(winver) {
                        efree(winver);
                }
                php_uname = tmp_uname;
        }
#else
#ifdef HAVE_SYS_UTSNAME_H
        struct utsname buf;
        if (uname((struct utsname *)&buf) == -1) {
                php_uname = PHP_UNAME;
        } else {
#ifdef NETWARE
                if (mode == 's') {
                        php_uname = buf.sysname;
                } else if (mode == 'r') {
                        snprintf(tmp_uname, sizeof(tmp_uname), "%d.%d.%d", 
                                         buf.netware_major, buf.netware_minor, buf.netware_revision);
                        php_uname = tmp_uname;
                } else if (mode == 'n') {
                        php_uname = buf.servername;
                } else if (mode == 'v') {
                        snprintf(tmp_uname, sizeof(tmp_uname), "libc-%d.%d.%d #%d",
                                         buf.libmajor, buf.libminor, buf.librevision, buf.libthreshold);
                        php_uname = tmp_uname;
                } else if (mode == 'm') {
                        php_uname = buf.machine;
                } else { /* assume mode == 'a' */
                        snprintf(tmp_uname, sizeof(tmp_uname), "%s %s %d.%d.%d libc-%d.%d.%d #%d %s",
                                         buf.sysname, buf.servername,
                                         buf.netware_major, buf.netware_minor, buf.netware_revision,
                                         buf.libmajor, buf.libminor, buf.librevision, buf.libthreshold,
                                         buf.machine);
                        php_uname = tmp_uname;
                }
#else
                if (mode == 's') {
                        php_uname = buf.sysname;
                } else if (mode == 'r') {
                        php_uname = buf.release;
                } else if (mode == 'n') {
                        php_uname = buf.nodename;
                } else if (mode == 'v') {
                        php_uname = buf.version;
                } else if (mode == 'm') {
                        php_uname = buf.machine;
                } else { /* assume mode == 'a' */
                        snprintf(tmp_uname, sizeof(tmp_uname), "%s %s %s %s %s",
                                         buf.sysname, buf.nodename, buf.release, buf.version,
                                         buf.machine);
                        php_uname = tmp_uname;
                }
#endif /* NETWARE */
        }
#else
        php_uname = PHP_UNAME;
#endif
#endif
        return estrdup(php_uname);
}
/* }}} */

/* {{{ php_print_info_htmlhead
 */
PHPAPI void php_print_info_htmlhead(TSRMLS_D)
{
        php_info_print("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"DTD/xhtml1-transitional.dtd\">\n");
        php_info_print("<html xmlns=\"http://www.w3.org/1999/xhtml\">");
        php_info_print("<head>\n");
        php_info_print_style(TSRMLS_C);
        php_info_print("<title>phpinfo()</title>");
        php_info_print("<meta name=\"ROBOTS\" content=\"NOINDEX,NOFOLLOW,NOARCHIVE\" />");
        php_info_print("</head>\n");
        php_info_print("<body><div class=\"center\">\n");
}
/* }}} */

/* {{{ module_name_cmp */
static int module_name_cmp(const void *a, const void *b TSRMLS_DC)
{
        Bucket *f = *((Bucket **) a);
        Bucket *s = *((Bucket **) b);

        return strcasecmp(((zend_module_entry *)f->pData)->name,
                                  ((zend_module_entry *)s->pData)->name);
}
/* }}} */

/* {{{ php_print_info
 */
PHPAPI void php_print_info(int flag TSRMLS_DC)
{
        char **env, *tmp1, *tmp2;
        char *php_uname;
        int expose_php = INI_INT("expose_php");

        if (!sapi_module.phpinfo_as_text) {
                php_print_info_htmlhead(TSRMLS_C);
        } else {
                php_info_print("phpinfo()\n");
        }

        if (flag & PHP_INFO_GENERAL) {
                char *zend_version = get_zend_version();
                char temp_api[10];
                char *logo_guid;

                php_uname = php_get_uname('a');
                
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print_box_start(1);
                }

                if (expose_php && !sapi_module.phpinfo_as_text) {
                        php_info_print("<a href=\"http://www.php.net/\"><img border=\"0\" src=\"");
                        php_info_print_request_uri(TSRMLS_C);
                        php_info_print("?=");
                        logo_guid = php_logo_guid();
                        php_info_print(logo_guid);
                        efree(logo_guid);
                        php_info_print("\" alt=\"PHP Logo\" /></a>");
                }

                if (!sapi_module.phpinfo_as_text) {
                        php_info_printf("<h1 class=\"p\">PHP Version %s</h1>\n", PHP_VERSION);
                } else {
                        php_info_print_table_row(2, "PHP Version", PHP_VERSION);
                }       
                php_info_print_box_end();
                php_info_print_table_start();
                php_info_print_table_row(2, "System", php_uname );
                php_info_print_table_row(2, "Build Date", __DATE__ " " __TIME__ );
#ifdef COMPILER
                php_info_print_table_row(2, "Compiler", COMPILER);
#endif
#ifdef ARCHITECTURE
                php_info_print_table_row(2, "Architecture", ARCHITECTURE);
#endif
#ifdef CONFIGURE_COMMAND
                php_info_print_table_row(2, "Configure Command", CONFIGURE_COMMAND );
#endif

                if (sapi_module.pretty_name) {
                        php_info_print_table_row(2, "Server API", sapi_module.pretty_name );
                }

#ifdef VIRTUAL_DIR
                php_info_print_table_row(2, "Virtual Directory Support", "enabled" );
#else
                php_info_print_table_row(2, "Virtual Directory Support", "disabled" );
#endif

                php_info_print_table_row(2, "Configuration File (php.ini) Path", PHP_CONFIG_FILE_PATH);
                php_info_print_table_row(2, "Loaded Configuration File", php_ini_opened_path ? php_ini_opened_path : "(none)");
                php_info_print_table_row(2, "Scan this dir for additional .ini files", php_ini_scanned_path ? php_ini_scanned_path : "(none)");
                php_info_print_table_row(2, "Additional .ini files parsed", php_ini_scanned_files ? php_ini_scanned_files : "(none)");

                snprintf(temp_api, sizeof(temp_api), "%d", PHP_API_VERSION);
                php_info_print_table_row(2, "PHP API", temp_api);

                snprintf(temp_api, sizeof(temp_api), "%d", ZEND_MODULE_API_NO);
                php_info_print_table_row(2, "PHP Extension", temp_api);

                snprintf(temp_api, sizeof(temp_api), "%d", ZEND_EXTENSION_API_NO);
                php_info_print_table_row(2, "Zend Extension", temp_api);

                php_info_print_table_row(2, "Zend Extension Build", ZEND_EXTENSION_BUILD_ID);
                php_info_print_table_row(2, "PHP Extension Build", ZEND_MODULE_BUILD_ID);

#if ZEND_DEBUG
                php_info_print_table_row(2, "Debug Build", "yes" );
#else
                php_info_print_table_row(2, "Debug Build", "no" );
#endif

#ifdef ZTS
                php_info_print_table_row(2, "Thread Safety", "enabled" );
#else
                php_info_print_table_row(2, "Thread Safety", "disabled" );
#endif

#ifdef ZEND_SIGNALS
                php_info_print_table_row(2, "Zend Signal Handling", "enabled" );
#else
                php_info_print_table_row(2, "Zend Signal Handling", "disabled" );
#endif

                php_info_print_table_row(2, "Zend Memory Manager", is_zend_mm(TSRMLS_C) ? "enabled" : "disabled" );

                {
                        const zend_multibyte_functions *functions = zend_multibyte_get_functions(TSRMLS_C);
                        char *descr;
                        if (functions) {
                                spprintf(&descr, 0, "provided by %s", functions->provider_name);
                        } else {
                                descr = estrdup("disabled");
                        }
            php_info_print_table_row(2, "Zend Multibyte Support", descr);
                        efree(descr);
                }

#if HAVE_IPV6
                php_info_print_table_row(2, "IPv6 Support", "enabled" );
#else
                php_info_print_table_row(2, "IPv6 Support", "disabled" );
#endif

#if HAVE_DTRACE
                php_info_print_table_row(2, "DTrace Support", "enabled" );
#else
                php_info_print_table_row(2, "DTrace Support", "disabled" );
#endif
                
                php_info_print_stream_hash("PHP Streams",  php_stream_get_url_stream_wrappers_hash() TSRMLS_CC);
                php_info_print_stream_hash("Stream Socket Transports", php_stream_xport_get_hash() TSRMLS_CC);
                php_info_print_stream_hash("Stream Filters", php_get_stream_filters_hash() TSRMLS_CC);

                php_info_print_table_end();

                /* Zend Engine */
                php_info_print_box_start(0);
                if (expose_php && !sapi_module.phpinfo_as_text) {
                        php_info_print("<a href=\"http://www.zend.com/\"><img border=\"0\" src=\"");
                        php_info_print_request_uri(TSRMLS_C);
                        php_info_print("?="ZEND_LOGO_GUID"\" alt=\"Zend logo\" /></a>\n");
                }
                php_info_print("This program makes use of the Zend Scripting Language Engine:");
                php_info_print(!sapi_module.phpinfo_as_text?"<br />":"\n");
                if (sapi_module.phpinfo_as_text) {
                        php_info_print(zend_version);
                } else {
                        zend_html_puts(zend_version, strlen(zend_version) TSRMLS_CC);
                }
                php_info_print_box_end();
                efree(php_uname);
        }

        if ((flag & PHP_INFO_CREDITS) && expose_php && !sapi_module.phpinfo_as_text) {  
                php_info_print_hr();
                php_info_print("<h1><a href=\"");
                php_info_print_request_uri(TSRMLS_C);
                php_info_print("?=PHPB8B5F2A0-3C92-11d3-A3A9-4C7B08C10000\">");
                php_info_print("PHP Credits");
                php_info_print("</a></h1>\n");
        }

        zend_ini_sort_entries(TSRMLS_C);

        if (flag & PHP_INFO_CONFIGURATION) {
                php_info_print_hr();
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print("<h1>Configuration</h1>\n");
                } else {
                        SECTION("Configuration");
                }       
                if (!(flag & PHP_INFO_MODULES)) {
                        SECTION("PHP Core");
                        display_ini_entries(NULL);
                }
        }

        if (flag & PHP_INFO_MODULES) {
                HashTable sorted_registry;
                zend_module_entry tmp;

                zend_hash_init(&sorted_registry, zend_hash_num_elements(&module_registry), NULL, NULL, 1);
                zend_hash_copy(&sorted_registry, &module_registry, NULL, &tmp, sizeof(zend_module_entry));
                zend_hash_sort(&sorted_registry, zend_qsort, module_name_cmp, 0 TSRMLS_CC);

                zend_hash_apply(&sorted_registry, (apply_func_t) _display_module_info_func TSRMLS_CC);

                SECTION("Additional Modules");
                php_info_print_table_start();
                php_info_print_table_header(1, "Module Name");
                zend_hash_apply(&sorted_registry, (apply_func_t) _display_module_info_def TSRMLS_CC);
                php_info_print_table_end();

                zend_hash_destroy(&sorted_registry);
        }

        if (flag & PHP_INFO_ENVIRONMENT) {
                SECTION("Environment");
                php_info_print_table_start();
                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);
                }
                php_info_print_table_end();
        }

        if (flag & PHP_INFO_VARIABLES) {
                zval **data;

                SECTION("PHP Variables");

                php_info_print_table_start();
                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", Z_STRVAL_PP(data));
                }
                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", Z_STRVAL_PP(data));
                }
                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", Z_STRVAL_PP(data));
                }
                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", Z_STRVAL_PP(data));
                }
                php_print_gpcse_array(ZEND_STRL("_REQUEST") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_GET") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_POST") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_FILES") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_COOKIE") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_SERVER") TSRMLS_CC);
                php_print_gpcse_array(ZEND_STRL("_ENV") TSRMLS_CC);
                php_info_print_table_end();
        }

        if (flag & PHP_INFO_LICENSE) {
                if (!sapi_module.phpinfo_as_text) {
                        SECTION("PHP License");
                        php_info_print_box_start(0);
                        php_info_print("<p>\n");
                        php_info_print("This program is free software; you can redistribute it and/or modify ");
                        php_info_print("it under the terms of the PHP License as published by the PHP Group ");
                        php_info_print("and included in the distribution in the file:  LICENSE\n");
                        php_info_print("</p>\n");
                        php_info_print("<p>");
                        php_info_print("This program is distributed in the hope that it will be useful, ");
                        php_info_print("but WITHOUT ANY WARRANTY; without even the implied warranty of ");
                        php_info_print("MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n");
                        php_info_print("</p>\n");
                        php_info_print("<p>");
                        php_info_print("If you did not receive a copy of the PHP license, or have any questions about ");
                        php_info_print("PHP licensing, please contact license@php.net.\n");
                        php_info_print("</p>\n");
                        php_info_print_box_end();
                } else {
                        php_info_print("\nPHP License\n");
                        php_info_print("This program is free software; you can redistribute it and/or modify\n");
                        php_info_print("it under the terms of the PHP License as published by the PHP Group\n");
                        php_info_print("and included in the distribution in the file:  LICENSE\n");
                        php_info_print("\n");
                        php_info_print("This program is distributed in the hope that it will be useful,\n");
                        php_info_print("but WITHOUT ANY WARRANTY; without even the implied warranty of\n");
                        php_info_print("MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n");
                        php_info_print("\n");
                        php_info_print("If you did not receive a copy of the PHP license, or have any\n");
                        php_info_print("questions about PHP licensing, please contact license@php.net.\n");
                }
        }
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("</div></body></html>");
        }       
}
/* }}} */

PHPAPI void php_info_print_table_start(void) /* {{{ */
{
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("<table border=\"0\" cellpadding=\"3\" width=\"600\">\n");
        } else {
                php_info_print("\n");
        }       
}
/* }}} */

PHPAPI void php_info_print_table_end(void) /* {{{ */
{
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("</table><br />\n");
        }

}
/* }}} */

PHPAPI void php_info_print_box_start(int flag) /* {{{ */
{
        php_info_print_table_start();
        if (flag) {
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print("<tr class=\"h\"><td>\n");
                }
        } else {
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print("<tr class=\"v\"><td>\n");
                } else {
                        php_info_print("\n");
                }       
        }
}
/* }}} */

PHPAPI void php_info_print_box_end(void) /* {{{ */
{
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("</td></tr>\n");
        }
        php_info_print_table_end();
}
/* }}} */

PHPAPI void php_info_print_hr(void) /* {{{ */
{
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("<hr />\n");
        } else {
                php_info_print("\n\n _______________________________________________________________________\n\n");
        }
}
/* }}} */

PHPAPI void php_info_print_table_colspan_header(int num_cols, char *header) /* {{{ */
{
        int spaces;

        if (!sapi_module.phpinfo_as_text) {
                php_info_printf("<tr class=\"h\"><th colspan=\"%d\">%s</th></tr>\n", num_cols, header );
        } else {
                spaces = (74 - strlen(header));
                php_info_printf("%*s%s%*s\n", (int)(spaces/2), " ", header, (int)(spaces/2), " ");
        }       
}
/* }}} */

/* {{{ php_info_print_table_header
 */
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);
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("<tr class=\"h\">");
        }       
        for (i=0; i<num_cols; i++) {
                row_element = va_arg(row_elements, char *);
                if (!row_element || !*row_element) {
                        row_element = " ";
                }
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print("<th>");
                        php_info_print(row_element);
                        php_info_print("</th>");
                } else {
                        php_info_print(row_element);
                        if (i < num_cols-1) {
                                php_info_print(" => ");
                        } else {
                                php_info_print("\n");
                        }
                }
        }
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("</tr>\n");
        }

        va_end(row_elements);
}
/* }}} */

/* {{{ php_info_print_table_row_internal
 */
static void php_info_print_table_row_internal(int num_cols, 
                const char *value_class, va_list row_elements)
{
        int i;
        char *row_element;

        if (!sapi_module.phpinfo_as_text) {
                php_info_print("<tr>");
        }       
        for (i=0; i<num_cols; i++) {
                if (!sapi_module.phpinfo_as_text) {
                        php_info_printf("<td class=\"%s\">",
                           (i==0 ? "e" : value_class )
                        );
                }       
                row_element = va_arg(row_elements, char *);
                if (!row_element || !*row_element) {
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print( "<i>no value</i>" );
                        } else {
                                php_info_print( " " );
                        }
                } else {
                        if (!sapi_module.phpinfo_as_text) {
                                php_info_print_html_esc(row_element, strlen(row_element));
                        } else {
                                php_info_print(row_element);
                                if (i < num_cols-1) {
                                        php_info_print(" => ");
                                }       
                        }
                }
                if (!sapi_module.phpinfo_as_text) {
                        php_info_print(" </td>");
                } else if (i == (num_cols - 1)) {
                        php_info_print("\n");
                }
        }
        if (!sapi_module.phpinfo_as_text) {
                php_info_print("</tr>\n");
        }
}
/* }}} */

/* {{{ php_info_print_table_row
 */
PHPAPI void php_info_print_table_row(int num_cols, ...)
{
        va_list row_elements;
        
        va_start(row_elements, num_cols);
        php_info_print_table_row_internal(num_cols, "v", row_elements);
        va_end(row_elements);
}
/* }}} */

/* {{{ php_info_print_table_row_ex
 */
PHPAPI void php_info_print_table_row_ex(int num_cols, const char *value_class, 
                ...)
{
        va_list row_elements;
        
        va_start(row_elements, value_class);
        php_info_print_table_row_internal(num_cols, value_class, row_elements);
        va_end(row_elements);
}
/* }}} */

/* {{{ register_phpinfo_constants
 */
void register_phpinfo_constants(INIT_FUNC_ARGS)
{
        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);
        REGISTER_LONG_CONSTANT("CREDITS_GROUP", PHP_CREDITS_GROUP, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_GENERAL",       PHP_CREDITS_GENERAL, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_SAPI",  PHP_CREDITS_SAPI, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_MODULES",       PHP_CREDITS_MODULES, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_DOCS",  PHP_CREDITS_DOCS, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_FULLPAGE",      PHP_CREDITS_FULLPAGE, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_QA",    PHP_CREDITS_QA, CONST_PERSISTENT|CONST_CS);
        REGISTER_LONG_CONSTANT("CREDITS_ALL",   PHP_CREDITS_ALL, CONST_PERSISTENT|CONST_CS);
}
/* }}} */

/* {{{ proto void phpinfo([int what])
   Output a page of useful information about PHP and the current request */
PHP_FUNCTION(phpinfo)
{
        long flag = PHP_INFO_ALL;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &flag) == FAILURE) {
                return;
        }

        /* Andale!  Andale!  Yee-Hah! */
        php_output_start_default(TSRMLS_C);
        php_print_info(flag TSRMLS_CC);
        php_output_end(TSRMLS_C);

        RETURN_TRUE;
}

/* }}} */

/* {{{ proto string phpversion([string extension])
   Return the current PHP version */
PHP_FUNCTION(phpversion)
{
        char *ext_name = NULL;
        int ext_name_len = 0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &ext_name, &ext_name_len) == FAILURE) {
                return;
        }

        if (!ext_name) {
                RETURN_STRING(PHP_VERSION, 1);
        } else {
                const char *version;
                version = zend_get_module_version(ext_name);
                if (version == NULL) {
                        RETURN_FALSE;
                }
                RETURN_STRING(version, 1);
        }
}
/* }}} */

/* {{{ proto void phpcredits([int flag])
   Prints the list of people who've contributed to the PHP project */
PHP_FUNCTION(phpcredits)
{
        long flag = PHP_CREDITS_ALL;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|l", &flag) == FAILURE) {
                return;
        }

        php_print_credits(flag TSRMLS_CC);
        RETURN_TRUE;
}
/* }}} */

/* {{{ php_logo_guid
 */
PHPAPI char *php_logo_guid(void)
{
        char *logo_guid;

        time_t the_time;
        struct tm *ta, tmbuf;

        the_time = time(NULL);
        ta = php_localtime_r(&the_time, &tmbuf);

        if (ta && (ta->tm_mon==3) && (ta->tm_mday==1)) {
                logo_guid = PHP_EGG_LOGO_GUID;
        } else {
                logo_guid = PHP_LOGO_GUID;
        }

        return estrdup(logo_guid);

}
/* }}} */

/* {{{ proto string php_logo_guid(void)
   Return the special ID used to request the PHP logo in phpinfo screens*/
PHP_FUNCTION(php_logo_guid)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }

        RETURN_STRING(php_logo_guid(), 0);
}
/* }}} */

/* {{{ proto string php_real_logo_guid(void)
   Return the special ID used to request the PHP logo in phpinfo screens*/
PHP_FUNCTION(php_real_logo_guid)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }

        RETURN_STRINGL(PHP_LOGO_GUID, sizeof(PHP_LOGO_GUID)-1, 1);
}
/* }}} */

/* {{{ proto string php_egg_logo_guid(void)
   Return the special ID used to request the PHP logo in phpinfo screens*/
PHP_FUNCTION(php_egg_logo_guid)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }

        RETURN_STRINGL(PHP_EGG_LOGO_GUID, sizeof(PHP_EGG_LOGO_GUID)-1, 1);
}
/* }}} */

/* {{{ proto string zend_logo_guid(void)
   Return the special ID used to request the Zend logo in phpinfo screens*/
PHP_FUNCTION(zend_logo_guid)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }

        RETURN_STRINGL(ZEND_LOGO_GUID, sizeof(ZEND_LOGO_GUID)-1, 1);
}
/* }}} */

/* {{{ proto string php_sapi_name(void)
   Return the current SAPI module name */
PHP_FUNCTION(php_sapi_name)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }

        if (sapi_module.name) {
                RETURN_STRING(sapi_module.name, 1);
        } else {
                RETURN_FALSE;
        }
}

/* }}} */

/* {{{ proto string php_uname(void)
   Return information about the system PHP was built on */
PHP_FUNCTION(php_uname)
{
        char *mode = "a";
        int modelen = sizeof("a")-1;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &mode, &modelen) == FAILURE) {
                return;
        }
        RETURN_STRING(php_get_uname(*mode), 0);
}

/* }}} */

/* {{{ proto string php_ini_scanned_files(void)
   Return comma-separated string of .ini files parsed from the additional ini dir */
PHP_FUNCTION(php_ini_scanned_files)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }
        
        if (strlen(PHP_CONFIG_FILE_SCAN_DIR) && php_ini_scanned_files) {
                RETURN_STRING(php_ini_scanned_files, 1);
        } else {
                RETURN_FALSE;
        }
}
/* }}} */

/* {{{ proto string php_ini_loaded_file(void)
   Return the actual loaded ini filename */
PHP_FUNCTION(php_ini_loaded_file)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }
        
        if (php_ini_opened_path) {
                RETURN_STRING(php_ini_opened_path, 1);
        } else {
                RETURN_FALSE;
        }
}
/* }}} */

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 * vim600: sw=4 ts=4 fdm=marker
 * vim<600: sw=4 ts=4
 */

/* [<][>][^][v][top][bottom][index][help] */