🚀 go-pugleaf

In pl.comp.lang.perl Marek Zurowicz <eizurowi@cyf-kr.edu.pl> wrote:
> Czy ktos moze zna rozwiazanie problemu wysylania email z Perla ?
> Czy mozna to zrobic bezposrednio poprzez "mailto:..."
Lepiej do skryptu i z niego wywołac sendmaila :>
Np tak:

#!/usr/bin/perl 

read(STDIN, $bufor, $ENV{'CONTENT_LENGTH'});
@pary_zmiennych = split(/&/, $bufor);
foreach $jedna_para (@pary_zmiennych) 
   {
   ($nazwa, $wartosc) = split(/=/, $jedna_para);
   $wartosc =~ tr/+/ /;
   $wartosc =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $SUBMITED{$nazwa} = $wartosc;
   }

open (MAIL, "| /usr/lib/sendmail -t");
print MAIL "To: $SUBMITED{'adres_listservera_konkretnej_listy'}\n";
print MAIL "From: $SUBMITED{'email_delikwenta'}\n";
print MAIL "Subject: Pewnie bedzie blank\n\n";
print MAIL "subscribe $SUBMITED{'lista'} $SUBMITED{'nazwisko_delikwenta'}\n";
close MAIL;
print <<_EOB_;
Content-Type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><HTML><HEAD>
<TITLE>Wyslano zlecenie...blah blah blah</TITLE>
foo
bar
</HTML>
_EOB_

exit(0);
#eof

Oczywiście to tylko taka próbka (z głowy) i można to zmodyfikować na wiele
sposobów....

> dzieki 
Mam nadzieje że pomogłem. Odpowiedni formularz chyba sam już napiszesz :>
> m.z.
Poncki
PS. Mam nadzieje, że nie ma błędów.

-- 
 ______                    __     __
|   __ \.-----.-----.----.|  |--.|__|       Tomasz "Poncki" Piłat
|    __/|  _  |     |  __||    < |  |           poncki@irc.pl
|___|   |_____|__|__|____||__|__||__|        IRCNET IRC-OPerator
http://ajax.umcs.lublin.pl/~poncjusz/     http://lublin.irc.pl/~ircd/