yaconf.c

/*
  +----------------------------------------------------------------------+
  | Yet Another Conf                                                     |
  +----------------------------------------------------------------------+
  | 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.               |
  +----------------------------------------------------------------------+
  | Author: Xinchen Hui  <laruence@php.net>                              |
  +----------------------------------------------------------------------+
*/

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "php.h"
#include "php_ini.h"
#include "main/php_scandir.h"
#include "ext/standard/info.h"
#include "php_yaconf.h"

ZEND_DECLARE_MODULE_GLOBALS(yaconf);

static HashTable *ini_containers;
static HashTable *parsed_ini_files;
static zval active_ini_file_section;

zend_class_entry *yaconf_ce;

static void php_yaconf_zval_persistent(zval *zv, zval *rv);

typedef struct _yaconf_filenode {
	zend_string *filename;
	time_t mtime;
} yaconf_filenode;

#define PALLOC_HASHTABLE(ht)   do {                                                       \
	(ht) = (HashTable*)pemalloc(sizeof(HashTable), 1);                                    \
	if ((ht) == NULL) {                                                                   \
		zend_error(E_ERROR, "Cannot allocate persistent HashTable, out enough memory?");  \
	}                                                                                     \
} while(0)

/* {{{ ARG_INFO
 */
ZEND_BEGIN_ARG_INFO_EX(php_yaconf_get_arginfo, 0, 0, 1)
	ZEND_ARG_INFO(0, name)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(php_yaconf_has_arginfo, 0, 0, 1)
	ZEND_ARG_INFO(0, name)
ZEND_END_ARG_INFO()
/* }}} */

/* {{{ yaconf_module_entry
 */
zend_module_entry yaconf_module_entry = {
	STANDARD_MODULE_HEADER,
	"yaconf",
	NULL,
	PHP_MINIT(yaconf),
	PHP_MSHUTDOWN(yaconf),
#ifndef ZTS
	PHP_RINIT(yaconf),
#else
	NULL,
#endif
	NULL,
	PHP_MINFO(yaconf),
	PHP_YACONF_VERSION,
	PHP_MODULE_GLOBALS(yaconf),
	PHP_GINIT(yaconf),
	NULL,
	NULL,
	STANDARD_MODULE_PROPERTIES_EX
};
/* }}} */

#ifdef COMPILE_DL_YACONF
ZEND_GET_MODULE(yaconf)
#endif

static void php_yaconf_hash_init(zval *zv, size_t size) /* {{{ */ {
	HashTable *ht;
	PALLOC_HASHTABLE(ht);
	zend_hash_init(ht, size, NULL, ZVAL_PTR_DTOR, 1);
	GC_FLAGS(ht) |= IS_ARRAY_IMMUTABLE;
	GC_REFCOUNT(ht) = 2;
	ZVAL_ARR(zv, ht);
	Z_TYPE_FLAGS_P(zv) = IS_TYPE_IMMUTABLE;
} 
/* }}} */

static void php_yaconf_hash_destroy(HashTable *ht) /* {{{ */ {
	zend_string *key;
	zval *element;

	if (((ht)->u.flags & HASH_FLAG_INITIALIZED)) {
		ZEND_HASH_FOREACH_STR_KEY_VAL(ht, key, element) {
			if (key) {
				free(key);
			}
			switch (Z_TYPE_P(element)) {
				case IS_PTR:
				case IS_STRING:
					free(Z_PTR_P(element));
					break;
				case IS_ARRAY:
					php_yaconf_hash_destroy(Z_ARRVAL_P(element));
					break;
			}
		} ZEND_HASH_FOREACH_END();
		free(HT_GET_DATA_ADDR(ht));
	}
	free(ht);
} /* }}} */

static zval* php_yaconf_symtable_update(HashTable *ht, zend_string *key, zval *zv) /* {{{ */ {
	zend_ulong idx;
	if (ZEND_HANDLE_NUMERIC(key, idx)) {
		free(key);
		return zend_hash_index_update(ht, idx, zv);
	} else {
		return zend_hash_update(ht, key, zv);
	}
}
/* }}} */

