This commit is contained in:
mynah
2018-07-18 04:28:26 -05:00
parent 0a7d71e21c
commit 4f0061cd7d
61 changed files with 1396 additions and 43 deletions

View File

@@ -5,9 +5,10 @@ use Dojo::Support qw{ merge_hash load_module };
sub login {
my $c = shift;
$c->stash((load_module($c))[0]);
$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');