credenciales
This commit is contained in:
22
lib/Dojo.pm
22
lib/Dojo.pm
@@ -41,12 +41,12 @@ use Dojo::Model::Data;
|
|||||||
# =============================================================================
|
# =============================================================================
|
||||||
|
|
||||||
# admin =======================================================================
|
# admin =======================================================================
|
||||||
$r->any('/admin/home')->to('home#admin_home');
|
# $r->any('/admin/home')->to('home#admin_home');
|
||||||
$r->any('/admin/radio')->to('home#admin_radio');
|
#$r->any('/admin/radio')->to('home#admin_radio');
|
||||||
$r->any('/admin/eventos')->to('home#admin_eventos');
|
#$r->any('/admin/eventos')->to('home#admin_eventos');
|
||||||
$r->any('/admin/eventos/:type'=> [type=>['e','p','c']])->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/mensajes')->to('home#admin_mensajes');
|
||||||
$r->any('/admin/json/:dreq/:id')->to('home#admin_json');
|
#$r->any('/admin/json/:dreq/:id')->to('home#admin_json');
|
||||||
# =============================================================================
|
# =============================================================================
|
||||||
|
|
||||||
# login =======================================================================
|
# login =======================================================================
|
||||||
@@ -55,6 +55,16 @@ use Dojo::Model::Data;
|
|||||||
|
|
||||||
my $logged_in = $r->under('/')->to('users#is_logged');
|
my $logged_in = $r->under('/')->to('users#is_logged');
|
||||||
$logged_in->get('/radio')->to('home#radio');
|
$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');
|
||||||
|
|
||||||
# =============================================================================
|
# =============================================================================
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -115,6 +115,10 @@ sub tst{
|
|||||||
|
|
||||||
|
|
||||||
# Admin =======================================================================
|
# Admin =======================================================================
|
||||||
|
sub admin{
|
||||||
|
my $c= shift;
|
||||||
|
$c->redirect_to('/admin/home');
|
||||||
|
}
|
||||||
sub admin_home{
|
sub admin_home{
|
||||||
my $c=shift;
|
my $c=shift;
|
||||||
$c->dbv->umod($c->param('link'),$c->param('update'))
|
$c->dbv->umod($c->param('link'),$c->param('update'))
|
||||||
|
|||||||
@@ -4,19 +4,34 @@ use Dojo::Support qw{ merge_hash load_module };
|
|||||||
|
|
||||||
|
|
||||||
sub login {
|
sub login {
|
||||||
my $c = shift;
|
my $self = shift;
|
||||||
$c->stash((load_module("users/login"))[0]);
|
#falta si el usuario ya está registrado y llama a login.
|
||||||
my $user = $c->param('uname') // '';
|
if ($self->session('ureq')//1 == 4){
|
||||||
my $pass = $c->param('pass') //'';
|
$self->stash( css=>["users/login/cssaForm.css"]);
|
||||||
$c->stash(layout=>"defaultContact");
|
$self->stash(template=>'users/logina') ;
|
||||||
return $c->render unless my $pmid = $c->dbg->check($user, $pass);
|
$self->stash(layout=>"default");
|
||||||
$c->session(user => $user, pmid=>$pmid, nick=> $c->param('nick'));
|
}
|
||||||
$c->redirect_to('radio');
|
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 {
|
sub is_logged {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
return 1 if $self->session('user');
|
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');
|
$self->redirect_to('login');
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
46
public/users/login/cssaForm.css
Executable file
46
public/users/login/cssaForm.css
Executable file
@@ -0,0 +1,46 @@
|
|||||||
|
section.hero{
|
||||||
|
height:100vh;
|
||||||
|
background-repeat: no-repeat;
|
||||||
|
background-attachment: fixed;
|
||||||
|
background-size:cover;
|
||||||
|
background-image:url("puerta.jpg");
|
||||||
|
background-position: center center;
|
||||||
|
|
||||||
|
}
|
||||||
|
article.login{
|
||||||
|
background: rgba(33, 33, 33, 0.8);
|
||||||
|
color:white;
|
||||||
|
margin: auto 0px auto auto;
|
||||||
|
padding: 50px 0px;
|
||||||
|
text-align: center;
|
||||||
|
min-width: 400px;
|
||||||
|
width: 36%;
|
||||||
|
min-height: 100vh;
|
||||||
|
}
|
||||||
|
|
||||||
|
article.login p{
|
||||||
|
margin: 20vh auto 20px;
|
||||||
|
font-size: 2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
article.login form{
|
||||||
|
font-size:1.2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
label{
|
||||||
|
display:block;
|
||||||
|
margin:10px 5px 15px 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
form.login > input{
|
||||||
|
}
|
||||||
|
|
||||||
|
form.login > input#submit {
|
||||||
|
display:block;
|
||||||
|
margin:30px auto;
|
||||||
|
width:200px;
|
||||||
|
height:60px;
|
||||||
|
}
|
||||||
|
|
||||||
|
form.login > .pass{
|
||||||
|
}
|
||||||
@@ -1,6 +1,6 @@
|
|||||||
<section id="snav" class="flex nav anav">
|
<section id="snav" class="flex nav anav">
|
||||||
<article class="lhome">
|
<article class="lhome">
|
||||||
<a id="hhome" href="/home"></a>
|
<a id="hhome" href="/logout"></a>
|
||||||
</article>
|
</article>
|
||||||
<article class="tel">
|
<article class="tel">
|
||||||
<div id="tel" class="icon"></div>
|
<div id="tel" class="icon"></div>
|
||||||
|
|||||||
14
templates/users/logina.html.ep
Executable file
14
templates/users/logina.html.ep
Executable file
@@ -0,0 +1,14 @@
|
|||||||
|
<section class="hero">
|
||||||
|
<article class="login">
|
||||||
|
<p>Admin</p>
|
||||||
|
<form class="login" action="" method="post">
|
||||||
|
<label>Nombre:</label>
|
||||||
|
<input type="text" name="uname" value="">
|
||||||
|
<label>Nick chat:</label>
|
||||||
|
<input type="text" size="20" name="nick" value=""/>
|
||||||
|
<label class="pass">Contraseña:</label>
|
||||||
|
<input class="pass" type="password" size="15" name="pass" value=""/>
|
||||||
|
<input type="submit" id="submit" value="Entrar"/>
|
||||||
|
</form>
|
||||||
|
</article>
|
||||||
|
</section>
|
||||||
Reference in New Issue
Block a user