[Catalyst-commits] r7943 - trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2008-06-23 20:53:28 +0100 (Mon, 23 Jun 2008)
New Revision: 7943

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm
Log:
The fake Wx created session was not correctly created

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm	2008-06-23 19:44:11 UTC (rev 7942)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Plugin/Session/State/Wx.pm	2008-06-23 19:53:28 UTC (rev 7943)
@@ -14,15 +14,15 @@
 
 sub setup_session {
     my $c = shift;
-
+    $c->log->debug("Setup fake Wx session") if $c->debug;
     $c->NEXT::setup_session(@_);
 }
 
 sub set_session_id {
     my ( $c, $sid ) = @_;
-
     $SESSIONS->{'sid'} = $sid;
-
+    $c->log->debug(qq/Created sessionid "$sid" in Wx/) if $c->debug;
+    $c->store_session_data("expires:$sid" => time + 3600);
     return $c->NEXT::set_session_id($sid);
 }
 
@@ -31,7 +31,7 @@
 
     if ( !$c->_deleted_session_id and $SESSIONS->{'sid'} ) { 
         my $sid = $SESSIONS->{'sid'};
-        $c->log->debug(qq/Found sessionid "$sid" in cookie/) if $c->debug;
+        $c->log->debug(qq/Found sessionid "$sid" in Wx/) if $c->debug;
         return $sid if $sid;
     }