From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@turbinal.org>
Date: Sun, 3 Nov 2002 01:51:04 +0300
From: Alexey Tourbin <at@turbinal.org>
To: Siyiphus <sisyphus@altlinux.ru>
Message-ID: <20021102225104.GA26165@homestead.turbinal.org>
Mail-Followup-To: Siyiphus <sisyphus@altlinux.ru>
References: <Pine.LNX.4.33.0210252020200.15392-100000@ontil.ihep.su> <20021101031727.GA16006@homestead.turbinal.org>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="hHWLQfXTYDoKhP50"
Content-Disposition: inline
In-Reply-To: <20021101031727.GA16006@homestead.turbinal.org>
Subject: [sisyphus] Re: [devel] I: new package (SpamOracle)
Sender: sisyphus-admin@altlinux.ru
Errors-To: sisyphus-admin@altlinux.ru
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: sisyphus@altlinux.ru
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Id: <sisyphus.altlinux.ru>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
List-Archive: <http://altlinux.ru/pipermail/sisyphus/>
Archived-At: <http://lore.altlinux.org/sisyphus/20021102225104.GA26165@homestead.turbinal.org/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

--hHWLQfXTYDoKhP50
Content-Type: multipart/mixed; boundary="MGYHOYXEY6WxJCY8"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit


--MGYHOYXEY6WxJCY8
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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, может кому пригодится.


--MGYHOYXEY6WxJCY8
Content-Type: text/plain; charset=koi8-r
Content-Disposition: attachment; filename="spo.pl"

#!/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;


--MGYHOYXEY6WxJCY8--

--hHWLQfXTYDoKhP50
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE9xFbYDhJH5ZpJBTARAilFAKCJYNz+1TwIJgy44qw2xsIuwoKROwCcC1gS
neJzu17i2jUCjQhdH6q9Ho8=
=mGfb
-----END PGP SIGNATURE-----

--hHWLQfXTYDoKhP50--