有没有比 postcat 更好的工具来查看 postfix 邮件队列文件？

Question

因此，今天早上我接到一个电话，称一位客户需要查看我们的辅助邮件服务器中等待发送的电子邮件。他们的主服务器链接已经（仍然）关闭了两天，他们需要查看他们的电子邮件。

因此，我编写了一个快速 Perl 脚本，结合使用 mailq 和 postcat 将其地址的每封电子邮件转储到单独的文件中，打包并发送出去。我知道代码很糟糕，但是很紧急。

我的解决方案工作正常，因为它至少提供了一个原始视图，但我想今晚如果我有一个解决方案，可以提供他们的电子邮件附件，也许还可以删除一些“垃圾”标题文本，那就太好了。大多数重要的电子邮件似乎都附有 PDF 或类似文件。

我一直在环顾四周，但我能看到的查看队列文件的唯一方法是 postcat 命令，而且我真的不想编写自己的解析器 - 所以我想知道你们中是否有人已经这样做了，或者知道有更好的命令使用吗？

这是我当前解决方案的代码：

#!/usr/bin/perl

$qCmd="mailq | grep -B 2 \"someemailaddress@isp\" | cut -d \" \" -f 1";

@data = split(/\n/, `$qCmd`);
$i = 0;

foreach $line (@data)
{
    $i++;

    $remainder = $i % 2;
    if ($remainder == 0)
    {
            next;
    }

    if ($line =~ /\(/ || $line =~ /\n/ || $line eq "")
    {
        next;
    }
    print "Processing: " . $line . "\n";
    `postcat -q $line > $line.email.txt`;
    $subject=`cat $line.email.txt | grep "Subject:"`;
    #print "SUB" . $subject;
    #`cat $line.email.txt > \"$subject.$line.email.txt\"`;
}

任何建议表示赞赏。

Answer 1

您可能会发现 Postfix::Parse::Mailq 模块的使用此处，以及 pfcat 脚本。