我正在尝试学习Cro(和Perl6同时);)
我的学习应用基于Cro的文档。我添加了一些有效的身份验证,但是用户会话立即被忘记了。
您可以在https://gitlab.com/ecocode/beaverapp处签出代码 转到登录页面,然后使用“用户”和“ pwd”登录。您被重新路由到/(指示登录成功),但是消息为“当前用户:-”。因此会话丢失了。
Routes.pm6的相关部分:
class UserSession does Cro::HTTP::Auth {
has $.username is rw;
method logged-in() {
defined $!username;
}
}
my $routes = route {
subset LoggedIn of UserSession where *.logged-in;
get -> UserSession $s {
content 'text/html', "Current user: {$s.logged-in ?? $s.username !! '-'}";
}
get -> LoggedIn $user, 'users-only' {
content 'text/html', "Secret page just for *YOU*, $user.username()";
}
get -> 'login' {
content 'text/html', q:to/HTML/;
<form method="POST" action="/login">
<div>
Username: <input type="text" name="username" />
</div>
<div>
Password: <input type="password" name="password" />
</div>
<input type="submit" value="Log In" />
</form>
HTML
}
post -> UserSession $user, 'login' {
request-body -> (:$username, :$password, *%) {
if valid-user-pass($username, $password) {
$user.username = $username;
redirect '/', :see-other;
}
else {
content 'text/html', "Bad username/password";
}
}
}
sub valid-user-pass($username, $password) {
# Call a database or similar here
return $username eq 'user' && $password eq 'pwd';
}
}
sub routes(Beaverapp $beaverapp) is export {
route {
# Apply middleware, then delegate to the routes.
before Cro::HTTP::Session::InMemory[UserSession].new;
delegate <*> => $routes;
}
}
我认为问题是由于中间件会话管理不起作用。我该如何纠正?还是问题可能是由于其他原因造成的?
答案 0 :(得分:7)
您看到的行为确实是由HTTP / 2堆栈内部的cookie处理错误引起的。
目前,该错误已修复,并且OP post中的代码可以正常工作。
答案 1 :(得分:3)
在cro irc频道上进行讨论之后,此问题仅在使用https 2时出现。因此上面的代码是正确的。