Perl Dancer会话Cookie

Question

我刚刚开始使用Dancer :: Session :: Cookie，我遇到了一些我不期待的行为。 我整理了一个简单的Perl Dancer应用程序，使用Authen :: Simple :: ActiveDirectory进行身份验证。 我的路线在下面。

package auth;
use Dancer ':syntax';

our $VERSION = '0.1';

get '/' => sub {
    template 'index', {user => session->{user}};
};

hook 'before' => sub {
    if (! session('user') && request->path_info !~ m{^/login}) {
        var requested_path => request->path_info;
        request->path_info('/login');
    }
};

get '/login' => sub {
    # Display a login page; the original URL they requested is available as
    # vars->{requested_path}, so could be put in a hidden field in the form
    template 'login', { path => vars->{requested_path} };
};

post '/login' => sub {
    # Validate the username and password they supplied
    my $ad = Authen::Simple::ActiveDirectory->new( 
        host      => 'host',
        principal => 'example.com'
    );

    if ($ad->authenticate( params->{user}, params->{pass} )) {
        session user => params->{user};
        redirect params->{path} || '/';
    } else {
        redirect '/login?failed=1';
    }
};

get '/logout' => sub {
    session->destroy;
    redirect '/';
};

true;

我能够成功登录并创建会话。 我的用户名在登录后放在主页面上，我有一个指向/ logout路由的链接。 当我点击该链接时，路由被执行（我在调试器中确认了这一点），但是我仍然显示我的用户名返回到主页面。 由于不存在会话，我希望返回登录页面。 有没有想过为什么Dancer会这样做？ 我误解了会话的运作方式吗？

Answer 1

我之前没有使用过Dancer :: Session :: Cookie，但看起来像destroy方法不对 - 它只是从服务器端的解析哈希中删除了cookie条目，但是这种方法并没有得到回传到浏览器。

代替对session->destroy的调用试试这个：

cookie session->session_name => '', expires => '-1 day';

这就是腰带和吊带的方法 - 它会清空cookie并设置过去发生的过期时间。