/*
* call-seq:
* client_info = string or nil
*
* <b>(new in 2.0.3)</b>
*
* Sets additional information about the client application.
* This information is stored in the V$SESSION view.
*
* === Oracle 10g client or upper
*
* This doesn't perform network round trips. The change is reflected
* to the server by the next round trip such as OCI8#exec, OCI8#ping,
* etc.
*
* === Oracle 9i client or lower
*
* This executes the following PL/SQL block internally.
* The change is reflected immediately by a network round trip.
*
* BEGIN
* DBMS_APPLICATION_INFO.SET_CLIENT_INFO(:client_info);
* END;
*
* See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_appinf.htm#CHEJCFGG]
*/
static VALUE oci8_set_client_info(VALUE self, VALUE val)
{
char *ptr;
ub4 size;
if (!NIL_P(val)) {
OCI8SafeStringValue(val);
ptr = RSTRING_PTR(val);
size = RSTRING_LEN(val);
} else {
ptr = "";
size = 0;
}
if (oracle_client_version >= ORAVER_10_1) {
/* Oracle 10g or upper */
oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
size, OCI_ATTR_CLIENT_INFO, oci8_errhp));
} else {
/* Oracle 9i or lower */
oci8_exec_sql_var_t bind_vars[1];
/* :client_info */
bind_vars[0].valuep = ptr;
bind_vars[0].value_sz = size;
bind_vars[0].dty = SQLT_CHR;
bind_vars[0].indp = NULL;
bind_vars[0].alenp = NULL;
oci8_exec_sql(oci8_get_svcctx(self),
"BEGIN\n"
" DBMS_APPLICATION_INFO.SET_CLIENT_INFO(:client_info);\n"
"END;\n", 0, NULL, 1, bind_vars, 1);
}
return val;
}
/*
* call-seq:
* client_identifier = string or nil
*
* <b>(new in 2.0.3)</b>
*
* Sets the client ID. This information is stored in the V$SESSION
* view.
*
* === Oracle 9i client or upper
*
* This doesn't perform network round trips. The change is reflected
* to the server by the next round trip such as OCI8#exec, OCI8#ping,
* etc.
*
* === Oracle 8i client or lower
*
* This executes the following PL/SQL block internally.
* The change is reflected immediately by a network round trip.
*
* BEGIN
* DBMS_SESSION.SET_IDENTIFIER(:client_id);
* END;
*
* See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_sessio.htm#i996935]
*
*/
static VALUE oci8_set_client_identifier(VALUE self, VALUE val)
{
char *ptr;
ub4 size;
int use_attr_set = 1;
if (!NIL_P(val)) {
OCI8SafeStringValue(val);
ptr = RSTRING_PTR(val);
size = RSTRING_LEN(val);
} else {
ptr = "";
size = 0;
}
if (oracle_client_version < ORAVER_9_0) {
use_attr_set = 0;
} else if (oracle_client_version < ORAVERNUM(9, 2, 0, 3, 0) && size == 0) {
/* Workaround for Bug 2449486 */
use_attr_set = 0;
}
if (use_attr_set) {
if (size > 0 && ptr[0] == ':') {
rb_raise(rb_eArgError, "client identifier should not start with ':'.");
}
oci_lc(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, ptr,
size, OCI_ATTR_CLIENT_IDENTIFIER, oci8_errhp));
} else {
oci8_exec_sql_var_t bind_vars[1];
/* :client_id */
bind_vars[0].valuep = ptr;
bind_vars[0].value_sz = size;
bind_vars[0].dty = SQLT_CHR;
bind_vars[0].indp = NULL;
bind_vars[0].alenp = NULL;
oci8_exec_sql(oci8_get_svcctx(self),
"BEGIN\n"
" DBMS_SESSION.SET_IDENTIFIER(:client_id);\n"
"END;\n", 0, NULL, 1, bind_vars, 1);
}
return val;
}
/*
* call-seq:
* module = string or nil
*
* <b>(new in 2.0.3)</b>
*
* Sets the name of the current module. This information is
* stored in the V$SESSION view and is also stored in the V$SQL view
* and the V$SQLAREA view when a SQL statement is executed and the SQL
* statement is first parsed in the Oracle server.
*
* === Oracle 10g client or upper
*
* This doesn't perform network round trips. The change is reflected
* to the server by the next round trip such as OCI8#exec, OCI8#ping,
* etc.
*
* === Oracle 9i client or lower
*
* This executes the following PL/SQL block internally.
* The change is reflected immediately by a network round trip.
*
* DECLARE
* action VARCHAR2(32);
* BEGIN
* -- retrieve action name.
* SELECT SYS_CONTEXT('USERENV','ACTION') INTO action FROM DUAL;
* -- change module name without modifying the action name.
* DBMS_APPLICATION_INFO.SET_MODULE(:module, action);
* END;
*
* See {Oracle Manual: Oracle Database PL/SQL Packages and Types Reference}[http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/d_appinf.htm#i999254]
*
*/
static VALUE oci8_set_module(VALUE self, VALUE val)
{
const char *ptr;
ub4 size;
if (!NIL_P(val)) {
OCI8SafeStringValue(val);
ptr = RSTRING_PTR(val);
size = RSTRING_LEN(val);
} else {
ptr = "";
size = 0;
}
if (oracle_client_version >= ORAVER_10_1) {
/* Oracle 10g or upper */
chker2(OCIAttrSet(oci8_get_oci_session(self), OCI_HTYPE_SESSION, (dvoid*)ptr,
size, OCI_ATTR_MODULE, oci8_errhp),
DATA_PTR(self));
} else {
/* Oracle 9i or lower */
oci8_exec_sql_var_t bind_vars[1];
/* :module */
bind_vars[0].valuep = (dvoid*)ptr;
bind_vars[0].value_sz = size;
bind_vars[0].dty = SQLT_CHR;
bind_vars[0].indp = NULL;
bind_vars[0].alenp = NULL;
oci8_exec_sql(oci8_get_svcctx(self),
"DECLARE\n"
" action VARCHAR2(32);\n"
"BEGIN\n"
" SELECT SYS_CONTEXT('USERENV','ACTION') INTO action FROM DUAL;\n"
" DBMS_APPLICATION_INFO.SET_MODULE(:module, action);\n"
"END;\n", 0, NULL, 1, bind_vars, 1);
}
return self;
}
OCIDateTime *oci8_set_ocitimestamp_tz(OCIDateTime *dttm, VALUE val, VALUE svc)
{
long year;
long month;
long day;
long hour;
long minute;
long sec;
long fsec;
OraText *tz;
size_t tzlen;
char tz_str[32];
OCISession *seshp = NULL;
Check_Type(val, T_ARRAY);
if (RARRAY_LEN(val) != 9) {
rb_raise(rb_eRuntimeError, "invalid array size %ld", RARRAY_LEN(val));
}
/* year */
year = NUM2LONG(RARRAY_PTR(val)[0]);
if (year < -4712 || 9999 < year) {
rb_raise(rb_eRuntimeError, "out of year range: %ld", year);
}
/* month */
month = NUM2LONG(RARRAY_PTR(val)[1]);
if (month < 0 || 12 < month) {
rb_raise(rb_eRuntimeError, "out of month range: %ld", month);
}
/* day */
day = NUM2LONG(RARRAY_PTR(val)[2]);
if (day < 0 || 31 < day) {
rb_raise(rb_eRuntimeError, "out of day range: %ld", day);
}
/* hour */
hour = NUM2LONG(RARRAY_PTR(val)[3]);
if (hour < 0 || 23 < hour) {
rb_raise(rb_eRuntimeError, "out of hour range: %ld", hour);
}
/* minute */
minute = NUM2LONG(RARRAY_PTR(val)[4]);
if (minute < 0 || 60 < minute) {
rb_raise(rb_eRuntimeError, "out of minute range: %ld", minute);
}
/* second */
sec = NUM2LONG(RARRAY_PTR(val)[5]);
if (sec < 0 || 60 < sec) {
rb_raise(rb_eRuntimeError, "out of second range: %ld", sec);
}
/* sec_fraction */
fsec = NUM2LONG(RARRAY_PTR(val)[6]);
if (fsec < 0 || 1000000000 < fsec) {
rb_raise(rb_eRuntimeError, "out of sec_fraction range: %ld", fsec);
}
/* time zone */
if (NIL_P(RARRAY_PTR(val)[7]) && NIL_P(RARRAY_PTR(val)[8])) {
if (!NIL_P(svc)) {
/* use session timezone. */
seshp = oci8_get_oci_session(svc);
}
tz = NULL;
tzlen = 0;
} else {
snprintf(tz_str, sizeof(tz_str), "%+02ld:%02ld",
NUM2LONG(RARRAY_PTR(val)[7]),
NUM2LONG(RARRAY_PTR(val)[8]));
tz_str[sizeof(tz_str) - 1] = '\0';
tz = (OraText*)tz_str;
tzlen = strlen(tz_str);
}
/* construct */
chkerr(OCIDateTimeConstruct(seshp ? (void*)seshp : (void*)oci8_envhp, oci8_errhp, dttm,
(sb2)year,
(ub1)month,
(ub1)day,
(ub1)hour,
(ub1)minute,
(ub1)sec,
(ub4)fsec,
tz, tzlen));
return dttm;
}
