如何使用perl和sendmail[Mail:：sendmail]从URL发送pdf

Question

我有一个需要改变的遗留应用程序。它是用perl编写的，并使用send::mail向用户发送邮件。以前我们在电子邮件消息正文中发送链接，但现在他们想要pdf附件。PDF是使用php在另一台服务器上生成的。

工作流程将是

1. 创建电子邮件正文
2. 通过URL从另一台服务器获取pdf
3. 将pdf作为附件添加到电子邮件中
4. 发送它。

我想我可以用

use LWP::Simple;
unless (defined ($content = get $URL)) {
    die "could not get $URL\n";
}

获取URL的内容，但我不知道如何在sendmail中将该变量用作附件。当前的sendmail代码是：

my %maildata = (To  => $to,
        From    => 'OurSite - Billing <[e-mail]>',
        Organization => 'OurSite, LLC      http://www.OurSite.com/',
        Bcc => '[e-mail]',
        Subject => $subject{$message} || 'ourSite invoice',
        Message => $body
           );
print STDERR "notify1 now calling sendmail\n";
sendmail(%maildata) || print STDERR $Mail::Sendmail::error;

我的另一个问题是，我不知道如何确定我的sendmail版本（旧的freebsd系统）是否能够发送附件？

Answer 1

好的，谢谢那些给我指明方向/愿意尝试的海报。

最后，我构建了一个mime主体，做了以下工作

use LWP::Simple;
use MIME::Base64;

unless (defined ($content = get $URL)) {
    die "could not get $URL\n";
} 
my $pdfencoded = encode_base64($content);  

my %maildata = (To  => $to,
        From    => 'OurSite - Billing <[e-mail]>',
        Organization => 'OurSite, LLC      http://www.OurSite.com/',
        Bcc => '[e-mail]',
        Subject => $subject{$message} || 'ourSite invoice',

           );

my $boundary = "====" . time() . "====";

$maildata{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$maildata{'Message'} = "--".$boundary."\n"."Content-Type: text/plain\n".$body.
"\n--".$boundary."\nContent-Transfer-Encoding: base64\nContent-Type: 
application/pdf; name=\"invoice.pdf\"\n".$pdfencoded."\n--".$boundary."--";

sendmail(%maildata) || print STDERR $Mail::Sendmail::error;

这给了我一个手工构建的MIME格式的正文内容。

谢谢你的帮助！