Foro - Perl en Español

por **fjmn2001** » 2009-06-26 15:56 @705

Hola, estoy realizando una página utilizando varias herramientas, una de estas es CGI::Application.

Hice un formulario de prueba el cual subí a la página y funciona en mi computador personal, usando TT2, un archivo.pl y un archivo .pm.

Entonces el problema se presenta cuando lo traigo al servidor con el cual estamos trabajando: muestra varios problemas; el primero que solucioné es que no encontraba el archivo .pm pero el que no he logrado solucionar es que cuando se inicia la aplicación no funciona correctamente debido a que escribe la salida en la misma página sin limpiarla provocando algo similar a esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<b>aplicaciones</b><form method="post" action="/cgi-bin/mpa.pl" enctype="multipart/form-data">
<input type="submit" name=".submit" value="Volver" /><input type="submit" name="accion" value="Detalle" /><input type="hidden" name="palabra" value="aplicaciones"  /></form>
</body>
</html><!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Untitled Document</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<b>ddd</b><form method="post" action="/cgi-bin/mpa.pl" enctype="multipart/form-data">
<input type="submit" name=".submit" value="Volver" /><input type="submit" name="accion" value="Detalle" /><input type="hidden" name="palabra" value="ddd"  /></form>
</body>
</html><!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Formulario de Busqueda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<form method="post" action="/cgi-bin/mpa.pl" enctype="multipart/form-data">
Buscar en la base de datos<input type="text" name="database"  /><input type="submit" name=".submit" /><input type="hidden" name="accion" value="modo_2"  /></form>
 
</body>
</html>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Espero que puedan ayudarme porque ya llevo varios días tratando de solucionar este error y no encuentro la solución. Muchas Gracias.

package MPA;
# en la misma carpeta que el archivo anterior
use base qw(CGI::Application);
 
sub setup{
my $self = shift;
 
$self->run_modes(
        'modo_1' => 'm_for',
        'modo_2' => 'm_res',
        'Detalle' => 'm_det',
        );
 
        $self->start_mode('modo_1');
        $self->mode_param('accion');
 
}
 
sub m_for{
        my $self = shift;
        my $q = $self->query();
        
        $output .= $q->start_html(-title=>"Formulario de Busqueda");
        $output .= $q->start_form();
 
        $output .= "Buscar en la base de datos";
        $output .= $q->textfield(-name=>'database');
        $output .= $q->submit();
 
        $output .= $q->hidden(-name=>'accion',-value=>'modo_2');
        $output .= $q->end_form();
        $output .= $q->end_html();
 
        return $output;
        }
 
sub m_res {
 
          my $self = shift;
 
          # Obtener el objeto CGI.pm
          my $q = $self->query();
 
          my $salida = $q->param('database');
 
 
          $output .= $q->start_html();
          $output .= $q->b($salida);
          $output .= $q->start_form(-action=>'/cgi-bin/mpa.pl', -method=>'POST');
          $output .= $q->submit(-value=>'Volver');
          $output .= $q->submit(-value=>'Detalle', name=>'accion');
          $output .= $q->hidden(-value=>$salida, name=>'palabra');
          $output .= $q->end_form();
          $output .= $q->end_html();
          
 
 
          return $output;
 
    }
 
 
 sub m_det {
 
          my $self = shift;
 
          my $q = $self->query();
 
          my $salida = $q->param('palabra');
 
          $output .= $q->start_html();
          $output .= $q->start_form(-action=>'../cgi-bin/mpa.pl',-method=>'POST');
          $output .= $salida;
          $output .= $q->p ('Estos son los detalles');
          $output .= $q->p ('Detalles');
          $output .= $q->submit(-value=>'Volver');
          $output .= $q->end_form();
          $output .= $q->end_html();
          
          return $output;
 
    }
 
 
 
'1';
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Esto así de esta manera corre en mi computador personal (Ubuntu) perfectamente, pero cuando lo paso al servidor donde estamos trabajando (Debian) le tengo que hacer algunos cambios porque /var/log/apache2/error.log-- me indica que no se puede encontrar el archivo MPA.pm, esto lo hago agregando la siguiente línea.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use lib "/usr/lib/cgi-bin/";#en el archivo mpa.plColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Entonces cuando entro al navegador "192.168.20.254/cgi-bin/mpa.pl, aparece todo bien pero al empezar a utilizar el formulario empieza a agregar los template en el navegador sin limpiar la página lo que provoca que genere varios html dentro de una página.

por **explorer** » 2009-06-28 19:09 @840

Ya veo el error: el CGI es ejecutado por mod_perl (lo cual está bien) y la varible $output no es inicializada, por lo que mantiene su valor en cada invocación.

Foro - Perl en Español

Problemas CGI::Application y mod_perl

Problemas CGI::Application y mod_perl

Publicidad

¿Quién está conectado?