Pear-Trading/Foodloop-Server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Added token administration page set

Browse source
This commit is contained in:
Tom Bloor 2017-04-08 02:32:13 +01:00
parent 61d609861a
commit b10daa469a
5 changed files with 259 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/Pear/LocalLoop.pm
View file

@ -101,6 +101,11 @@ sub startup {
my $admin_routes = $r->under('/admin')->to('admin#under');
$admin_routes->get('/home')->to('admin#home');
$admin_routes->get('/tokens')->to('admin-tokens#index');
$admin_routes->post('/tokens')->to('admin-tokens#create');
$admin_routes->get('/tokens/:id')->to('admin-tokens#read');
$admin_routes->post('/tokens/:id')->to('admin-tokens#update');
$admin_routes->post('/tokens/:id/delete')->to('admin-tokens#delete');
$self->hook( before_dispatch => sub {
my $self = shift;

82
lib/Pear/LocalLoop/Controller/Admin/Tokens.pm Normal file
View 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;