Hola Ernesto:
Si piensas en usar Perl no creo que tengas ning�n problema.
Seguramente con hacer uso de los m�dulos CGI y LWP sea m�s que suficiente:
el m�dulo CGI
este m�dulo se usa para leer los campos de una forma enviada desde el
Netscape a nuestro programa Perl... a travez de un servidor http como el
Apache
# programa vt6100.pl
use CGI;
$q = new CGI;
# $q es una referencia tipo CGI...
# o mas simplemente un objeto CGI
$nom = $q->param ('nom');
$art = $q->param ('art');
$can = $q->param ('can');
# param es una funci�n de CGI que nos da el valor de un
# campo de la forma... 'nom' 'art' 'can' son nombres
# de campos de la forma en una p�gina html que muy
# posiblemente salio de nuestro servidor http
# el pgma contin�a revisando el pedido, acept�ndolo si esta ok
# y finalmente, d�ndole al cliente (con print por supuesto)
# una respuesta adecuada...
la historia completa es esta:
un cliente pide nuestra forma de pedidos... digamos
vt6100.html...
vt6100.html es algo como esto:
<h1>pedido</h1>
<form method=post action=http://epq.com.co/cgi-bin/vt6100.pl>
<p>nombre <input name=nom size=30>
<p>codigo del articulo <input name=art size=8>
<p>cantidad<input name=can size=10>
<p><input type=submit value=enviar>
</form>
una vez que el cliente llena la forma y da click en "enviar"
el Netscape del ciente envia los campos de la forma al
servidor...
el servidor ejecuta el programa vt6100.pl (el programa
Perl que se habl� arriba) y le pasa los campos de la forma...
el programa vt6000.pl lee los campos de la forma usando
el m�dulo CGI como se explic� arriba
el m�dulo LWP
este m�dulo se usa para accesar servicios de internet como poner
correo o leer una p�gina... por supuesto que sin usar el Netscape
el m�dulo LWP maneja varios objetos:
LWP::UserAgent : el que se conecta al servidor
HTTP::Request : lo que se pide al servidor
HTTP::Response : lo que se recibe del servidor
ejemplo para enviar correo:
use LWP;
# 1. crear un agente ( user-agent )
$wuag = new LWP::UserAgent;
# 2. crear una peticion ( request )
$wreq = new HTTP::Request (
POST => 'mailto:[EMAIL PROTECTED]' );
# 3. llenar el encabezado (header) de la peticion
$wreq->header (
Subject => 'prueba de LWP' ,
From => 'alguien' );
# 4. llenar el contenido de la peticion
$wreq->content ( "me gusta este tutorial");
# 5. enviar la peticion con el agente
# y obtener una respuesta "
$wres = $wuag->request ( $wreq );
# 6. examinar la respuesta
$wres->is_success ? print "exito \n": print "error \n";
Estos fragmentos son de un tutorial que puedes encontrar en:
http://epq.com.co/~cjara/pd4270.cgi?perl/index.html
con que mires un poco algunos ejemplos que se presentan aqu�, si lo que deseas
es simplemente
leer un formulario y enviarlo por correo, seguramente no tengas ning�n problema
para
conseguir lo que quieres.
Un saludo,
Quique
Ernesto Chataing wrote:
> buenos d�as
>
> tengo un problema necesito crear un cgi para enviar un formulario v�a
> mail y necesito ustedes creen que me puedan ayudar
>
> gracias
>
> -----------------------------------
> Ernesto Chataing
> Gerencia de Tecnolog�a
> Banplus Banco de Inversi�n
> Telf. +58-2-9090650 Fax +58-2-9921843
> http://www.banplus.com
>
> --
> Unsubscribe? mail -s unsubscribe [EMAIL PROTECTED] < /dev/null
