[Dovecot] mail messages moving between mailfolders

[taras at elantech.ru]

Johannes Berg пишет:
> On Tue, 2006-05-02 at 11:27 +0200, Johannes Berg wrote:
>
>   
>> I do that, but it's much more userfriendly than multiple folders:
>>     
>
> Actually, I misunderstood what you're doing. But you can change my
> plugin to do exactly what you were looking for by simply doing some
> other action than calling dspam when a user moves messages.
>
> johannes
>   
I rebuild dspam for making strlen() of spam and not spam tags equivalen 
each to other.
I use only one spam folder, as you, but without any links or such things.
Here is script to understand what I'm doing:

----------
---------- BEGIN

use DBI;
use File::Find;

$user = "root";
$database = "mail";
$password = "****";

$spam_subfolder = ".SPAM";

$SENDER = "";

$SPAM_TAG = "SpamXXXX";
$HAM_TAG  = "Innocent";
$DSPAM_TAG = "X-DSPAM-Result:";

$curfile = "";

$ST = $IT = $SR = $IR = $AM = $AA = 0;

my $DBH = DBI->connect("DBI:mysql:$database", $user, $password) or die 
"I can't connect! Error: $DBI::errstr\n";

    my $sqlm = "SELECT email, homedir, maildir, uid, gid FROM 
postfix_users";
    my $sthm = $DBH->prepare($sqlm);
    $sthm->execute;
    my ($email, $homedir, $maildir, $uid, $gid);
    $sthm->bind_columns(undef, \($email, $homedir, $maildir, $uid, $gid));

    while($sthm->fetch){

    # find files in /.spam subfolder
    # and retrain dspam with mistake files

        my $spamdir = $homedir . "/" . $maildir . $spam_subfolder ;
        my $hamdir = $homedir . "/" . $maildir;

        $spamdir_cur = $spamdir . "/cur";
        $spamdir_new = $spamdir . "/new";
        $spamdir_tmp = $spamdir . "/tmp";

        $SENDER = $email;
       
        $ST = $IT = $SR = $IR = 0;
       
# SPAM       
        print "Training SPAM for user $email in $spamdir_cur...\n";       
        find(\&wanted_spam, $spamdir_cur);
        find(\&wanted_spam, $spamdir_new);       
       
# HAM       
        print "Training HAM for user $email in $hamdir\n";
        find(\&wanted_ham, $hamdir);   
       
        $AM = $ST+$IT;
            print "Stats for user $SENDER:\n";
        print "Total messages : " . $AM . "\n";
        print "Spam total: " . $ST . "\n";
        print "Innocent total: " . $IT . "\n";       
        print "HAM -> SPAM: " . $SR . "\n";       
        print "SPAM -> HAM: " . $IR . "\n";       
       
        $AA += $AM;
    }
   
    print "Total messages :" . $AA . "\n";
    print `date`;

$sthm->finish();
$DBH->disconnect();

#-----------------------------------------------------

sub wanted_spam {
   
    if ( -f $_) {
    $ST += 1;
    my $yes = 0;
    $curfile = $_;
    open("FD", "+<", $_) || die "Can't open file $_\n";
        flock FD, LOCK_EX || die "Can't lock file $_\n";
   
        while($str = <FD>){
            if($str =~ /$DSPAM_TAG/){
                $tag = $';
            if($tag =~ /$HAM_TAG/){           
                print "$HAM_TAG found: Rewriting!\n";
                print "File: $curfile\n";
                print "Dir: $File::Find::dir\n";               
                seek(FD, - (length($SPAM_TAG) + 2), 1);
                print FD " $SPAM_TAG";
                seek(FD, -1, 2);
                $yes = 1;
                $SR += 1;
            }else
            {
                if($tag =~ /" $SPAM_TAG"/){           
                print "$SPAM_TAG found: OK!\n";
                }
            }               
            }   
        }

        flock FD, LOCK_UN || die "Can't RElock file $_\n";   
            close(FD);               
        if($yes == 1){
        `cat '$curfile'| /usr/local/bin/dspam --user $SENDER 
--class=spam --source=error --deliver=`;   
        }
    }
}

sub wanted_ham {

    if("$File::Find::dir" ne "$spamdir_cur" && "$File::Find::dir" ne 
"$spamdir_new" && "$File::Find::dir" ne "$spamdir_tmp")   
    {
   
    if ( -f $_) {
    $IT += 1;
    my $yes = 0;
    $curfile = $_;
    open("FD", "+<", $_) || die "Can't open file $_\n";
        flock FD, LOCK_EX || die "Can't lock file $_\n";
   
        while($str = <FD>){
            if($str =~ /$DSPAM_TAG/){
                $tag = $';
            if($tag =~ /$SPAM_TAG/){           
                print "$SPAM_TAG found: Rewriting!\n";
                print "File: $curfile\n";
                print "Dir: $File::Find::dir\n";
                seek(FD, - (length($HAM_TAG) + 2), 1);
                print FD " $HAM_TAG";
                seek(FD, -1, 2);
                $yes = 1;
                $IR += 1;
            }else
            {
                if($tag =~ /" $HAM_TAG"/){           
                print "$HAM_TAG found: OK!\n";
                }
            }               
            }   
        }
        flock FD, LOCK_UN || die "Can't RElock file $_\n";   
            close(FD);               

        if($yes == 1){       
        `cat '$curfile' | /usr/local/bin/dspam --user $SENDER 
--class=innocent --source=error --deliver=`;
        }
    }
    }
}

--------- END
---------

I think, that easiest method to don't scan folders is simple log message 
moving between folders by IMAP server.
What do you think about this?

-- 
С уважением, Савчук Тарас
"ЭЛАНТЕК"
+7 (495) 589 68 81
+7 (926) 575 22 11
http://www.elantech.ru