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 at 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)
-------
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 at 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