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

Author: byterock
Date: Fri Oct 28 18:06:50 2011
New Revision: 14980

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

Log:
a quick fix

Modified: dbd-oracle/branches/FAN/oci8.c
==============================================================================
--- dbd-oracle/branches/FAN/oci8.c	(original)
+++ dbd-oracle/branches/FAN/oci8.c	Fri Oct 28 18:06:50 2011
@@ -1365,8 +1365,8 @@
 
  //  OCIDateTimeToText_log_stat(imp_dbh->envhp,imp_dbh->errhp,event_ts,&event_att_len,tsbuff,status);
 
-   OCIDateTimeToText(imp_dbh->envhp,imp_dbh->errhp, event_ts, (char*) "MM-DD-YY HH24:MI:SS.FF3",
- 		    strlen("MM-DD-YY HH24:MI:SS.FF3"),
+   OCIDateTimeToText(imp_dbh->envhp,imp_dbh->errhp, event_ts, (char*) "MM-DD-YY HH24:MI:SS",
+ 		    strlen("MM-DD-YY HH24:MI:SS"),
  		    (ub1)4, (OraText *)0, 0,&event_att_len, tsbuff);
 
    hv_store(ha_event,"Timestamp",9,sv_2mortal(newSVpv((char*)tsbuff,event_att_len)),0);
@@ -1379,35 +1379,35 @@
    OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&srvhp,0, OCI_ATTR_HA_SRVFIRST, imp_dbh->errhp, status);
 
 
-   PerlIO_printf(DBILOGFP, " how about event_att=%d nodata=%d \n",status,OCI_NO_DATA);
 
-   OCIAttrGet_log_stat(srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_att,&event_att_len, OCI_ATTR_INSTNAME, imp_dbh->errhp, status);
 
+  OCIAttrGet_log_stat(srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_att,&event_att_len, OCI_ATTR_INSTNAME, imp_dbh->errhp, status);
 
-   PerlIO_printf(DBILOGFP, " how about srvhp=%s \n",event_att);
 
+  av_push(servers, newSVpv( (char *) event_att,0));
 
-   OCIAttrGet_log_stat(srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_code,0, OCI_ATTR_SERVER_STATUS, imp_dbh->errhp, status);
 
+  PerlIO_printf(DBILOGFP, " hacb 9 server instance from new srvph name=%s \n",event_att);
 
-   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);
 
+  while(status){
+PerlIO_printf(DBILOGFP, " hacb 9.1 while loop\n");
 
-   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);
+     if (status == OCI_NO_DATA) {
+          break;
+     }
+     else {
+      PerlIO_printf(DBILOGFP, " hacb 10 found another server handle.\n");
 
+      OCIAttrGet_log_stat(srvhp,  OCI_HTYPE_SERVER, (dvoid *)&event_att,&event_att_len, OCI_ATTR_INSTNAME, imp_dbh->errhp, status);
+      av_push(servers, newSVpv( (char *) event_att,0));
 
+    }
+  }
 
-
-
-
-   OCIAttrGet_log_stat(eventhp,  OCI_HTYPE_EVENT, (dvoid *)&srvhp,0, OCI_ATTR_HA_SRVNEXT, imp_dbh->errhp, status);
-
-
-
-   PerlIO_printf(DBILOGFP, " how about event_att=%d HA next  \n",status);
-
+  hv_store(ha_event,"Instances",9,newRV_noinc((SV*)servers),0);
 
    XPUSHs(sv_2mortal(newRV((SV*)ha_event)));
    PUTBACK;