#!/usr/bin/perl

print "Learn from all Messages...\n";

$HOME=@ENV{"HOME"};

#CHANGE 18.04.2004
#--force-expire hinzugefügt, damit die Datenbank nicht unendlich groß wird

print `/usr/bin/sa-learn --force-expire --spam $HOME/Mail/spam/cur/`;
print `/usr/bin/sa-learn --force-expire --ham $HOME/Mail/trash/cur/`;


#TODO: Update Black and Whitelist!

open (FILE, "$HOME/.kde/share/apps/kabc/std.vcf");
open (WRITE, ">$HOME/.spamassassin/user_prefs");


while ()
{
# alte Version bei kde 3.1.x
#        next unless /EMAIL:/;   # Nur E-mailadressen sind intressant
	next unless /EMAIL.*?:/;

	
# alte Version bei kde 3.1.x
#        s/EMAIL:(.*)/whitelist_from $1/;                        # EMAIL: weglassen
        s/EMAIL.*?:(.*)/whitelist_from $1/;                        # EMAIL: weglassen
        print WRITE;
}

print "Updated personal whitelist.\n";