[sisyphus] Re: [devel] I: new package (SpamOracle)

[Alexey Tourbin]

On Fri, Nov 01, 2002 at 06:17:27AM +0300, at на turbinal.org wrote:
> On Fri, Oct 25, 2002 at 08:23:21PM +0400, Vitaly Lugovsky wrote:
> >  В инкоминг приехало:
> > 
> > SpamOracle-1.2-alt1.src.rpm
> > 
> >  Если кто заинтересован - прошу тестировать. Русский
> 
> Я заинтересован. Работает хорошо, хотя алгоритм Байеса -- далеко не
> самый эффективный для таких задач. Просто спам однотипный.
> 
> Виталий, скажите честно, у вас есть скрипт, который регулярно
> перестраивает базу по крону? Бог велел делиться. :)

OK, может кому пригодится.

----------- следующая часть -----------
#!/usr/bin/perl

use strict;
use File::Copy 'mv';

my @files = <~/Mail/*>;
my $db = <~> . '/.spamoracle.db';
my $db_new = $db . '.new';
my $db_old = $db . '.old';
my $spamoracle = '/usr/bin/spamoracle';

my @good = grep { -f && !/spam|trash/ } @files;
my @spam = grep { -f &&  /spam|trash/ } @files;

system "$spamoracle -f $db_new add -v -spam @spam -good @good";
mv $db, $db_old;
mv $db_new, $db;

----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20021103/70a67ef2/attachment-0011.bin>