mirror of
https://github.com/php/php-src.git
synced 2024-11-30 21:35:36 +08:00
271 lines
7.8 KiB
C
271 lines
7.8 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 4 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2002 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 2.02 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_02.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: Zeev Suraski <zeev@zend.com> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#include "php.h"
|
|
#include "php_regex.h"
|
|
#include "php_browscap.h"
|
|
#include "php_ini.h"
|
|
|
|
#include "zend_globals.h"
|
|
|
|
static HashTable browser_hash;
|
|
static zval *current_section;
|
|
|
|
#define DEFAULT_SECTION_NAME "Default Browser Capability Settings"
|
|
|
|
/* OBJECTS_FIXME: This whole extension needs going through. The use of objects looks pretty broken here */
|
|
|
|
static void browscap_entry_dtor(zval *pvalue)
|
|
{
|
|
if (Z_TYPE_P(pvalue) == IS_OBJECT) {
|
|
zend_hash_destroy(Z_OBJPROP_P(pvalue));
|
|
free(Z_OBJPROP_P(pvalue));
|
|
}
|
|
}
|
|
|
|
/* {{{ convert_browscap_pattern
|
|
*/
|
|
static void convert_browscap_pattern(zval *pattern)
|
|
{
|
|
register int i, j;
|
|
char *t;
|
|
|
|
for (i=0; i<Z_STRLEN_P(pattern); i++) {
|
|
if (Z_STRVAL_P(pattern)[i]=='*' || Z_STRVAL_P(pattern)[i]=='?' || Z_STRVAL_P(pattern)[i]=='.') {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (i==Z_STRLEN_P(pattern)) { /* no wildcards */
|
|
Z_STRVAL_P(pattern) = zend_strndup(Z_STRVAL_P(pattern), Z_STRLEN_P(pattern));
|
|
return;
|
|
}
|
|
|
|
t = (char *) malloc(Z_STRLEN_P(pattern)*2);
|
|
|
|
for (i=0, j=0; i<Z_STRLEN_P(pattern); i++, j++) {
|
|
switch (Z_STRVAL_P(pattern)[i]) {
|
|
case '?':
|
|
t[j] = '.';
|
|
break;
|
|
case '*':
|
|
t[j++] = '.';
|
|
t[j] = '*';
|
|
break;
|
|
case '.':
|
|
t[j++] = '\\';
|
|
t[j] = '.';
|
|
break;
|
|
default:
|
|
t[j] = Z_STRVAL_P(pattern)[i];
|
|
break;
|
|
}
|
|
}
|
|
t[j]=0;
|
|
Z_STRVAL_P(pattern) = t;
|
|
Z_STRLEN_P(pattern) = j;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ php_browscap_parser_cb
|
|
*/
|
|
static void php_browscap_parser_cb(zval *arg1, zval *arg2, int callback_type, void *arg)
|
|
{
|
|
switch (callback_type) {
|
|
case ZEND_INI_PARSER_ENTRY:
|
|
if (current_section) {
|
|
zval *new_property;
|
|
char *new_key;
|
|
|
|
new_property = (zval *) malloc(sizeof(zval));
|
|
INIT_PZVAL(new_property);
|
|
Z_STRVAL_P(new_property) = Z_STRLEN_P(arg2)?zend_strndup(Z_STRVAL_P(arg2), Z_STRLEN_P(arg2)):"";
|
|
Z_STRLEN_P(new_property) = Z_STRLEN_P(arg2);
|
|
Z_TYPE_P(new_property) = IS_STRING;
|
|
|
|
new_key = zend_strndup(Z_STRVAL_P(arg1), Z_STRLEN_P(arg1));
|
|
zend_str_tolower(new_key, Z_STRLEN_P(arg1));
|
|
zend_hash_update(Z_OBJPROP_P(current_section), new_key, Z_STRLEN_P(arg1)+1, &new_property, sizeof(zval *), NULL);
|
|
free(new_key);
|
|
}
|
|
break;
|
|
case ZEND_INI_PARSER_SECTION: {
|
|
zval *processed;
|
|
HashTable *section_properties;
|
|
TSRMLS_FETCH();
|
|
|
|
/*printf("'%s' (%d)\n",$1.value.str.val,$1.value.str.len+1);*/
|
|
current_section = (zval *) malloc(sizeof(zval));
|
|
INIT_PZVAL(current_section);
|
|
processed = (zval *) malloc(sizeof(zval));
|
|
INIT_PZVAL(processed);
|
|
|
|
section_properties = (HashTable *) malloc(sizeof(HashTable));
|
|
_object_and_properties_init(current_section, ZEND_STANDARD_CLASS_DEF_PTR, section_properties ZEND_FILE_LINE_CC TSRMLS_CC);
|
|
|
|
zend_hash_init(section_properties, 0, NULL, (dtor_func_t) browscap_entry_dtor, 1);
|
|
zend_hash_update(&browser_hash, Z_STRVAL_P(arg1), Z_STRLEN_P(arg1)+1, (void *) ¤t_section, sizeof(zval *), NULL);
|
|
|
|
Z_STRVAL_P(processed) = Z_STRVAL_P(arg1);
|
|
Z_STRLEN_P(processed) = Z_STRLEN_P(arg1);
|
|
Z_TYPE_P(processed) = IS_STRING;
|
|
convert_browscap_pattern(processed);
|
|
zend_hash_update(section_properties, "browser_name_pattern", sizeof("browser_name_pattern"), (void *) &processed, sizeof(zval *), NULL);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MINIT_FUNCTION
|
|
*/
|
|
PHP_MINIT_FUNCTION(browscap)
|
|
{
|
|
char *browscap = INI_STR("browscap");
|
|
|
|
if (browscap) {
|
|
zend_file_handle fh;
|
|
|
|
if (zend_hash_init(&browser_hash, 0, NULL, (dtor_func_t) browscap_entry_dtor, 1)==FAILURE) {
|
|
return FAILURE;
|
|
}
|
|
|
|
fh.handle.fp = VCWD_FOPEN(browscap, "r");
|
|
if (!fh.handle.fp) {
|
|
php_error(E_CORE_WARNING, "Cannot open '%s' for reading", browscap);
|
|
return FAILURE;
|
|
}
|
|
fh.filename = browscap;
|
|
Z_TYPE(fh) = ZEND_HANDLE_FP;
|
|
zend_parse_ini_file(&fh, 1, (zend_ini_parser_cb_t) php_browscap_parser_cb, &browser_hash);
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MSHUTDOWN_FUNCTION
|
|
*/
|
|
PHP_MSHUTDOWN_FUNCTION(browscap)
|
|
{
|
|
if (INI_STR("browscap")) {
|
|
zend_hash_destroy(&browser_hash);
|
|
}
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ browser_reg_compare
|
|
*/
|
|
static int browser_reg_compare(zval **browser, int num_args, va_list args, zend_hash_key *key)
|
|
{
|
|
zval **browser_name;
|
|
regex_t r;
|
|
char *lookup_browser_name = va_arg(args, char *);
|
|
zval **found_browser_entry = va_arg(args, zval **);
|
|
|
|
if (*found_browser_entry) { /* already found */
|
|
return 0;
|
|
}
|
|
if(zend_hash_find(Z_OBJPROP_PP(browser), "browser_name_pattern", sizeof("browser_name_pattern"), (void **) &browser_name) == FAILURE) {
|
|
return 0;
|
|
}
|
|
|
|
if (!strchr(Z_STRVAL_PP(browser_name),'*')) {
|
|
return 0;
|
|
}
|
|
if (regcomp(&r, Z_STRVAL_PP(browser_name), REG_NOSUB)!=0) {
|
|
return 0;
|
|
}
|
|
if (regexec(&r, lookup_browser_name, 0, NULL, 0)==0) {
|
|
*found_browser_entry = *browser;
|
|
}
|
|
regfree(&r);
|
|
return 0;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto object get_browser(string browser_name)
|
|
Get information about the capabilities of a browser */
|
|
PHP_FUNCTION(get_browser)
|
|
{
|
|
zval **agent_name, **agent;
|
|
zval *found_browser_entry, *tmp_copy;
|
|
char *lookup_browser_name;
|
|
|
|
if (!INI_STR("browscap")) {
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
switch(ZEND_NUM_ARGS()) {
|
|
case 0:
|
|
if (!PG(http_globals)[TRACK_VARS_SERVER]
|
|
|| zend_hash_find(PG(http_globals)[TRACK_VARS_SERVER]->value.ht, "HTTP_USER_AGENT", sizeof("HTTP_USER_AGENT"), (void **) &agent_name)==FAILURE) {
|
|
zend_error(E_WARNING, "HTTP_USER_AGENT variable is not set, cannot determine user agent name");
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
case 1:
|
|
if (zend_get_parameters_ex(1, &agent_name)==FAILURE) {
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
break;
|
|
}
|
|
|
|
convert_to_string_ex(agent_name);
|
|
|
|
if (zend_hash_find(&browser_hash, Z_STRVAL_PP(agent_name), Z_STRLEN_PP(agent_name)+1, (void **) &agent)==FAILURE) {
|
|
lookup_browser_name = Z_STRVAL_PP(agent_name);
|
|
found_browser_entry = NULL;
|
|
zend_hash_apply_with_arguments(&browser_hash, (apply_func_args_t) browser_reg_compare, 2, lookup_browser_name, &found_browser_entry);
|
|
|
|
if (found_browser_entry) {
|
|
agent = &found_browser_entry;
|
|
} else if (zend_hash_find(&browser_hash, DEFAULT_SECTION_NAME, sizeof(DEFAULT_SECTION_NAME), (void **) &agent)==FAILURE) {
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
|
|
object_init(return_value);
|
|
zend_hash_copy(Z_OBJPROP_P(return_value), Z_OBJPROP_PP(agent), (copy_ctor_func_t) zval_add_ref, (void *) &tmp_copy, sizeof(zval *));
|
|
|
|
while (zend_hash_find(Z_OBJPROP_PP(agent), "parent", sizeof("parent"), (void **) &agent_name)==SUCCESS) {
|
|
|
|
if (zend_hash_find(&browser_hash, Z_STRVAL_PP(agent_name), Z_STRLEN_PP(agent_name)+1, (void **)&agent)==FAILURE) {
|
|
break;
|
|
}
|
|
|
|
zend_hash_merge(Z_OBJPROP_P(return_value), Z_OBJPROP_PP(agent), (copy_ctor_func_t) zval_add_ref, (void *) &tmp_copy, sizeof(zval *), 0);
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
* vim<600: sw=4 ts=4
|
|
*/
|