19 lines
490 B
Perl
19 lines
490 B
Perl
package CharmBoard::Controller::Logout;
|
|
use strict;
|
|
use warnings;
|
|
use experimental qw(try smartmatch);
|
|
use utf8;
|
|
use Mojo::Base 'Mojolicious::Controller', -signatures;
|
|
|
|
sub logout_do {
|
|
my $self = shift;
|
|
|
|
# destroy entry for this session in the database
|
|
$self->schema->resultset('Session')->search({
|
|
session_key => $self->session('session_key')})->delete;
|
|
# now nuke the actual session cookie
|
|
$self->session(expires => 1);
|
|
# redirect to index
|
|
$self->redirect_to('/')}
|
|
|
|
1; |