Salut,
Incerc sa scriu un filtru pentru mimedefang, insa se pare ca nu
reusesc. Sunt newbie in perl.
sub filter_recipient {
my ($recipient, $sender, $ip, $hostname, $first, $helo,$rcpt_mailer,
$rcpt_host, $rcpt_addr) = @_;
if ($recipient =~ /^(<[EMAIL PROTECTED]>?$|<[EMAIL PROTECTED]>?$)/i) {
if ($sender =~ /^(<[EMAIL PROTECTED]>?$|<[EMAIL PROTECTED]>?$)/i) {
return ('CONTINUE', "ok");
}
return ('REJECT', 'Thanks; we don\'t enjoy spam.');
}
return ('CONTINUE', "ok");
}
Teoretic filtrul ar trebui sa accepte mailurile trimise de pe
domain.com|ro catre [EMAIL PROTECTED] sau [EMAIL PROTECTED] si sa
dea reject la mailurile care nu au senderul din domeniile specificate
si sunt trimise pe listele de mai sus.
Din pacate toate mailurile de test trec fara nici o problema, chiar
daca au senderul diferit de domain.com|ro
Unde gresesc?
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
