From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ashen@nsrz.ru>
X-Spam-Checker-Version: SpamAssassin 3.2.3 (2007-08-08) on sa.int.altlinux.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=AWL,BAYES_00 autolearn=ham
	version=3.2.3
X-Quarantine-ID: <WYa6nHZjCTvo>
X-Virus-Scanned: amavisd-new at nsrz.ru
From: =?koi8-r?b?4czFy9PFyiD7xc7Dxdc=?= <ashen@nsrz.ru>
Organization: =?utf-8?b?0J7QkNCe?= "=?utf-8?b?0J3QodCg0Jc=?="
To: ALT Linux sysadmin discuss <sysadmins@lists.altlinux.org>
Date: Fri, 4 Apr 2008 10:39:20 +0400
User-Agent: KMail/1.9.9
References: <47F27B00.90609@pugr.vng.com.ru> <200804031748.32428.ashen@nsrz.ru>
	<47F52D01.4000506@pugr.vng.com.ru>
In-Reply-To: <47F52D01.4000506@pugr.vng.com.ru>
X-Face: 'QRI*AI~am"KKk`p4bg0l4ch1,
	=?utf-8?q?=5BP=7EF=5Ew-u!q=5Bv=2EWl=24=7Bjo=7D68Zshm=25-QSKu=7C5=7D8pnQwrD?=
	=?utf-8?q?=27J=0A=09=5Ex0BM=3FY=7CT?=)32~xr1='^e[i}1&j<gQARvYvYS\QcRMSLo$Z.a!F7A3-_'>f_o/X</4*TsM)
	=?utf-8?q?=0A=09YWZ?=<#m*z+A2J,hyO6B3p/_4x3Fb;
	$Rqk5C9~GB1QB],4T^y?',.N[Dt||@Bi'k(
	=?utf-8?q?YQyH=60Fl=0A=094x-ggbUT3=7BvcnhDG0BUbdl=5B=5C=7E+s=7B=5Fks=23?=
	=?utf-8?q?rvo7?=(BIG<iS%z2C;
MIME-Version: 1.0
Content-Type: Multipart/Mixed;
  boundary="Boundary-00=_Y0c9HpsTjf/IYrr"
Message-Id: <200804041039.20489.ashen@nsrz.ru>
Subject: Re: [Sysadmins] =?koi8-r?b?09DBzSDGyczY1NI=?=
X-BeenThere: sysadmins@lists.altlinux.org
X-Mailman-Version: 2.1.10b3
Precedence: list
Reply-To: ALT Linux sysadmin discuss <sysadmins@lists.altlinux.org>
List-Id: ALT Linux sysadmin discuss <sysadmins.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sysadmins>
List-Post: <mailto:sysadmins@lists.altlinux.org>
List-Help: <mailto:sysadmins-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 04 Apr 2008 06:39:25 -0000
Archived-At: <http://lore.altlinux.org/sysadmins/200804041039.20489.ashen@nsrz.ru/>
List-Archive: <http://lore.altlinux.org/sysadmins/>

--Boundary-00=_Y0c9HpsTjf/IYrr
Content-Type: text/plain;
  charset="koi8-r"
Content-Transfer-Encoding: base64
Content-Disposition: inline

9yDTz8/C3cXOyckgz9QgVGh1cnNkYXkgMDMgQXByaWwgMjAwOCAyMzoxNjoxNyB0b3NoMTcgzsHQ
ydPBzCjBKToKPiDrwcsg0SDQz87RzCDRINrB18XMIDIg0M/M2NrP18HUxczFyiBzcGFtIMkgaGFt
Cj4g8M/e1MEgyNLBzsnU2NPRIMkgzcXO0SDXIMLB2sUgcG9zdGdyZXNxbCjJINDPzNjaz9fB1MXM
ySDJINDJ09jNwSkgy8/HxMEKPiDRINfZ2tnXwcAgZHNwYW1fdHJhaW4KPiDNzsUg19nEwcXUCj4g
VXNhZ2U6IC91c3IvYmluL2RzcGFtX3RyYWluIFt1c2VybmFtZV0gWy0tY2xpZW50XSBbWy1pIGlu
ZGV4XXxbc3BhbV9kaXJdCj4gW25vbnNwYW1fZGlyXV0KMSkgzsUgydPQz8zY2tXK1MUg3NTP1CDT
y9LJ0NQuIO/OIMvSydcuIO7P0s3BzNjO2cog08vSydDUIMTM0SDPwtXexc7J0SBkc3BhbSfBIArX
zyDXzM/Wxc7JySDJINcgZHNwYW0tMy44LjAtYWx0MS44CiAKPiDQ0s8g09DP08/CIM8gy8/Uz9LP
zSDSwdPTy8HawcwgR3JpZ29yeSBGYXRleWV2IMvByyDRINDPztHMINDSz9PUzyDawdfB1tUKPiDE
19XIINzUycgg0M/M2NrP18HUxczFyiDXIMvPzsbJx8UgxNPQwc3BIMTPzNbOzyDC2dTYCj4gVHJh
aW5pbmdNb2RlOiB0ZWZ0CuTBLiDpIMLPzNjbxSDXwc0gzskg3sXHzyDOxSDOwcTPLCDBIMvSz83R
INDF0sXT2czB1Ngg0MnT2M3BIM7BINPPz9TXxdTT1NfVwN3JxSAKwcTSxdPBLgoKPiDnxMUgzc/R
IM/bycLLwT8gySDXINDF0tfPzSDT0M/Tz8LFIMvByyDNzsUg1cvB2sHU2CDc1Mkg0MHQy8k/Cvcg
y9LJ18/NINPL0snQ1MUgZHNwYW1fdHJhaW4uIOvByyDQz8zY2s/XwdTY09EgdHJhaW4ucGwsIN7U
zyDXzyDXzM/Wxc7JySDRINXWxSAKz8Lf0dPO0cwuIO7PIMTVzcHAINfBzSDC1cTF1CDEz9PUwdTP
3s7PIMbP0tfB0sTJ1Ngg08/P1NfF1NPU19XA3cnFINDJ09jNwSDOwSAKc3BhbUAvaGFtQAotLSAK
8yDV18HWxc7Jxc0g+8XOw8XXIOHMxcvTxcog98zBxMnNydLP18neLgpFLW1haWw6IGFzaGVuQG5z
cnoucnUKWE1QUDogYXNoZW5AYWx0bGludXgub3JnLCBBbGV4U2hlbkBqYWJiZXIucnUKSUNROiAy
NzEwNTM4NDUK

--Boundary-00=_Y0c9HpsTjf/IYrr
Content-Type: application/x-perl;
  name="train.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="train.pl"

#!/usr/bin/perl

use strict;
use vars qw { @spam @ham $USER };

$USER = shift;
if ($USER eq "") {
  $USER = "global";
} 

opendir(DIR, "./ham");
@ham = grep(!/^\.\.?$/, readdir(DIR));
closedir(DIR);

opendir(DIR, "./spam");
@spam = grep(!/^\.\.?$/, readdir(DIR));
closedir(DIR);

print "$#ham ham entries\n";
print "$#spam spam entries\n";

print "Training user '$USER'...\n";
while($#ham>=0) {
  my($file) = shift(@ham);
  print "training $file as HAM...\n";
  system("dspam --user $USER --corpus --inoculate < ./ham/$file");
}

while($#spam>=0) {
  my($file) = shift(@spam);
  print "training $file as SPAM...\n";
  system("dspam --user $USER --corpus --addspam --inoculate < ./spam/$file");
}

#print "\nFinished. Running dspam_clean -p0 $USER...\n";
#system("dspam_clean -p0 $USER");

print "\nFinished.\n";

--Boundary-00=_Y0c9HpsTjf/IYrr--