Spamfilter

Einrichtung, Konfiguration und Optimierung eines Spamfilters.

Spamassassin Konfigurieren

Der Spamfilter Spamassasin ist bei HS vorinstalliert. Er kann wie auf der Seite Procmail beschrieben eingebunden werden.

ToDo: Anpassung Konfiguration, Filtertraining

Mitteilungen über aussortierte Emails erzeugen lassen

Spamcheck Verzeichnis im Homeverzeichnis anlegen,

mkdir spamcheck
cd spamcheck

und dort drei Skiptdateien anlegen:

cat check <<EOF
#!/bin/sh
#----------------------------------------------------------------------------------------
# send spam mailfolder infomail
# (c) 04/2004 by ff, webmaster@ff-newmedia.net
#----------------------------------------------------------------------------------------
#set -x
version="0.4 0405201035 (modified)"
mailuser=$1
mailpath="Maildir/.Spam/"
checkmaildir="spamcheck/checkmaildir"
listmaildir="spamcheck/listmaildir"
mailhost="h02"
maildomain="hostsharing.net"
purgetime="7"

if ($checkmaildir $mailpath)
    then
        mailbox_status=`$listmaildir $mailpath`
	# send infomail
	(
	echo "From: spamcheck <admin@xyz00.$maildomain>"
        echo "To: $mailuser <$mailuser@$mailhost.$maildomain>"
        echo "Subject: Status des Spam-Ordners"
	echo
        echo
        echo "$mailbox_status"
	echo
        echo
    	echo "Bitte pruefen ob evtl. erwuenschte Nachrichten aussortiert wurden."
	echo "Zugriff auf das Postfach ist IMAP oder Webmail mÃglich."
        echo "(https://webmail.hostsharing.net)"
        echo
        echo
	echo "-- "
	echo "created by spamcheck $version"
    )|/usr/lib/sendmail $mailuser@$mailhost.$maildomain
else
    exit 1
fi

exit 0
EOF

cat checkmaildir <<EOF
#!/usr/bin/perl
#----------------------------------------------------------------------------------------
# send spam mailfolder infomail - check if maildir exists
# (c) 05/2004 by ff, webmaster@ff-newmedia.net
# based on mdfrm (c) 1996, Matthew C. Mead
#----------------------------------------------------------------------------------------

$maildir = shift;

if (!$maildir) {
    $maildir = $ENV{'MAILDIR'};
}

if (!$maildir) {
    $maildir = "$ENV{'HOME'}/.Maildir";
}

$maildir =~ s/^=/$ENV{'HOME'}\/Mail\//;

# Kein Spamordner vorhanden - Errorcode 1
if (!(-d $maildir && -r $maildir && -x $maildir && -d "$maildir/cur" &&
      -r "$maildir/cur" && -x "$maildir/cur" && -d "$maildir/new" &&
      -r "$maildir/new" && -x "$maildir/new")) {
    exit 1;
}

# Anderenfalls nachsehen ob Mails vorhanden sind
opendir(DIR, "$maildir/cur");
@tmpfiles = map{$_ = "$maildir/cur/$_"} grep{!/(^\.$)|(^\.\.$)/} readdir(DIR);
@msgfiles = @tmpfiles;
closedir(DIR);
opendir(DIR, "$maildir/new");
@tmpfiles = map{$_ = "$maildir/new/$_"} grep{!/(^\.$)|(^\.\.$)/} readdir(DIR);
push(@msgfiles, @tmpfiles);
closedir(DIR);

# Wenn keine Mails vorhanden - Errorcode 1
if (!@msgfiles) {
    exit 1;
}

# Wenn Mails vorhanden - Errorcode 0
exit 0;
EOF

cat listmaildir <<EOF
#!/usr/bin/perl
#----------------------------------------------------------------------------------------
# send spam mailfolder infomail - list maildir contents
# (c) 05/2004 by ff, webmaster@ff-newmedia.net
# based on mdfrm (c) 1996, Matthew C. Mead.
#----------------------------------------------------------------------------------------
$hours = 24; #Anzeigen von Mails, deren mtime hoechstens $hours Stunden in der Vergangenheit liegt

use Date::Parse;
use Date::Format;

$maildir = shift;

if ($maildir eq "-h") {
    print "usage: mdfrm /path/to/Maildir\n";
    print "       mdfrm =Maildir == mdfrm ~/Mail/Maildir\n";
    print "       otherwise, mdfrm defaults to \$MAILDIR\n";
    print "       otherwise, mdfrm defaults to ~/.Maildir\n";
    exit;
}

if (!$maildir) {
    $maildir = $ENV{'MAILDIR'};
}

if (!$maildir) {
    $maildir = "$ENV{'HOME'}/.Maildir";
}

$maildir =~ s/^=/$ENV{'HOME'}\/Mail\//;

