Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > sendmail

Автор: GShadrin 31.7.2009, 16:06

Здравствуйте
Пытаюсь отправить письмо с сервера, используя sendmail:

Код


#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type: text/plain\n\n";
$loginreg=param('loginreg');
$loginreg2=param('loginreg2');
$namereg=param('namereg');
$mailreg=param('mailreg');
$passreg=param('passreg');
$pass2reg=param('pass2reg');
$checkbox=param('checkbox');
#генерируем код
$code='';
for ($i=0; $i<50; $i++)
{
    $code.=chr(rand(200));
}
#отправка письма
open (SND,"|/usr/sbin/sendmail -t");
print SND "To: $mailregn";
print SND "From: [email protected]";
print SND "Subject: abcdnn";
print SND "abcd\n123456\n abcn";
close SND;

Письмо не приходит.
На сервере есть sendmail - точно, путь к нему указан верно.
Почему?
Я что то делаю не правильно?

Автор: KSURi 31.7.2009, 17:09

добавьте use strict и увидите ошибку

Автор: GShadrin 31.7.2009, 17:46

изменил на

Код


open (SND,"|/usr/sbin/sendmail -t");
print SND "To: $mailreg\n";
print SND "From: abcd\@yandex.ru\n";
print SND "Content-Type: text/plain; charset=windows-1251\n";
print SND "Subject: abcd\n\n";
print SND "abcd\n123456\n abc\n";
close SND;

странно здесь писали вместо \n просто n http://webmastak.com/article.aspx?id=261
отправляет, но русский текст со сбитой кодировкой

Добавлено через 9 минут и 18 секунд
нашел где почитать