Mozilla y yo no nos llevamos bien, error con arroba
![Nota Nota](https://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Bueno les cuento que tengo un error con Mozilla y el arroba, primero tenía problemas con los acentos pero creo que lo solucioné con una línea pero lo del correo me creo un conflicto muy feo, este es el script de la planilla.
El encabezado del script:
Aquí la parte donde le digo al script que reconozca el arroba
Luego se crea la planilla y el error está contenido en la revisión, en donde me muestra en el email lo siguiente, el cual originalmente es [email protected]:
![Imagen](http://www.800guia.com/mydaboin/articulos/info-4.jpg)
El link de la planilla original es este, el explorer no ocurre ese error T_T
http://www.salondelempaque.com/cgi-bin/ ... itacion.pl
El encabezado del script:
Using perl Syntax Highlighting
#!/usr/bin/perl
##########################################################################
# Enviar Invitación Confex
# v.1.0 (c) 2005 Mayra Ramírez
#-------------------------------------------------------------------------
# Interprete Perl 5.0 o superior, en sistemas Unix.
##########################################################################
print "Content-type: text/html\nPragma: no cache\n\n";
print "<html><head><title>Enviar Invitación</title>\n";
print qq~
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
~;
print "<style TYPE=\"text/css\">\n";
print "<!--\n";
print "a \{ text-decoration: none; color:#8B1C62; font-size:18px \}\n";
print "a:hover\{ text-decoration: underline; color:red; font-size:20px \}\n";
print "b \{ font-size:12px; color:#ff0099; font-family: Arial;\}\n";
print "td \{ font-size:12px; color:navy; font-family: Arial;\}\n";
print "strong \{ font-size:16px; color:#8B3A62; font-family: Arial;\}\n";
print "body \{ font-size:12px; color:navy; font-family: Arial\; }\n";
print "// -->\n";
print "</style></head>\n";
print "<body bgcolor=White topmargin=5><center>\n";
##########################################################################
# Enviar Invitación Confex
# v.1.0 (c) 2005 Mayra Ramírez
#-------------------------------------------------------------------------
# Interprete Perl 5.0 o superior, en sistemas Unix.
##########################################################################
print "Content-type: text/html\nPragma: no cache\n\n";
print "<html><head><title>Enviar Invitación</title>\n";
print qq~
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
~;
print "<style TYPE=\"text/css\">\n";
print "<!--\n";
print "a \{ text-decoration: none; color:#8B1C62; font-size:18px \}\n";
print "a:hover\{ text-decoration: underline; color:red; font-size:20px \}\n";
print "b \{ font-size:12px; color:#ff0099; font-family: Arial;\}\n";
print "td \{ font-size:12px; color:navy; font-family: Arial;\}\n";
print "strong \{ font-size:16px; color:#8B3A62; font-family: Arial;\}\n";
print "body \{ font-size:12px; color:navy; font-family: Arial\; }\n";
print "// -->\n";
print "</style></head>\n";
print "<body bgcolor=White topmargin=5><center>\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Aquí la parte donde le digo al script que reconozca el arroba
Using perl Syntax Highlighting
##########################################################################
# Entrada de datos
##########################################################################
&Parametros(&Entrada);
$email=~s/\:/@/g;
$email=~s/\// /g;
#$email=~s/\-//g;
$year="";
$destino=~s/\:/@/g;
$destino=~s/\// /g;
$destino=~s/\-//g;
$fecha=&Fecha;
$edad=$year-$year_nac;
#$cargo=ucfirst(lc($cargo));
$cedula=~s/\E//g;
$cedula=~s/\e//g;
$cedula=~s/\V//g;
$cedula=~s/\v//g;
$cedula=~s/\.//g;
$cedula=~s/\-//g;
$cedula=~s/\ //g;
$tlf=~s/\// /g;
$tlf=~s/\-/ /g;
$tlf=~s/\./ /g;
if ($pais eq ""){
$pais="Venezuela";
}
##########################################################################
# Procedimientos
##########################################################################
&Revisar if $accion eq "revisar";
&Confirmar if $accion eq "Aceptar y enviar los datos";
&Captura;
print "</body></html>\n";
exit 0;
# Entrada de datos
##########################################################################
&Parametros(&Entrada);
$email=~s/\:/@/g;
$email=~s/\// /g;
#$email=~s/\-//g;
$year="";
$destino=~s/\:/@/g;
$destino=~s/\// /g;
$destino=~s/\-//g;
$fecha=&Fecha;
$edad=$year-$year_nac;
#$cargo=ucfirst(lc($cargo));
$cedula=~s/\E//g;
$cedula=~s/\e//g;
$cedula=~s/\V//g;
$cedula=~s/\v//g;
$cedula=~s/\.//g;
$cedula=~s/\-//g;
$cedula=~s/\ //g;
$tlf=~s/\// /g;
$tlf=~s/\-/ /g;
$tlf=~s/\./ /g;
if ($pais eq ""){
$pais="Venezuela";
}
##########################################################################
# Procedimientos
##########################################################################
&Revisar if $accion eq "revisar";
&Confirmar if $accion eq "Aceptar y enviar los datos";
&Captura;
print "</body></html>\n";
exit 0;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Luego se crea la planilla y el error está contenido en la revisión, en donde me muestra en el email lo siguiente, el cual originalmente es [email protected]:
![Imagen](http://www.800guia.com/mydaboin/articulos/info-4.jpg)
El link de la planilla original es este, el explorer no ocurre ese error T_T
http://www.salondelempaque.com/cgi-bin/ ... itacion.pl