bye bye github

lib/Dojo/Controller/Home.pm

@@ -0,0 +1,99 @@
+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;