Архив форумов ЦИТФорума

[smi02]

Люди, помогите, пожалуйста, со скриптом. Никак не могу понять в чём дело

Ошибка в этой части:

1.$mail_prog = 'C:/sendmail/sendmail.exe' ;
$str1="Reply-to:victorina@audioclub.ru\n";
$from="From:victorina@a.. Viktorina\n";
$str="Content-Type: text/html\n\n";
$anketahead="Фамилия,Имя,Отчество,Пол,Индекс,Область,.. $name2, $name3, $Sex, $PLZ, $region, $Rayon, $town, $street, $Building, $flat, $email, $Catalog, $Subscribe;
open (MAIL, "$mail_prog -t);
#print MAIL "To: AudioClub \n";

print MAIL $from;
print MAIL $subject;
print MAIL $str1;
#print MAIL "Ответы на вопросы:\n";
print MAIL "1.$a1\n";
print MAIL "2.$a2\n";
print MAIL "3.$a3\n";
print MAIL $anketahead;
#print MAIL $anketadata;
print MAIL $name1.",".$name2.",".$name3.",".$Sex.",".$PLZ.",".$region.",".$Rayon... (MAIL);

2. #!C:/Perl/bin/perl -w
print "Content-type: text/html\n\n";

use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP; # Подключаем модуль.
$smtp = Net::SMTP->new('fyodor.smtp.ru'); # Указываем SMTP #сервер.

$smtp->mail('smi02@dzb.ru'); # Указываем от кого #письмо.
$smtp->to('smi02@dzb.ru'); # Указываем кому #письмо.

$smtp->data(); # Начинаем посылку данных
$smtp->datasend("To: smi02@dzb.ru\n"); # Указываем информацию #для поля "Кому"
$smtp->datasend("\n"); # Пустая строка
$smtp->datasend("test message\n"); # Сообщение
$smtp->dataend(); # Заканчиваем посылку #даных

$smtp->quit;