🚀 go-pugleaf

Marek Zurowicz (eizurowi@cyf-kr.edu.pl) wrote:
: Czy ktos moze zna rozwiazanie problemu wysylania email z Perla ?
: Potrzebuje zrobic strone www z ktorej mozna zasubskrybowac
: kankretna 'mailing list'
: klient wpisuje swoj email, naciska submit i .....
	zalozywszy ze w foremce sa pola tekstowe: email, pole1, pole2, to
wywolywany skrypt moze byc taki...
------------------------------------
#!/usr/bin/perl -w
use CGI qw(standard);

$q=new CGI;

$email=$q->param('email');
open(M, "| mail $email -s 'Gosc wpisal na stronie'");

print M, "Pole1: ".$q->param('pole1');
print M, "Pole2: ".$q->param('pole2');

close(M);

------------------------------------------------

--
Bartek Czardybon
http://www.silesia.pik-net.pl/~czar