Hey guys,
I am trying to set up Session::Store::DBIC but I am getting no love. Here
is all of the relevant (afaik) data:
Error:
[Tue Aug 4 09:54:25 2009] acd_server.pl:
> DBIx::Class::ResultSet::find_or_create(): DBI Exception: DBD::ODBC::st
> fetchrow_array failed: [Microsoft][SQL Native Client]String data, right
> truncation (SQL-01004) [for Statement "SELECT me.id, me.session_data,
> me.expires FROM Session me WHERE ( me.id = ? )" with ParamValues:
> 1='session:c28d6383a2b334128738f4b70ee08ff7df5cd737'] at
> c:/strawberry/perl/site/lib/Catalyst/Plugin/Session/Store/DBIC/Delegate.pm
> line 73
>
SQL Creation Script
CREATE TABLE dbo.Session
> (
> id char(72) NOT NULL,
> session_data text,
> expires int
> ) ON [PRIMARY]
> TEXTIMAGE_ON [PRIMARY]
> GO
> ALTER TABLE dbo.Session ADD CONSTRAINT
> PK_Session PRIMARY KEY CLUSTERED
> (
> id
> ) WITH( STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS
> = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
>
> GO
> COMMIT
>
DBIC Model:
package ACD::Schema::Result::Session;
> use base DBIx::Class;
> use strict;
> use warnings;
> use Method::Signatures::Simple;
> use CLASS;
>
> CLASS->load_components(qw/Core/);
> CLASS->table('Session');
> CLASS->add_columns(qw/ id session_data expires /);
> CLASS->set_primary_key('id');
>
> 'Truth-fact!';
>
Configuration in ACD.pm
session => {
> dbic_class => 'DB::Session',
> expires => 60*60, # one hour
> },
>
Does anyone have any ideas regarding this?
--
fREW Schmidt
http://blog.afoolishmanifesto.com
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
