VPF::Помогите чайнику. Почему не работает?

SHAmanovi4

Дата 13.9.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет

Здравствуйте.
Помогите учащемуся. Есть скрипт:

Код


sub sendmail    {
open (MAIL,"|$mail_cmd") || print ("Could not execute '$mail_cmd'");
print MAIL <<End_of_Mail;
From: "$param{name}" <$param{email}>
To: "$mymail" <$mymail>
Subject: $param{title}
MIME-Version: 1.0
X-Ident-From: unknown
X-Priority: 3
Content-Type: text/plain; charset="Windows-1251"
Content-Transfer-Encoding: 8bit


$param{text}
================
Банк Аниме. Письмо с сайта.
http://anime.insyss.ru
End_of_Mail
close (MAIL);
}

Где $mail_cmd = '/usr/bin/sendmail -t -v';

Вопрос: почему почта не отправляется? Самое прикольное то, что скрипт:
1) получает верные данные (проверено)
2) верно обрабатывает данные (аналогично)
3) верно выводит (то же)
4) выводит отчет о успешном завершении работы скрипта. То есть, вроде как работает.

На деле ничего никуда не отправляется. Обращался в сервис-службу. Сказали, что у них все ОК, что сендмайл их лежит где надо и работает как полагается.

Я уже не знаю где может быть ошибка! smile

Помогите пожалуйста!

nitr

Дата 13.9.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

ну я не могу протестить... так чуть подправим что увидел ;)

строка 2 заменить

Код

open (MAIL, " |$mail_cmd ") or die "Could not execute '$mail_cmd' : $!";

в этом случае точно при ошибке её выведет

ну и проверь параметры что передаёшь.

--------------------

I love ArchLinux

korob2001

Дата 13.9.2006, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Модератор: Название темы, должно отражать её суть.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

SHAmanovi4

Дата 13.9.2006, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет

Цитата(nitr @ 13.9.2006, 10:54

)

ну и проверь параметры что передаёшь.

Проверял. Все нормально....

Цитата(korob2001 @ 13.9.2006, 11:11

)

Модератор: Название темы, должно отражать её суть.

Да, простите, не почитал правила. Да и сам ступил. Больше не повторится!

nitr

Дата 13.9.2006, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

вызови процедуру sendmail;
в неё внеси
print "и твои переменные";
может твоя процедура их не видит? our объяви smile

либо передавай процедуре sendmail, примерно так:

Код


...
sendmail($mymail, %param); #передаём мыло и хеш параметров :)
...

sub sendmail {
my $mymail = shift;
my %param = shift; #а тут принимаем ;)

open (MAIL, "| ") or die "Could not execute 'sendmail': $!";
print MAIL <<End_of_Mail;
From: "$param{name}" <$param{email}>
To: "$mymail" <$mymail>
Subject: $param{title}
MIME-Version: 1.0
X-Ident-From: unknown
X-Priority: 3
Content-Type: text/plain; charset="Windows-1251"
Content-Transfer-Encoding: 8bit


$param{text}
================
Банк Аниме. Письмо с сайта.
http://anime.insyss.ru
End_of_Mail
close (MAIL);
}

Это сообщение отредактировал(а) nitr - 13.9.2006, 12:45

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »