Hello,
I have modified DBIStore.pm (in Apache-Session-1.03) to work with Oracle.
I am attaching the diff at the end of this email for anyone who is
interested.
I just found out that there is new version of Apache-Session (1.51)
available that shall work with Oracle out of the box.
Oh well!! In case anyone cares, here is my setup
Apache-Session-1.03
DBD-Oracle-1.03
DBI-1.13
Digest-MD5-2.09
Storable-0.6.11
The "sessions" table setup is
id char(16)
length int(11)
a_session BLOB
Also, you would want to use
LongReadLen => '2147483647'
in the opts hash of example.perl (Apapche-Session-1.03).
Enjoy,
Chetan
---------------------------------------------
Chetan Patil Manager, Product Integration
i-Escrow, Inc. Office - (650)598-3812
------- Begin-Diff
diff DBIStore.pm modified.DBIStore.pm
87a88
> use DBD::Oracle qw(:ora_types ORA_OCI);
121c122
< { RaiseError => 1, AutoCommit => 1 }
---
> { RaiseError => 1, AutoCommit => 1, LongReadLen =>
$$session{args}->{LongReadLen}}
141c142
< $self->{insert_sth}->bind_param(3, $serialized);
---
> $self->{insert_sth}->bind_param(3, $serialized, {ora_type =>
ORA_BLOB});
161d161
<
165c165
< $self->{update_sth}->bind_param(2, $serialized);
---
> $self->{update_sth}->bind_param(2, $serialized ,{ora_type =>
ORA_BLOB});
188,190c188,190
<
< my $results = $self->{materialize_sth}->fetchrow_arrayref;
<
---
>
> my $results = $self->{materialize_sth}->fetchrow_hashref;
> $self->{materialize_sth}->finish;
195,197c195
< $self->{materialize_sth}->finish;
<
< $session->{data} = thaw $results->[0];
---
> $session->{data} = thaw $results->{A_SESSION};
------ End Diff
