39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
|
{
|
||
|
|
|
||
|
|
use esmith::AccountsDB;
|
||
|
|
use esmith::I18N;
|
||
|
|
use Locale::gettext;
|
||
|
|
use MIME::Lite;
|
||
|
|
|
||
|
|
my $i18n = new esmith::I18N;
|
||
|
|
$i18n->setLocale('lockAutoReply.tmpl');
|
||
|
|
|
||
|
|
die "USERNAME not set" unless defined ($USERNAME);
|
||
|
|
|
||
|
|
$a = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
|
||
|
|
|
||
|
|
$user = $a->get($USERNAME) or die "No user $USERNAME in AccountsDB";
|
||
|
|
%props = $user->props;
|
||
|
|
$props{EmailForward} ||= 'local';
|
||
|
|
|
||
|
|
my $fwd = ($props{EmailForward} =~ /^(forward|both)$/) ?
|
||
|
|
sprintf(gettext("Your mail has been forwarded to %s"), ($props{ForwardAddress} || 'devnull@' . $DomainName)) . ".\n" .
|
||
|
|
gettext("This forward is only temporary, you should update your addressbook.") : "";
|
||
|
|
|
||
|
|
my $msg = MIME::Lite->new(
|
||
|
|
Subject => gettext("This account is no longer valid"),
|
||
|
|
From => 'no-reply@' . $DomainName,
|
||
|
|
Data => gettext("This is an automatic message in reply to your email with the following subject:") . "\n\n" .
|
||
|
|
'%S' . "\n\n" .
|
||
|
|
gettext("I'm sorry to inform you that this email address is no longer valid.") . "\n" . $fwd . "\n\n\n\n" .
|
||
|
|
gettext("Please note that this is an automatic email. Do not respond, it won't be treated")
|
||
|
|
);
|
||
|
|
|
||
|
|
$msg->scrub([ 'Date', 'X-Mailer' ]);
|
||
|
|
$msg->attr("content-type" => "text/plain");
|
||
|
|
$msg->attr("content-type.charset" => "utf-8");
|
||
|
|
|
||
|
|
$OUT = $msg->as_string;
|
||
|
|
|
||
|
|
}
|