Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the DBD-Oracle CPAN distribution.

Report information
The Basics
Id: 36069
Status: resolved
Priority: 0/
Queue: DBD-Oracle

People
Owner: champoux [...] pythian.com
Requestors: mirko.kraft [...] ubs.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 1.22



CC: <dbi-dev [...] perl.org>, <bug-DBD-Oracle [...] rt.cpan.org>
Subject: RE: Bug in DBD::Oracle handling LOB columns and synonyms?
Date: Wed, 21 May 2008 12:26:26 +0200
To: <scoles [...] pythian.com>
From: <mirko.kraft [...] ubs.com>
Download (untitled) / with headers
text/plain 7.7k
Hi John, the Web interface doesn't work for me, so I cc this to bug-DBD-Oracle [at] rt.cpan.org which should also be ok. I attached a diff -c on oci8.c from 1.21 which I think fixes the issue (not tested currently, however): *** oci8.c.ori Wed May 21 12:09:48 2008 --- oci8.c Wed May 21 12:16:08 2008 *************** *** 2811,2816 **** --- 2811,2819 ---- lob_refetch_t *lr = NULL; STRLEN tablename_len; char *tablename; + #ifdef OCI_ATTR_OBJ_NAME /* not in 8.0.x */ + char new_tablename[100]; + #endif /* OCI_ATTR_OBJ_NAME */ switch (imp_sth->stmt_type) { case OCI_STMT_UPDATE: *************** *** 2834,2850 **** OCIDescribeAny_log_stat(imp_sth->svchp, errhp, tablename, strlen(tablename), (ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp, status); if (status == OCI_SUCCESS) { /* There is a synonym, get the schema */ - char new_tablename[100]; char *syn_schema=NULL, *syn_name=NULL; OCIAttrGet_log_stat(dschp, OCI_HTYPE_DESCRIBE, &parmhp, 0, OCI_ATTR_PARAM, errhp, status); OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, ! &syn_schema, 0, OCI_ATTR_SCHEMA_NAME, errhp, status); OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, ! &syn_name, 0, OCI_ATTR_OBJ_NAME, errhp, status); ! strcpy(new_tablename, syn_schema); ! strcat(new_tablename, "."); ! strcat(new_tablename, syn_name); tablename=new_tablename; if (DBIS->debug >= 3) PerlIO_printf(DBILOGFP, " lob refetch synonym, schema=%s, name=%s, new tablename=%s\n", syn_schema, syn_name, tablename); --- 2837,2853 ---- OCIDescribeAny_log_stat(imp_sth->svchp, errhp, tablename, strlen(tablename), (ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp, status); if (status == OCI_SUCCESS) { /* There is a synonym, get the schema */ char *syn_schema=NULL, *syn_name=NULL; + ub4 syn_schema_len = 0, syn_name_len = 0; OCIAttrGet_log_stat(dschp, OCI_HTYPE_DESCRIBE, &parmhp, 0, OCI_ATTR_PARAM, errhp, status); OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, ! &syn_schema, &syn_schema_len, OCI_ATTR_SCHEMA_NAME, errhp, status); OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, ! &syn_name, &syn_name_len, OCI_ATTR_OBJ_NAME, errhp, status); ! strncpy(new_tablename, syn_schema, syn_schema_len); ! strcat (new_tablename, "."); ! strncat(new_tablename, syn_name, syn_name_len); tablename=new_tablename; if (DBIS->debug >= 3) PerlIO_printf(DBILOGFP, " lob refetch synonym, schema=%s, name=%s, new tablename=%s\n", syn_schema, syn_name, tablename); Thanks for looking into the issue, Mirko Show quoted text
-----Original Message----- From: scoles@pythian.com [mailto:scoles@pythian.com] Sent: Dienstag, 20. Mai 2008 23:03 To: Kraft, Mirko Cc: dbi-dev@perl.org Subject: Re: Bug in DBD::Oracle handling LOB columns and synonyms? Ok I will have a look at it and you are right the code does not look quite right. Do you think you can raise a ticket for this at http://rt.cpan.org/Public/Dist/Display.html?Status=Active&Name=DBD-Oracl e that way I can track it better. You do not happen to know what the orginal starting line number was in oci8? cheers John SColes
> Hi *, > I'm using DBD::Oracle (code checked onCPAN and verified in version
1.21)
> and encountered a problem (DB is Oracle 10gR2) related to LOBs and > synonyms: > > Table TTHUMBNAIL (DOCUMENT_ID NUMBER(12), THUMBNAIL BLOB NOT NULL) is > owned by user DMSSGADM. User DMSSGDP has a synonym TTHUMBNAIL on the
table
> and all necessary rights granted. > > When executing the following code > > $sthInsertTTHUMBNAIL = prepareStatement($dbh, > 'INSERT ' . > 'INTO tthumbnail ' . > ' (document_id, ' . > ' thumbnail) ' . > 'VALUES
(document_id_seq.CURRVAL,
> ' . > ' ?)'); > $sthInsertTTHUMBNAIL->bind_param(1, $thumbnail, { ora_type => ORA_BLOB
});
> $sthInsertTTHUMBNAIL->execute(); > > I get the following error: > > ORA-04043: object DMSSGADMTTHUMBNAIL.TTHUMBNAIL does not exist (DBD > SUCCESS: OCIDescribeAny(view)/LOB refetch) > > Currently I tracked down the error to the following place in oci8.c,
but
> since I got no compiler here, I can't verify further: > > 01 #ifdef OCI_ATTR_OBJ_NAME /* not in 8.0.x */ > 02 OCIDescribeAny_log_stat(imp_sth->svchp, errhp, tablename, > strlen(tablename), > 03 (ub1)OCI_OTYPE_NAME, (ub1)1, (ub1)OCI_PTYPE_SYN, dschp,
status);
> 04 if (status == OCI_SUCCESS) { /* There is a synonym, get the
schema
> */ > 05 char new_tablename[100]; > 06 char *syn_schema=NULL, *syn_name=NULL; > 07 OCIAttrGet_log_stat(dschp, OCI_HTYPE_DESCRIBE, > 08 &parmhp, 0, OCI_ATTR_PARAM, errhp,
status);
> 09 OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, > 10 &syn_schema, 0, OCI_ATTR_SCHEMA_NAME, errhp,
status);
> 11 OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, > 12 &syn_name, 0, OCI_ATTR_OBJ_NAME, errhp,
status);
> 13 strcpy(new_tablename, syn_schema); > 14 strcat(new_tablename, "."); > 15 strcat(new_tablename, syn_name); > 16 tablenameew_tablename; > 17 if (DBIS->debug >= 3) > 18 PerlIO_printf(DBILOGFP, " lob refetch synonym, schema=%s, > name=%s, new tablename=%s\n", syn_schema, syn_name, tablename); > 19 } > 20 #endif /* OCI_ATTR_OBJ_NAME */ > > First, lines 05 & 16 constitute a very bad situation, since the
pointer
> refers to a stack variable that is freed when the block is closed :-(
So
> this buffer should be declared outside the block, anyway... > > And from what I know about OCIAttrGet, if you retrieve a text
attribute,
> you have to pass a pointer to receive the length of the string, as it
is
> not '\0' terminated! After that you would call something like > > strncpy(new_tablename, syn_schema, syn_schema_length); > strcpy (new_tablename, "."); > strncpy(new_tablename, syn_name, syn_name_length); > > I'm looking forward to hearing from you about the issue, since I'm
really
> stuck on the topic. > > Sincerely, > > Mirko Kraft > > UBS AG > Global Wealth Management & Business Banking > Information Technology > eRMS - electronic Records Management Solutions > Viaduktstr. 31-35, PO Box 4473, CH-4051 Basel > Tel. +41-61-288 53 72 > Fax +41-61-288 71 91 > www.ubs.com > > Based on previous e-mail correspondence with you and/or an agreement > reached with you, UBS considers itself authorized to contact you via > unsecured e-mail. > Warning: > (a) E-mails can involve SUBSTANTIAL RISKS, e.g. lack of
confidentiality,
> potential manipulation of contents and/or sender's address, incorrect > recipient (misdirection), viruses etc. UBS assumes no responsibility
for
> any loss or damage resulting from the use of e-mails. UBS recommends
in
> particular that you do NOT SEND ANY SENSITIVE INFORMATION, that you do
not
> include details of the previous message in any reply, and that you
enter
> e-mail address(es) manually every time you write an e-mail. > (b) As a matter of principle, UBS does NOT accept any ORDERS,
revocations
> of orders or authorizations, blocking of credit cards, etc., sent by > e-mail. Should such an e-mail nevertheless be received, UBS is not
obliged
> to act on or respond to the e-mail. > Please notify UBS immediately if you received this e-mail by mistake
or if
> you do not wish to receive any further e-mail correspondence. If you
have
> received this e-mail by mistake, please completely delete it (and any > attachments) and do not forward it or inform any other person of its > contents. > > >
Download (untitled) / with headers
text/plain 864b
ok I finally uncovered it. The root cause is if you had this SYNONYM CREATE SYNONYM AVAILCONFIG.THUMBNAIL_T FOR SYSTEM.THUMBNAIL; and this original code OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM,&syn_name, &syn_name_len, OCI_ATTR_OBJ_NAME, errhp,status); we would get THUMBNAIL_T which is the name of the object(synonym) so in the rare cases where the DBA has made the name of the syn different it would not work. so what we need is OCIAttrGet_log_stat(parmhp, OCI_DTYPE_PARAM, &tablename, &tablename_len, OCI_ATTR_NAME, errhp, status); which get the name of the table that is synonym is pointing to this case thumbnail Used some of the code form the patch there was no need to create a char [100] outside the if statement though. this code is checked into trunk on SVN and will be part or Release 1.22 I will clean up and check in the code now.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.