forum.lissyara.su

Код: Выделить всё

%grep dspa /etc/aliases
spam:           "| /usr/local/bin/dspam --user system --class=spam --source=error"
notspam:        "| /usr/local/bin/dspam --user system --class=innocent --source=error"
%      

Код: Выделить всё

spam: "/usr/local/bin/sa-learn --dbpath /var/amavis/.spamassassin --spam

Код: Выделить всё

<spam@my.dom.ru>: Command died with status 13: "/usr/local/bin/sa-learn
    --dbpath /var/amavis/.spamassassin --spam". Command output: bayes:
    expire_old_tokens: locker: safe_lock: cannot create lockfile
    /var/amavis/.spamassassin.mutex: Permission denied  bayes: locker:
    safe_lock: cannot create lockfile /var/amavis/.spamassassin.mutex:
    Permission denied Learned tokens from 0 message(s) (1 message(s) examined)

Код: Выделить всё

#!/usr/bin/perl

# Define login, password ...
$imapserver="IP-Exchange-сервера";
$login="логин";
$passw="пароль";
$dirname="/var/spool/salearnfromexchange";
$imapfolder="Public Folders/SPAM";

use Net::IMAP::Simple;
use Email::Simple;
use Fcntl;

# SUB
sub emptydestdir {
opendir (DIR,$dirname) or die "cant't open $dirname: $!";
while (defined ($file = readdir(DIR))) { unlink "$dirname/$file";};
close (DIR);
};
# end sub

# Create the object IMAP
    my $imap = Net::IMAP::Simple->new($imapserver) ||
       die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";

# Log on to IMAP server
    if(!$imap->login($login,$passw)){
        print STDERR "Login failed: " . $imap->errstr . "\n";
        exit(64);
    };

# Заремленное использовалось для тестов. Можно убрать.
#my @boxes   = $imap->mailboxes;
#foreach $box (@boxes) {print $box,"\n";};
$imap->select($imapfolder);
# get numbers of messages
$mn=$imap->messages("$imapfolder");

if ($mn>0) { &writeandsalearn;};

# SUB for write messages and run sa-learn
sub writeandsalearn {
    print "Current Mail Box folder: " . $imap->current_box . "\n";
    print "Messages in $imapfolder -- " . $imap->messages("$imapfolder") . "\n";
# del all files in dir for store spam letter
     &emptydestdir;
# get each message and write to file in imapfolder
 for($i=1; $i <= $mn; $i++){
     $imap->seen($i);
     $message_number=$i;
     $filename="$dirname/$i.txt";
     my $message = $imap->get( $message_number );
     sysopen (FN, $filename,O_WRONLY|O_CREAT) or die "Can't open $filename for writing: $!\n";
     print FN for @{$message};
     close FN;
     # del current message on server
     $imap->delete( $message_number );
 };
# RUN SA-LEARN
     $runsalearn=`/usr/local/bin/sa-learn --use-ignores --showdots --spam $dirname`;
# del all messages in spam folder
     &emptydestdir;
};
# end SUB

$imap->quit;

Код: Выделить всё

#######
bayes_ignore_header Return-Path
bayes_ignore_header Received
bayes_ignore_header To
bayes_ignore_header X-Resent-For
bayes_ignore_header X-Resent-By
bayes_ignore_header X-Resent-To
bayes_ignore_header Resent-To
bayes_ignore_header Sender
bayes_ignore_header X-MS-Has-Attach
bayes_ignore_header X-MS-TNEF-Correlator
bayes_ignore_header X-SA-Exim-Connect-IP
bayes_ignore_header X-SA-Exim-Rcpt-To
bayes_ignore_header X-SA-Exim-Mail-From
bayes_ignore_header X-SA-Exim-Version
bayes_ignore_header X-Spam-Flag
bayes_ignore_header X-Spam-Checker-Version
bayes_ignore_header X-Spam-Status
bayes_ignore_header X-Spam-Prev-Subject
bayes_ignore_header X-Spam-Level
bayes_ignore_header X-Spam-Score
bayes_ignore_header X-Spam-Report
bayes_ignore_header X-Antispam
bayes_ignore_header X-Antivirus
bayes_ignore_header X-Antivirus-Code
bayes_ignore_header X-Antivirus
bayes_ignore_header X-OriginalArrivalTime
bayes_ignore_header Microsoft Mail Internet Headers

Код: Выделить всё

#!/usr/bin/perl

use strict;
use Net::SMTP;

my $host = sall_ch($ARGV[0], '"');
my $ehlo = sall_ch($ARGV[1], '"');
my $mail_from = sall_ch($ARGV[2], '"');
my $rcpt_to = sall_ch($ARGV[3], '"');
my $spamc = sall_ch($ARGV[4], '"');

system("echo $host-$ehlo-$mail_from-$rcpt_to-$spamc >> /var/log/filter-spam.log");

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->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) = @_;
return(undef) unless defined($string);
$string =~ s/^[\Q$chars\E]+//;
$string =~ s/[\Q$chars\E]+$//;
return($string);
}