Почтовые странности
Пытался слать почту через Catalyst::Plugin::Email и Catalyst::View::Email::Template (используя sendmail) - хренушки: сервер виснет. Думал, может sendmail глюкает?
Пробую по-простому:
#!/usr/bin/perl -w
my $to = 'xx@xxxx.ru';
my $from = 'zz@zzzz.ru';
my %header = (
'Subject' => 'sendmail test',
'To' => "Xxxx Xxxxxxxxx <$to>",
'From' => "Zzz Zzzzzzzz <$from>",
'X-Mailer' => 'perl');
my $message = qq{Russian letters:\n\nЭто текст на русском языке в кодировке КОИ-8.\n--\nRobot\n};
open MAIL, "|sendmail $to" or die "Can't open pipe to sendmail: $!\n";
foreach (keys %header) {
print MAIL $_ . ": " . $header{$_} . "\n";
}
print MAIL "\n";
print MAIL $message;
close MAIL;
print "Done\n";
Письма ходят... Странно...
P. S. Попробовал покрасить исходник не катькой, а энскриптом. Выводимый HTML весит меньше (за счёт вместо ), однако крив (лишние непарные закрывающие тэги) и требует напильника в лице tidy.
Пробую по-простому:
#!/usr/bin/perl -w
my $to = 'xx@xxxx.ru';
my $from = 'zz@zzzz.ru';
my %header = (
'Subject' => 'sendmail test',
'To' => "Xxxx Xxxxxxxxx <$to>",
'From' => "Zzz Zzzzzzzz <$from>",
'X-Mailer' => 'perl');
my $message = qq{Russian letters:\n\nЭто текст на русском языке в кодировке КОИ-8.\n--\nRobot\n};
open MAIL, "|sendmail $to" or die "Can't open pipe to sendmail: $!\n";
foreach (keys %header) {
print MAIL $_ . ": " . $header{$_} . "\n";
}
print MAIL "\n";
print MAIL $message;
close MAIL;
print "Done\n";
Письма ходят... Странно...
P. S. Попробовал покрасить исходник не катькой, а энскриптом. Выводимый HTML весит меньше (за счёт вместо ), однако крив (лишние непарные закрывающие тэги) и требует напильника в лице tidy.