Ver Tema

Sismetic · 2009-11-21 23:06 @004

Hola, gracias por ver mi "thread". Tengo un problema con CGI::Application y quiero ver qué estoy haciendo mal.

Este es el script con el que cargo la clase y hago el objeto:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!C:/Perl/bin/perl.exe
 
use warnings;
use strict;
use lib('./lib');
use Personalized;
use Data::Dumper;
 
my $prog = Personalized->new();
   $prog->run();

y esta es la clase (módulo):

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

package Personalized;
 
use warnings;
use strict;
use CGI;
use base qw( CGI::Application );
 
sub setup{
 
    my $self = shift;
    $self->run_modes(
    'Mode_1' => 'Home_Page',
    'Mode_2' => 'Do_Request'
    );
    $self->mode_param('action');
    $self->start_mode('Mode_1');
 
}
 
 
sub Home_Page{
 
    my $self = shift;
    my $tmpl = $self->load_tmpl('./Templates/Home Page/home_page.htm');
    return $tmpl->output;
 
}
 
sub Do_Request{
 
    my $self = shift;
    my $q = $self->query();
    my %Vars = $q->Vars;
 
    my $radio = $Vars{'find'};
    my $text_find = $Vars{'text_find'};
    my $tmpl = $self->load_tmpl('./Templates/Home Page/Home_Page.htm');
    my $URL;
    $text_find =~ s/ /+/g;
 
    if (!$radio){
        $tmpl->param('error' => 1);
        return $tmpl->output;
    }
    if (!$text_find){
        $tmpl->param('search_err' => 1);
        return $tmpl->output;
    }
    if ($radio eq 'Google'){
        $URL = "http://www.google.com.mx/search?hl=es&source=hp&q=$text_find&meta=&aq=f&oq=";
    }
    elsif($radio eq 'Psk'){
        $URL = "http://www.pskonejott.com/otc_display.php?character=$text_find";
    }
    elsif($radio eq 'W3'){
        $URL = "http://www.google.com/search?sitesearch=www.w3schools.com&as_q=$text_find";
    }
 
    $self->header_add(-location => $URL);
 
}
 
1;

He estado queriendo ver qué esta mal, porque antes me decía error fatal en el intérprete, pero le cambie algo, no me acuerdo y funcionó bien, pero ahora me dice:

Citar:

CGI::Application::run('Personalized=HASH(0x239e4c))' called at run_home_page.cgi line 10
at run_home_page.cgi line 1

explorer · 2009-11-21 23:21 @014

El mensaje de error solo indica que el error se ha producido dentro del módulo, pero nada más.

Inserta la línea

use CGI::Carp qw(fatalsToBrowser);

en el módulo, después de la de use CGI;, a ver si da más información.

No dejes de repasar el fichero de errores del servidor web.

Sismetic · 2009-11-21 23:57 @040

El error.log de Apache dice:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

[Sat Nov 21 22:56:45 2009] [error] [client XXX.X.X.X]  at G:/Naty/Apache/htdocs/run_home_page.cgi line 10, referer: http://localhost/

Me muestra esto:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

<h1>Software error:</h1>

<pre>Error executing run mode 'Mode_1': HTML::Template-&gt;new() : Cannot open included file ./Templates/Home Page/home_page.htm : file not found. at C:/Perl/lib/HTML/Template.pm line 1658

        HTML::Template::_init_template('HTML::Template=HASH(0x290ba0c)') called at C:/Perl/lib/HTML/Template.pm line 1238

        HTML::Template::_init('HTML::Template=HASH(0x290ba0c)') called at C:/Perl/lib/HTML/Template.pm line 1124

        HTML::Template::new('HTML::Template', 'filename', './Templates/Home Page/home_page.htm') called at C:/Perl/site/lib/CGI/Application.pm line 1720

        CGI::Application::load_tmpl('Personalized=HASH(0x239e4c)', './Templates/Home Page/home_page.htm') called at lib/Personalized.pm line 25

        Personalized::Home_Page('Personalized=HASH(0x239e4c)') called at C:/Perl/site/lib/CGI/Application.pm line 143

        eval {...} called at C:/Perl/site/lib/CGI/Application.pm line 142

        CGI::Application::__get_body('Personalized=HASH(0x239e4c)', 'Mode_1') called at C:/Perl/site/lib/CGI/Application.pm line 191

        CGI::Application::run('Personalized=HASH(0x239e4c)') called at C:\DOCUME~1\Trabajo\LOCALS~1\Temp\dzprltmp.pl line 10

 at C:\DOCUME~1\Trabajo\LOCALS~1\Temp\dzprltmp.pl line 10

</pre>

<p>

For help, please send mail to this site's webmaster, giving this error message

and the time and date of the error.

</p>

No sé qué significa :S solo que no encuentra el archivo, pero la ruta está correcta.

explorer · 2009-11-22 00:22 @057

El error es claro: no encuentra el fichero de la plantilla.

El problema es que le estás indicando la posición a la plantilla de forma relativa, pero no estamos seguros de que estemos en la posición correcta (el programa está ejecutándose en el sitio que por defecto hemos dejado).

Debes averiguar dónde se está ejecutando tu código. Y con respecto a esa posición, dar el de la plantilla. O dar una posición absoluta.

Más detalles sobre los directorios de trabajo.

Según veo, el programa está en "C:\DOCUME~1\Trabajo\LOCALS~1\Temp\dzprltmp.pl", por lo que a partir de ese sitio debe localizar "./Templates/Home Page/home_page.htm".

Sismetic · 2009-11-22 09:38 @443

Sí, el problema es que estaba poniendo la dirección relativa al módulo, no al script que lo estaba cargando. Gracias, y otra preguntita, ¿cómo pongo "RESUELTO"?

explorer · 2009-11-22 10:32 @480

Pulsa el botón "Aceptar respuesta" en el mensaje que crees que ha respondido a la cuestión planteada en el hilo. El botón está a la derecha, arriba, de cada mensaje.

Publicidad

Socializa