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;
|