forum.lissyara.su

Код: Выделить всё

perl_startup = do '/etc/exim/ip.pl'
...........

                deny    message         = spamer ($sender_host_name)
                            set acl_m1  = ${perl{testip}}
                            condition   = ${if eq{$acl_m1}{1}{yes}{no}}

Код: Выделить всё

#!/usr/bin/perl

#print &testip;
sub testip {
    my $incam;
    $incam = Exim::expand_string('$sender_host_name');
    if(($incam=~/.\d{1,3}\-\d{1,3}\-\d{1,3}\-\d{1,3}./g or $incam=~/.\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}./g)){
    # and $incam !~/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/g) {
        return 1;
        }
        else {
        return 0;
        }
}

Код: Выделить всё

# 82.158.219.171.dyn.user.ono.com
deny  message                         = Dynamic address. Stop.
      condition                       = ${if match{$sender_host_name} {\N^\S+\d+\.\d+\.\d+\S+\N} {yes}{no}}

# a81-84-43-217.cpe.netcabo.pt, 83-65-12-130.treustrasse.xdsl-line.inode.at
# static-7-253-225-77.ipcom.comunitel.net
deny  message                         = Dynamic address. Stop.
      condition                       = ${if match{$sender_host_name} {\N^\S+\d+\-\d+\-\d+\S+\N} {yes}{no}}

# cp833142-a.tilbu1.nb.home.nl, inet20908ni-2.eranet.pl
# home-313021.b.astral.ro, dsl.dynamic8597139153.ttnet.net.tr
deny  message                         = Dynamic address. Stop.
      condition                       = ${if match{$sender_host_name} {\N^\D+\d{5,}\D+\N} {yes}{no}}