NAME

Mail::Abuse::Filter::IP - Filter incidents according to its origin IP

SYNOPSIS

  use Mail::Abuse::Filter::IP;
  my $f = new Mail::Abuse::Filter::IP;

  $report->filter([$f]);

DESCRIPTION

Removes those events from a Mail::Abuse::Report whose origin does not match the rules enforced by this module. The actual rules must be specified in the configuration file for the abuse report.

The following configuration keys are recognized:

source ip within

If specified, the source IP address must fall within the subnets given as aguments to this configuration keys. Multiple subnets can be specified by separating them with whitespace or commas.

If left unspecified, this field defaults to "0/0", which matches any source IP address.

Subnets can be written in any format supported by NetAddr::IP.

source ip outside

If specified, the source IP address must not lie within the subnets specified. Subnets can be separated with spaces or commas.

debug ip filter

Set to a true value to see various debugging messages.

The following methods are implemented in this class.

criteria($report, $incident)

This function receives a Mail::Abuse::Report and a Mail::Abuse::Incident object. It returns a true value if the incident should be handled or false otherwise. This function will be generally called by the Mail::Abuse::Report object when requested to filter its events.

The key filtered in the Mail::Abuse::Report object will be incremented for each incident removed.

EXPORT

None by default.

HISTORY

0.01

Original version; created by h2xs 1.2 with options

  -ACOXcfkn
        Mail::Abuse
        -v
        0.01

LICENSE AND WARRANTY

This code and all accompanying software comes with NO WARRANTY. You use it at your own risk.

This code and all accompanying software can be used freely under the same terms as Perl itself.

AUTHOR

Luis E. Muñoz <luismunoz@cpan.org>

SEE ALSO

perl(1).