Re: [Dovecot] SpamAssassin and Public Namespace

10 Oct 2007 · *$imap->select('Filter/Spam');*

      James wrote:
...
Hi I know i might get flamed for asking this in the dovecot mailing
list instead of the spamassassin one but i thought someone might be
kind enough to help anyway.
TIA
I'm trying to do site-wide spam filtering with a public namespace but
it's not reading the folder i have in the public namespace
This is the public namespace set in my dovecot.conf
#public spam folder
namespace public {
separator = /
prefix = Filter/
location = maildir:/home/vmail/domains/Spam/Maildir/
hidden = no
}
There's also a .Spam and .Non-spam folder created in that directory
server:/home/vmail/domains/Spam/Maildir# ls -al
total 32
drwxrwxrwx 7 vmail vmail 4096 2007-10-09 10:35 .
drwxrwxrwx 3 vmail vmail 4096 2007-10-05 13:23 ..
drwx------ 2 vmail vmail 4096 2007-10-09 10:35 cur
drwx------ 2 vmail vmail 4096 2007-10-09 10:35 new
drwxrwxrwx 5 vmail vmail 4096 2007-10-09 11:20 .Non-Spam
drwxrwxrwx 5 vmail vmail 4096 2007-10-09 11:19 .Spam
-rw------- 1 vmail vmail   14 2007-10-08 11:58 subscriptions
drwx------ 2 vmail vmail 4096 2007-10-09 10:35 tmp
I'm trying to use this script to login and get the spam from the
public spam folders and send it to spamassassin to learn
I've highlighted the important parts
There are 13 messages in Spam
There are 5 messages in Non-Spam
Here's the script:
#########################################################################################
#!/usr/bin/perl
#
# Process mail from imap server shared folder 'spam' & 'not-spam'
through spamassassin sa-learn
# dmz@dmzs.com - March 19, 2004
# http://www.dmzs.com/tools/files/spam.phtml
# LGPL
#
# Things to try if it doesn't work
# 1) Turn debug onto 1 and see if you connect to imap server ad get
messages (yes i could have made a command line flag, just didn't see
the need once I got it working :)
# 2) Check your local.cf for spamassassin (in debian it's
/etc/spamassassin/local.cf) bayes_path settings.
#
# Also be sure to check that your spamassassin is truely using the
bayes files (-D manual startup of spamd to debug there)
#
use Mail::IMAPClient;
use IO::Socket::SSL;
my $debug=1;
my $salearn;
my $username = 'user';
my $password = 'password';
my $server = 'server.example.com';
my $ssl=new IO::Socket::SSL("$server:imaps");
die ("Error connecting - $@") unless defined $ssl;
$ssl->autoflush(1);
my $imap = Mail::IMAPClient->new(
#Server=> 'imapmailhost:143',
Socket => $ssl,
User => $username,
Password => $password,
Debug => $debug
);
if (!defined($imap)) { die "IMAP Login Failed"; }
# If debugging, print out the total counts for each mailbox
if ($debug) {
foreach my $foldername ($imap->folders) {
my $number_of_messages =
$imap->message_count( $foldername );
print $foldername, " is imap folder\n";
}*
my $spamcount = $imap->message_count('Filter/Spam');*
print $spamcount, " Spam to process\n";

my $nonspamcount = $imap->message_count('Filter/Non-Spam');*
print $nonspamcount, " Notspam to process\n" if $debug;
}

Process the spam mailbox
*$imap->select('Filter/Spam');*
my @msgs = $imap->search("ALL");
for (my $i=0;$i <= $#msgs; $i++)
{
# I put it into a file for processing, doing it into a perl var &
piping through sa-learn just didn't seem to work
$imap->message_to_file("/tmp/salearn",$msgs[$i]);
# execute sa-learn w/data
#  if ($debug) { $salearn = /usr/bin/sa-learn -D --no-sync --showdots  --spam /tmp/salearn; }
#  else
{ $salearn = /usr/bin/sa-learn --no-sync --showdots --spam  /tmp/salearn; }
print "-------\nSpam: ",$salearn,"\n-------\n" if $debug;
# delete processed message
$imap->delete_message($msgs[$i]);
unlink("/tmp/salearn");
}
$imap->expunge();
$imap->close();
# Process the not-spam mailbox
*$imap->select('Filter/Non-spam');*
my @msgs = $imap->search("ALL");
for (my $i=0;$i <= $#msgs; $i++)
{
$imap->message_to_file("/tmp/salearn",$msgs[$i]);
# execute sa-learn w/data
#  if ($debug) { $salearn = /usr/bin/sa-learn -D --no-sync --showdots  --ham /tmp/salearn; }
#  else
{ $salearn = /usr/bin/sa-learn --no-sync --showdots --ham  /tmp/salearn; }
print "-------\nNotSpam: ",$salearn,"\n-------\n" if $debug;
# delete processed message
$imap->delete_message($msgs[$i]);
unlink("/tmp/salearn");
}
$imap->expunge();
$imap->close();
$imap->logout();
# integrate learned stuff
my $sarebuild = /usr/bin/sa-learn --sync;
print "-------\nRebuild: ",$sarebuild,"\n-------\n" if $debug;
#########################################################################################
Results:
server:/home/james# ./DMZS-sa-learn.pl
Using Mail::IMAPClient version 2.2.9 and perl version 5.8.8 (5.008008)
Spam to process
Notspam to process
.
Spam: Learned tokens from 0 message(s) (1 message(s) examined)

Autoloading: UID store  +FLAGS.SILENT (\Deleted)
.
NotSpam: Learned tokens from 1 message(s) (1 message(s) examined)

Autoloading: UID store  +FLAGS.SILENT (\Deleted)
Rebuild: bayes: synced databases from journal in 0 seconds: 4 unique
entries (4 total entries)

nevermind i got it working

Re: [Dovecot] SpamAssassin and Public Namespace

James

Process the spam mailbox

Results: server:/home/james# ./DMZS-sa-learn.pl Using Mail::IMAPClient version 2.2.9 and perl version 5.8.8 (5.008008) Spam to process Notspam to process .

Autoloading: UID store +FLAGS.SILENT (\Deleted) .

Autoloading: UID store +FLAGS.SILENT (\Deleted)