在Perl中使用NET :: SMTP發送.OFT模板

Question

我目前有一個工作的Perl代碼，用我的通用主題和內容將電子郵件發送到正確的電子郵件地址。

但是，目前每當有新用戶啓動時，我們都會啓動一個預製的.oft模板，以表明他們需要知道的所有內容。 .oft存儲在我們的服務器上。我想知道是否有一種方法來改變perl代碼，使其成爲：但使用.oft模板來製作電子郵件的其餘部分？

所以基本上

$smtp = Net::SMTP->new('smtp.blah'); 
    $smtp->('no-replay@blah.com'); 
    $smtp->to('$personEmail'); 
    $smtp->data(); 
    $smtp->datasend($locationOfOftTemplate); 
    $smtp->dataend(); 
    $smtp->quit; 

Answer 1

AFAIK有處理這一專有格式沒有模塊。而是將其轉換爲標準模板系統：

my $template = <<'TEMPLATE'; 
Good morning, [% name %]! 

Today is your first day at work. You have already received your universal login 
credentials: 

    [% ldap_user %] 
    [% ldap_pass %] 

It works for authenticating at the Web proxy, mail system, Jabber and internal 
services. Change the password ASAP: <[% ldap_web %]> 

-- 
Yours sincerely, the greeting daemon 
TEMPLATE 

use Text::Xslate qw(); 
my $text = Text::Xslate->new(syntax => 'TTerse')->render_string($template, { 
    name => 'New Bee', 
    ldap_user => 'nbee', 
    ldap_pass => 'CON-GLOM-O', 
    ldap_web => 'http://192.168.0.1:8080/', 
}); 

使用MIME工具包創建電子郵件。 HTML /多/附件是容易 Courriel::Builder：

use Courriel::Builder; 

my $email = build_email(
    subject('Welcome'), 
    from('no-reply@example.com'), 
    to('…'), 
    plain_body($text), 
); 

最後，使用高級別庫Email::Sender，給你不錯的錯誤檢查，並允許您輕鬆地切換出傳輸發送 - 運行測試的本地交付。

use Email::Sender::Simple qw(sendmail); 
use Email::Sender::Transport::SMTP qw(); 
use Try::Tiny; 

try { 
    sendmail(
     $email, 
     { 
      transport => Email::Sender::Transport::SMTP->new({ 
       host => 'smtp.example.invalid', 
      }) 
     } 
    ); 
} catch { 
    warn "sending failed: $_"; 
};