Creo que ya sé cual es el problema, pero no sé cómo solucionarlo.
Using perl Syntax Highlighting
#!/usr/bin/perl
#
use CGI qw(:standard :form);
use CGI::Carp qw(fatalsToBrowser); # me parece que este es el problema
use Encriptador;
use Galleta;
use strict;
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Porque justamente después escribo un formulario pidiendo los datos (nombre de usuario/contraseña) y después de leerlos hay un if:($nom es el nombre de usuario)
Using perl Syntax Highlighting
if (($paraulapas eq $paraulanou)&&($paraulanou ne ''))
{
my $id = escribirG
($nom);#Escribe la galleta y retorna el usuario
print '<script type="text/JavaScript">','parent.menu.location="menu.cgi?',$id,'"','</script>';
print '<script type="text/JavaScript">','parent.principal.location="/identificado.html"','</script>';
}Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Esto es lo que tengo en JavaScript y me gustaría poder cambiar, pero al usar CGI::Carp cuando pongo
print redirect('laurl'); hace lo que comentaba antes, y si le pongo
Location me imprime el código tal cual. ¿Tu crees que haciendo un módulo para redireccionar funcionaría? Porque de momento tengo que dejarlo en JavaScript...