27 lines
478 B
Perl
27 lines
478 B
Perl
package Polyze::RRejectMilter;
|
|
use Moose;
|
|
with 'Polyze::RReject';
|
|
|
|
sub _build_sender_domain {
|
|
my ($self) = @_;
|
|
my ($domain) = (
|
|
$self->text =~ m/: milter-reject: (?:[^ ]+) from ([^[]+)?\[/
|
|
);
|
|
return $domain;
|
|
}
|
|
|
|
sub _build_sender_ip {
|
|
my ($self) = @_;
|
|
my ($ip) = (
|
|
$self->text =~ m/: milter-reject: (?:[^ ]+) from (?:[^[]+)?\[([^]]+)\]/
|
|
);
|
|
return $ip;
|
|
}
|
|
|
|
sub _build_reason {
|
|
"Milter reject";
|
|
}
|
|
|
|
no Moose;
|
|
__PACKAGE__->meta->make_immutable;
|