Added token administration page set
This commit is contained in:
parent
61d609861a
commit
b10daa469a
5 changed files with 259 additions and 2 deletions
82
lib/Pear/LocalLoop/Controller/Admin/Tokens.pm
Normal file
82
lib/Pear/LocalLoop/Controller/Admin/Tokens.pm
Normal file
|
@ -0,0 +1,82 @@
|
|||
package Pear::LocalLoop::Controller::Admin::Tokens;
|
||||
use Mojo::Base 'Mojolicious::Controller';
|
||||
|
||||
has result_set => sub {
|
||||
my $c = shift;
|
||||
return $c->schema->resultset('AccountToken');
|
||||
};
|
||||
|
||||
sub index {
|
||||
my $c = shift;
|
||||
|
||||
my $token_rs = $c->result_set;
|
||||
$token_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
|
||||
$c->stash( tokens => [ $token_rs->all ] );
|
||||
}
|
||||
|
||||
# POST
|
||||
sub create {
|
||||
my $c = shift;
|
||||
|
||||
my $token_name = $c->param('token-name');
|
||||
|
||||
my $token_rs = $c->result_set;
|
||||
|
||||
if ( $token_rs->find({ accounttokenname => $token_name }) ) {
|
||||
$c->flash( error => 'Token Already Exists' );
|
||||
} else {
|
||||
$c->flash( success => 'Token Created' );
|
||||
$token_rs->create({ accounttokenname => $token_name });
|
||||
}
|
||||
$c->redirect_to( '/admin/tokens' );
|
||||
}
|
||||
|
||||
# GET
|
||||
sub read {
|
||||
my $c = shift;
|
||||
|
||||
my $id = $c->param('id');
|
||||
|
||||
if ( my $token = $c->result_set->find($id) ) {
|
||||
$c->stash( token => $token );
|
||||
} else {
|
||||
$c->flash( error => 'No Token found' );
|
||||
$c->redirect_to( '/admin/tokens' );
|
||||
}
|
||||
}
|
||||
|
||||
# POST
|
||||
sub update {
|
||||
my $c = shift;
|
||||
|
||||
my $id = $c->param('id');
|
||||
|
||||
if ( my $token = $c->result_set->find($id) ) {
|
||||
$token->update({
|
||||
accounttokenname => $c->param('token-name'),
|
||||
used => $c->param('token-used'),
|
||||
});
|
||||
$c->flash( success => 'Token Updated' );
|
||||
$c->redirect_to( '/admin/tokens/' . $id );
|
||||
} else {
|
||||
$c->flash( error => 'No Token found' );
|
||||
$c->redirect_to( '/admin/tokens' );
|
||||
}
|
||||
}
|
||||
|
||||
# DELETE
|
||||
sub delete {
|
||||
my $c = shift;
|
||||
|
||||
my $id = $c->param('id');
|
||||
|
||||
if ( my $token = $c->result_set->find($id) ) {
|
||||
$token->delete;
|
||||
$c->flash( success => 'Token Deleted' );
|
||||
} else {
|
||||
$c->flash( error => 'No Token found' );
|
||||
}
|
||||
$c->redirect_to( '/admin/tokens' );
|
||||
}
|
||||
|
||||
1;
|
Reference in a new issue