static zend_string* php_yaconf_str_persistent(char *str, size_t len) /* {{{ */ {
	zend_string *key = zend_string_init(str, len, 1);
	if (key == NULL) {
		zend_error(E_ERROR, "Cannot allocate string, not enough memory?");
	}
	key->h = zend_string_hash_val(key);
	GC_FLAGS(key) |= IS_STR_INTERNED | IS_STR_PERMANENT;
	return key;
}
/* }}} */
	
static void php_yaconf_hash_copy(HashTable *target, HashTable *source) /* {{{ */ {
	zend_string *key;
	zend_long idx;
	zval *element, rv;

	ZEND_HASH_FOREACH_KEY_VAL(source, idx, key, element) {
		php_yaconf_zval_persistent(element, &rv);
		if (key) {
			zend_hash_update(target, php_yaconf_str_persistent(ZSTR_VAL(key), ZSTR_LEN(key)), &rv);
		} else {
			zend_hash_index_update(target, idx, &rv);
		}
	} ZEND_HASH_FOREACH_END();
} /* }}} */

static void php_yaconf_zval_persistent(zval *zv, zval *rv) /* {{{ */ {
	switch (Z_TYPE_P(zv)) {
		case IS_CONSTANT:
		case IS_STRING:
			ZVAL_INTERNED_STR(rv, php_yaconf_str_persistent(Z_STRVAL_P(zv), Z_STRLEN_P(zv)));
			break;
		case IS_ARRAY:
			{
				php_yaconf_hash_init(rv, zend_hash_num_elements(Z_ARRVAL_P(zv)));
				php_yaconf_hash_copy(Z_ARRVAL_P(rv), Z_ARRVAL_P(zv));
			}
			break;
		case IS_RESOURCE:
		case IS_OBJECT:
		case _IS_BOOL:
		case IS_LONG:
		case IS_NULL:
			ZEND_ASSERT(0);
			break;
	}
} /* }}} */

