Facebook
Twitter
I
inc595
Guest
I re-wrote my bash version into perl. It creates junk, ham_learn and spam_learn directories in all mailboxes. You can then use move spam messages to spam_learn directory to train spamassassin just as you would in the Plesk control panel. Then do the same to non-spam or "ham" mail by moving some mail to the ham_learn.
The first time the script is run it will check to see if the directories exist. If they do not then it will create them. If they do exist it will then learn from the mail in them. Ham mail is moved back to the inbox and spam mail is deleted. Any mail already tagged as spam is moved into the junk dir and then removed after 15 days.
Simply ceate the script /usr/local/sbin/psa-sa_learn.pl and set permissions
Then paste in the following
Then run every hour by editing your crontab.
And add this.
The first time the script is run it will check to see if the directories exist. If they do not then it will create them. If they do exist it will then learn from the mail in them. Ham mail is moved back to the inbox and spam mail is deleted. Any mail already tagged as spam is moved into the junk dir and then removed after 15 days.
Simply ceate the script /usr/local/sbin/psa-sa_learn.pl and set permissions
Code:
vi /usr/local/sbin/psa-sa_learn.pl
chmod +x /usr/local/sbin/psa-sa_learn.pl
Code:
#!/usr/bin/perl
use Switch;
use File::Copy;
$version="Plesk Spamassassin Learn Version 0.3 --writen by inc595";
$maildir="/var/qmail/mailnames";
$mode=$ARGV[0];
if ( "$ARGV[1]" != "" ) {
$domainlist=$ARGV[1];
print $domainlist;
}else{
@dmnlist=</var/qmail/mailnames/*>;
foreach $dmn (@dmnlist) {
split(/\//, $dmn);
push (@domainlist, $_[4]);
}
}
switch ($mode) {
case /-n|-t|-j/ {
learn();
}
case /-v|-V/ {
print $version;
}
case "--help" {
print "Description:
This script creates ham_learn and spam_learn directories in all mailboxes.
If users are using webmail or IMAP they can train spamassassin by moving
mail to ham_learn to for good mail and spam_learn for spam mail.\n
Usage: psa-sa_learn.sh [OPTION] | All domains
\tpsa-sa_learn.sh [OPTION] example.com | Single domain
-n\t\tNormal mode\tRun live and silent.
-t \t\tTest mode\tRun without making change.
\t\t\t\tand display what would happen.
-v \t\t\tDisplay Version information.\n";
}
else { print "psa-sa_learn.pl: missing file argument\nTry \'psa-sa_learn.pl --help\' for more information."; }
}
#subs
sub learn(){
foreach $domain (@domainlist) {
foreach $mailname (`ls $maildir/$domain | grep -v .spamassassin | grep -v .qmail-default | grep -v user_prefs | grep -v auto-whitelist | grep -v bayes* | grep -v "@mbox.quota" | grep -v "*qmail*"`){
chomp($maildir);
chomp($mailname);
$path="$maildir/$domain/$mailname";
$jpath="$path/Maildir/.junk";
if (-d $jpath ) {
switch ($mode) {
case "-t" { print "Junk directory exists.\n$jpath\n"; }
case "-j" {
create_qmail();
create_procmail();
}
}
}else{
switch ($mode) {
case "-t" { print "Junk directory does not exist.\nCreating $jpath\n"; }
case "-n" {
mkdir("$jpath", 0700) || print $!;
mkdir("$jpath/cur", 0700) || print $!;
mkdir("$jpath/new", 0700) || print $!;
mkdir("$jpath/tmp", 0700) || print $!;
open(MDF, ">>$jpath/maildirfolder");
chmod(0600, "$jpath/maildirfolder");
open(CIA, "$jpath/courierimapacl");
print CIA "owner aceilrstwx";
close (CIA);
chmod(0644, "$jpath/courierimapacl");
`chown -R popuser:popuser $jpath`;
create_qmail($path);
create_procmail($path);
}
}
}
foreach $type ( 'spam', 'ham' ) {
$mpath="$path/Maildir/.$type\_learn";
if ( -d $mpath ) {
switch ($mode) {
case "-t" {
print "$type directory exists.\n$mpath\n";
if ( `ls -l $mpath/cur/ | wc -l` != 1 ) {
print "Not empty; learning $type.\n";
print "/usr/local/psa/admin/sbin/spammng --bayes --mailname=$mailname@$domain --$type=$mpath/cur/*\n";
if ( $type eq 'spam' ) {
print "rm $mpath/cur/*\n";
print "$mpath/cur/* for $mailname@$domain has been deleted\n";
}elsif ( $type eq 'ham' ) {
print "mv $mpath/cur/* $maildir/$domain/$mailname/Maildir/cur\n";
print "$mpath/cur/* for $mailname@$domain has been moved to the inbox\n";
}else{
print "You should not see me\n";
}
}else{
print "Directory empty; skipping $type.";
}
}
case "-n" {
if ( `ls -l $mpath/cur/ | wc -l` != 1 ) {
`/usr/local/psa/admin/sbin/spammng --bayes --mailname=$mailname@$domain --$type=$mpath/cur/*`;
if ( $type eq 'spam' ) {
unlink ("$mpath/cur/*");
}elsif ( $type eq 'ham' ) {
$oldlocation="$mpath/cur/*";
$newlocation="$maildir/$domain/$mailname/Maildir/cur";
`mv $oldlocation $newlocation`;
}else{
print "You should not see me";
}
}
}
}
}else{
switch ($mode) {
case "-t" { print "Directory does not exist;\nCreating $mpath\n"; }
case "-n" {
mkdir("$mpath", 0700) || print $!;
mkdir("$mpath/cur", 0700) || print $!;
mkdir("$mpath/new", 0700) || print $!;
mkdir("$mpath/tmp", 0700) || print $!;
open(MDF, ">>$mpath/maildirfolder");
chmod(0600, "$mpath/maildirfolder");
open(CIA, "$mpath/courierimapacl");
print CIA "owner aceilrstwx";
close (CIA);
chmod(0644, "$mpath/courierimapacl");
}
}
}
}
}
}
}
sub create_qmail() {
$file="$path/.qmail";
$forward=`grep '&' $file`;
open(QM, ">$file");
print QM "| /usr/local/psa/bin/psa-spamc accept
|preline /usr/bin/procmail -m -o .procmailrc
|find ./Maildir/.junk/cur -type f -mtime +15 -exec rm {} \\;
$forward";
close(QM);
`chown popuser:popuser $file`;
}
sub create_procmail($pth) {
$file="$path/.procmailrc";
print "$file\n";
open(PROC, ">$file");
print PROC "
MAILDIR=$maildir/$domain/$mailname/Maildir/
DEFAULT=\${MAILDIR}/
SPAMDIR=\${MAILDIR}/.junk/
# All mail tagged as spam (eg. with a score higher than the set threshold)
# is moved to the designated spam folder
:0
* ^X-Spam-Status: Yes.*
\${SPAMDIR}
";
close(PROC);
chmod(0600, "$file");
`chown popuser:popuser $file`;
}Then run every hour by editing your crontab.
Code:
crontab -eAnd add this.
Code:
0 */1 * * * /usr/local/sbin/psa-sa_learn.pl -n >/dev/null 2>&1