parent
1b5388eae4
commit
d0e102d0f7
3 changed files with 27 additions and 0 deletions
@ -0,0 +1,8 @@ |
||||
{ |
||||
|
||||
use Locale::gettext; |
||||
use esmith::I18N; |
||||
my $i18n = new esmith::I18N; |
||||
$i18n->setLocale('expireAutoReply.tmpl'); |
||||
|
||||
} |
@ -0,0 +1,19 @@ |
||||
{ |
||||
|
||||
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 |
||||
|
||||
} |
Loading…
Reference in new issue