static void php_yaconf_simple_parser_cb(zval *key, zval *value, zval *index, int callback_type, void *arg) /* {{{ */ {
	char *seg, *skey, *ptr;
	zval *pzval, *target, rv;
	zval *arr = (zval *)arg;

	if (value == NULL) {
		return;
	}
	if (callback_type == ZEND_INI_PARSER_ENTRY) {
		target = arr;
		skey = estrndup(Z_STRVAL_P(key), Z_STRLEN_P(key));
		if ((seg = php_strtok_r(skey, ".", &ptr))) {
			int nesting = 0;
			do {
				char *real_key = seg;
				if (++nesting > 64) {
					YACONF_G(parse_err) = 1;
					php_error(E_WARNING, "Nesting too deep? key name contains more than 64 '.'");
					efree(skey);
					return;
				}
				seg = php_strtok_r(NULL, ".", &ptr);
				if ((pzval = zend_symtable_str_find(Z_ARRVAL_P(target), real_key, strlen(real_key))) == NULL) {
					if (seg) {
						php_yaconf_hash_init(&rv, 8);
						pzval = php_yaconf_symtable_update(Z_ARRVAL_P(target),
								php_yaconf_str_persistent(real_key, strlen(real_key)), &rv);
					} else {
						php_yaconf_zval_persistent(value, &rv);
						php_yaconf_symtable_update(Z_ARRVAL_P(target),
								php_yaconf_str_persistent(real_key, strlen(real_key)), &rv);
					}
				} else {
					if (IS_ARRAY != Z_TYPE_P(pzval)) {
						free(Z_PTR_P(pzval));
						if (seg) {
							php_yaconf_hash_init(pzval, 8);
						} else {
							php_yaconf_zval_persistent(value, pzval);
						}
					} else if (!seg) {
						php_yaconf_hash_destroy(Z_ARRVAL_P(pzval));
						php_yaconf_zval_persistent(value, pzval);
					}
				}
				target = pzval;
			} while (seg);
		}
		efree(skey);
	} else if (callback_type == ZEND_INI_PARSER_POP_ENTRY) {
		if (!(Z_STRLEN_P(key) > 1 && Z_STRVAL_P(key)[0] == '0')
				&& is_numeric_string(Z_STRVAL_P(key), Z_STRLEN_P(key), NULL, NULL, 0) == IS_LONG) {
			zend_long idx = (zend_long)zend_atol(Z_STRVAL_P(key), Z_STRLEN_P(key));
			if ((pzval = zend_hash_index_find(Z_ARRVAL_P(arr), idx)) == NULL) {
				php_yaconf_hash_init(&rv, 8);
				pzval = zend_hash_index_update(Z_ARRVAL_P(arr), idx, &rv);
			} 
		} else {
			char *seg, *ptr;
			char *skey = estrndup(Z_STRVAL_P(key), Z_STRLEN_P(key));

			target = arr;
			if ((seg = php_strtok_r(skey, ".", &ptr))) {
				int nesting = 0;
				do {
					if (++nesting > 64) {
						php_error(E_WARNING, "Nesting too deep? key name contains more than 64 '.'");
						YACONF_G(parse_err) = 1;
						efree(skey);
						return;
					}
					if ((pzval = zend_symtable_str_find(Z_ARRVAL_P(target), seg, strlen(seg))) == NULL) {
						php_yaconf_hash_init(&rv, 8);
						pzval = php_yaconf_symtable_update(Z_ARRVAL_P(target),
								php_yaconf_str_persistent(seg, strlen(seg)), &rv);
					}
					if (IS_ARRAY != Z_TYPE_P(pzval)) {
						free(Z_PTR_P(pzval));
						php_yaconf_hash_init(pzval, 8);
					}
					target = pzval;
					seg = php_strtok_r(NULL, ".", &ptr);
				} while (seg);
			} else {
				if ((pzval = zend_symtable_str_find(Z_ARRVAL_P(target), seg, strlen(seg))) == NULL) {
					php_yaconf_hash_init(&rv, 8);
					pzval = php_yaconf_symtable_update(Z_ARRVAL_P(target),
							php_yaconf_str_persistent(seg, strlen(seg)), &rv);
				} 
			}
			efree(skey);
		}

		if (Z_TYPE_P(pzval) != IS_ARRAY) {
			zval_dtor(pzval);
			php_yaconf_hash_init(pzval, 8);
		}

		php_yaconf_zval_persistent(value, &rv);
		if (index && Z_STRLEN_P(index) > 0) {
			if ((pzval = zend_symtable_str_find(Z_ARRVAL_P(target), Z_STRVAL_P(index), Z_STRLEN_P(index))) == NULL) {
				php_yaconf_symtable_update(Z_ARRVAL_P(target),
						php_yaconf_str_persistent(Z_STRVAL_P(index), Z_STRLEN_P(index)), &rv);
			} else {
				if (Z_TYPE_P(pzval) == IS_ARRAY) {
					php_yaconf_hash_destroy(Z_ARRVAL_P(pzval));
				} else {
					free(Z_PTR_P(pzval));
				}
				ZVAL_COPY_VALUE(pzval, &rv);
			}
		} else {
			zend_hash_next_index_insert(Z_ARRVAL_P(pzval), &rv);
		}
	} else if (callback_type == ZEND_INI_PARSER_SECTION) {
	}
}
/* }}} */

