123456789101112131415161718192021 package Mail::Karmasphere::Parser::RBL::SimpleIP;use strict;use warnings;use base 'Mail::Karmasphere::Parser::RBL::Base';sub _type { "ip4" }sub _streams { qw(ip4) }sub my_format { "rbl.simpleip" } # if the source table's "magic" field is rbl.simpleip, this module deals with it.sub tweaks { my $self = shift; # we assume it's a url identity. return ("ip4", 0, $_[0]);}1;
package
Mail::Karmasphere::Parser::RBL::SimpleIP;
use
strict;
warnings;
base
'Mail::Karmasphere::Parser::RBL::Base'
;
sub
_type {
"ip4"
}
_streams {
qw(ip4)
my_format {
"rbl.simpleip"
# if the source table's "magic" field is rbl.simpleip, this module deals with it.
tweaks {
my
$self
=
shift
# we assume it's a url identity.
return
(
, 0,
$_
[0]);
1;