Foro - Perl en Español

por **deer** » 2006-01-03 11:08 @506

Hola, ¿qué tal, amigos?

Bueno, les cuento. ¿Cómo puedo usar SSI desde un CGI? Me explico.

Tengo una web en CGI en Perl, la cual recoge datos (index.cgi?web=home.html).

Entonces, mi cgi imprime una página html (que está grabado en el CGI) y dentro de esta página quiero anexar otra (y la quiero llamar desde SSI) y además en esta misma quiero llamar a otro CGI.

Lo puedo hacer desde un .shtml, pero no es la idea ya que tendría que crear un shtml para cada página.

Mi web está compuesta por tres tablas; la del centro es la que cambia, las de las esquinas son estáticas.

Entonces, la idea es para entrar a la página HOME entro a index.cgi?web=home.htm; para entrar a descargas entro a index.cgi?web?descargas.htm ¿Me entienden la idea ? ¡Qué bueno!

Tengo todo listo, pero no sé cómo puedo usar SSI desde un CGI.

Sintáxis: (index.cgi) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# ---------------------------- Recoge los parametros
sub toma_entradas {
local($clase);
   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
 
      # Recoge el par name-value
      @pairs = split(/&/, $ENV{'QUERY_STRING'});
   }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
 
      # Lee la entrada
      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
      # Recoge el par name-value
      @pairs = split(/&/, $buffer);
   }
 
   foreach $pair (@pairs) {
      ($name, $value) = split(/\=/, $pair);
 
 
        # Desempaquetamos
 
      $name =~ tr/+/ /;
      $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
 
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
 
        # Eliminamos posibles intentos de ejecución de comandos
 
      $value =~ s/<!--(.|\n)*-->//g;
 
      $QUERY{$name} = $value;
 
  }
$clase=0;
while (($name, $value) = each(%QUERY)){
        $clase++;
  }
return($clase);
}
 