static void php_yaconf_ini_parser_cb(zval *key, zval *value, zval *index, int callback_type, void *arg) /* {{{ */ {
	zval *arr = (zval *)arg;

	if (YACONF_G(parse_err)) {
		return;
	}

	if (callback_type == ZEND_INI_PARSER_SECTION) {
		zval *parent;
		char *seg, *skey;

		skey = estrndup(Z_STRVAL_P(key), Z_STRLEN_P(key));

		php_yaconf_hash_init(&active_ini_file_section, 128);

		if ((seg = strchr(skey, ':'))) {
			char *section;

			while (*(seg) == ' ' || *(seg) == ':') {
				*(seg++) = '\0';
			}

			if ((section = strrchr(seg, ':'))) {
				int nesting = 0;
			    /* muilt-inherit */
				do {
					if (++nesting > 16) {
						php_error(E_WARNING, "Nesting too deep? Only less than 16 level inheritance is allowed");
						YACONF_G(parse_err) = 1;
						efree(skey);
						return;
					}
					while (*(section) == ' ' || *(section) == ':') {
						*(section++) = '\0';
					}
					if ((parent = zend_symtable_str_find(Z_ARRVAL_P(arr), section, strlen(section))) && 
						EXPECTED(Z_TYPE_P(parent) == IS_ARRAY)
						) {
						php_yaconf_hash_copy(Z_ARRVAL(active_ini_file_section), Z_ARRVAL_P(parent));
					}
				} while ((section = strrchr(seg, ':')));
			}

			/* remove the tail space, thinking of 'foo : bar : test' */
			section = seg + strlen(seg) - 1;
			while (*section == ' ' || *section == ':') {
				*(section--) = '\0';
			}

			if ((parent = zend_symtable_str_find(Z_ARRVAL_P(arr), seg, strlen(seg))) && 
				EXPECTED(Z_TYPE_P(parent) == IS_ARRAY)
				) {
				php_yaconf_hash_copy(Z_ARRVAL(active_ini_file_section), Z_ARRVAL_P(parent));
			}
		} 
	    seg = skey + strlen(skey) - 1;
		while (*seg == ' ' || *seg == ':') {
			*(seg--) = '\0';
		}	
		php_yaconf_symtable_update(Z_ARRVAL_P(arr),
				php_yaconf_str_persistent(skey, strlen(skey)), &active_ini_file_section);

		efree(skey);
	} else if (value) {
		zval *active_arr;
		if (!Z_ISUNDEF(active_ini_file_section)) {
			active_arr = &active_ini_file_section;
		} else {
			active_arr = arr;
		}
		php_yaconf_simple_parser_cb(key, value, index, callback_type, active_arr);
	}
}
/* }}} */

PHP_YACONF_API zval *php_yaconf_get(zend_string *name) /* {{{ */ {
	if (ini_containers) {
		zval *pzval;
		HashTable *target = ini_containers;

		if (zend_memrchr(ZSTR_VAL(name), '.', ZSTR_LEN(name))) {
			char *entry, *ptr, *seg;
			entry = estrndup(ZSTR_VAL(name), ZSTR_LEN(name));
			if ((seg = php_strtok_r(entry, ".", &ptr))) {
				do {
					if (target == NULL || (pzval = zend_symtable_str_find(target, seg, strlen(seg))) == NULL) {
						efree(entry);
						return NULL;
					}
					if (Z_TYPE_P(pzval) == IS_ARRAY) {
						target = Z_ARRVAL_P(pzval);
					} else {
						target = NULL;
					}
				} while ((seg = php_strtok_r(NULL, ".", &ptr)));
			}
			efree(entry);
		} else {
			pzval = zend_symtable_find(target, name);
		}

		return pzval;
	}
	return NULL;
}
/* }}} */

PHP_YACONF_API int php_yaconf_has(zend_string *name) /* {{{ */ {
	if (php_yaconf_get(name)) {
		return 1;
	}
	return 0;
}
/* }}} */

/** {{{ proto public Yaconf::get(string $name, $default = NULL)
*/
PHP_METHOD(yaconf, get) {
	zend_string *name;
	zval *val, *defv = NULL;

	if (zend_parse_parameters(ZEND_NUM_ARGS(), "S|z", &name, &defv) == FAILURE) {
		return;
	} 

	val = php_yaconf_get(name);
	if (val) {
		RETURN_ZVAL(val, 0, 0);
	} else if (defv) {
		RETURN_ZVAL(defv, 1, 0);
	}

	RETURN_NULL();
}
/* }}} */

/** {{{ proto public Yaconf::has(string $name)
*/
PHP_METHOD(yaconf, has) {
	zend_string *name;

	if (zend_parse_parameters(ZEND_NUM_ARGS(), "S", &name) == FAILURE) {
		return;
	} 

	RETURN_BOOL(php_yaconf_has(name));
}
/* }}} */

