🚀 go-pugleaf

Adam Glowacki <webmaster@baunet.de> wrote:
: 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.

Nie chce mi się szukać po RFC, ale jesteś tego pewien? Wydaje mi się 
że \r\n jest obowiązkowe tylko przy transmisji w sieci (np. przez 
port 25). Ale pewności nie mam. Tak czy inaczej - to co napisałem 
działa z powodzeniem od kilu tygodni ;-)

:>  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

He??? Znaczy się po rozwinięciu:

system( "/usr/lib/sendmail -t <From: xxxxx\r\nTo: xxx\r\n ...." ) ???

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

Tak dokładnie, to:

 -fname      Sets the name of the ``from'' person (i.e., the 
             sender of the mail).  -f can only be used by ``trusted'' 
             users (normally root, daemon, and network) or 
             if the person you are trying to become is the same as the 
             person you are.

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND