Re: [PERL] Sende mail i anden bruges navn

["Peter á Rógvu" <sslug@sslug>]

"Christian Nielsen" <sslug@sslug> skrev i en meddelelse
news:sslug@sslug
> Hej!
> Min apache server sender mails ud i forskellige anledningen. Desværre med
> sslug@sslug som afsender. Jeg vil hellere have en andren bruger som
> afsender eller en helt tredje emailadresse som afsender.
> Jeg har forsøgt med understående, uden held:
> MVH,
> Christian Nielsen
>
> open (mhand, "|/bin/mail -s 'Subject' sslug@sslug") or die "Can't run
> mail.\n";
>

NET:SMTP modulet er også let at bruge.
------------------
use Net::SMTP;

$MAIL = Net::SMTP->new("$MAILHOST");
$MAIL->mail($AFSENDER) ;
$MAIL->to("$MODTAGER") ;
$MAIL->data() ;
$MAIL->datasend("To: $MODTAGER\n") ;
$MAIL->datasend("Subject: $SUBJECT\n") ;
$MAIL->datasend("\n") ;
$MAIL->datasend("@BESKED") ;
$MAIL->dataend() ;
$MAIL->quit ;
-------------------------
Vh
Peter á Rógvu