]>
git.proxmox.com Git - pmg-api.git/blob - src/PMG/RuleDB/Domain.pm
1 package PMG
::RuleDB
::Domain
;
7 use PMG
::RuleDB
::WhoRegex
;
9 use base
qw(PMG::RuleDB::WhoRegex);
20 my ($type, $address, $ogroup) = @_;
22 my $class = ref($type) || $type;
24 $address //= 'domain.tld';
26 my $self = $class->SUPER::new
($address, $ogroup);
32 my ($self, $addr) = @_;
34 my @parts = split('@', $addr);
36 return undef if scalar(@parts) < 2;
38 my $domain = $parts[-1]; # last element
39 return lc $domain eq lc $self->{address
};
45 my $desc = $self->{address
};
55 description
=> "DNS domain name (Sender).",
56 type
=> 'string', format
=> 'dns-name',
64 return { domain
=> $self->{address
} };
68 my ($self, $param) = @_;
70 $self->{address
} = $param->{domain
};
76 =head1 PMG::RuleDB::Domain
78 A WHO object to check email domains.
84 An Email domain. We use case insensitive compares.
88 $obj = PMG::RuleDB::Domain->new ('yourdomain.com');