Todd Vierling > Mail-Milter > Mail::Milter::Wrapper::RejectMsgEditor

Download:
Mail-Milter-0.07.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.03   Source  

NAME ^

Mail::Milter::Wrapper::RejectMsgEditor - milter wrapper to edit rejection messages

SYNOPSIS ^

    use Mail::Milter::Wrapper::RejectMsgEditor;

    my $milter = ...;
    my $wrapper = new Mail::Milter::Wrapper::RejectMsgEditor($milter, \&sub);

    my $wrapper2 = &RejectMsgEditor($milter, \&sub); # convenience

DESCRIPTION ^

Mail::Milter::Wrapper::RejectMsgEditor is a convenience milter wrapper which allows editing of the messages returned for all SMFIS_REJECT rejections. The subroutine provided should edit $_ and need not return any value.

If the contained milter did not call $ctx-setreply()> before returning a rejection code, then a default message will be used.

For example:

    my $wrapped_milter = &RejectMsgEditor($milter, sub {
        s,$, - Please e-mail postmaster\@foo.com for assistance.,
    });

AUTHOR ^

Todd Vierling, <tv@duh.org> <tv@pobox.com>

SEE ALSO ^

Mail::Milter::Wrapper

syntax highlighting: