session - Mojolicious session 不会过期

标签 session mojolicious perl

我正在使用 mojolicious 构建一个 Web 应用程序。注销功能仅在本地计算机上运行应用程序时有效。当我尝试在服务器上运行的应用程序上注销时, session 不会过期并且我保持登录状态。

当我们将注销更改为通过 POST 请求而不是 get 完成时,这种情况就开始发生了。

我们调用注销的方式是作为来自前端的 AJAX 调用:

function do_logout() {
   $.post( "<%= url_for('on_logout') %>", function() {});
}

登出路线:
$if_login->post('/logout')->name('on_logout')->to('user#on_logout');

注销 Controller :
sub on_logout {
  my $self = shift;
  $self->session(expires => 1);
  return $self->redirect_to('home');
}

将 session 设置为过期的行被调用,但在重定向之后, session 仍然包含登录的用户名。

最佳答案

我们终于找到了错误,请求是使用

<a href="" onclick="do_logout()"></a>

这基本上是一次做两个 Action 并创造一个竞争条件。这是相关的代码片段
# Relevant routes
my $if_login = $r->under('/')->to('user#is_logged_in');
$if_login->post('/logout')->name('on_logout')->to('user#on_logout');

# Controller functions
sub on_logout {
  my $self = shift;
  $self->session(expires => 1);

  return $self->render(json => '{success: "true"}');
}

sub is_logged_in {
  my $self = shift;

  say $self->session('username');  # Sometimes after on_logout this is still
                                   # defined and equal to the username.
  return 1 if($self->session('username'));

  $self->render(
    template => 'permission/not_logged_in',
    status => 403
  );
  return;
}

# Front end
<a href="" onclick='do_logout();'>
 <%= l('Log out') %>
</a>

<script>
function do_logout() {
  $.post( "<%= url_for('on_logout') %>", function() {
}).fail(function() {
  alert( "error logging out" );
}).done(function( data ) {
  alert( "Data: " + data );
}).always(function() {
  alert( "finished" );
});
}
</script>

感谢您的帮助!

关于session - Mojolicious session 不会过期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45590728/

相关文章:

unit-testing - 如何在用 ring-mock 编写的 Clojure Web 应用程序测试中处理 session ?

session - Tomcat JSF session BEan @Predestroy "Session already invalidated"

perl - 在 Perl 中使用 Mojolicious 对斜杠命令的延迟响应

php - 如果用户登录到另一个网站,则自动登录到当前网站

php - 即使浏览器关闭,如何使 PHP session 保持事件状态?

perl - 将参数传递给 mojolicious 应用程序

CGI 中的 Javascript 显示错误

windows - 如何使用事件perl脚本来监控Windows服务

perl - 如何在 Perl Pod 的链接中添加格式?

perl - 如何在不耗尽 Perl 内存的情况下合并大型未排序文件中的行?