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