Alice
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Alice/HTTP/Server.pm view on Meta::CPAN
my ($self, $req, $res) = @_;
my $dest = $req->param("dest") || "/";
# no auth is required
if (!$self->auth_enabled) {
$res->redirect($dest);
$res->send;
}
# we have credentials
elsif (my $user = $req->param('username')
and my $pass = $req->param('password')) {
$self->authenticate($user, $pass, sub {
my $app = shift;
if ($app) {
$req->env->{"psgix.session"} = {
is_logged_in => 1,
username => $user,
userid => $app->user,
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.426 second using v1.00-cache-2.02-grep-82fe00e-cpan-20ab987cc5d )