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

un poco turbio

Browse Source
This commit is contained in:
mynah
2018-07-27 16:45:29 -05:00
parent a2567e8936
commit 6811b19471
16 changed files with 229 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3,7 +3,6 @@ use Mojo::Base 'Mojolicious::Controller';
use Mojo::Template;
use Dojo::Support qw{ log dmph merge_hash load_module get_names};
use Dojo::Conf;
sub tst{
my $c=shift;
# $c->stash( merge_hash(
@@ -11,16 +10,22 @@ sub tst{
# (load_module("home/contact"))[0]
#));
# $c->stash(apend => ["home/contact"]);
$c->stash( (load_module("home/tst"))[0] );
$c->stash(layout=> "defaultContact");
my $x = [get_names("public/home/cal/img/")];
log("@$x");
$c->stash( ilist => $x);
$c->dbv->tst;
#$c->stash( (load_module("home/tst"))[0] );
#$c->stash(layout=> "defaultContact");
#my $x = [get_names("public/home/cal/img/")];
#log("@$x");
#$c->stash( ilist => $x);
#$c->dbv->tst;
$c->render(text=> $c->config->{radio}{'channel'});
}
# User ========================================================================
sub home_ {
my $c = shift;
$c->redirect_to("/home") ;
}
sub home {
my $c = shift;
$c->stash((load_module("home/home"))[0]);
@@ -92,6 +97,13 @@ sub tst{
$c->stash( t=>$c->dbv->podcast_txt, pod=>$c->dbv->podcast_infoHash);
}
sub bcast{
my $c = shift;
$c->stash((load_module("home/bcast"))[0]);
$c->stash( $c->dbv->conf_bcast);
}
sub radio{
my $c=shift;
$c->stash((load_module("home/radio"))[0]);