58 lines
954 B
58 lines
954 B
package NGCP::Panel::Controller::Logout;
|
|
use NGCP::Panel::Utils::Generic qw(:all);
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use parent 'Catalyst::Controller';
|
|
|
|
=head1 NAME
|
|
|
|
NGCP::Panel::Controller::Logout - Catalyst Controller
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Catalyst Controller.
|
|
|
|
=head1 METHODS
|
|
|
|
=cut
|
|
|
|
|
|
=head2 index
|
|
|
|
=cut
|
|
|
|
sub logout_index :Path {
|
|
my ( $self, $c, $realm ) = @_;
|
|
|
|
$c->logout;
|
|
$c->response->redirect($c->uri_for('/login'));
|
|
}
|
|
|
|
sub ajax_logout :Chained('/') :PathPart('ajax_logout') :Args(0) {
|
|
my ( $self, $c ) = @_;
|
|
|
|
delete $c->session->{framed} if ($c->session->{framed});
|
|
$c->logout;
|
|
$c->response->status(200);
|
|
$c->response->content_type('application/json');
|
|
$c->response->body('');
|
|
$c->detach( $c->view("JSON") );
|
|
}
|
|
|
|
=head1 AUTHOR
|
|
|
|
Andreas Granig,,,
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software. You can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|
|
|
|
=cut
|
|
|
|
|
|
1;
|
|
# vim: set tabstop=4 expandtab:
|