#!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
$valores[0]
\n*; print qq*\t\t
\n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

//g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

//g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

$campos[0]

\n*; $campos[1] =~ s/
    /
      /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
      $extracto_1

      Ver más

      EndOfHTML if($campos[1]){ print <$titulo_2
      $extracto_2

      Ver más

      EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
      $campos[0]

      $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;
      INICIO DE CURSOS #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1; INSCRIPCIONES ABIERTAS Click para más información
      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;
       

      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

#!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
$valores[0]
\n*; print qq*\t\t
\n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

//g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

//g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

$campos[0]

\n*; $campos[1] =~ s/
    /
      /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
      $extracto_1

      Ver más

      EndOfHTML if($campos[1]){ print <$titulo_2
      $extracto_2

      Ver más

      EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
      $campos[0]

      $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

#!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
$valores[0]
\n*; print qq*\t\t
\n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

//g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

//g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

$campos[0]

\n*; $campos[1] =~ s/
    /
      /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
      $extracto_1

      Ver más

      EndOfHTML if($campos[1]){ print <$titulo_2
      $extracto_2

      Ver más

      EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
      $campos[0]

      $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

#!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
$valores[0]
\n*; print qq*\t\t
\n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

//g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

//g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

$campos[0]

\n*; $campos[1] =~ s/
    /
      /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
      $extracto_1

      Ver más

      EndOfHTML if($campos[1]){ print <$titulo_2
      $extracto_2

      Ver más

      EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
      $campos[0]

      $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

      Ver más

      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t
      $valores[0]
      \n*; print qq*\t\t
      \n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

      //g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

      //g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

      $campos[0]

      \n*; $campos[1] =~ s/
        /
          /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
          $extracto_1

          Ver más

          EndOfHTML if($campos[1]){ print <$titulo_2
          $extracto_2

          Ver más

          EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
          $campos[0]

          $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

#!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my ($segmento) = @_; my @fotos; my @variables = split(/\|/,$values[0]); # # Mostrar contenido use Switch; switch ($segmento){ case "banners" { mostrarBanners() } case "fechas_inicio_cursos" { mostrarFechasInicioCursos() } case "texto_dante" { mostrarTextoDante() } case "texto_col_izq" { mostrarTextoColumaIzquierda() } case "evento_destacado" { mostrarEventoDestacado("cultura") } case "articulos_recientes" { mostrarArticulosRecientes() } case "sabias_que" { mostrarSabiasQue() } case "titulos" { mostrarTitulos($q->param("c")) } # c: id columna case "seo" { mostrarSEO() } } } ############################################### # Mostrar banners ############################################### sub mostrarBanners { # my $contador = 0; my $class; # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,@valores) = split(/\|/,$_); # # if($contador < 1){ $class = "active item"; }else{ $class = "item"; } # #print qq*\t\t

$valores[0]
\n*; print qq*\t\t
\n*; $contador++; } } ############################################### # Mostrar fechas inicio cursos ############################################### sub mostrarFechasInicioCursos { # my (@campos) = split(/\|/,$values[0]); print qq*$campos[0]*; } ############################################### # Mostrar texto dante ############################################### sub mostrarTextoDante { # $values[0] =~ s/

//g; $values[0] =~ s/<\/h2>/<\/span>/g; $values[0] =~ s/

//g; $values[0] =~ s/<\/h3>//g; $values[0] =~ s/(Dante Alighieri Monterrey)/$1<\/strong>/g; print $values[0]; } ############################################### # Mostrar texto columna izquierda ############################################### sub mostrarTextoColumaIzquierda { # my (@campos) = split(/\|/,$values[0]); #print qq*

$campos[0]

\n*; $campos[1] =~ s/
    /
      /g; print $campos[1]; } ############################################### # Mostrar evento destacado ############################################### sub mostrarEventoDestacado { my $file = shift; my (@campos) = split(/\|/,$values[0]); # Variables my $titulo_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_1 = obtenerDato($campos[0],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); my $titulo_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",1); my $extracto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",2); my $foto_2 = obtenerDato($campos[1],$vars{'ruta_dir_paginas'}."/$mod_slug/$file.file",4); # print <$titulo_1
      $extracto_1

      Ver más

      EndOfHTML if($campos[1]){ print <$titulo_2
      $extracto_2

      Ver más

      EndOfHTML } } ############################################### # Mostrar articulos recientes ############################################### sub mostrarArticulosRecientes { # my $contador = 0; my $art_max = 2; # Mostrar registros foreach $_ (reverse @values){ chomp($_); # my ($id,@campos) = split(/\|/,$_); # # if($contador < $art_max){ print < $campos[0]
      $campos[0]

      $campos[1]...

      EndOfHTML } # $contador++; } # No hay registros if($contador < 1){ print qq*No hay registros por el momento*; } } ############################################### # Mostrar sabias que ############################################### sub mostrarSabiasQue { # my (@campos) = split(/\|/,$values[0]); # print $campos[0]; } ############################################### # Mostrar titulos ############################################### sub mostrarTitulos { # my $campo = shift; # @campos = split(/\|/,$values[0]); # print $campos[$campo]; } ############################################### # Mostrar SEO ############################################### sub mostrarSEO { # my ($title,$mk,$md) = split(/\|/,$values[0]); # # Eliminar comillas $title =~ s/"/"/g; $title =~ s/\x93/"/g; $title =~ s/\x94/"/g; $title =~ s/\x96/-/g; $title =~ s/\x97/-/g; $mk =~ s/"/"/g; $mk =~ s/\x93/"/g; $mk =~ s/\x94/"/g; $mk =~ s/\x96/-/g; $mk =~ s/\x97/-/g; $md =~ s/"/"/g; $md =~ s/\x93/"/g; $md =~ s/\x94/"/g; $md =~ s/\x96/-/g; $md =~ s/\x97/-/g; print <$title EndOfSEO } 1;

      Estudia Italiano

      #!/usr/bin/perl -w print "Content-type:text/html\n\n"; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard escape); use Encode; use lib '/home/danteali/public_html/admin/modulos'; use Configuracion::varConfig qw(%vars); require 'lib/varias.pl'; # Variables my $q=new CGI; my $contador = 0; my $mod_slug = obtenerDato($q->param("m"),$vars{'ruta_modulos'},2); my $pag_slug = obtenerDato($q->param("p"),$vars{'ruta_paginas'},3); my @values = leerFile($vars{'ruta_dir_paginas'}."/$mod_slug/$pag_slug.file"); # if($q->param("a") eq "contenido"){ mostrarContenido($q->param("s")); #s: segmento }else{ print qq*Parámetro no válido\n*; } ############################################### # Mostrar contenido ############################################### sub mostrarContenido { # Variables my $segmento = shift; # Mostrar contenido use Switch; switch ($segmento){ case "redes_sociales" { mostrarRedesSociales() } case "aviso_privacidad" { mostrarAvisoPrivacidad() } case "direccion_footer" { mostrarDireccionFooter($q->param("c")) } # c: campo case "anio" { mostrarAnioFooter() } case "texto_ml" { mostrarTextoMailingList() } } } ############################################### # Mostrar redes sociales ############################################### sub mostrarRedesSociales { # Mostrar registros foreach $_ (@values){ chomp($_); # my ($id,$nombre_red,$link,$icono) = split(/\|/,$_); # $link = esURL($link); print qq*$nombre_red*; } } ############################################### # Mostrar aviso privacidad ############################################### sub mostrarAvisoPrivacidad { # $values[0] = tratarCampos($values[0]); $values[0] =~ s/

        /
          /g; # print $values[0]; } ############################################### # Mostrar direccion footer ############################################### sub mostrarDireccionFooter { # my $campo = shift; # @campos = split(/\|/,$values[0]); # Telefonos if($campo == 0){ # my @tels = split(/,/,$campos[$campo]); my $contador = 0; # foreach (@tels){ print "$_"; print ", " if $contador < scalar(@tels)-1; $contador++; } } # Direccion if($campo == 1){ $campos[$campo] =~ s///g; $campos[$campo] =~ s/<\/em>/<\/span>/g; print $campos[$campo]; } # Telefono if($campo == 3){ print "$campos[$campo]"; } } ############################################### # Mostrar anio ############################################### sub mostrarAnioFooter { # my ($sec, $min, $hr, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time); $year=$year+1900; print $year; } ############################################### # Mostrar texto mailing list ############################################### sub mostrarTextoMailingList { print $values[0]; } 1;