Codeschnipsel « h4wk's Blog

5Mär/100

Erweiterter Spamschutz für Matt’s FormMail Script

Hier eine kleine Erweiterung für das FormMail Script von Matt. Mit Hilfe dieser Erweiterung kann in Formularen, die ihre eMail über dieses Perlscript verschicken, die eMailadresse "verschlüsselt" dargestellt werden. Das bedeutet das, dass im Formular statt name@domain.de einfach name [-at-]domain.de angegeben werden kann. Hierbei ist es egal was zwischen den eckigen Klammern steht, das was zwischen den eckigen Klammer steht wird herausgeschnitten und stattdessen ein '@' eingesetzt.

Alle anderen Funktionen des Scripts werden nicht beeinträchtigt, sie funktionieren ganz normal weiter. Auch erkennt das Script automatisch, ob eine eMailadresse "verschlüsselt" dargestellt wurde oder nicht.

foreach $send_to (split(/,/,$Config{'recipient'})) {
#Ueberprueft, ob die eMailadresse vercryptet (name[-@-]domain.de uebergeben wurde und wandelt sie in name@domain.de um
        if ($send_to =~ /\[/){
            @adresse_1 = split(/\[/,$send_to);
            @adresse_2 = split(/\]/,$send_to);
            $send_to = @adresse_1[0]."@".@adresse_2[1];
        }
        foreach $recipient (@recipients) {
            if ($send_to =~ /$recipient$/i) {
                push(@send_to,$send_to); last;
            }
        }
}

Es muss folgende Stelle im Originalscript ersetzt werden:

foreach $send_to (split(/,/,$Config{'recipient'})) {
            foreach $recipient (@recipients) {
                if ($send_to =~ /$recipient$/i) {
                    push(@send_to,$send_to); last;
                }
            }
}