 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : un formulaire cgi ? | |
| stef_dobermann | voici une fonction écris en Perl ki envoi un mail tester sous Linux car sendmail pas, g pas essayer sous Windows,
$corp contient le corp du mail @tete estun tableu ki contient $tete[0] = email de l'emetteur $tete[1] = email du destinataire $tete[2] = sujet du mail sub envoimail { my ( $corps ) = shift; my ( @tete ) = shift; open(SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq" ) or die "fork impossible pour SendMail : $!\n"; print SENDMAIL <<"EOF_MAIL"; From: $tete[0] To: $tete[1] Subject: $tete[2] $corps EOF_MAIL close(SENDMAIL) or warn "Sendmail ne s'est pas fermé correctement\n"; } |
| Vue Rapide de la discussion |
|---|
