parriba

lib/Dojo/Controller/Admin.pm

@@ -5,78 +5,103 @@ use Mojo::Base 'Mojolicious::Controller';
 use Dojo::Support qw{ log };
 
 
-# pagina y mensajes ===========================================================
+
+# Admin =======================================================================
 sub admin{
-  my $c=shift;
-  my $n=$c->param("dreq")//"";
-  my $json = {status => "304"};
-  $json = ($c->dbv->rmsgid ($c->param('id')))[0] if ($n =~m/^mensajes$/); 
-  $json = ($c->dbv->ecourse($c->param('id')))[0] if ($n =~m/^ecourse$/); 
-  $json = ($c->dbv->qcourse($c->param('id')))[0] if ($n =~m/^qcourse$/); 
-  $json = ($c->dbv->qplace ($c->param('id')))[0] if ($n =~m/^qplace$/); 
-  $c->render(json=>$json);
+  my $c= shift;
+  $c->redirect_to('/admin/home');
 }
 
+sub home{
+  my $c=shift;
+  $c->dbv->umod($c->param('link'),$c->param('update'))  
+    if (($c->param("hup") // " " )=~/Cambiar/);
+  $c->stash(template=>"admin/home");
+  $c->stash(layout=>"admin");
+  $c->stash( $c->dbv->mod);
+}
+
+sub radio{
+  my $c=shift;
+  $c->dbv->umod($c->param('link'),'rmod')  
+    if (($c->param("hup") // " " )=~/Cambiar/);
+  $c->dbg->ugrulla_pass($c->param('gpass'))  
+    if (($c->param("pup") // " " )=~/Cambiar/);
+  $c->stash($c->dbv->mod);
+  $c->stash($c->dbg->grulla_pass);
+  $c->stash(apend => ["admin/candySwitch"]);
+  $c->stash(template=>"admin/radio");
+  $c->stash(layout=>"admin");
+}
+
+sub mensajes{
+  my $c=shift;
+  $c->stash( h=>$c->dbv->msg_heads);
+  $c->stash(template=>"admin/mensajes");
+  $c->stash(layout=>"admin");
+} 
+  
 
 # Eventos =====================================================================
-sub admin_eventos{
+sub eventos{
   my $c=shift;
   if ( (my $t=$c->param('type') // "") =~/[ecp]/){
     my $id=$c->param('id');
     my $req=$c->param('req');
     if ( $req eq "Eliminar"){
-      $c->dbv->event_del($id)  if ($t eq 'e');
-      $c->dbv->course_del($id) if ($t eq 'c');
-      $c->dbv->place_del($id)  if ($t eq 'p');
+      $c->mproc->event_del($id)  if ($t eq 'e');
+      $c->mproc->course_del($id) if ($t eq 'c');
+      $c->mproc->place_del($id)  if ($t eq 'p');
     } 
     elsif( $req eq "Aceptar"){
       if($t eq 'e'){
         my @list=map{$c->param($_)}qw/eplace yini mini dini yend mend dend cost promo pen ecourse eimg een id/;
-        $c->dbv->event_up(@list) if ($id ==0);
-        $c->dbv->event_ch(@list) if ($id >0);
+        $c->mproc->event_up(@list) if ($id ==0);
+        $c->mproc->event_ch(@list) if ($id >0);
       }
       if($t eq 'c'){
         my @list=map{$c->param($_)}qw/cname csubjects cservices cen id/;
-        $c->dbv->course_up(@list) if ($id ==0);
-        $c->dbv->course_ch(@list) if ($id >0);
+        $c->mproc->course_up(@list) if ($id ==0);
+        $c->mproc->course_ch(@list) if ($id >0);
       }
       if($t eq 'p'){
         my @list=map{$c->param($_)}qw/pname paddr pobs pto pst pco plat plng pen id/;
-        $c->dbv->place_up(@list) if ($id ==0);
-        $c->dbv->place_ch(@list) if ($id >0);
+        $c->mproc->place_up(@list) if ($id ==0);
+        $c->mproc->place_ch(@list) if ($id >0);
       }
     }
     $c->redirect_to("/admin/eventos");
   }
 
   $c->stash( 
-    courses=>$c->dbv->courses,
-    places=>$c->dbv->places,
-    months=>$c->dbv->months, 
-    events=>$c->dbv->events, 
-    img=>$c->dbv->eimgList,
+    courses=>$c->mproc->courses,
+    places=>$c->mproc->places,
+    months=>['enero','febrero','marzo','abril','mayo','junio','julio','agosto','septiembre','octubre','noviembre','diciembre' ],
+    events=>$c->mproc->events, 
+    img=>$c->mproc->eimgList,
   );
-  $c->stash(template=>"home/admin/event");
-  $c->stash(layout=>"admin");
-}
-
-sub admin_tienda{
-  my $c=shift;
-  $c->stash(u=>$c->dbv->user_heads);
-  $c->stash(s=>$c->dbv->store_heads);
-  $c->stash(template=>"home/admin/tienda");
+  $c->stash(template=>"admin/event");
   $c->stash(layout=>"admin");
 }
 
 # Funciones auxiliares ========================================================
-sub admin_json{
+sub json{
   my $c=shift;
   my $id = $c->param('id');
   my $req = $c->param('dreq');
   my $json = "304";
-  $json = $c->dbv->astore($id)   if $req=~/tienda/;
-  $json = $c->dbv->course($id) if $req=~/course/;
-  $json = $c->dbv->place($id)  if $req=~/place/;
-  $json = $c->dbv->eventa($id)  if $req=~/event/;
+  $json = $c->dbv->msg($id)    if $req=~/mensaje/;
+  $json = $c->dbv->rmsgid ($id) if $req =~/^mensajes$/; 
+
+  $json = $c->mproc->course($id) if $req=~/course/;
+  $json = $c->mproc->place($id)  if $req=~/place/;
+  $json = $c->mproc->eventa($id)  if $req=~/event/;
+  $json = $c->mproc->ecourse($id) if $req =~/^ecourse$/; 
+  $json = $c->mproc->qcourse($id) if $req =~/^qcourse$/; 
+  $json = $c->mproc->qplace ($id) if $req =~/^qplace$/; 
   $c->render(json=>$json);
 }
+
+
+
+1;

lib/Dojo/Controller/Home.pm

@@ -1,7 +1,7 @@
 package Dojo::Controller::Home;
 use Mojo::Base 'Mojolicious::Controller';
 use Mojo::Template;
-use Dojo::Support qw{ log get_names};
+use Dojo::Support qw{send_mail log get_names};
 use JSON;
 use Data::Dumper;
 #=========================
@@ -127,52 +127,5 @@ sub candy{
 
 #==============================================================================
 
-  
-# Admin =======================================================================
-  sub admin{
-    my $c= shift;
-    $c->redirect_to('/admin/home');
-  }
-  sub admin_home{
-    my $c=shift;
-    $c->dbv->umod($c->param('link'),$c->param('update'))  
-      if (($c->param("hup") // " " )=~/Cambiar/);
-    $c->stash(template=>"home/admin/home");
-    $c->stash(layout=>"admin");
-    $c->stash( $c->dbv->mod);
-  }
-  
-  sub admin_radio{
-    my $c=shift;
-    $c->dbv->umod($c->param('link'),'rmod')  
-      if (($c->param("hup") // " " )=~/Cambiar/);
-    $c->dbg->ugrulla_pass($c->param('gpass'))  
-      if (($c->param("pup") // " " )=~/Cambiar/);
-    $c->stash($c->dbv->mod);
-    $c->stash($c->dbg->grulla_pass);
-    $c->stash(apend => ["home/admin/candySwitch"]);
-    $c->stash(template=>"home/admin/radio");
-    $c->stash(layout=>"admin");
-  }
-  
-  sub admin_mensajes{
-    my $c=shift;
-    $c->stash( h=>$c->dbv->msg_heads);
-    $c->stash(template=>"home/admin/mensajes");
-    $c->stash(layout=>"admin");
-  } 
-    
-  sub admin_json{
-    my $c=shift;
-    my $id = $c->param('id');
-    my $req = $c->param('dreq');
-    my $json = "304";
-    $json = $c->dbv->msg($id)    if $req=~/mensaje/;
-    $json = $c->dbv->user($id)   if $req=~/usuarios/;
-    $c->render(json=>$json);
-  }
-
-
-#==============================================================================
 
 1;

lib/Dojo/Controller/Proc.pm

@@ -1,7 +1,7 @@
 package Dojo::Controller::Proc;
 use Mojo::Base 'Mojolicious::Controller';
 use Mojo::Template;
-use Dojo::Support qw{ log get_names};
+use Dojo::Support qw{ send_mail log get_names};
 
 use LWP::UserAgent;
 use HTTP::Request::Common;
@@ -125,6 +125,9 @@ sub intentConfirm{
   if ($r->{'status'} ne "succeeded" ){intentError($c,"payment not completed,2"); return;}
   
   $c->mproc->intentConfirm($data,$r);
+  map {  send_mail(@$_) }$c->mproc->notify($data,$r);
+  
+  
   my $rtt = { 
     'status'=>$r->{'status'},
     'plan' => $r->{'payment_method_options'}{'card'}{'installments'}{'plan'},

lib/Dojo/Controller/Users.pm

@@ -22,8 +22,7 @@ sub reg{
   $self->stash(layout=>"default");
 }
 
-
-  sub login {
+sub login {
   my $self = shift;
   #falta si el usuario ya está registrado y llama a login.
   if (($self->session('ureq')//0) == 4){ #admin
@@ -57,18 +56,21 @@ sub is_logged {
   $self->session(ureq=>1,prev=>$self->url_for);
   $self->redirect_to('login');
 }
+
 sub is_admin {
   my $self = shift;
     return 1 if ( ($self->session('pmid') //0) == 4);
   $self->session(ureq=>4,prev=>$self->url_for);
   $self->redirect_to('login');
 }
+
 sub is_grulla {
   my $self = shift;
     return 1 if (($self->session('pmid')//0)>=2);
     $self->session(ureq=>2,tmpreq=>0,prev=>$self->url_for);
     $self->redirect_to('login');
 }
+
 sub is_grulla_tmp{
   my $self = shift;
   return 1 if (($self->session('pmid')//0)>=2);