100 lines
2.1 KiB
Perl
100 lines
2.1 KiB
Perl
|
package Dojo::Controller::Home;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
use Dojo::Support qw{ dmph merge_hash load_module };
|
||
|
|
use Dojo::Conf;
|
||
|
|
|
||
|
|
sub tst{
|
||
|
|
my $c=shift;
|
||
|
|
my ($v,$w)= load_module($c);
|
||
|
|
# $c->stash($v);
|
||
|
|
$c->stash(d =>$v);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub home {
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
$c->stash( map{ $_->{nombre} => $_->{contenido}} @{$c->dbv->mod});
|
||
|
|
}
|
||
|
|
|
||
|
|
sub pang {
|
||
|
|
my $c = shift;
|
||
|
|
my ($v,$w)=load_module($c);
|
||
|
|
$c->stash($v);
|
||
|
|
$c->stash( $c->dbv->pang($w) );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub cal {
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
my ($data,$block)=$c->dbv->cal;
|
||
|
|
my %hdata;
|
||
|
|
map{ push @{ $hdata{$_->{bid}} },$_; }(@$data);
|
||
|
|
$c->stash( r=>\%hdata, b=>$block);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub event{
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
$c->stash(%{($c->dbv->event($c->param("id")))->[0]});
|
||
|
|
}
|
||
|
|
sub contact{
|
||
|
|
my $c = shift;
|
||
|
|
if ($c->param("mup")){
|
||
|
|
$c->flash(mname => $c->param("mname"));
|
||
|
|
$c->redirect_to('contact2');
|
||
|
|
}else{
|
||
|
|
my $dir= "/$c->{stash}{controller}/$c->{stash}{action}";
|
||
|
|
$c->stash( css=>["$dir/cssContact1.css"], js=>[]);
|
||
|
|
$c->stash( layout=>"default");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub contact2{
|
||
|
|
my $c = shift;
|
||
|
|
$c->redirect_to("home") unless $c->flash('mname');
|
||
|
|
my $dir= "/$c->{stash}{controller}/contact";
|
||
|
|
$c->stash( css=>["$dir/cssContact2.css"], js=>[]);
|
||
|
|
$c->stash( layout=>"default");
|
||
|
|
$c->stash( mname=>$c->flash('mname'));
|
||
|
|
}
|
||
|
|
|
||
|
|
sub store{
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
$c->stash( r=>$c->dbv->store);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub tv{
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash( merge_hash(
|
||
|
|
(load_module($c))[0],
|
||
|
|
(load_module($c,"home/tv/trans"))[0]
|
||
|
|
));
|
||
|
|
my ($series,$table)=$c->dbv->tv;
|
||
|
|
$c->stash( series=>$series, table=>$table);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub podcast{
|
||
|
|
my $c = shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
|
||
|
|
my ($txt,$h)=$c->dbv->podcast;
|
||
|
|
$c->stash( t=>$txt, pod=>$h,);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub radio{
|
||
|
|
my $c=shift;
|
||
|
|
$c->stash((load_module($c))[0]);
|
||
|
|
$c->stash(%{($c->dbv->radio)->[0]});
|
||
|
|
$c->stash($Dojo::Conf::radio);
|
||
|
|
$c->stash(nick=>$c->session("nick"));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#$c->render(text =>"$c->{match}->position");
|
||
|
|
#$c->render(text=>"$c->{stash}{controller}");
|
||
|
|
#$c->render(text=>"$c->{match}{stack}->[0]{controller}");
|
||
|
|
#$c->render(text=>"$h->{css}[0]");
|
||
|
|
1;
|