Lots of fixes in auto-reply templates

root/etc/e-smith/templates-user/.lock-auto-reply/message.txt/00Setup

@@ -0,0 +1,14 @@
+{
+# vim: ft=perl:
+die "USERNAME not set." unless defined ($USERNAME);
+
+use esmith::AccountsDB;
+$adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
+
+$user = $adb->get($USERNAME) or die "No user $USERNAME in AccountsDB";
+
+%props = $user->props;
+$props{EmailForward} ||= 'local';
+
+$OUT = '';
+}

root/etc/e-smith/templates-user/.lock-auto-reply/message.txt/10Message

@@ -0,0 +1,28 @@
+{
+
+use esmith::I18N;
+use Locale::gettext;
+use MIME::Lite;
+
+my $i18n = new esmith::I18N;
+$i18n->setLocale('lockAutoReply.tmpl');
+
+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    => "\$USER@" . $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 the email address \$RECIPIENT is no longer valid.") . "\n" . $fwd
+);
+
+$msg->scrub([ 'Date' ]);
+$msg->attr("content-type"         => "text/plain");
+$msg->attr("content-type.charset" => "utf-8");
+
+$OUT = $msg->as_string;
+
+}

root/etc/e-smith/templates-user/lock-auto-reply/message.txt/00Setup

@@ -1,8 +0,0 @@
-{
-
-use Locale::gettext;
-use esmith::I18N;
-my $i18n = new esmith::I18N;
-$i18n->setLocale('expireAutoReply.tmpl');
-
-}

root/etc/e-smith/templates-user/lock-auto-reply/message.txt/10Message

@@ -1,19 +0,0 @@
-{
-
-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;
-
-}