recomendar esta pagina

[ProyectoGB]

alguien sabe si se puede hacer el tipico "recomiende esta pagina" en CGI, ó tiene el codigo

grax

adious

<a href="http://www.proyectogb.com/csc/"><img src="http://proyectogb.com/monitos_csc.gif" border=0 alt="click para entrar al CSC"></a>
<br>
Tienes una banda registrala <a href="http://proyectogb.com/contacto.htm">aqui!</a>

[BerkoviC]

Hola,

sí se puede hacer. Si lo hicieses en Perl podrías hacer algo así (un ejemplo básico):

# Recibes la cadena que te mande por el form en la variable datos, parseamos la cadena:
read(STDIN,$datos,$ENV{'CONTENT_LENGTH'});
@pares=split(/&amp;/,$datos);
foreach $par(@pares)
{
($nombre,$valor)=split(/=/,$par);
$valor =~ tr/+/ /;
$valor =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(&quot;C&quot;,hex($1))/eg;
$FORM{$nombre}=$valor;
push(@recibidos,$valor);
}

# Suponemos que el usuario nos manda a través del form su nombre y el e-mail de un amigo. Esto no es necesario pero trabajamos con más claridad:
($nombre,$mail_amigo)=@recibidos;

# Si tienes instalado en tu servidor el sendmail (observa que pongo dos retornos en el subject).
$prog_correo=&quot;/usr/lib/sendmail&quot;;
open(MAIL, &quot;|$prog_correo -t&quot;);
print MAIL &quot;To: $mail_amigo\n&quot;;
print MAIL &quot;From: [email protected]\n&quot;;
print MAIL &quot;Subject: Te recomiendo esta página\n\n&quot;;
print MAIL &quot;Hola, soy $nombre\n&quot;;
print MAIL &quot;bla, bla...\n&quot;;

# Y por último generas una respuesta html:
print &quot;Content-type:text/html\n\n&quot;;
print &quot;&lt;html&gt;&lt;body&gt;\n&quot;;
print &quot;Gracias $nombre por recomendar nuestra página.\n&quot;;

Bueno, es un ejemplo básico pero realmente lo que necesitas hacer no requiere mucho más. Lo único que puedes añadir es comprobar que no te manden cadenas vacías, que el correo contenga arroba o que las cadenas no excedan un tamaño determinado.

Espero que te sirva, un saludo.

[cauly]

Andá a:
http://www.webviva.com/biblioteca
ahi tenés varios cgi's
y te explica bastante entendible como configurarlos, cualquier cosa mandame un mail que yo tengo uno para recomendar