The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Sietima::Role::Debounce - avoid mail loops

VERSION

version 1.1.2

SYNOPSIS

  my $sietima = Sietima->with_traits('Debounce')->new(\%args);

DESCRIPTION

A Sietima list with this role applied will mark each message with a X-Been-There: header, and will not handle any messages that have that same header. This prevents messages bounced by other services from being looped between the mailing list and those other services.

MODIFIED METHODS

munge_mail

If the incoming email contains our X-Been-There: header, this method will return an empty list (essentially dropping the message).

Otherwise, the header is added, and the email is processed normally.

AUTHOR

Gianni Ceccarelli <dakkar@thenautilus.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2023 by Gianni Ceccarelli <dakkar@thenautilus.net>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.