🚀 go-pugleaf

Piotr Piatkowski wrote:
> 
> sub send_mail {
>  my( $from, $to, $subject, $body ) = @_;
>  open( SM, "|/usr/sbin/sendmail -f$from $to" )
>    or die "open sendmail: $!";
>  print SM "From: $from\n";
>  print SM "To: $to\n";
>  print SM "Subject: $subject\n";
>  print SM "Mime-version: 1.0\n";
>  print SM "Content-type: text/plain; charset=ISO-8859-2\n";
>  print SM "Content-transfer-encoding: 8bit\n";
>  print SM "\n";

Az do tego miejsca zamiast LF chyba musi byc CRLF.

>  print SM "$body";
>  close SM
>    or die "close sendmail: $!";
> }
> 
Ja bym proponowal wpisanie listu do zmiennej i wywolanie programu
sendmail
w nastepujacy sposob (sciezki zaleznie od systemu):
 system( "/usr/lib/sendmail -t <$tresc_listu" );

gdzie $tresc_listu:
From: xxxxx\r\n
To: xxxxx\r\n
Subject: xxx\r\n
\r\n
bla bla\n
bla bla\n

W zasadzie pole From: okresla sie jako parametr -f sendmaila, ale
sendmail czyta je tez z naglowka (testowalem na SunOS, Solaris i IRIX). 
W przypadku CGI nalezy unikac podawania adresu odbiorcy bezposrednio 
w funkcji open. Zlosliwy internauta poda jako swoj e-mail np. 
 jasio@xyz.pl < `cat /etc/passwd`
badz podobnie i shell to wykona. Oczywiscie mozna sprawdzac 
poprawnosc adresow e-mail, ale powyzsza metoda jest chyba wygodniejsza.

>Acha - jak siê u¿yje tego bez roota, to chyba sendmail dopisuje 
>jakie¶ ostrze¿enie do nag³ówków, ¿e nieautoryzowane u¿ycie opcji -f,
>czy co¶ takiego...

Jesli pole From: jest podane w naglowku, to system u mnie nic nie
dopisuje.

adam