11 |
+ return unless $qpsmtpd; |
+ return unless $qpsmtpd; |
12 |
+ return unless $qpsmtpd->prop('RBLList'); |
+ return unless $qpsmtpd->prop('RBLList'); |
13 |
+ |
+ |
14 |
+ @rbl = $qpsmtpd->prop('RBLList'); |
+ @rbl = split /[,:]/, $qpsmtpd->prop('RBLList'); |
15 |
+ if ( grep { /^sbl-xbl.spamhaus.org$/ } @rbl ) { |
+ if ( grep { /^sbl-xbl.spamhaus.org$/ } @rbl ) { |
16 |
+ @rbl = grep { !/^sbl-xbl.spamhaus.org$/ } @rbl; |
+ @rbl = grep { !/^sbl-xbl.spamhaus.org$/ } @rbl; |
17 |
+ push @rbl, 'zen.spamhaus.org'; |
+ push @rbl, 'zen.spamhaus.org'; |