Ver Tema

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:

Syntax: [ Download ] [ Hide ]

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>

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

explorer · 2009-06-26 17:24 @766

En cuanto al fallo, se me ocurre que puede ser por un fallo de lógica en el programa que hace salir 3 veces la misma salida. ¿Un error en la definición de la plantilla TT?

fjmn2001 · 2009-06-26 19:01 @834

Te explico bien lo que pasa.

Syntax: (mpa.pl) [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
#dentro de la carpeta cgi-bin
use strict;
use MPA;
 
my $app = MPA->new();
   $app->run();

Syntax: (MPA.pm) [ Download ] [ Hide ]

Using perl Syntax Highlighting

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';

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.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use lib "/usr/lib/cgi-bin/"; #en el archivo mpa.pl

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.

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.

Publicidad

Socializa