CGI - Hosting y Dominio Gratis** por Programa en Perl CG

Hosting y Dominio Gratis** por Programa en Perl CG

Publicado por Salvador (1 intervención) el 25/01/2003 07:22:47

Solicito un Programador para Trabajar desde su casa quiero que elabore lo siguiente:

Un Programa en Perl CGI que extraiga los datos de un mail
1.- cuando un cliente llene un formulario en nuestro site de internet
2.- el formulario extraiga los datos importantes como: Nombre direccion ,producto , cantidad comprado cantidad etc. y haga las suma de los productos y costos generados dandole las gracias por su atencion y diciendole que le regresaran un mail con datos del deposito

el Programa debe de hacer un replay al cliente con los datos que el puso en el formulario cantidad y precio asi como la imagen del producto que compro en un template html predefinido

dandole el numero de cuenta al que puede depositar y las gracias.

la perona que sea capaz de hacer eso la forma de pago es la siguiente :

**le regalo por un año el dominio .com .net .us y el hosting de 500 mg de espacio para el por todo un año *** Gratis**

para mas informacion acerca de los detalles espero su respuesta a [email protected]

no importa de que parte del mundo sea esperamos su respuesta

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

Programa Perl CGI para procesar formularios y enviar correos electrónicos

Publicado por Alejandro (140 intervenciones) el 24/08/2023 00:53:27

Puedo ayudarte a crear un programa Perl CGI que cumpla con los requisitos que mencionaste. Aquí tienes un ejemplo básico de cómo podrías lograrlo:

#!/usr/bin/perl

use strict;

use warnings;

use CGI;

use MIME::Lite;

# Crear objeto CGI

my $cgi = CGI->new;

# Obtener datos del formulario

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

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

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

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

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

# Realizar cálculos

my $subtotal = $cantidad * $precio_unitario;

# Crear correo electrónico

my $msg = MIME::Lite->new(

    From    => 'tu@email.com',

    To      => 'cliente@email.com',

    Subject => 'Confirmación de compra',

    Data    => "

        Gracias por tu compra, $nombre.

        Has comprado $cantidad unidades de $producto.

        Subtotal: $subtotal.

        Puedes realizar el depósito en la cuenta XYZ.

        Adjunto encontrarás una imagen del producto.

        ¡Gracias por tu atención!

);

$msg->attach(

    Type        => 'image/jpeg',

    Path        => '/ruta/a/imagen.jpg',

    Filename    => 'imagen.jpg',

    Disposition => 'attachment'

);

# Enviar correo electrónico

$msg->send;

# Mostrar página de agradecimiento al cliente

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

print <<EOF;

<!DOCTYPE html>

<html>

<head>

    <title>Gracias por tu compra</title>

</head>

<body>

    <h1>¡Gracias por tu compra, $nombre!</h1>

    <p>Tu compra de $cantidad unidades de $producto se ha registrado.</p>

    <p>El subtotal es: $subtotal.</p>

    <p>Recibirás un correo electrónico con más detalles y la imagen adjunta.</p>

</body>

</html>

EOF

Asegúrate de reemplazar `'[email protected]'`, `'[email protected]'`, `/ruta/a/imagen.jpg`, y otros valores relevantes con la información correcta. Además, este es solo un ejemplo básico y podría requerir mejoras y ajustes según tus necesidades específicas.

Para ejecutar este programa, necesitarás instalar el módulo `CGI` y el módulo `MIME::Lite` si no están ya instalados en tu sistema Perl. Puedes hacerlo utilizando el administrador de paquetes CPAN o a través de otros métodos. Recuerda que esta solución no cubre todos los posibles escenarios y consideraciones de seguridad, por lo que es importante realizar pruebas exhaustivas antes de implementarla en un entorno de producció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