2001-03-23 11:50:04 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2004-01-08 08:18:22 +00:00
|
|
|
| PHP Version 5 |
|
2001-03-23 11:50:04 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2004-01-08 08:18:22 +00:00
|
|
|
| Copyright (c) 1997-2004 The PHP Group |
|
2001-03-23 11:50:04 +00:00
|
|
|
+----------------------------------------------------------------------+
|
2003-06-10 20:04:29 +00:00
|
|
|
| This source file is subject to version 3.0 of the PHP license, |
|
2001-03-23 11:50:04 +00:00
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
| available through the world-wide-web at the following url: |
|
|
|
|
| http://www.php.net/license/3_0.txt. |
|
2001-03-23 13:40:12 +00:00
|
|
|
| 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. |
|
2001-03-23 11:50:04 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Author : Rui Hirokawa <hirokawa@php.net> |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
2001-08-07 19:09:58 +00:00
|
|
|
/* $Id$ */
|
|
|
|
|
2001-03-23 11:50:04 +00:00
|
|
|
#include "dbx.h"
|
|
|
|
#include "php_dbx.h"
|
|
|
|
#include "dbx_pgsql.h"
|
|
|
|
#include <string.h>
|
2001-04-18 12:34:52 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
#define PGSQL_ASSOC 1<<0
|
|
|
|
#define PGSQL_NUM 1<<1
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_connect(zval **rv, zval **host, zval **db, zval **username, zval **password, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns connection handle as resource on success or 0 as long on failure */
|
|
|
|
int nargs=5;
|
2001-03-23 11:50:04 +00:00
|
|
|
char *port="5432", *connstring=NULL;
|
2001-08-17 13:56:29 +00:00
|
|
|
zval **args[5], *rarg = NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
zval *conn_zval = NULL;
|
2001-08-17 13:56:29 +00:00
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
|
|
|
MAKE_STD_ZVAL(conn_zval);
|
2001-08-17 13:56:29 +00:00
|
|
|
ZVAL_LONG(conn_zval, 0);
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2002-02-13 11:09:48 +00:00
|
|
|
if (Z_STRLEN_PP(username)>0) {
|
2001-03-23 11:50:04 +00:00
|
|
|
int len;
|
|
|
|
|
|
|
|
len = Z_STRLEN_PP(host)+Z_STRLEN_PP(db)+strlen(port);
|
2002-02-13 11:09:48 +00:00
|
|
|
len += Z_STRLEN_PP(username)+Z_STRLEN_PP(password)+45;
|
2001-03-23 11:50:04 +00:00
|
|
|
connstring = (char *)emalloc(len+1);
|
2002-02-13 11:09:48 +00:00
|
|
|
sprintf(connstring, "host='%s' port='%s' dbname='%s' user='%s' password='%s'",
|
2001-08-11 16:39:07 +00:00
|
|
|
Z_STRVAL_PP(host), port, Z_STRVAL_PP(db),
|
2001-03-23 11:50:04 +00:00
|
|
|
Z_STRVAL_PP(username), Z_STRVAL_PP(password));
|
2002-02-13 13:11:36 +00:00
|
|
|
ZVAL_STRING(conn_zval, connstring, 0);
|
2001-03-23 11:50:04 +00:00
|
|
|
args[0] = &conn_zval;
|
|
|
|
nargs = 1;
|
|
|
|
} else {
|
|
|
|
int k;
|
|
|
|
|
|
|
|
args[0] = host;
|
|
|
|
for (k=1;k<4;k++){
|
|
|
|
MAKE_STD_ZVAL(rarg);
|
|
|
|
ZVAL_EMPTY_STRING(rarg);
|
|
|
|
args[k] = &rarg;
|
|
|
|
}
|
|
|
|
args[4] = db;
|
|
|
|
}
|
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_connect", &returned_zval, nargs, args);
|
2002-02-13 13:11:36 +00:00
|
|
|
zval_dtor(conn_zval);
|
|
|
|
FREE_ZVAL(conn_zval);
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_RESOURCE) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_pconnect(zval **rv, zval **host, zval **db, zval **username, zval **password, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns persistent connection handle as resource on success or 0 as long on failure */
|
|
|
|
int nargs=5;
|
2001-03-23 11:50:04 +00:00
|
|
|
char *port="5432", *connstring=NULL;
|
2001-08-17 13:56:29 +00:00
|
|
|
zval **args[5], *rarg = NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
zval *conn_zval = NULL;
|
2001-08-17 13:56:29 +00:00
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
|
|
|
MAKE_STD_ZVAL(conn_zval);
|
2001-08-17 13:56:29 +00:00
|
|
|
ZVAL_LONG(conn_zval, 0);
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2002-02-13 11:09:48 +00:00
|
|
|
if (Z_STRLEN_PP(username)>0) {
|
2001-03-23 11:50:04 +00:00
|
|
|
int len;
|
|
|
|
|
|
|
|
len = Z_STRLEN_PP(host)+Z_STRLEN_PP(db)+strlen(port);
|
2002-02-13 11:09:48 +00:00
|
|
|
len += Z_STRLEN_PP(username)+Z_STRLEN_PP(password)+45;
|
2001-03-23 11:50:04 +00:00
|
|
|
connstring = (char *)emalloc(len+1);
|
2002-02-13 11:09:48 +00:00
|
|
|
sprintf(connstring, "host='%s' port='%s' dbname='%s' user='%s' password='%s'",
|
2001-08-11 16:39:07 +00:00
|
|
|
Z_STRVAL_PP(host), port, Z_STRVAL_PP(db),
|
2001-03-23 11:50:04 +00:00
|
|
|
Z_STRVAL_PP(username), Z_STRVAL_PP(password));
|
2002-02-13 13:11:36 +00:00
|
|
|
ZVAL_STRING(conn_zval, connstring, 0);
|
2001-03-23 11:50:04 +00:00
|
|
|
args[0] = &conn_zval;
|
|
|
|
nargs = 1;
|
|
|
|
} else {
|
|
|
|
int k;
|
|
|
|
|
|
|
|
args[0] = host;
|
|
|
|
for (k=1;k<4;k++){
|
|
|
|
MAKE_STD_ZVAL(rarg);
|
|
|
|
ZVAL_EMPTY_STRING(rarg);
|
|
|
|
args[k] = &rarg;
|
|
|
|
}
|
|
|
|
args[4] = db;
|
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_pconnect", &returned_zval, nargs, args);
|
2002-02-13 13:11:36 +00:00
|
|
|
zval_dtor(conn_zval);
|
|
|
|
FREE_ZVAL(conn_zval);
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_RESOURCE) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_close(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns 1 as long on success or 0 as long on failure */
|
|
|
|
int number_of_arguments=1;
|
|
|
|
zval **arguments[1];
|
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
arguments[0]=dbx_handle;
|
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_close", &returned_zval, number_of_arguments, arguments);
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_BOOL) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_query(zval **rv, zval **dbx_handle, zval **db_name, zval **sql_statement, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns 1 as long or a result identifier as resource on success
|
2001-03-23 11:50:04 +00:00
|
|
|
or 0 as long on failure */
|
2001-08-17 13:56:29 +00:00
|
|
|
int nargs=2;
|
|
|
|
zval **args[2];
|
2002-02-13 11:09:48 +00:00
|
|
|
zval *returned_zval=NULL;
|
2001-08-17 13:56:29 +00:00
|
|
|
|
|
|
|
/* db_name is not used in this function */
|
|
|
|
args[0]=dbx_handle;
|
|
|
|
args[1]=sql_statement;
|
2004-05-06 12:22:14 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_query", &returned_zval, nargs, args);
|
2001-08-17 13:56:29 +00:00
|
|
|
/* pg_query returns a bool for success or failure,
|
2001-03-23 11:50:04 +00:00
|
|
|
or a result_identifier for select statements */
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || (Z_TYPE_P(returned_zval)!=IS_BOOL && Z_TYPE_P(returned_zval)!=IS_RESOURCE)) {
|
2001-03-23 11:50:04 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_getcolumncount(zval **rv, zval **result_handle, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns column-count as long on success or 0 as long on failure */
|
|
|
|
int number_of_arguments=1;
|
|
|
|
zval **arguments[1];
|
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
arguments[0]=result_handle;
|
2004-05-06 12:22:14 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_num_fields", &returned_zval, number_of_arguments, arguments);
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_LONG) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
|
|
|
}
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_getcolumnname(zval **rv, zval **result_handle, long column_index, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns column-name as string on success or 0 as long on failure */
|
|
|
|
int number_of_arguments=2;
|
|
|
|
zval **arguments[2];
|
|
|
|
zval *zval_column_index;
|
|
|
|
zval *returned_zval=NULL;
|
|
|
|
|
|
|
|
MAKE_STD_ZVAL(zval_column_index);
|
|
|
|
ZVAL_LONG(zval_column_index, column_index);
|
|
|
|
arguments[0]=result_handle;
|
|
|
|
arguments[1]=&zval_column_index;
|
2004-05-06 12:22:14 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_field_name", &returned_zval, number_of_arguments, arguments);
|
2001-08-17 13:56:29 +00:00
|
|
|
/* pg_fieldname returns a string */
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_STRING) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
FREE_ZVAL(zval_column_index);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
FREE_ZVAL(zval_column_index);
|
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
|
|
|
}
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_getcolumntype(zval **rv, zval **result_handle, long column_index, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns column-type as string on success or 0 as long on failure */
|
|
|
|
int number_of_arguments=2;
|
|
|
|
zval **arguments[2];
|
|
|
|
zval *zval_column_index;
|
|
|
|
zval *returned_zval=NULL;
|
|
|
|
|
|
|
|
MAKE_STD_ZVAL(zval_column_index);
|
|
|
|
ZVAL_LONG(zval_column_index, column_index);
|
|
|
|
arguments[0]=result_handle;
|
|
|
|
arguments[1]=&zval_column_index;
|
2004-05-06 12:22:14 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_field_type", &returned_zval, number_of_arguments, arguments);
|
2001-08-17 13:56:29 +00:00
|
|
|
/* pg_fieldtype returns a string */
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_STRING) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
FREE_ZVAL(zval_column_index);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
FREE_ZVAL(zval_column_index);
|
2001-06-05 13:39:09 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_getrow(zval **rv, zval **result_handle, long row_number, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns array[0..columncount-1] as strings on success or 0 as long on failure */
|
2003-02-19 13:32:27 +00:00
|
|
|
int number_of_arguments=1;
|
|
|
|
zval **arguments[1];
|
2001-08-17 13:56:29 +00:00
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
arguments[0]=result_handle;
|
2001-04-18 12:34:52 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_fetch_array", &returned_zval, number_of_arguments, arguments);
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_ARRAY) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
int dbx_pgsql_error(zval **rv, zval **dbx_handle, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns string */
|
|
|
|
int number_of_arguments=1;
|
|
|
|
zval **arguments[1];
|
|
|
|
zval *returned_zval=NULL;
|
2001-03-23 11:50:04 +00:00
|
|
|
|
2001-08-17 13:56:29 +00:00
|
|
|
arguments[0]=dbx_handle;
|
|
|
|
if (!dbx_handle) number_of_arguments=0;
|
2004-05-06 12:22:14 +00:00
|
|
|
dbx_call_any_function(INTERNAL_FUNCTION_PARAM_PASSTHRU, "pg_last_error", &returned_zval, number_of_arguments, arguments);
|
2001-09-25 21:58:48 +00:00
|
|
|
if (!returned_zval || Z_TYPE_P(returned_zval)!=IS_STRING) {
|
2001-08-17 13:56:29 +00:00
|
|
|
if (returned_zval) zval_ptr_dtor(&returned_zval);
|
|
|
|
return 0;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
2001-08-17 13:56:29 +00:00
|
|
|
MOVE_RETURNED_TO_RV(rv, returned_zval);
|
|
|
|
return 1;
|
2001-03-23 11:50:04 +00:00
|
|
|
}
|
|
|
|
|
2002-10-29 14:08:40 +00:00
|
|
|
int dbx_pgsql_esc(zval **rv, zval **dbx_handle, zval **string, INTERNAL_FUNCTION_PARAMETERS)
|
|
|
|
{
|
|
|
|
/* returns escaped string */
|
|
|
|
/* replace \ with \\ */
|
|
|
|
/* ' with '' */
|
|
|
|
char * str;
|
|
|
|
int len;
|
|
|
|
char * tmpstr;
|
|
|
|
int tmplen;
|
|
|
|
|
2002-10-30 12:02:51 +00:00
|
|
|
if (Z_STRLEN_PP(string) == 0) {
|
|
|
|
ZVAL_EMPTY_STRING(*rv);
|
|
|
|
return 1;
|
2002-10-30 15:03:01 +00:00
|
|
|
}
|
2002-10-29 14:08:40 +00:00
|
|
|
tmpstr = estrdup(Z_STRVAL_PP(string));
|
|
|
|
tmplen = Z_STRLEN_PP(string);
|
|
|
|
/* php_str_to_str uses a smart_str that allocates memory */
|
|
|
|
/* this memory must be freed or passed on to rv */
|
|
|
|
str = php_str_to_str(tmpstr, tmplen, "\\", 1, "\\\\", 2, &len);
|
|
|
|
efree(tmpstr);
|
|
|
|
tmpstr=str; tmplen=len;
|
|
|
|
str = php_str_to_str(tmpstr, tmplen, "'", 1, "''", 2, &len);
|
|
|
|
efree(tmpstr);
|
|
|
|
|
|
|
|
ZVAL_STRINGL(*rv, str, len, 0);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
2001-03-23 11:50:04 +00:00
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* End:
|
|
|
|
*/
|