Re: [PERL] Sende mail i anden bruges navn

[Peter Makholm <sslug@sslug>]

Christian Nielsen <sslug@sslug> writes:

> open (mhand, "|/bin/mail -s 'Subject' sslug@sslug") or die "Can't run 
> mail.\n";

Enten ser du hvad der er af moduler på CPAN der hjælper med at sende
mail eller også kan du lave noget ala:

$sendmail = '/usr/lib/sendmail'; # configure this!
open MAIL, "|$sendmail" or die "Can't open pipe to $sendmail: $!"
print MAIL; <<"END"
From: $user
To: sslug@sslug
Subject: Mit subject

END
print MAIL $body;


Selvom du køre en anden MTA kan du antage at alle fornuftige MTA'er
har en sendmail-wrapper der implementere en fornuftig delmængde af
sendmail-kommandoen. POSIX definere faktisk et passende subset som man
altid bør kunne bruge.

-- 
 Peter Makholm     |    According to the hacker ethic, the meaning of life
 sslug@sslug |            is not Friday, but it is not Sunday either
 http://hacking.dk |                                      -- Peeka Himanen