CGI - envíale esta página...

envíale esta página...

Publicado por mario (1 intervención) el 18/07/2001 13:01:32

Amigos, necesitaría un cgi de esos "envíale esta página a un amigo".
No se nada sobre programación y necesito esto urgente. Si esto funcione de otra forma , ya sea un servlet, etc, me sirve igual, la cosa es que funcione y no se como hacerlo.
Muchas gracias!
Mario

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Enviar página a un amigo por correo electrónico

Publicado por Alejandro (140 intervenciones) el 22/08/2023 23:34:22

Si necesitas una forma sencilla de permitir que los usuarios envíen una página web a un amigo por correo electrónico, puedes utilizar un formulario HTML junto con un script CGI para procesar la solicitud. A continuación, te proporciono un ejemplo básico de cómo podrías hacerlo utilizando un script CGI en Perl:

1. Crear el formulario HTML:

<!DOCTYPE html>

<html>

<head>

    <title>Enviar Página a un Amigo</title>

</head>

<body>

    <h1>Enviar Página a un Amigo</h1>

    <form action="enviar_email.cgi" method="post">

        <label for="nombre">Tu Nombre:</label>

        <input type="text" name="nombre"><br>

        <label for="email">Tu Email:</label>

        <input type="email" name="email"><br>

        <label for="amigo">Email del Amigo:</label>

        <input type="email" name="amigo"><br>

        <input type="hidden" name="url" value="URL_DE_LA_PAGINA_ACTUAL">

        <input type="submit" value="Enviar Página">

    </form>

</body>

</html>

2. Crear el script CGI (enviar_email.cgi):

#!/usr/bin/perl

use strict;

use warnings;

use CGI;

my $cgi = CGI->new();

my $nombre = $cgi->param('nombre');

my $email = $cgi->param('email');

my $amigo = $cgi->param('amigo');

my $url = $cgi->param('url');

print $cgi->header('text/html');

# Generar el correo electrónico

my $subject = "¡Mira esta página interesante!";

my $message = "Hola $amigo,\n\n";

$message .= "$nombre te ha enviado una página interesante para que la veas:\n";

$message .= "$url\n\n";

$message .= "Saludos,\n$nombre";

# Enviar el correo electrónico

open(MAIL, "| /usr/sbin/sendmail -t") or die "No se pudo abrir sendmail: $!";

print MAIL "To: $amigo\n";

print MAIL "From: $email\n";

print MAIL "Subject: $subject\n\n";

print MAIL $message;

close(MAIL);

print "Correo electrónico enviado exitosamente a $amigo.";

En este ejemplo, el formulario HTML recopila el nombre, el email del usuario y el email del amigo al que se enviará la página. También se incluye una entrada oculta "url" para almacenar la URL de la página actual. Cuando el formulario se envía, el script CGI procesa los datos y envía un correo electrónico al amigo con la URL de la página.

Nota: Este es un ejemplo básico y no incluye autenticación ni validación exhaustiva de datos. Asegúrate de entender la seguridad antes de implementar esto en un entorno en vivo. Además, verifica cómo se configura el comando `sendmail` en tu servidor, ya que puede variar según la configuración.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar