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

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');
}