[zelo]

Подозреваю что проблема в скрипте, поделитесь пожалуйста любой мыслью, очень нада.....

[czecz]

а зачем такие сложности, вот же простой howto как связать postfix и SA (spamassassin) : http://www.xnote.com/howto/postfix-spamassassin.html

без всяких усложнений типа localhost:10027

[zelo]

Да, я пробовал это, но при такой связке:

Код:

#!/bin/bash
/usr/local/bin/spamc | /usr/sbin/sendmail -i "$@"
exit $?

...sendmail пересылает письмо снова на постфикс и оно циклится, плюс ко всему, в постфиксе настроены пранспорты, которых sendmail не знает, в частности одним из них является локальный сервис антивируса ClamSMTPd, который принимает почту на 127.0.0.1:10025. Может этого можно избежать? Не знаю как....

[czecz]

ну тогда я бы делал через mailscanner, то есть схема получилась бы такая - postfix отдает на mailscanner, он пропускает через clamd и SA, и возвращает postfix'у. howto на данную тему можно на google найти.

[zelo]

Нашёл причину резки писем!
Письма резались если поле получателей содержит больше одного адресата.

Обычно, если получатель один, то скрипт вызывался вот с такими параметрами:

Код:

"localhost:10027" "spamfilter" "outbox@hotbox.com" "inbox@domain.ru" "/usr/local/bin/spamc"

А если получателей два и более, то с такими:

Код:

"localhost:10027" "spamfilter" "outbox@domain.ru" "inbox1@domain.ru" "inbox2@domain.ru" "/usr/local/bin/spamc"

В этом случае параметр "inbox2@domain.ru" замещал параметр "/usr/local/bin/spamc" и происходило то о чём я говорил в самом начале...

Друзья! Помогите доработать скрипт!

[zelo]

Решено!
Изменил скрипт до такого вида:

Код:

#!/usr/bin/perl -w
use strict;
use Net::SMTP;
my $host = &sall_ch(shift(@ARGV), '"');
my $ehlo = &sall_ch(shift(@ARGV), '"');

my $spamc       = &sall_ch(shift(@ARGV), '"');
my $mail_from   = &sall_ch(shift(@ARGV), '"');
my $rcpt_to     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to01     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to02     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to03     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to04     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to05     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to06     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to07     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to08     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to09     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to10     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to11     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to12     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to13     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to14     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to15     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to16     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to17     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to18     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to19     = &sall_ch(shift(@ARGV), '"');
my $rcpt_to00     = &sall_ch(shift(@ARGV), '"');

#if (!defined($host)||!defined($ehlo)||!defined($mail_from)||!defined($rcpt_to)) {
#  die("use $0 <host> <ehlo> <mail_from> <rcpt_to> [cmd]\n");
#}

if (defined($spamc)) {
    open(CF, "$spamc |") or undef($spamc);
}

my $smtp = Net::SMTP->new($host);
$smtp->hello($ehlo);
$smtp->mail($mail_from);
$smtp->to($rcpt_to);
$smtp->to($rcpt_to01);
$smtp->to($rcpt_to02);
$smtp->to($rcpt_to03);
$smtp->to($rcpt_to04);
$smtp->to($rcpt_to05);
$smtp->to($rcpt_to06);
$smtp->to($rcpt_to07);
$smtp->to($rcpt_to08);
$smtp->to($rcpt_to09);
$smtp->to($rcpt_to10);
$smtp->to($rcpt_to11);
$smtp->to($rcpt_to12);
$smtp->to($rcpt_to13);
$smtp->to($rcpt_to14);
$smtp->to($rcpt_to15);
$smtp->to($rcpt_to16);
$smtp->to($rcpt_to17);
$smtp->to($rcpt_to18);
$smtp->to($rcpt_to19);
$smtp->to($rcpt_to00);

$smtp->data();
if (defined($spamc)) {
    while(<CF>) {
        next if (/^delivered\-to\:/i);
        $smtp->datasend($_);
    }
}
else {
    while(<>) {
        next if (/^delivered\-to\:/i);
        $smtp->datasend($_);
    }
}
$smtp->dataend();

close(CF) if defined($spamc);

$smtp->quit;

exit 0;

############################################################
sub sall_ch($$) {
    my($string, $chars) = (shift(), shift());
    return(undef) unless defined($string);
    $string =~ s/^[\Q$chars\E]+//;
    $string =~ s/[\Q$chars\E]+$//;
    return($string);
}

....смешное конечно решение, но пойдёт :-D