/* {{{  yaconf_methods */
zend_function_entry yaconf_methods[] = {
	PHP_ME(yaconf, get, php_yaconf_get_arginfo, ZEND_ACC_PUBLIC | ZEND_ACC_STATIC)
	PHP_ME(yaconf, has, php_yaconf_has_arginfo, ZEND_ACC_PUBLIC | ZEND_ACC_STATIC)
	{NULL, NULL, NULL}
};
/* }}} */

/* {{{ PHP_INI
 */
PHP_INI_BEGIN()
	STD_PHP_INI_ENTRY("yaconf.directory", "", PHP_INI_SYSTEM, OnUpdateString, directory, zend_yaconf_globals, yaconf_globals)
#ifndef ZTS
	STD_PHP_INI_ENTRY("yaconf.check_type", "0", PHP_INI_SYSTEM, OnUpdateLong, check_type, zend_yaconf_globals, yaconf_globals)
	STD_PHP_INI_ENTRY("yaconf.check_delay", "300", PHP_INI_SYSTEM, OnUpdateLong, check_delay, zend_yaconf_globals, yaconf_globals)
#endif
PHP_INI_END()
/* }}} */

/* {{{ PHP_GINIT_FUNCTION
*/
PHP_GINIT_FUNCTION(yaconf)
{
	yaconf_globals->directory = NULL;
}
/* }}} */

/* {{{ PHP_MINIT_FUNCTION
 */
PHP_MINIT_FUNCTION(yaconf)
{
	char * search_dir_names[MAX_SEARCH_DIR_SIZE];
	int   search_dir_size=0;
	char *cur_dir_name = NULL;

	const char *dirname;
	int dirname_len = 0;
	size_t dirlen;
	zend_class_entry ce;
	struct zend_stat dir_sb = {0};

	REGISTER_INI_ENTRIES();

	INIT_CLASS_ENTRY(ce, "Yaconf", yaconf_methods);

	yaconf_ce = zend_register_internal_class_ex(&ce, NULL);

	if ((dirname = YACONF_G(directory)) && (dirlen = strlen(dirname)) 
#ifndef ZTS
			&& !VCWD_STAT(dirname, &dir_sb) && S_ISDIR(dir_sb.st_mode)
#endif
			) {
		zval result;
		int ndir;
		struct dirent **namelist;
		char *p, ini_file[MAXPATHLEN],ini_file_len=0;

#ifndef ZTS
		YACONF_G(directory_mtime) = dir_sb.st_mtime;
#endif

		dirname_len = strlen(dirname);
		search_dir_names[search_dir_size++] = estrdup(dirname);

		PALLOC_HASHTABLE(ini_containers);
		zend_hash_init(ini_containers, 32, NULL, NULL, 1);

		PALLOC_HASHTABLE(parsed_ini_files);
		zend_hash_init(parsed_ini_files, 32, NULL, NULL, 1);

		while( search_dir_size > 0 ){
			cur_dir_name = search_dir_names[--search_dir_size];

			if ((ndir = php_scandir(cur_dir_name, &namelist, 0, php_alphasort)) > 0) {
				uint32_t i;
				unsigned char c;
				struct zend_stat sb;
				zend_file_handle fh = {0};
				for (i = 0; i < ndir; i++) {
					if (strcmp(namelist[i]->d_name, ".") == 0 || strcmp(namelist[i]->d_name, "..") == 0) {
						free(namelist[i]);
						continue;
					}

					ini_file_len = snprintf(ini_file, MAXPATHLEN, "%s%c%s", cur_dir_name, DEFAULT_SLASH, namelist[i]->d_name);

					if (ini_file_len < 0 || VCWD_STAT(ini_file, &sb) == 0) {
						if (S_ISREG(sb.st_mode)) {
							if (!(p = strrchr(namelist[i]->d_name, '.')) || strcmp(p, ".ini")) {
								free(namelist[i]);
								continue;
							}

							yaconf_filenode node;
							if ((fh.handle.fp = VCWD_FOPEN(ini_file, "r"))) {
								fh.filename = ini_file;
								fh.type = ZEND_HANDLE_FP;
					            ZVAL_UNDEF(&active_ini_file_section);
								YACONF_G(parse_err) = 0;
								php_yaconf_hash_init(&result, 128);
								if (zend_parse_ini_file(&fh, 1, 0 /* ZEND_INI_SCANNER_NORMAL */,
										php_yaconf_ini_parser_cb, (void *)&result) == FAILURE || YACONF_G(parse_err)) {
									YACONF_G(parse_err) = 0;
									php_yaconf_hash_destroy(Z_ARRVAL(result));
									free(namelist[i]);
									continue;
								}
							}
							
							php_yaconf_symtable_update(ini_containers,
									php_yaconf_str_persistent(ini_file+dirname_len+1, ini_file_len - dirname_len  - 1 - strlen(p) ), &result);

							node.filename = zend_string_init(ini_file+dirname_len+1, ini_file_len - dirname_len - 1 , 1);
							node.mtime = sb.st_mtime;
							zend_hash_update_mem(parsed_ini_files, node.filename, &node, sizeof(yaconf_filenode));
						}else if(S_ISDIR(sb.st_mode) ){
							if(search_dir_size >= MAX_SEARCH_DIR_SIZE){
								php_error(E_WARNING, "max dir size '%d'", search_dir_size);
							}else{
								search_dir_names[search_dir_size++] = estrdup(ini_file);
							}
						}
					} else {
						php_error(E_ERROR, "Could not stat '%s'", ini_file);
					}
					free(namelist[i]);
				}
				free(namelist);
			} else {
				php_error(E_ERROR, "Couldn't opendir '%s'", dirname);
			}

			efree(cur_dir_name);
		}
		#ifndef ZTS
			YACONF_G(last_check) = time(NULL);
		#endif
	}

	return SUCCESS;
}
/* }}} */

