[svn:dbd-oracle] r14952 - dbd-oracle/branches/FAN

Author: byterock
Date: Mon Oct 17 13:29:33 2011
New Revision: 14952

Modified:
   dbd-oracle/branches/FAN/dbdimp.c
   dbd-oracle/branches/FAN/oci8.c

Log:
chkein

Modified: dbd-oracle/branches/FAN/dbdimp.c
==============================================================================
--- dbd-oracle/branches/FAN/dbdimp.c	(original)
+++ dbd-oracle/branches/FAN/dbdimp.c	Mon Oct 17 13:29:33 2011
@@ -604,7 +604,6 @@
 			forced_new_environment = 1;
 		}
 	}
-dbd_verbose=15;
     if (!imp_dbh->envhp ) {
 		SV **init_mode_sv;
 		ub4 init_mode = OCI_THREADED|OCI_EVENTS|OCI_OBJECT;	/* needed for LOBs (8.0.4)	*/

Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c	(original)
+++ dbd-oracle/branches/FAN/oci8.c	Mon Oct 17 13:29:33 2011
@@ -1321,7 +1321,6 @@
   PUSHMARK(SP);
  // XPUSHs(sv_2mortal(newHV(ha_event)));
 
-  dbd_verbose = 15;
   PerlIO_printf(DBILOGFP, " how about this my functio %s\n",ctx->function);
   OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&event_code, 0, OCI_ATTR_HA_SOURCE, imp_dbh->errhp, status);
 
@@ -1329,7 +1328,10 @@
 
   OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&event_code, 0, OCI_ATTR_HA_STATUS, imp_dbh->errhp, status);
 
-  if (event_code){
+ PerlIO_printf(DBILOGFP, " how about OCI_ATTR_HA_STATUS=%d HA next dwon=%d,up-%d  \n",event_code,OCI_HA_STATUS_DOWN,OCI_HA_STATUS_UP);
+
+
+  if (event_code == OCI_HA_STATUS_UP){
   	hv_store(ha_event,"Status",6,sv_2mortal(newSVpv("UP",2)),0);
 
   }
@@ -1386,6 +1388,20 @@
 
   PerlIO_printf(DBILOGFP, " how about srvhp=%s \n",event_att);
 
+
+  OCIAttrGet_log_stat(srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_code,0, OCI_ATTR_SERVER_STATUS, imp_dbh->errhp, status);
+
+
+  PerlIO_printf(DBILOGFP, " how about the HA server STAUTSp=%d ,%d, %d\n",event_code,OCI_SERVER_NORMAL ,OCI_SERVER_NOT_CONNECTED );
+
+  OCIAttrGet_log_stat(imp_dbh->srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_code,0, OCI_ATTR_SERVER_STATUS, imp_dbh->errhp, status);
+
+
+  PerlIO_printf(DBILOGFP, " how about the currecnt connec tion server STAUTSp=%d ,%d, %d\n",event_code,OCI_SERVER_NORMAL ,OCI_SERVER_NOT_CONNECTED );
+
+
+
+
  
 
   OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&srvhp,0, OCI_ATTR_HA_SRVNEXT, imp_dbh->errhp, status);
@@ -1394,6 +1410,7 @@
 
   PerlIO_printf(DBILOGFP, " how about event_att=%d HA next  \n",status);
 
+
   XPUSHs(sv_2mortal(newRV((SV*)ha_event)));
   PUTBACK;
   call_pv(ctx->function, G_DISCARD);