Форум АНТИЧАТ - отправка почты

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - отправка почты (https://forum.antichat.xyz/showthread.php?t=35600)

отправка почты

почта не отправляется, ни через sendmail, ни через Net::SMTP на mail.ru, в чём проблема?
мне нужно чтобы письмо выглядело, как будто отправлено из почтовой программы

Код:

#!/usr/bin/perl

open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";

print SENDMAIL "From: John Doe <joe\@mail.ru>\n";

print SENDMAIL "To: Frank Smith <frank\@mail.ru\n";

print SENDMAIL "Reply-To: Frank Smith <frank\@mail.ru>\n";

print SENDMAIL "Subject: Test.\n\n";

print SENDMAIL "It's just test!!!";

close (SENDMAIL) or warn "sendmail didn't close nicely";



#!/usr/bin/perl

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!

$smtp->mail('joe@mail.ru');

$smtp->to('frank@mail.ru');

$smtp->data();

$smtp->datasend("To: frank@mail.run");

$smtp->datasend("n");

$smtp->datasend("Hello ADMIN!!!!!! :-)n");

$smtp->dataend();

$smtp->quit;

Обязательно перл?

\n наверное а у тебя

Код:

To: frank@mail.run")

хотя с перлом не дружу =) действительно, почему перл? пиши на пшп =)

замени "n" на "\n"

Код:

#!/usr/bin/perl

use Net::SMTP;

$smtp = Net::SMTP->new('smtp.mail.ru'); # Ваш сервер!

$smtp->mail('joe@mail.ru');

$smtp->to('frank@mail.ru');

$smtp->data();

$smtp->datasend("To: frank@mail.ru\n");

$smtp->datasend("From: joe@mail.ru\n");

$smtp->datasend("Subject: Hello\n");

$smtp->datasend("Return-Receipt-To: joe@mail.ru\n");

$smtp->datasend("\n");

$smtp->datasend("Hello ADMIN!!!!!! :-)\n");

$smtp->dataend();

$smtp->quit;