$numero_entradas=&toma_entradas;
# ---------------------------- Termina Recoge Parámetros
print "Content-type:text/html\n\n";
print("<html><table width=\"75%\">
  <tr>
    <td>MENU</td>
    <td><!--#include virtual=\"/web/".$QUERY{"web"}."\"--> </td>
    <td>MENU <!--#exec cgi=\"/cgi-bin/contador.cgi\"--> </td>
  </tr>
</table></html>\n");
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Entonces lo que sucede al entrar al index.cgi?web=home.html, entramos a una página con la tabla, pero sin contenido (solo las palabras menú) y si vemos el código fuente aparece:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html><table width="75%">
  <tr>
    <td>MENU</td>
    <td><!--#include virtual="/web/home.html"--> </td>
    <td>MENU <!--#exec cgi="/cgi-bin/contador.cgi"--> </td>
  </tr>
</table></html>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Entonces me imprime la página pero no ejecuta mis instrucciones SSI. ¿Cómo puedo lograr que ejecute mis instrucciones SSI?

¿Tendría que modificar
print "Content-type:text/html\n\n";

indicando que es un shtm? ¿cómo lo hago?

¡OJO! MI SERVIDOR SOLO PUEDE EJECUTAR SSI en archivos .shtm .shtml.

Gracias, mis amigos :oops:

Me explico. Si una página SSI, para formarse, necesita de la ejecución del servidor web, entonces lo que puedes hacer dentro de tu programa es pedir la página al servidor web, con un GET (usando el módulo lwp, por ejemplo). De esa forma tendrás la página completamente formada, incluidos SSI y CGI que estén incluidos en ella.

La pega es que tus estadísticas de acceso a las páginas saldrán con peticiones tuyas, de tu programa.

Si la mayor parte del trabajo del SSI es hacer los includes... yo me decantaría por rehacer todo el diseño de páginas, usando el módulo HTML::Template, por ejemplo.

por **deer** » 2006-01-03 14:22 @640

Gracias, viejo, por responder.

Sips, buena idea eso de utilizar esa librería, aunque todavía soy novato en Perl. Pero me voy a investigar más sobre esa librería y cómo utilizarla.

Pero, volviendo a la esencia de mi pregunta, ¿se puede ejecutar un comando SSI dentro de un CGI? (por supuesto en la parte de imprimir el HTML).

Saludos.

por **explorer** » 2006-01-03 15:03 @668

Desde luego, no se puede ejecutar un SSI dentro de un CGI, al menos de forma directa.

Aparte de la primera solución que te he dado, la de que sea el propio servidor web el que te dé la solución, las otras dos alternativas que se me ocurren serían:

Hacer un filtrado de la página e intentar imitar la ejecución del SSI, siempre y cuando sea 'fácil' hacer eso. Si sólo hay includes, parece 'fácil'. Pero como cuentas que una página SSI a su vez llama a otra, pues como que veo que esta solución puede ser complicada
La otra pasa por utilizar el módulo CGI::SSI. Yo no lo conozco y no sé si te servirá.

Insisto que quizás lo mejor sea pedir al servidor web que te dé las páginas ya formadas.

Yo optaría por hacerlo todo con HTML::Template...

por **deer** » 2006-01-03 15:41 @695

Sí, estuve buscando bastante información y es un poco complicado ejecutar SSI en un CGI.

Además estuve viendo los módulos instalados de Perl y al parecer no está CGI::SSI :cry:

¡je!

Bueno, mi viejo, entonces quedaría su opción. En mi index.cgi en la parte

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"Content-type:text/html\n\n";
print("<html><table width=\"75%\"> 

<tr> 

<td>MENU</td> 

<td>AQUÍ 1</td> 

<td>AQUÍ 2</td> 

</tr> 

</table></html>\n");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Entonces en AQUÍ 1, quiero "pegar", o sea, insertar la página con la variable ".$QUERY{"web"}.".
Dicha variable la recogió el cgi cuando lo llamamos index.cgi?web=home.htm.

Entonces debemos ingresar en esa parte un GET del módulo lwp como me dijiste, pero ¿cómo?

Entonces ya haciendo debe ser análogo para la segunda parte.

Bueno, mi viejo, si tienes tiempos no más, de todas maneras estoy leyendo todo lo que puedo.

Saludos, mi viejo.

por **deer** » 2006-01-03 15:57 @706

Encontré la solución ¡ji,ji,ji!
Como me dijo el amigo explorer usando LWP y GET.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
# ---------------------------- Recoge los parámetros 
sub toma_entradas { 
local($clase); 
if ($ENV{'REQUEST_METHOD'} eq 'GET') { 
 
# Recoge el par name-value 
@pairs = split(/&/, $ENV{'QUERY_STRING'}); 
} 
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { 
 
# Lee la entrada 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 
 
# Recoge el par name-value 
@pairs = split(/&/, $buffer); 
} 
 
foreach $pair (@pairs) { 
($name, $value) = split(/\=/, $pair); 
 
 
# Desempaquetamos 
 
$name =~ tr/+/ /; 
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
 
 
$value =~ tr/+/ /; 
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
 
 
# Eliminamos posibles intentos de ejecución de comandos 
 
$value =~ s/<!--(.|\n)*-->//g; 
 
$QUERY{$name} = $value; 
 
} 
$clase=0; 
while (($name, $value) = each(%QUERY)){ 
$clase++; 
} 
return($clase); 
} 
 
$numero_entradas=&toma_entradas; 
# ---------------------------- Termina Recoge Parámetros 
use LWP::Simple;
print "Content-type:text/html\n\n"; 
print("<html><table width=\"75%\"><tr> <td>MENU</td><td>
getprint ($ENV{'QUERY_STRING'});
print("</td> </tr></table></html>\n");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Entonces, al entrar al sitio http://www.sitio.com/index.cgi?http://h ... b/home.htm

Pego el sitio home.htm en la parte que quiero.

Gracias, viejo, por el dato del comando. Saludos

por **explorer** » 2006-01-03 15:59 @707

Aquí tienes un ejemplo de uso del LWP::Simple.
Tienes que poner en la función get() el URL completo a la página SSI que quieres incluir.

Actualización: llegó este correo después del tuyo

por **kidd** » 2006-01-03 21:35 @941

Hola:

Dentro del sitio hay un tutorial que te podría servir:
http://perlenespanol.com/archives-tut/000034.html

Ahora, también podrías hacer algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use LWP::Simple;
 
 
print "Content-type:text/html\n\n";
 
print "<html><table width=\"75\%\">\n";
print "<tr>\n";
print "<td>MENU</td>\n";
print "<td>";
 #aquí 1
 print get("http://tusitio.com/aqui2.htm");
print "</td>\n";
 
print "<td>";
 #aquí 2
 print get("http://tusitio.com/aqui2.htm");
print "</td>\n";
 
print "</tr>\n";
print "</table></html>\n";
 
 
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aunque te podría convenir más abrir los archivos y desplegarlos en el lugar que quieras, por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
 
 
#Directorio absoluto a los archivos
my $root = "/directorio/absoluto";
 
print "Content-type:text/html\n\n";
 
print "<html><table width=\"75\%\">\n";
print "<tr>\n";
print "<td>MENU</td>\n";
print "<td>";
 #aquí 1
 open(FILE,"$root/aqui2.htm");
   print while <FILE>;
 close(FILE);
print "</td>\n";
 
print "<td>";
 #aquí 2
 open(FILE,"$root/aqui2.htm");
   print while <FILE>;
 close(FILE);
print "</td>\n";
 
print "</tr>\n";
print "</table></html>\n";
 
 
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

SALUDOS

Foro - Perl en Español

Usar SSI desde un CGI

Usar SSI desde un CGI

Publicidad

Re: Usar SSI desde un CGI

Re: Usar SSI desde un CGI

Re: Usar SSI desde un CGI

¿Quién está conectado?