ORA-24315 is a tricky one.
Seems this has cropped up the odd time with a number of different system
(seen the same in PHP). It could be that your session is timing out so
DBD::Oracle cannot get a handle or it could have something to do with the
oracle language settings. Check with you DBA and see if you have any
special features set on you DB.
I have seen this most often with people trying to log in as the "SYS" user
you may want to try a different user.
cheers
John Scoles
----- Original Message -----
From: "Tim Bunce" <[EMAIL PROTECTED]>
To: <dbi-users@perl.org>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, May 24, 2006 10:34 AM
Subject: (Fwd) Just a quick question on the DBI perl mod
> ----- Forwarded message from Joe McTigue
<[EMAIL PROTECTED]> -----
>
> Subject: Just a quick question on the DBI perl mod
> Date: Wed, 17 May 2006 14:22:38 -0400
> From: Joe McTigue <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> X-Virus-Checked: Checked
>
> Hi Tim,
>
>
>
> I am currently getting the following error message and was wondering if
you could help?
>
> If you can, here's the scenario: The code below is what I'm trying to
accomplish reading a file
>
> consisting of insert, update and delete statements. But I've been
getting the following error now
>
> for the past several days now and can't seem to figure it out:
>
> ######### ERROR FOLLOWS:
>
> starting file: DELETE.sql
>
> DBI connect('databasename','username',...) failed: ORA-24315: illegal
attribute type (DBD ERROR:
> OCIAttrGet OCI_ATTR_ENV_CHARSET_ID) at perlscript.pl line 463
>
> Can't connect to database:ORA-24315: illegal attribute type (DBD ERROR:
OCIAttrGet
> OCI_ATTR_ENV_CHARSET_ID) at perlscript.pl line 463.
>
> ######### END OF ERROR ###########
>
>
>
> ######### CODE SEGMENT FOLLOWS #########
>
> my $INPUT_SQL = FileHandle->new("cat ${working_file} |") or die
("Can not open ${working_file}:
> $!\n");
>
>
>
> next line is line : 463
>
> my $dbc = DBI->connect( "dbi:Oracle:$nameofdb", "$username",
"$password" ) || die "Can't connect to
> database:" . DBI->errstr();
>
>
>
> while ( my $line = $INPUT_SQL->getline() )
>
> {
>
> chomp( $line );
>
>
>
> my $sth = $dbc->prepare( $line ) or die "Can't prepare SQL
statement.\n";
>
>
>
> $sth->execute() or die "Can't execute SQL statement.\n";
>
>
>
> }
>
> $INPUT_SQL->close();
>
>
>
> $dbc->disconnect() or warn "Error disconnecting: \n";
>
>
>
> ######### END CODE SEGMENT ##################
>
>
>
> Any help would be incredibly wonderful at this point.
>
>
>
>
>
> Regards,
>
> Joseph P. McTigue
>
> CBC Innovis, QA Department
>
> [EMAIL PROTECTED]
>
> (614) 538-6032
>
>
>
> References
>
> Visible links
> 1. mailto:[EMAIL PROTECTED]
>
> ----- End forwarded message -----
>