#ifndef ZTS
/* {{{ PHP_RINIT_FUNCTION(yaconf)
*/
PHP_RINIT_FUNCTION(yaconf)
{
	if (YACONF_G(check_delay) && (time(NULL) - YACONF_G(last_check) < YACONF_G(check_delay))) {
		YACONF_DEBUG("config check delay doesn't execceed, ignore");
		return SUCCESS;
	} else {
		char *dirname;
		int dirname_len =0;
		struct zend_stat dir_sb = {0};

		YACONF_G(last_check) = time(NULL);

		if ((dirname = YACONF_G(directory)) && !VCWD_STAT(dirname, &dir_sb) && S_ISDIR(dir_sb.st_mode)) {
			if (YACONF_G(check_type) == 0 && dir_sb.st_mtime == YACONF_G(directory_mtime) ) {
				YACONF_DEBUG("config directory is not modefied");
				return SUCCESS;
			} else {
				zval result;
				int i, ndir;
				struct dirent **namelist;
				char *p, ini_file[MAXPATHLEN],ini_file_len=0;

				char *search_dir_names[MAX_SEARCH_DIR_SIZE];
				int   search_dir_size=0;
				char *cur_dir_name = NULL;

				YACONF_G(directory_mtime) = dir_sb.st_mtime;

				dirname_len = strlen(dirname);
				search_dir_names[search_dir_size++] = estrdup(dirname);
				while( search_dir_size > 0 ){
					cur_dir_name = search_dir_names[--search_dir_size];

					if ((ndir = php_scandir(cur_dir_name, &namelist, 0, php_alphasort)) > 0) {
						zend_string *file_key;
						struct zend_stat sb;
						zend_file_handle fh = {0};
						yaconf_filenode *node = NULL;

						for (i = 0; i < ndir; i++) {
							if (strcmp(namelist[i]->d_name, ".") == 0 || strcmp(namelist[i]->d_name, "..") == 0) {
								free(namelist[i]);
								continue;
							}
							
							zval *orig_ht = NULL;

							ini_file_len = snprintf(ini_file, MAXPATHLEN, "%s%c%s", cur_dir_name, DEFAULT_SLASH, namelist[i]->d_name);
							if (ini_file_len < 0 || VCWD_STAT(ini_file, &sb) || !S_ISREG(sb.st_mode)) {
								if(S_ISDIR(sb.st_mode) ){
									if(search_dir_size >= MAX_SEARCH_DIR_SIZE){
										php_error(E_WARNING, "max dir size '%d'", search_dir_size);
									}else{
										search_dir_names[search_dir_size++] = estrdup(ini_file);
									}
								}
								free(namelist[i]);
								continue;
							}

							if (!(p = strrchr(namelist[i]->d_name, '.')) || strcmp(p, ".ini")) {
								free(namelist[i]);
								continue;
							}

							if ((node = (yaconf_filenode*)zend_hash_str_find_ptr(parsed_ini_files, ini_file+dirname_len+1, ini_file_len - dirname_len - 1)) == NULL) {
								YACONF_DEBUG("new configure file found");
							} else if (node->mtime == sb.st_mtime) {
								free(namelist[i]);
								continue;
							}

							if ((fh.handle.fp = VCWD_FOPEN(ini_file, "r"))) {
								fh.filename = ini_file;
								fh.type = ZEND_HANDLE_FP;
								ZVAL_UNDEF(&active_ini_file_section);
								YACONF_G(parse_err) = 0;
								php_yaconf_hash_init(&result, 128);
								if (zend_parse_ini_file(&fh, 1, 0 /* ZEND_INI_SCANNER_NORMAL */,
										php_yaconf_ini_parser_cb, (void *)&result) == FAILURE || YACONF_G(parse_err)) {
									YACONF_G(parse_err) = 0;
									php_yaconf_hash_destroy(Z_ARRVAL(result));
									free(namelist[i]);
									continue;
								}
							}


							file_key = php_yaconf_str_persistent(ini_file+dirname_len+1, ini_file_len - dirname_len  - 1 - strlen(p));
							if ((orig_ht = zend_symtable_find(ini_containers, file_key)) != NULL) {
								php_yaconf_hash_destroy(Z_ARRVAL_P(orig_ht));
								ZVAL_COPY_VALUE(orig_ht, &result);
								free(file_key);
							} else {
								php_yaconf_symtable_update(ini_containers, file_key, &result);
							}

							if (node) {
								node->mtime = sb.st_mtime;
							} else {
								yaconf_filenode n = {0};
								n.filename = zend_string_init(ini_file+dirname_len+1, ini_file_len - dirname_len - 1, 1);
								n.mtime = sb.st_mtime;
								zend_hash_update_mem(parsed_ini_files, n.filename, &n, sizeof(yaconf_filenode));
							}
							free(namelist[i]);
						}
						free(namelist);
					}
					efree(cur_dir_name);
				}
				return SUCCESS;
			}
		} 
		YACONF_DEBUG("stat config directory failed");
	}

	return SUCCESS;
}
/* }}} */
#endif