if (!(-d $maildir && -r $maildir && -x $maildir && -d "$maildir/cur" &&
      -r "$maildir/cur" && -x "$maildir/cur" && -d "$maildir/new" &&
      -r "$maildir/new" && -x "$maildir/new")) {
    # faellt weg, da checkmaildir bereits ueberprueft
    # print "Kein Spamordner in \"$maildir\" vorhanden. Sie haben offensichtlich noch keine Spammails erhalten.\n";
    exit 1;
}

opendir(DIR, "$maildir/cur");
@tmpfiles = map{$_ = "$maildir/cur/$_"} grep{!/(^\.$)|(^\.\.$)/} readdir(DIR);
@msgfiles = @tmpfiles;
closedir(DIR);
opendir(DIR, "$maildir/new");
@tmpfiles = map{$_ = "$maildir/new/$_"} grep{!/(^\.$)|(^\.\.$)/} readdir(DIR);
push(@msgfiles, @tmpfiles);
closedir(DIR);

@msgs = ( );

foreach $file (@msgfiles) {
    # wirkliches Alter der Mail
    $mtime = (stat($file))[9];

    $from = "";
    $subject = "";
    $date = 0;
    $hits = 0;
    
    open(INPUT, $file);

FILEINPUT:
    while(<INPUT>) {
	
	if (/^From:\s+(.*)$/i) {
	    $from = $1;
	    next FILEINPUT;
	}
	
	if (/^Subject:\s+(.*)$/i) {
	    $subject = $1;
	    next FILEINPUT;
	}
	
	if (/^Date:\s+(.*)$/i) {
	    $date = $1;
	    next FILEINPUT;
	}
	
	if (/^X-Spam-Status: Yes, hits=+(.*)$/i) {
	    $hits = $1;
	    next FILEINPUT;
	}
	
	if (/^\s*$/) {
	    last FILEINPUT;
	}
	
	if ($from && $subject && $date && $hits) {
	    last FILEINPUT;
	}

    }

    close(INPUT);

    @tmp = ( str2time($date), $from, $subject, $mtime, $hits );
    push(@msgs, [ @tmp ]);
}
    
$oldest = time - $hours * 3600; # Berechnen des Timestamps now - $hours

$o = 0;

foreach $msg (@msgs){
    if ($msg->[3] >= $oldest) { # Innerhalb der letzten $hours aussortierte Mails
    $o++;
    }

    $i++; # alle Mails
}

if ($i==0) { # Wenn keine Mail da sind, Errorcode 1
    exit 1;
}

print("Insgesamt befinden sich ", $i, " E-Mails in Ihrem Trash-Ordner.\n");
print("In den letzen ", $hours, " Stunden wurden ", $o, " Spam-E-Mails
aussortiert.\n\n");
if ($o==0) { exit 0; }
print("Datum (mtime)   Absender              Betreff                      Hits\n");
print("-----------------------------------------------------------------------");

    foreach $msg (sort {$b->[3] <=> $a->[3]} @msgs) { # Sortierung vorher auf 0/0
	if ($msg->[3] >= $oldest) {
    	    if ($msg->[1] =~ /\s*"*([^"]*)"*\s*\<[a-zA-Z0-9._%-=]+@[a-zA-Z0-9._%-=]+\>/) {
		$from = $1;
    	    } elsif ($msg->[1] =~ /[a-zA-z0-9._%-=]+@[a-zA-Z0-9._%-=]+.*\("*([^"]*)"*\)/) {
		$from = $1;
	    } else {
		$from = $msg->[1];
	    }

	    # Datum ausgeben
	    if (time2str("%d",$msg->[3]) <=> $olddate) {
    		print("\n");
	    }   
	    
	    # Urspruengliches aus der Mail extrahiertes Datum, sinnlos weil oft gefaelscht
	    # printf("%-12s  ", time2str("%d.%m.%y %H:%M",$msg->[0]));
	    printf("%-12s  ", time2str("%d.%m.%y %H:%M",$msg->[3]));
    
    	    $olddate = time2str("%d",$msg->[3]);    

	    # From ausgeben
    	    if (length($from) <= 20) {
		printf("%-20s  ", $from);
	    } else {
		printf("%-.20s  ", $from);
	    }
    
	    # um *****SPAM***** bereinigtes Subject ausgeben
	    @sub = $msg->[2];
	    if (length(@sub) <= 27) {
		printf("%-27s  ", @sub);
	    } else {
		printf("%-.27s  ", @sub);
	    }
	    
	    # Punkte
	    if (length($msg->[4]) <= 4) {
		printf("%-4s\n", $msg->[4]);
	    } else {
		printf("%-.4s\n", $msg->[4]);
	    }
	    

	}
    }

exit 0;
EOF

Anschließend folgenden Cronjob anlegen:

#Spam Verzeichnis checken
51 5 * * * sleep $[ ($RANDOM % 120) ]; spamcheck/check xyz00-otto

Automatisches löschen aussortierter Emails

ToDo: Emails nach einer bestimmten Zeit löschen.

---