[Cpan-forum-commit] rev 132 - trunk/lib/CPAN

[svn at pti.co.il]

Author: gabor
Date: 2005-03-22 16:49:49 +0200 (Tue, 22 Mar 2005)
New Revision: 132

Modified:
   trunk/lib/CPAN/Forum.pm
Log:
flush session object in order to make sure login and logout is finished. There might be a bug somewhere in the Session management PLugin

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-03-22 14:42:42 UTC (rev 131)
+++ trunk/lib/CPAN/Forum.pm	2005-03-22 14:49:49 UTC (rev 132)
@@ -917,6 +917,7 @@
 
 	my $request = $session->param("request") || "";
 	$session->param("request" => "");
+	$session->flush();
 	$self->header_type("redirect");
 	$request .= "/" if $request !~ m{/$};
 	$self->header_props(-url => "http://$ENV{HTTP_HOST}/$request");
@@ -933,6 +934,7 @@
 	my $self = shift;
 	
 	my $session = $self->session;
+	my $username = $session->param('username');
 	$session->param(loggedin => 0);
 	$session->param(username => '');
 	$session->param(uid       => '');
@@ -940,6 +942,8 @@
 	$session->param(lname     => '');
 	$session->param(email     => '');
 	$session->param(admin     => '');
+	$session->flush();
+	$self->log->debug("logged out '$username'");
 
 	$self->redirect_home;
 }