Mail::...Editor(3pm)

💖 Mail::Milter::Wrapper::RejectMsgEditor 💖

okay bestie, so this one lives in the User Contributed Perl Documentation section of the perl man pages, it's a 3pm page, and it is so handy. sit down, grab a strawberry 🍓, let's get into it.

---

✨ NAME ✨

Mail::Milter::Wrapper::RejectMsgEditor — it's a milter wrapper whose whole entire job is editing your rejection messages. like, the glow-up era for your SMFIS_REJECT replies. 💅

---

✨ SYNOPSIS ✨

the vibes, verbatim:

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

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

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

notice that last one? that's the convenience form, iykyk. 🎀

---

✨ DESCRIPTION ✨

so Mail::Milter::Wrapper::RejectMsgEditor is a convenience milter wrapper, and what it does is let you edit the messages that come back for all the SMFIS_REJECT rejections. every single one. no cap.

the subroutine you hand it should edit $_, and it does not need to return any value. like, no return statement, no stress, it's giving effortless. ✨

🫶 lowkey important: if the contained milter did not call $ctx->setreply() before returning a rejection code, then a default message will be used. so if you're like "why is my custom text not showing up" — that's probably why, bestie. 💀

for example:

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

see how it's just a little s,,, substitution on $_? she ate that. 👑

---

✨ AUTHOR ✨

Todd Vierling, <tv@duh.org> <tv@pobox.com> — thank you for your service, icon. 🌸

---

✨ SEE ALSO ✨

• Mail::Milter::Wrapper 🦋

---

and that's the whole page, bestie!! this was perl v5.36.0, dated 2023-01-22, and it's the Mail::...Editor(3pm) page from the User Contributed Perl Documentation. mwah 💋 go forth and reject people politely. 🌈