/* {{{ PHP_MSHUTDOWN_FUNCTION
 */
PHP_MSHUTDOWN_FUNCTION(yaconf)
{
	UNREGISTER_INI_ENTRIES();

	if (parsed_ini_files) {
		php_yaconf_hash_destroy(parsed_ini_files);
	}

	if (ini_containers) {
		php_yaconf_hash_destroy(ini_containers);
	}

	return SUCCESS;
}
/* }}} */

/* {{{ PHP_MINFO_FUNCTION
 */
PHP_MINFO_FUNCTION(yaconf)
{
	php_info_print_table_start();
	php_info_print_table_header(2, "yaconf support", "enabled");
	php_info_print_table_row(2, "version", PHP_YACONF_VERSION);
#ifndef ZTS
	php_info_print_table_row(2, "yaconf config last check time",  ctime(&(YACONF_G(last_check))));
#else
	php_info_print_table_row(2, "yaconf config last check time",  "-");
#endif
	php_info_print_table_end();

	php_info_print_table_start();
	php_info_print_table_header(2, "parsed filename", "mtime");
	if (parsed_ini_files && zend_hash_num_elements(parsed_ini_files)) {
		yaconf_filenode *node;
		ZEND_HASH_FOREACH_PTR(parsed_ini_files, node) {
			php_info_print_table_row(2, ZSTR_VAL(node->filename),  ctime(&node->mtime));
		} ZEND_HASH_FOREACH_END();
	}
	php_info_print_table_end();

	DISPLAY_INI_ENTRIES();
}
/* }}} */

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