RootForum Community

Code: Select all

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Mail::Sendmail;
use Mail::MboxParser;

# Voreinstellungen
# Die Variable $daysreported definiert die Anzahl der Tage, die im Report ausgegeben werden 
my $daysreported = 3;

# Die Variable $maildirshome zeigt auf das Verzeichnis, in dem die Mailverzeichnisse der User zu finden sind
my $maildirshome = "/home/mail";

# Mailheader
my $mailheader = "Spam-Reportn";
$mailheader   .= "-----------nn";
$mailheader   .= "Folgende Mail(s) der letzten ".$daysreported." Tage wurden automatisch als Spam klassifiziert und befinden sich im Spamordner des Postfaches:n";

# Mailfooter
my $mailfooter = "nnBitte kontolliert den Inhalt des Spam-Ordners regelmaessig und leert den Ordner, um wieder Speicherplatz im Postfach freizugeben.n";
$mailfooter   .= "https://<PFAD ZUM WEBMAILER>"; 

# 
my @maileintraege;
my $mailtext;
my @month=("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

# Berechnung der Datumsangaben der letzten durch $daysreported definierten Tage
my @searchdays;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

for(my $i = 0; $i < $daysreported; $i++)
{
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time - (86400 * $i));
    $year +=1900;
    push(@searchdays, "$month[$mon] $mday [0-9]+:[0-9]+:[0-9]+ $year");
}

# Einlesen der Unterverzeichnisse/-dateien des $maildirshome
opendir(DIR, $maildirshome) || die "$maildirshome: $!";
my @Eintraege = readdir(DIR);
closedir(DIR);

# Iterieren über das Array mit den Unterverzeichnissen/-dateien
foreach my $eintrag (@Eintraege)
{
    # nur Verzeichnisse, die mit web anfangen berücksichtigen
    if (opendir(DIR, "$maildirshome/$eintrag") && $eintrag =~ /^web/)
    {
        # Prüfen, ob es eine Spam-Mbox gibt
        if (open(DATEI, "$maildirshome/$eintrag/mail/Spam"))
        {
            
            close(DATEI);
            $mailtext = "";
	    $mailtext .= $mailheader;
	    my $status=0;
            foreach my $searchfor (@searchdays)
            {
                @maileintraege = ();
                open(DATEI, "$maildirshome/$eintrag/mail/Spam");
                while (<DATEI>)
                {
                    # Wenn kein From am Anfang der Zeile, überspring!
                    next if not /^From /;
                    # Wenn From MAILER-DAEMON, überspring!
                    next if /MAILER-DAEMON/;
                    # Wenn nicht das gewünschte Datum, überspring!
                    next if not /$searchfor/;
                    my ($help,$sender,$help2,$help3,$month,$day,$time,$year2)=split(/ /) ;
                    chomp($year2);
                    my $temp = $day.". ".$month." ".$year2." ".$time." Uhr: ".$sender."n";
                    push(@maileintraege, $temp);
                }    
                my $laenge = @maileintraege;
                if ($laenge > 0)
                {
		    $status=1;
                    my @sortierteeintraege = sort(@maileintraege);
                    @sortierteeintraege = reverse(@sortierteeintraege);
                    $mailtext .= "n";
                    #print "n";
                    foreach my $zeile (@sortierteeintraege)
                    {
                        $mailtext .= "$zeile";
                        #print "$zeile";
                    }
                }
                close(DATEI);
            }
            $mailtext .= $mailfooter;
            my %mail =  (   To      => $eintrag.'@<SERVERDOMAIN>',
                        From    => 'spamreport@<SERVERDOMAIN>',
                        Subject => 'Spam-Report',
                        Message => $mailtext
                    );
	    if ($status==1)
	    {
            	sendmail(%mail) or die $Mail::Sendmail::error;
	    }
        }
    }
    closedir(DIR);
}

Code: Select all

mailpath="/var/spool/imap/users/$mailuser/Maildir/.SPAM/"
checkmaildir="/root/bin/spamcheck/checkmaildir"
listmaildir="/root/bin/spamcheck/listmaildir"
mailhost="localhost"
maildomain="mail.chl-virtualwork.de"

Code: Select all

$maildir = /var/spool/imap/users/$mailuser/;

if ($maildir eq "-h") {
    print "usage: mdfrm /var/spool/imap/user/$mailusern";

Code: Select all

+ version=0.4 0405201035
+ mailuser=web1p3
+ mailpath=/var/spool/imap/user/web1p3/SPAM/
+ checkmaildir=/root/bin/spamcheck/checkmaildir
+ listmaildir=/root/bin/spamcheck/listmaildir
+ mailhost=localhost
+ maildomain=chl-virtualwork.biz
+ purgetime=14
+ /root/bin/spamcheck/checkmaildir /var/spool/imap/user/web1p3/SPAM/
+ exit 1

Code: Select all

Hinweis: E-Mails, die aelter als 14 Tage sind, werden geloescht!
Insgesamt befinden sich 10 E-Mails in Ihrem Spam-Ordner.
In den letzen 24 Stunden wurden 3 E-Mails aussortiert.

Datum (mtime)   Absender              Betreff                      Hits
-----------------------------------------------------------------------
27.11.05 16:20  Fox Juergens                                       0   
27.11.05 16:06  Seth Bailey                                        0   
27.11.05 08:02  Eldon                                              0   

Bitte pruefen Sie ob evtl. erwuenschte Nachrichten aussortiert wurden.
Dazu loggen Sie sich entweder per IMAP in Ihr Postfach ein oder verwenden den Webmailer unter http://XXX/


Mit freundlichen Gruessen
XXX

--
created by spamcheck 0.4 0405201035

Code: Select all

cd /opt/spamcheck

for i in $(cut -d":" -f1 /etc/passwd|grep "^web"|grep "p")
  do
    for u in $(cat /etc/postfix/confixx_virtualUsers|grep -w -m1 "$i"|awk '{print $1}')
    do ./check $i $u
done
done

exit 0

Code: Select all

DEFAULT="$HOME/"
:0
* ^Subject:.****SPAM****
$HOME/.Spam/

:0
* ^X-Spam-Status: Yes
$HOME/.Spam/

Code: Select all

mailbox_command = /usr/bin/procmail -t /etc/.procmailrc

Code: Select all

DEFAULT=$HOME/
COMSAT=no
VERBOSE=no

:0
* ^Subject:.****SPAM****
$HOME/.Spam/

:0
* ^X-Spam-Level:.********
$HOME/.Spam/

Code: Select all

mailbox_command=/usr/bin/procmail -a "$EXTENSION"

Code: Select all

^X-Spam-Status: NO