c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

credenciales

Browse Source
This commit is contained in:
mynah
2018-07-25 19:07:29 -05:00
parent 211e710efd
commit a2567e8936
6 changed files with 104 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/Dojo.pm
View File

@@ -41,12 +41,12 @@ use Dojo::Model::Data;
# =============================================================================
# admin =======================================================================
$r->any('/admin/home')->to('home#admin_home');
$r->any('/admin/radio')->to('home#admin_radio');
$r->any('/admin/eventos')->to('home#admin_eventos');
$r->any('/admin/eventos/:type'=> [type=>['e','p','c']])->to('home#admin_eventos');
$r->any('/admin/mensajes')->to('home#admin_mensajes');
$r->any('/admin/json/:dreq/:id')->to('home#admin_json');
# $r->any('/admin/home')->to('home#admin_home');
#$r->any('/admin/radio')->to('home#admin_radio');
#$r->any('/admin/eventos')->to('home#admin_eventos');
#$r->any('/admin/eventos/:type'=> [type=>['e','p','c']])->to('home#admin_eventos');
#$r->any('/admin/mensajes')->to('home#admin_mensajes');
#$r->any('/admin/json/:dreq/:id')->to('home#admin_json');
# =============================================================================
# login =======================================================================
@@ -55,6 +55,16 @@ use Dojo::Model::Data;
my $logged_in = $r->under('/')->to('users#is_logged');
$logged_in->get('/radio')->to('home#radio');
my $admin = $r->under('/admin')->to('users#is_admin');
$admin->any('')->to('home#admin');
$admin->any('home')->to('home#admin_home');
$admin->any('radio')->to('home#admin_radio');
$admin->any('eventos')->to('home#admin_eventos');
$admin->any('eventos/:type'=> [type=>['e','p','c']])->to('home#admin_eventos');
$admin->any('mensajes')->to('home#admin_mensajes');
$admin->any('json/:dreq/:id')->to('home#admin_json');
# =============================================================================

4
lib/Dojo/Controller/Home.pm
View File

@@ -115,6 +115,10 @@ sub tst{
# Admin =======================================================================
sub admin{
my $c= shift;
$c->redirect_to('/admin/home');
}
sub admin_home{
my $c=shift;
$c->dbv->umod($c->param('link'),$c->param('update'))

31
lib/Dojo/Controller/Users.pm
View File

@@ -4,19 +4,34 @@ use Dojo::Support qw{ merge_hash load_module };
sub login {
my $c = shift;
$c->stash((load_module("users/login"))[0]);
my $user = $c->param('uname') // '';
my $pass = $c->param('pass') //'';
$c->stash(layout=>"defaultContact");
return $c->render unless my $pmid = $c->dbg->check($user, $pass);
$c->session(user => $user, pmid=>$pmid, nick=> $c->param('nick'));
$c->redirect_to('radio');
my $self = shift;
#falta si el usuario ya está registrado y llama a login.
if ($self->session('ureq')//1 == 4){
$self->stash( css=>["users/login/cssaForm.css"]);
$self->stash(template=>'users/logina') ;
$self->stash(layout=>"default");
}
else{
$self->stash( css=>["users/login/cssForm.css"]);
$self->stash(layout=>"defaultContact");
}
my $user = $self->param('uname') // '';
my $pass = $self->param('pass') //'';
return $self->render unless my $pmid = $self->dbg->check($user, $pass);
$self->session(user => $user, pmid=>$pmid, nick=> $self->param('nick'));
$self->redirect_to($self->session('prev'));
}
sub is_logged {
my $self = shift;
return 1 if $self->session('user');
$self->session(prev=>$self->url_for);
$self->redirect_to('login');
}
sub is_admin {
my $self = shift;
return 1 if ($self->session('pmid')==4);
$self->session(ureq=>4,prev=>$self->url_for);
$self->redirect_to('login');
}