You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
792 B
20 lines
792 B
9 years ago
|
{
|
||
|
|
|
||
|
|
use Mime::Lite;
|
||
|
|
my $msg = MIME::Lite->new(
|
||
|
|
Subject => gettext("This account is no longer valid"),
|
||
|
|
From => "\$USER@" . $DomainName
|
||
|
|
Data => gettext("This is an automatic message in reply to your email with the following subject:") . "\n" .
|
||
|
|
"%S" .
|
||
|
|
gettext("I'm sorry to inform you that the email address \$RECIPIENT is no longer valid") .
|
||
|
|
($props{EmailForward} =~ /^(forward|both)$/) ? sprintf(gettext("Your mail has been forwarded to %s"), $props{ForwardAddress}) .
|
||
|
|
gettext("This forward is only temporary, you should update your addressbook") : "";
|
||
|
|
);
|
||
|
|
|
||
|
|
$msg->attr("content-type" => "text/plain");
|
||
|
|
$msg->attr("content-type.charset" => "utf-8");
|
||
|
|
|
||
|
|
$OUT = $msg->as_string
|
||
|
|
|
||
|
|
}
|