diff options
Diffstat (limited to 'ext/sybase_ct/php_sybase_ct.c')
-rw-r--r-- | ext/sybase_ct/php_sybase_ct.c | 1575 |
1 files changed, 0 insertions, 1575 deletions
diff --git a/ext/sybase_ct/php_sybase_ct.c b/ext/sybase_ct/php_sybase_ct.c deleted file mode 100644 index 201156e06e..0000000000 --- a/ext/sybase_ct/php_sybase_ct.c +++ /dev/null @@ -1,1575 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | 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: Zeev Suraski <zeev@zend.com> | - | Tom May <tom@go2net.com> | - +----------------------------------------------------------------------+ - */ - -/* $Id$ */ - - -#include "php.h" -#include "php_sybase_ct.h" -#include "ext/standard/php_standard.h" -#include "php_globals.h" - -#if HAVE_SYBASE_CT - - - -function_entry sybase_functions[] = { - PHP_FE(sybase_connect, NULL) - PHP_FE(sybase_pconnect, NULL) - PHP_FE(sybase_close, NULL) - PHP_FE(sybase_select_db, NULL) - PHP_FE(sybase_query, NULL) - PHP_FE(sybase_free_result, NULL) - PHP_FE(sybase_num_rows, NULL) - PHP_FE(sybase_num_fields, NULL) - PHP_FE(sybase_fetch_row, NULL) - PHP_FE(sybase_fetch_array, NULL) - PHP_FE(sybase_fetch_object, NULL) - PHP_FE(sybase_data_seek, NULL) - PHP_FE(sybase_fetch_field, NULL) - PHP_FE(sybase_result, NULL) - PHP_FE(sybase_affected_rows, NULL) - PHP_FE(sybase_min_client_severity, NULL) - PHP_FE(sybase_min_server_severity, NULL) - - PHP_FALIAS(mssql_connect, sybase_connect, NULL) - PHP_FALIAS(mssql_pconnect, sybase_pconnect, NULL) - PHP_FALIAS(mssql_close, sybase_close, NULL) - PHP_FALIAS(mssql_select_db, sybase_select_db, NULL) - PHP_FALIAS(mssql_query, sybase_query, NULL) - PHP_FALIAS(mssql_free_result, sybase_free_result, NULL) - PHP_FALIAS(mssql_num_rows, sybase_num_rows, NULL) - PHP_FALIAS(mssql_num_fields, sybase_num_fields, NULL) - PHP_FALIAS(mssql_fetch_row, sybase_fetch_row, NULL) - PHP_FALIAS(mssql_fetch_array, sybase_fetch_array, NULL) - PHP_FALIAS(mssql_fetch_object, sybase_fetch_object, NULL) - PHP_FALIAS(mssql_data_seek, sybase_data_seek, NULL) - PHP_FALIAS(mssql_fetch_field, sybase_fetch_field, NULL) - PHP_FALIAS(mssql_result, sybase_result, NULL) - PHP_FALIAS(mssql_affected_rows, sybase_affected_rows, NULL) - PHP_FALIAS(mssql_min_client_severity, sybase_min_client_severity, NULL) - PHP_FALIAS(mssql_min_server_severity, sybase_min_server_severity, NULL) - {NULL, NULL, NULL} -}; - -zend_module_entry sybase_module_entry = { - "Sybase SQL - CT", sybase_functions, PHP_MINIT(sybase), PHP_MSHUTDOWN(sybase), PHP_RINIT(sybase), PHP_RSHUTDOWN(sybase), PHP_MINFO(sybase), STANDARD_MODULE_PROPERTIES -}; - -#if COMPILE_DL -zend_module_entry *get_module() { return &sybase_module_entry; } -#endif - -php_sybase_globals sybase_globals; -static CS_CONTEXT *context; -static HashTable *resource_list,*resource_plist; - -#define CHECK_LINK(link) { if (link==-1) { php_error(E_WARNING,"Sybase: A link to the server could not be established"); RETURN_FALSE; } } - - -static int _clean_invalid_results(list_entry *le) -{ - if (le->type == sybase_globals.le_result) { - sybase_link *sybase_ptr = ((sybase_result *) le->ptr)->sybase_ptr; - - if (!sybase_ptr->valid) { - return 1; - } - } - return 0; -} - - -static void _free_sybase_result(sybase_result *result) -{ - int i,j; - - if (result->data) { - for (i=0; i<result->num_rows; i++) { - for (j=0; j<result->num_fields; j++) { - pval_destructor(&result->data[i][j]); - } - efree(result->data[i]); - } - efree(result->data); - } - - if (result->fields) { - for (i=0; i<result->num_fields; i++) { - STR_FREE(result->fields[i].name); - STR_FREE(result->fields[i].column_source); - } - efree(result->fields); - } - - efree(result); -} - - -static void _close_sybase_link(sybase_link *sybase_ptr) -{ - CS_INT con_status; - - sybase_ptr->valid = 0; - zend_hash_apply(resource_list,(int (*)(void *))_clean_invalid_results); - - /* Non-persistent connections will always be connected or we wouldn't - * get here, but since we want to check the death status anyway - * we might as well double-check the connect status. - */ - if (ct_con_props(sybase_ptr->connection, CS_GET, CS_CON_STATUS, - &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to get connection status on close"); - /* Assume the worst. */ - con_status = CS_CONSTAT_CONNECTED | CS_CONSTAT_DEAD; - } - if (con_status & CS_CONSTAT_CONNECTED) { - if ((con_status & CS_CONSTAT_DEAD) || ct_close(sybase_ptr->connection, CS_UNUSED)!=CS_SUCCEED) { - ct_close(sybase_ptr->connection, CS_FORCE_CLOSE); - } - } - - ct_con_drop(sybase_ptr->connection); - efree(sybase_ptr); - sybase_globals.num_links--; -} - - -static void _close_sybase_plink(sybase_link *sybase_ptr) -{ - CS_INT con_status; - - /* Persistent connections may have been closed before a failed - * reopen attempt. - */ - if (ct_con_props(sybase_ptr->connection, CS_GET, CS_CON_STATUS, - &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to get connection status on close"); - /* Assume the worst. */ - con_status = CS_CONSTAT_CONNECTED | CS_CONSTAT_DEAD; - } - if (con_status & CS_CONSTAT_CONNECTED) { - if ((con_status & CS_CONSTAT_DEAD) || ct_close(sybase_ptr->connection, CS_UNUSED)!=CS_SUCCEED) { - ct_close(sybase_ptr->connection, CS_FORCE_CLOSE); - } - } - - ct_con_drop(sybase_ptr->connection); - free(sybase_ptr); - sybase_globals.num_persistent--; - sybase_globals.num_links--; -} - - -static CS_RETCODE _client_message_handler(CS_CONTEXT *context, CS_CONNECTION *connection, CS_CLIENTMSG *errmsg) -{ - if (CS_SEVERITY(errmsg->msgnumber) >= sybase_globals.min_client_severity) { - php_error(E_WARNING,"Sybase: Client message: %s (severity %d)",errmsg->msgstring, CS_SEVERITY(errmsg->msgnumber)); - } - - /* If this is a timeout message, return CS_FAIL to cancel the - * operation and mark the connection as dead. - */ - if (CS_SEVERITY(errmsg->msgnumber) == CS_SV_RETRY_FAIL && - CS_NUMBER(errmsg->msgnumber) == 63 && - CS_ORIGIN(errmsg->msgnumber) == 2 && - CS_LAYER(errmsg->msgnumber) == 1) - { - return CS_FAIL; - } - - return CS_SUCCEED; -} - - -static CS_RETCODE _server_message_handler(CS_CONTEXT *context, CS_CONNECTION *connection, CS_SERVERMSG *srvmsg) -{ - if (srvmsg->severity >= sybase_globals.min_server_severity) { - php_error(E_WARNING,"Sybase: Server message: %s (severity %d, procedure %s)", - srvmsg->text, srvmsg->severity, ((srvmsg->proclen>0) ? srvmsg->proc : "N/A")); - } - - /* If this is a deadlock message, set the connection's deadlock flag - * so we will retry the request. Sorry about the bare constant here, - * but it's not defined anywhere and it's a "well-known" number. - */ - if (srvmsg->msgnumber == 1205) { - sybase_link *sybase; - - if (ct_con_props(connection, CS_GET, CS_USERDATA, &sybase, CS_SIZEOF(sybase), NULL)==CS_SUCCEED) { - sybase->deadlock = 1; - } - else { - /* oh well */ - } - } - - return CS_SUCCEED; -} - - -PHP_MINIT_FUNCTION(sybase) -{ - long timeout; - - if (cs_ctx_alloc(CTLIB_VERSION, &context)!=CS_SUCCEED || ct_init(context,CTLIB_VERSION)!=CS_SUCCEED) { - return FAILURE; - } - /* Initialize message handlers */ - - if (ct_callback(context, NULL, CS_SET, CS_SERVERMSG_CB, (CS_VOID *)_server_message_handler)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set server message handler"); - } - if (ct_callback(context, NULL, CS_SET, CS_CLIENTMSG_CB, (CS_VOID *)_client_message_handler)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set client message handler"); - } - - /* Set datetime conversion format to "Nov 3 1998 8:06PM". - * This is the default format for the ct-lib that comes with - * Sybase ASE 11.5.1 for Solaris, but the Linux libraries that - * come with 11.0.3.3 default to "03/11/98" which is singularly - * useless. This levels the playing field for all platforms. - */ - { - CS_INT dt_convfmt = CS_DATES_SHORT; - if (cs_dt_info(context, CS_SET, NULL, CS_DT_CONVFMT, CS_UNUSED, &dt_convfmt, sizeof(dt_convfmt), NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set datetime conversion format"); - } - } - - /* Set the login and command timeouts. These are per-context and - * can't be set with ct_con_props(), so set them globally from - * their config values if requested. The defaults are 1 minute - * for CS_LOGIN_TIMEOUT and CS_NO_LIMIT for CS_TIMEOUT. The latter - * especially is fairly useless for web applications. - * Note that depite some noise in the documentation about using - * signals to implement timeouts, they are actually implemented - * by using poll() or select() on Solaris and Linux. - */ - if (cfg_get_long("sybase.login_timeout",&timeout)==SUCCESS) { - CS_INT cs_login_timeout = timeout; - if (ct_config(context, CS_SET, CS_LOGIN_TIMEOUT, &cs_login_timeout, CS_UNUSED, NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set login timeoutt"); - } - } - if (cfg_get_long("sybase.timeout",&timeout)==SUCCESS) { - CS_INT cs_timeout = timeout; - if (ct_config(context, CS_SET, CS_TIMEOUT, &cs_timeout, CS_UNUSED, NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set timeout"); - } - } - - if (cfg_get_long("sybase.allow_persistent",&sybase_globals.allow_persistent)==FAILURE) { - sybase_globals.allow_persistent=1; - } - if (cfg_get_long("sybase.max_persistent",&sybase_globals.max_persistent)==FAILURE) { - sybase_globals.max_persistent=-1; - } - if (cfg_get_long("sybase.max_links",&sybase_globals.max_links)==FAILURE) { - sybase_globals.max_links=-1; - } - if (cfg_get_long("sybase.min_server_severity",&sybase_globals.cfg_min_server_severity)==FAILURE) { - sybase_globals.cfg_min_server_severity=10; - } - if (cfg_get_long("sybase.min_client_severity",&sybase_globals.cfg_min_client_severity)==FAILURE) { - sybase_globals.cfg_min_client_severity=10; - } - - if (cfg_get_string("sybase.hostname",&sybase_globals.hostname)==FAILURE - || sybase_globals.hostname[0]==0) { - sybase_globals.hostname=NULL; - } - - sybase_globals.num_persistent=0; - sybase_globals.le_link = register_list_destructors(_close_sybase_link,NULL); - sybase_globals.le_plink = register_list_destructors(NULL,_close_sybase_plink); - sybase_globals.le_result = register_list_destructors(_free_sybase_result,NULL); - - return SUCCESS; -} - - - -PHP_RINIT_FUNCTION(sybase) -{ - sybase_globals.default_link=-1; - sybase_globals.num_links = sybase_globals.num_persistent; - sybase_globals.appname = estrndup("PHP 3.0",7); - sybase_globals.server_message = NULL; - sybase_globals.min_server_severity = sybase_globals.cfg_min_server_severity; - sybase_globals.min_client_severity = sybase_globals.cfg_min_client_severity; - return SUCCESS; -} - - - -PHP_MSHUTDOWN_FUNCTION(sybase) -{ -/* ct_exit(context,CS_UNUSED); - cs_ctx_drop(context); */ - return SUCCESS; -} - - -PHP_RSHUTDOWN_FUNCTION(sybase) -{ - efree(sybase_globals.appname); - if (sybase_globals.server_message) { - efree(sybase_globals.server_message); - } - return SUCCESS; -} - - -static int php_sybase_do_connect_internal(sybase_link *sybase, char *host, char *user, char *passwd) -{ - /* set a CS_CONNECTION record */ - if (ct_con_alloc(context, &sybase->connection)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to allocate connection record"); - return 0; - } - - /* Note - this saves a copy of sybase, not a pointer to it. */ - if (ct_con_props(sybase->connection, CS_SET, CS_USERDATA, &sybase, CS_SIZEOF(sybase), NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to set userdata"); - ct_con_drop(sybase->connection); - return 0; - } - - if (user) { - ct_con_props(sybase->connection, CS_SET, CS_USERNAME, user, CS_NULLTERM, NULL); - } - if (passwd) { - ct_con_props(sybase->connection, CS_SET, CS_PASSWORD, passwd, CS_NULLTERM, NULL); - } - ct_con_props(sybase->connection, CS_SET, CS_APPNAME, sybase_globals.appname, CS_NULLTERM, NULL); - - if (sybase_globals.hostname) { - ct_con_props(sybase->connection, CS_SET, CS_HOSTNAME, sybase_globals.hostname, CS_NULLTERM, NULL); - } - - sybase->valid = 1; - sybase->dead = 0; - - /* create the link */ - if (ct_connect(sybase->connection, host, CS_NULLTERM)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to connect"); - ct_con_drop(sybase->connection); - return 0; - } - - if (ct_cmd_alloc(sybase->connection,&sybase->cmd)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to allocate command record"); - ct_close(sybase->connection,CS_UNUSED); - ct_con_drop(sybase->connection); - return 0; - } - - return 1; -} - - -static void php_sybase_do_connect(INTERNAL_FUNCTION_PARAMETERS,int persistent) -{ - char *user,*passwd,*host; - char *hashed_details; - int hashed_details_length; - sybase_link *sybase_ptr; - - resource_list = list; - resource_plist = plist; - - switch(ARG_COUNT(ht)) { - case 0: /* defaults */ - host=user=passwd=NULL; - hashed_details_length=6+3; - hashed_details = (char *) emalloc(hashed_details_length+1); - strcpy(hashed_details,"sybase___"); - break; - case 1: { - pval *yyhost; - - if (getParameters(ht, 1, &yyhost)==FAILURE) { - RETURN_FALSE; - } - convert_to_string(yyhost); - host = yyhost->value.str.val; - user=passwd=NULL; - hashed_details_length = yyhost->value.str.len+6+3; - hashed_details = (char *) emalloc(hashed_details_length+1); - sprintf(hashed_details,"sybase_%s__",yyhost->value.str.val); - } - break; - case 2: { - pval *yyhost,*yyuser; - - if (getParameters(ht, 2, &yyhost, &yyuser)==FAILURE) { - RETURN_FALSE; - } - convert_to_string(yyhost); - convert_to_string(yyuser); - host = yyhost->value.str.val; - user = yyuser->value.str.val; - passwd=NULL; - hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+6+3; - hashed_details = (char *) emalloc(hashed_details_length+1); - sprintf(hashed_details,"sybase_%s_%s_",yyhost->value.str.val,yyuser->value.str.val); - } - break; - case 3: { - pval *yyhost,*yyuser,*yypasswd; - - if (getParameters(ht, 3, &yyhost, &yyuser, &yypasswd) == FAILURE) { - RETURN_FALSE; - } - convert_to_string(yyhost); - convert_to_string(yyuser); - convert_to_string(yypasswd); - host = yyhost->value.str.val; - user = yyuser->value.str.val; - passwd = yypasswd->value.str.val; - hashed_details_length = yyhost->value.str.len+yyuser->value.str.len+yypasswd->value.str.len+6+3; - hashed_details = (char *) emalloc(hashed_details_length+1); - sprintf(hashed_details,"sybase_%s_%s_%s",yyhost->value.str.val,yyuser->value.str.val,yypasswd->value.str.val); /* SAFE */ - } - break; - default: - WRONG_PARAM_COUNT; - break; - } - - - if (!sybase_globals.allow_persistent) { - persistent=0; - } - if (persistent) { - list_entry *le; - - /* try to find if we already have this link in our persistent list */ - if (zend_hash_find(plist, hashed_details, hashed_details_length+1, (void **) &le)==FAILURE) { /* we don't */ - list_entry new_le; - - if (sybase_globals.max_links!=-1 && sybase_globals.num_links>=sybase_globals.max_links) { - php_error(E_WARNING,"Sybase: Too many open links (%d)",sybase_globals.num_links); - efree(hashed_details); - RETURN_FALSE; - } - if (sybase_globals.max_persistent!=-1 && sybase_globals.num_persistent>=sybase_globals.max_persistent) { - php_error(E_WARNING,"Sybase: Too many open persistent links (%d)",sybase_globals.num_persistent); - efree(hashed_details); - RETURN_FALSE; - } - - sybase_ptr = (sybase_link *) malloc(sizeof(sybase_link)); - if (!php_sybase_do_connect_internal(sybase_ptr, host, user, passwd)) { - free(sybase_ptr); - efree(hashed_details); - RETURN_FALSE; - } - - /* hash it up */ - new_le.type = sybase_globals.le_plink; - new_le.ptr = sybase_ptr; - if (zend_hash_update(plist, hashed_details, hashed_details_length+1, (void *) &new_le, sizeof(list_entry),NULL)==FAILURE) { - ct_close(sybase_ptr->connection, CS_UNUSED); - ct_con_drop(sybase_ptr->connection); - free(sybase_ptr); - efree(hashed_details); - RETURN_FALSE; - } - sybase_globals.num_persistent++; - sybase_globals.num_links++; - } else { /* we do */ - CS_INT con_status; - - if (le->type != sybase_globals.le_plink) { - efree(hashed_details); - RETURN_FALSE; - } - - sybase_ptr = (sybase_link *) le->ptr; - - /* If the link has died, close it and overwrite it with a new one. */ - - if (ct_con_props(sybase_ptr->connection, CS_GET, CS_CON_STATUS, - &con_status, CS_UNUSED, NULL)!=CS_SUCCEED) { - php_error(E_WARNING,"Sybase: Unable to get connection status"); - efree(hashed_details); - RETURN_FALSE; - } - if (!(con_status & CS_CONSTAT_CONNECTED) || (con_status & CS_CONSTAT_DEAD) || sybase_ptr->dead) { - sybase_link sybase; - - if (con_status & CS_CONSTAT_CONNECTED) { - ct_close(sybase_ptr->connection, CS_FORCE_CLOSE); - } - /* Create a new connection, then replace the old - * connection. If we fail to create a new connection, - * put the old one back so there will be a connection, - * even if it is a non-functional one. This is because - * code may still be holding an id for this connection - * so we can't free the CS_CONNECTION. - * (This is actually totally hokey, it would be better - * to just ct_con_drop() the connection and set - * sybase_ptr->connection to NULL, then test it for - * NULL before trying to use it elsewhere . . .) - */ - memcpy(&sybase,sybase_ptr,sizeof(sybase_link)); - if (!php_sybase_do_connect_internal(sybase_ptr, host, user, passwd)) { - memcpy(sybase_ptr,&sybase,sizeof(sybase_link)); - efree(hashed_details); - RETURN_FALSE; - } - ct_con_drop(sybase.connection); /* drop old connection */ - } - } - ZEND_REGISTER_RESOURCE(return_value, sybase_ptr, sybase_globals.le_plink); - } else { /* non persistent */ - list_entry *index_ptr,new_index_ptr; - - /* first we check the hash for the hashed_details key. if it exists, - * it should point us to the right offset where the actual sybase link sits. - * if it doesn't, open a new sybase link, add it to the resource list, - * and add a pointer to it with hashed_details as the key. - */ - if (zend_hash_find(list,hashed_details,hashed_details_length+1,(void **) &index_ptr)==SUCCESS) { - int type,link; - void *ptr; - - if (index_ptr->type != le_index_ptr) { - efree(hashed_details); - RETURN_FALSE; - } - link = (int) index_ptr->ptr; - ptr = zend_list_find(link,&type); /* check if the link is still there */ - if (ptr && (type==sybase_globals.le_link || type==sybase_globals.le_plink)) { - return_value->value.lval = sybase_globals.default_link = link; - return_value->type = IS_LONG; - efree(hashed_details); - return; - } else { - zend_hash_del(list,hashed_details,hashed_details_length+1); - } - } - if (sybase_globals.max_links!=-1 && sybase_globals.num_links>=sybase_globals.max_links) { - php_error(E_WARNING,"Sybase: Too many open links (%d)",sybase_globals.num_links); - efree(hashed_details); - RETURN_FALSE; - } - - sybase_ptr = (sybase_link *) emalloc(sizeof(sybase_link)); - if (!php_sybase_do_connect_internal(sybase_ptr, host, user, passwd)) { - efree(sybase_ptr); - efree(hashed_details); - RETURN_FALSE; - } - - /* add it to the list */ - ZEND_REGISTER_RESOURCE(return_value, sybase_ptr, sybase_globals.le_link); - - /* add it to the hash */ - new_index_ptr.ptr = (void *) return_value->value.lval; - new_index_ptr.type = le_index_ptr; - if (zend_hash_update(list,hashed_details,hashed_details_length+1,(void *) &new_index_ptr, sizeof(list_entry),NULL)==FAILURE) { - ct_close(sybase_ptr->connection, CS_UNUSED); - ct_con_drop(sybase_ptr->connection); - efree(sybase_ptr); - efree(hashed_details); - RETURN_FALSE; - } - sybase_globals.num_links++; - } - efree(hashed_details); - sybase_globals.default_link=return_value->value.lval; -} - - -static int php_sybase_get_default_link(INTERNAL_FUNCTION_PARAMETERS) -{ - if (sybase_globals.default_link==-1) { /* no link opened yet, implicitly open one */ - ht = 0; - php_sybase_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); - } - return sybase_globals.default_link; -} - - -PHP_FUNCTION(sybase_connect) -{ - php_sybase_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,0); -} - -PHP_FUNCTION(sybase_pconnect) -{ - php_sybase_do_connect(INTERNAL_FUNCTION_PARAM_PASSTHRU,1); -} - - -PHP_FUNCTION(sybase_close) -{ - pval *sybase_link_index = 0; - int id; - sybase_link *sybase_ptr; - - switch (ARG_COUNT(ht)) { - case 0: - id = sybase_globals.default_link; - break; - case 1: - if (getParameters(ht, 1, &sybase_link_index)==FAILURE) { - RETURN_FALSE; - } - id = -1; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE2(sybase_ptr, sybase_link *, &sybase_link_index, id, "Sybase-Link", sybase_globals.le_link, sybase_globals.le_plink); - - if (sybase_link_index) { - zend_list_delete(sybase_link_index->value.lval); - } else { - zend_list_delete(id); - } - - RETURN_TRUE; -} - - -static int exec_cmd(sybase_link *sybase_ptr,char *cmdbuf) -{ - CS_RETCODE retcode; - CS_INT restype; - int failure=0; - - /* Fail if we already marked this connection dead. */ - - if (sybase_ptr->dead) { - return FAILURE; - } - - /* - ** Get a command handle, store the command string in it, and - ** send it to the server. - */ - - if (ct_command(sybase_ptr->cmd, CS_LANG_CMD, cmdbuf, CS_NULLTERM, CS_UNUSED)!=CS_SUCCEED) { - sybase_ptr->dead = 1; - return FAILURE; - } - if (ct_send(sybase_ptr->cmd)!=CS_SUCCEED) { - sybase_ptr->dead = 1; - return FAILURE; - } - - while ((retcode = ct_results(sybase_ptr->cmd, &restype))==CS_SUCCEED) { - switch ((int) restype) { - case CS_CMD_SUCCEED: - case CS_CMD_DONE: - break; - - case CS_CMD_FAIL: - failure=1; - break; - - case CS_STATUS_RESULT: - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_CURRENT); - break; - - default: - failure=1; - break; - } - if (failure) { - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - return FAILURE; - } - } - - switch (retcode) { - case CS_END_RESULTS: - return SUCCESS; - break; - - case CS_FAIL: - /* Hopefully this either cleans up the connection, or the - * connection ends up marked dead so it will be reopened - * if it is persistent. We may want to do - * ct_close(CS_FORCE_CLOSE) if ct_cancel() fails; see the - * doc for ct_results()==CS_FAIL. - */ - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - /* Don't take chances with the vagaries of ct-lib. Mark it - * dead ourselves. - */ - sybase_ptr->dead = 1; - return FAILURE; - - default: - return FAILURE; - } -} - - -PHP_FUNCTION(sybase_select_db) -{ - pval *db,*sybase_link_index; - int id; - char *cmdbuf; - sybase_link *sybase_ptr; - - switch(ARG_COUNT(ht)) { - case 1: - if (getParameters(ht, 1, &db)==FAILURE) { - RETURN_FALSE; - } - id = php_sybase_get_default_link(INTERNAL_FUNCTION_PARAM_PASSTHRU); - CHECK_LINK(id); - break; - case 2: - if (getParameters(ht, 2, &db, &sybase_link_index)==FAILURE) { - RETURN_FALSE; - } - id = -1; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE2(sybase_ptr, sybase_link *, &sybase_link_index, id, "Sybase-Link", sybase_globals.le_link, sybase_globals.le_plink); - - convert_to_string(db); - cmdbuf = (char *) emalloc(sizeof("use ")+db->value.str.len+1); - sprintf(cmdbuf,"use %s",db->value.str.val); /* SAFE */ - - if (exec_cmd(sybase_ptr,cmdbuf)==FAILURE) { - efree(cmdbuf); - RETURN_FALSE; - } else { - efree(cmdbuf); - RETURN_TRUE; - } -} - - -static sybase_result * php_sybase_fetch_result_set (sybase_link *sybase_ptr) -{ - int num_fields; - sybase_result *result; - char **tmp_buffer; - CS_INT *lengths; - CS_SMALLINT *indicators; - unsigned char *numerics; - CS_INT *types; - CS_DATAFMT *datafmt; - int i,j,retcode; - int blocks_initialized=1; - - /* The following is more or less the equivalent of mysql_store_result(). - * fetch all rows from the server into the row buffer, thus: - * 1) Being able to fire up another query without explicitly reading all rows - * 2) Having numrows accessible - */ - - if (ct_res_info(sybase_ptr->cmd, CS_NUMDATA, &num_fields, CS_UNUSED, NULL)!=CS_SUCCEED) { - return NULL; - } - - result = (sybase_result *) emalloc(sizeof(sybase_result)); - result->data = (pval **) emalloc(sizeof(pval *)*SYBASE_ROWS_BLOCK); - result->fields = NULL; - result->sybase_ptr = sybase_ptr; - result->cur_field=result->cur_row=result->num_rows=0; - result->num_fields = num_fields; - - tmp_buffer = (char **) emalloc(sizeof(char *)*num_fields); - lengths = (CS_INT *) emalloc(sizeof(CS_INT)*num_fields); - indicators = (CS_SMALLINT *) emalloc(sizeof(CS_INT)*num_fields); - datafmt = (CS_DATAFMT *) emalloc(sizeof(CS_DATAFMT)*num_fields); - numerics = (unsigned char *) emalloc(sizeof(unsigned char)*num_fields); - types = (CS_INT *) emalloc(sizeof(CS_INT)*num_fields); - - - for (i=0; i<num_fields; i++) { - ct_describe(sybase_ptr->cmd,i+1,&datafmt[i]); - types[i] = datafmt[i].datatype; - switch (datafmt[i].datatype) { - case CS_CHAR_TYPE: - case CS_VARCHAR_TYPE: - case CS_TEXT_TYPE: - case CS_IMAGE_TYPE: - datafmt[i].maxlength++; - numerics[i] = 0; - break; - case CS_BINARY_TYPE: - case CS_VARBINARY_TYPE: - datafmt[i].maxlength *= 2; - datafmt[i].maxlength++; - numerics[i] = 0; - break; - case CS_BIT_TYPE: - case CS_TINYINT_TYPE: - datafmt[i].maxlength = 4; - numerics[i] = 1; - break; - case CS_SMALLINT_TYPE: - datafmt[i].maxlength = 7; - numerics[i] = 1; - break; - case CS_INT_TYPE: - datafmt[i].maxlength = 12; - numerics[i] = 1; - break; - case CS_REAL_TYPE: - case CS_FLOAT_TYPE: - datafmt[i].maxlength = 24; - numerics[i] = 1; - break; - case CS_MONEY_TYPE: - case CS_MONEY4_TYPE: - datafmt[i].maxlength = 24; - numerics[i] = 0; - break; - case CS_DATETIME_TYPE: - case CS_DATETIME4_TYPE: - datafmt[i].maxlength = 30; - numerics[i] = 0; - break; - case CS_NUMERIC_TYPE: - case CS_DECIMAL_TYPE: - datafmt[i].maxlength = datafmt[i].precision + 3; - numerics[i] = 1; - break; - default: - datafmt[i].maxlength++; - numerics[i] = 0; - break; - } - tmp_buffer[i] = (char *)emalloc(datafmt[i].maxlength); - datafmt[i].datatype = CS_CHAR_TYPE; - datafmt[i].format = CS_FMT_NULLTERM; - ct_bind(sybase_ptr->cmd,i+1,&datafmt[i],tmp_buffer[i],&lengths[i],&indicators[i]); - } - - while ((retcode=ct_fetch(sybase_ptr->cmd,CS_UNUSED,CS_UNUSED,CS_UNUSED,NULL))==CS_SUCCEED - || retcode==CS_ROW_FAIL) { - /* - if (retcode==CS_ROW_FAIL) { - php_error(E_WARNING,"Sybase: Error reading row %d",result->num_rows); - } - */ - i = result->num_rows++; - if (result->num_rows > blocks_initialized*SYBASE_ROWS_BLOCK) { - result->data = (pval **) erealloc(result->data,sizeof(pval *)*SYBASE_ROWS_BLOCK*(++blocks_initialized)); - } - result->data[i] = (pval *) emalloc(sizeof(pval)*num_fields); - for (j=0; j<num_fields; j++) { - if (indicators[j] == -1) { /* null value */ - var_reset(&result->data[i][j]); - } else { - result->data[i][j].value.str.len = lengths[j]-1; /* we don't need the NULL in the length */ - result->data[i][j].value.str.val = estrndup(tmp_buffer[j],lengths[j]); - result->data[i][j].type = IS_STRING; - } - } - } - - if (retcode != CS_END_DATA) { - _free_sybase_result(result); - result = NULL; - } else { - result->fields = (sybase_field *) emalloc(sizeof(sybase_field)*num_fields); - j=0; - for (i=0; i<num_fields; i++) { - char computed_buf[16]; - - if (datafmt[i].namelen>0) { - result->fields[i].name = estrndup(datafmt[i].name,datafmt[i].namelen); - } else { - if (j>0) { - snprintf(computed_buf,16,"computed%d",j); - } else { - strcpy(computed_buf,"computed"); - } - result->fields[i].name = estrdup(computed_buf); - j++; - } - result->fields[i].column_source = empty_string; - result->fields[i].max_length = datafmt[i].maxlength-1; - result->fields[i].numeric = numerics[i]; - result->fields[i].type = types[i]; - } - } - - efree(datafmt); - efree(lengths); - efree(indicators); - efree(numerics); - efree(types); - for (i=0; i<num_fields; i++) { - efree(tmp_buffer[i]); - } - efree(tmp_buffer); - - return result; -} - - -PHP_FUNCTION(sybase_query) -{ - pval *query,*sybase_link_index; - int id; - sybase_link *sybase_ptr; - sybase_result *result; - CS_INT restype; - CS_RETCODE retcode; - enum { - Q_RESULT, /* Success with results. */ - Q_SUCCESS, /* Success but no results. */ - Q_FAILURE, /* Failure, no results. */ - } status; - - switch(ARG_COUNT(ht)) { - case 1: - if (getParameters(ht, 1, &query)==FAILURE) { - RETURN_FALSE; - } - id = sybase_globals.default_link; - break; - case 2: - if (getParameters(ht, 2, &query, &sybase_link_index)==FAILURE) { - RETURN_FALSE; - } - id = -1; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE2(sybase_ptr, sybase_link *, &sybase_link_index, id, "Sybase-Link", sybase_globals.le_link, sybase_globals.le_plink); - - convert_to_string(query); - - /* Fail if we already marked this connection dead. */ - - if (sybase_ptr->dead) { - RETURN_FALSE; - } - - /* Repeat until we don't deadlock. */ - - for (;;) { - result = NULL; - sybase_ptr->deadlock = 0; - sybase_ptr->affected_rows = 0; - - /* On Solaris 11.5, ct_command() can be moved outside the - * loop, but not on Linux 11.0. - */ - if (ct_command(sybase_ptr->cmd, CS_LANG_CMD, query->value.str.val, CS_NULLTERM, CS_UNUSED)!=CS_SUCCEED) { - /* If this didn't work, the connection is screwed but - * ct-lib might not set CS_CONSTAT_DEAD. So set our own - * flag. This happens sometimes when the database is restarted - * and/or its machine is rebooted, and ct_command() returns - * CS_BUSY for some reason. - */ - sybase_ptr->dead = 1; - RETURN_FALSE; - } - - if (ct_send(sybase_ptr->cmd)!=CS_SUCCEED) { - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - sybase_ptr->dead = 1; - RETURN_FALSE; - } - - /* Use the first result set or succeed/fail status and discard the - * others. Applications really shouldn't be making calls that - * return multiple result sets, but if they do then we need to - * properly read or cancel them or the connection will become - * unusable. - */ - if (ct_results(sybase_ptr->cmd, &restype)!=CS_SUCCEED) { - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - sybase_ptr->dead = 1; - RETURN_FALSE; - } - - switch ((int) restype) { - case CS_CMD_FAIL: - default: - status = Q_FAILURE; - break; - case CS_CMD_SUCCEED: - case CS_CMD_DONE: { - CS_INT row_count; - if (ct_res_info(sybase_ptr->cmd, CS_ROW_COUNT, &row_count, CS_UNUSED, NULL)==CS_SUCCEED) { - sybase_ptr->affected_rows = (long)row_count; - } - } - /* Fall through */ - case CS_COMPUTEFMT_RESULT: - case CS_ROWFMT_RESULT: - case CS_DESCRIBE_RESULT: - case CS_MSG_RESULT: - status = Q_SUCCESS; - break; - case CS_COMPUTE_RESULT: - case CS_CURSOR_RESULT: - case CS_PARAM_RESULT: - case CS_ROW_RESULT: - case CS_STATUS_RESULT: - result = php_sybase_fetch_result_set(sybase_ptr); - if (result == NULL) { - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - sybase_ptr->dead = 1; - RETURN_FALSE; - } - status = Q_RESULT; - break; - } - - /* The only restype we should get now is CS_CMD_DONE, possibly - * followed by a CS_STATUS_RESULT/CS_CMD_SUCCEED/CS_CMD_DONE - * sequence if the command was a stored procedure call. But we - * still need to read and discard unexpected results. We might - * want to return a failure in this case because the application - * won't be getting all the results it asked for. - */ - while ((retcode = ct_results(sybase_ptr->cmd, &restype))==CS_SUCCEED) { - switch ((int) restype) { - case CS_CMD_SUCCEED: - case CS_CMD_DONE: - break; - - case CS_CMD_FAIL: - status = Q_FAILURE; - break; - - case CS_COMPUTE_RESULT: - case CS_CURSOR_RESULT: - case CS_PARAM_RESULT: - case CS_ROW_RESULT: - /* Unexpected results, cancel them. */ - case CS_STATUS_RESULT: - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_CURRENT); - break; - - default: - status = Q_FAILURE; - break; - } - if (status == Q_FAILURE) { - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - } - } - - switch (retcode) { - case CS_END_RESULTS: - /* Normal. */ - break; - - case CS_FAIL: - /* Hopefully this either cleans up the connection, or the - * connection ends up marked dead so it will be reopened - * if it is persistent. We may want to do - * ct_close(CS_FORCE_CLOSE) if ct_cancel() fails; see the - * doc for ct_results()==CS_FAIL. - */ - ct_cancel(NULL, sybase_ptr->cmd, CS_CANCEL_ALL); - /* Don't take chances with the vagaries of ct-lib. Mark it - * dead ourselves. - */ - sybase_ptr->dead = 1; - case CS_CANCELED: - default: - status = Q_FAILURE; - break; - } - - /* If query completed without deadlock, break out of the loop. - * Sometimes deadlock results in failures and sometimes not, - * it seems to depend on the server flavor. But we want to - * retry all deadlocks. - */ - if (sybase_ptr->dead || sybase_ptr->deadlock == 0) { - break; - } - - /* Get rid of any results we may have fetched. This happens: - * e.g., our result set may be a stored procedure status which - * is returned even if the stored procedure deadlocks. As an - * optimization, we could try not to fetch results in known - * deadlock conditions, but deadlock is (should be) rare. - */ - if (result != NULL) { - _free_sybase_result(result); - } - } - - if (status == Q_SUCCESS) { - RETURN_TRUE; - } - - if (status == Q_FAILURE) { - if (result != NULL) { - _free_sybase_result(result); - } - RETURN_FALSE; - } - - ZEND_REGISTER_RESOURCE(return_value, result, sybase_globals.le_result); -} - - -PHP_FUNCTION(sybase_free_result) -{ - pval *sybase_result_index; - sybase_result *result; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { - WRONG_PARAM_COUNT; - } - - if (sybase_result_index->type==IS_RESOURCE - && sybase_result_index->value.lval==0) { - RETURN_FALSE; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - zend_list_delete(sybase_result_index->value.lval); - RETURN_TRUE; -} - - -#if 0 -PHP_FUNCTION(sybase_get_last_message) -{ - if (sybase_globals.server_message) { - RETURN_STRING(sybase_globals.server_message,1); - } -} -#endif - - -PHP_FUNCTION(sybase_num_rows) -{ - pval *sybase_result_index; - sybase_result *result; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - return_value->value.lval = result->num_rows; - return_value->type = IS_LONG; -} - - -PHP_FUNCTION(sybase_num_fields) -{ - pval *sybase_result_index; - sybase_result *result; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - return_value->value.lval = result->num_fields; - return_value->type = IS_LONG; -} - - -PHP_FUNCTION(sybase_fetch_row) -{ - pval *sybase_result_index; - int i; - sybase_result *result; - pval *field_content; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - if (result->cur_row >= result->num_rows) { - RETURN_FALSE; - } - - array_init(return_value); - for (i=0; i<result->num_fields; i++) { - field_content = (pval *) emalloc(sizeof(pval)); - *field_content = result->data[result->cur_row][i]; - INIT_PZVAL(field_content); - pval_copy_constructor(field_content); - zend_hash_index_update(return_value->value.ht, i, (void *) &field_content, sizeof(pval* ), NULL); - } - result->cur_row++; -} - - -static void php_sybase_fetch_hash(INTERNAL_FUNCTION_PARAMETERS) -{ - pval *sybase_result_index; - sybase_result *result; - int i; - pval *tmp; - PLS_FETCH(); - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &sybase_result_index)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - if (result->cur_row >= result->num_rows) { - RETURN_FALSE; - } - - if (array_init(return_value)==FAILURE) { - RETURN_FALSE; - } - - for (i=0; i<result->num_fields; i++) { - tmp = (pval *) emalloc(sizeof(pval)); - *tmp = result->data[result->cur_row][i]; - INIT_PZVAL(tmp); - if (PG(magic_quotes_runtime) && tmp->type == IS_STRING) { - tmp->value.str.val = php_addslashes(tmp->value.str.val,tmp->value.str.len,&tmp->value.str.len,0); - } else { - pval_copy_constructor(tmp); - } - zend_hash_index_update(return_value->value.ht, i, (void *) &tmp, sizeof(pval *), NULL); - tmp->refcount++; - zend_hash_update(return_value->value.ht, result->fields[i].name, strlen(result->fields[i].name)+1, (void *) &tmp, sizeof(pval *), NULL); - } - result->cur_row++; -} - - -PHP_FUNCTION(sybase_fetch_object) -{ - php_sybase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); - if (return_value->type==IS_ARRAY) { - return_value->type=IS_OBJECT; - return_value->value.obj.properties = return_value->value.ht; - return_value->value.obj.ce = &zend_standard_class_def; - } -} - - -PHP_FUNCTION(sybase_fetch_array) -{ - php_sybase_fetch_hash(INTERNAL_FUNCTION_PARAM_PASSTHRU); -} - -PHP_FUNCTION(sybase_data_seek) -{ - pval *sybase_result_index,*offset; - sybase_result *result; - - if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { - WRONG_PARAM_COUNT; - } - - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - convert_to_long(offset); - if (offset->value.lval<0 || offset->value.lval>=result->num_rows) { - php_error(E_WARNING,"Sybase: Bad row offset"); - RETURN_FALSE; - } - - result->cur_row = offset->value.lval; - RETURN_TRUE; -} - - -static char *php_sybase_get_field_name(CS_INT type) -{ - switch (type) { - case CS_CHAR_TYPE: - case CS_VARCHAR_TYPE: - case CS_TEXT_TYPE: - return "string"; - break; - case CS_IMAGE_TYPE: - return "image"; - break; - case CS_BINARY_TYPE: - case CS_VARBINARY_TYPE: - return "blob"; - break; - case CS_BIT_TYPE: - return "bit"; - break; - case CS_TINYINT_TYPE: - case CS_SMALLINT_TYPE: - case CS_INT_TYPE: - return "int"; - break; - case CS_REAL_TYPE: - case CS_FLOAT_TYPE: - case CS_NUMERIC_TYPE: - case CS_DECIMAL_TYPE: - return "real"; - break; - case CS_MONEY_TYPE: - case CS_MONEY4_TYPE: - return "money"; - break; - case CS_DATETIME_TYPE: - case CS_DATETIME4_TYPE: - return "datetime"; - break; - default: - return "unknown"; - break; - } -} - - -PHP_FUNCTION(sybase_fetch_field) -{ - pval *sybase_result_index,*offset; - int field_offset; - sybase_result *result; - - switch (ARG_COUNT(ht)) { - case 1: - if (getParameters(ht, 1, &sybase_result_index)==FAILURE) { - RETURN_FALSE; - } - field_offset=-1; - break; - case 2: - if (getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { - RETURN_FALSE; - } - convert_to_long(offset); - field_offset = offset->value.lval; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - if (field_offset==-1) { - field_offset = result->cur_field; - result->cur_field++; - } - - if (field_offset<0 || field_offset >= result->num_fields) { - if (ARG_COUNT(ht)==2) { /* field specified explicitly */ - php_error(E_WARNING,"Sybase: Bad column offset"); - } - RETURN_FALSE; - } - - if (object_init(return_value)==FAILURE) { - RETURN_FALSE; - } - add_property_string(return_value, "name",result->fields[field_offset].name, 1); - add_property_long(return_value, "max_length",result->fields[field_offset].max_length); - add_property_string(return_value, "column_source",result->fields[field_offset].column_source, 1); - add_property_long(return_value, "numeric", result->fields[field_offset].numeric); - add_property_string(return_value, "type", php_sybase_get_field_name(result->fields[field_offset].type), 1); -} - - -PHP_FUNCTION(sybase_field_seek) -{ - pval *sybase_result_index,*offset; - int field_offset; - sybase_result *result; - - if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &sybase_result_index, &offset)==FAILURE) { - WRONG_PARAM_COUNT; - } - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - convert_to_long(offset); - field_offset = offset->value.lval; - - if (field_offset<0 || field_offset >= result->num_fields) { - php_error(E_WARNING,"Sybase: Bad column offset"); - RETURN_FALSE; - } - - result->cur_field = field_offset; - RETURN_TRUE; -} - - -PHP_FUNCTION(sybase_result) -{ - pval *row, *field, *sybase_result_index; - int field_offset=0; - sybase_result *result; - - - if (ARG_COUNT(ht)!=3 || getParameters(ht, 3, &sybase_result_index, &row, &field)==FAILURE) { - WRONG_PARAM_COUNT; - } - - - ZEND_FETCH_RESOURCE(result, sybase_result *, &sybase_result_index, -1, "Sybase result", sybase_globals.le_result); - - convert_to_long(row); - if (row->value.lval<0 || row->value.lval>=result->num_rows) { - php_error(E_WARNING,"Sybase: Bad row offset (%d)",row->value.lval); - RETURN_FALSE; - } - - switch(field->type) { - case IS_STRING: { - int i; - - for (i=0; i<result->num_fields; i++) { - if (!strcasecmp(result->fields[i].name,field->value.str.val)) { - field_offset = i; - break; - } - } - if (i>=result->num_fields) { /* no match found */ - php_error(E_WARNING,"Sybase: %s field not found in result",field->value.str.val); - RETURN_FALSE; - } - break; - } - default: - convert_to_long(field); - field_offset = field->value.lval; - if (field_offset<0 || field_offset>=result->num_fields) { - php_error(E_WARNING,"Sybase: Bad column offset specified"); - RETURN_FALSE; - } - break; - } - - *return_value = result->data[row->value.lval][field_offset]; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(sybase_affected_rows) -{ - pval *sybase_link_index; - sybase_link *sybase_ptr; - int id; - - switch(ARG_COUNT(ht)) { - case 0: - id = php_sybase_get_default_link(INTERNAL_FUNCTION_PARAM_PASSTHRU); - break; - case 1: - if (getParameters(ht, 1, &sybase_link_index)==FAILURE) { - RETURN_FALSE; - } - id = -1; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - - - ZEND_FETCH_RESOURCE2(sybase_ptr, sybase_link *, &sybase_link_index, id, "Sybase-Link", sybase_globals.le_link, sybase_globals.le_plink); - - return_value->value.lval = sybase_ptr->affected_rows; - return_value->type = IS_LONG; -} - - -PHP_MINFO_FUNCTION(sybase) -{ - char maxp[16],maxl[16]; - - if (sybase_globals.max_persistent==-1) { - strcpy(maxp,"Unlimited"); - } else { - snprintf(maxp,15,"%ld",sybase_globals.max_persistent); - maxp[15]=0; - } - if (sybase_globals.max_links==-1) { - strcpy(maxl,"Unlimited"); - } else { - snprintf(maxl,15,"%ld",sybase_globals.max_links); - maxl[15]=0; - } - php_printf("<table cellpadding=5>" - "<tr><td>Allow persistent links:</td><td>%s</td></tr>\n" - "<tr><td>Persistent links:</td><td>%d/%s</td></tr>\n" - "<tr><td>Total links:</td><td>%d/%s</td></tr>\n" - "<tr><td>Application name:</td><td>%s</td></tr>\n" - "</table>\n", - (sybase_globals.allow_persistent?"Yes":"No"), - sybase_globals.num_persistent,maxp, - sybase_globals.num_links,maxl, - sybase_globals.appname); -} - - -PHP_FUNCTION(sybase_min_client_severity) -{ - pval *severity; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(severity); - sybase_globals.min_client_severity = severity->value.lval; -} - - -PHP_FUNCTION(sybase_min_server_severity) -{ - pval *severity; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &severity)==FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(severity); - sybase_globals.min_server_severity = severity->value.lval; -} - - -#endif - -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * End: - */ |