Question

我的发送邮件脚本有问题。大多数情况下，问题只与进度条有关。我希望当我单击“提交”时，进度条开始移动并在发送完成时结束。

好吧，我尝试使用类似的示例CGI::ProgressBar，但我无法使其正常工作。

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;
use MIME::Lite;
use CGI::ProgressBar qw/:standard/;

$| = 1; # Do not buffer output

my $CGI = CGI->new();

my $from_email = $CGI->param("from_email");
my $from_name = $CGI->param("from_name");
my $subject = $CGI->param("subject");
my $receipts = $CGI->param("receipts");
my $message  = $CGI->param("message");

# Newline format. send message to each email listed
my $output = join "\n", split " ", $receipts;  

if ($from_email, $from_name, $subject, $receipts, $message) {
my $msg = MIME::Lite->new(
        # From Name: John Deo And Sent From Email: johndeo@mail.com
        From     => "$from_name <$from_email>",
        To       => $output,
        Subject  => $subject,
        Data     => $message

);
# Support HTML Message
$msg->attr("content-type" => "text/html");  
$msg->send;

if ($msg) {   # if mail starts sending
print progress_bar( -from=>1, -to=>100 );
for (1..100){
        print update_progress_bar;
        # Print ProgressBar
        $progressbar_html = qq{<div class="box">
    <div id="progressbar">
        <div></div>
    </div>
    <div class="text">Sending... 1%</div>
</div>
};
        sleep 1;

}
print $response = "Message Sent Successfully";
exit;
}

if(!$msg) {
print $response = "Message Failed To Send";
}
}

print "Content-type: text/html\n\n";
print <<START_HTML;

<!DOCTYPE html>
<html>
<head>
<title>Simple Mailer</title>
<style type="text/css">
.box {
    border-radius: 10px;
    padding: 25px;
    background-color: rgba(51, 51, 51, 0.96);
    text-align: center;
}
#progressbar {
    border: 3px solid #fff;
    border-radius: 20px;
    padding: 2px;
}
#progressbar > div {
    -webkit-box-sizing: border-box;
    -moz-box-sizing: border-box;
    box-sizing: border-box;
    background-color: #fff;
    width: 1%;
    height: 18px;
    border: 1px solid rgba(0, 0, 0, 0);
    border-radius: 20px;
}
.text {
    color: #fff;
    margin-top: 15px;
    font-size: 21px;
    font-weight: bold;
}
</style>
</head>

<body>
<form method="post">
<label>From Email
<input type="text" name="from_email" />
<br />
<br />
From Name
<input type="text" name="from_name" />
</label>
<p>
  <label>Subject
  <input type="text" name="subject" />
  </label>
</p>
<p>
  <label>Receipts
  <textarea name="receipts"></textarea>
  </label>
</p>
<p>
  <label>message
  <textarea name="message"></textarea>
  </label>
</p>
<p>
  <label>Send
  <input type="submit" value="Submit" />
  </label>
</p>
</form>
<p>&nbsp;</p>

$progressbar_html
<p>$response</p>
</body>
</html>

START_HTML

Answer 1

首先，我不建议使用看起来像八年前被废弃的模块。

其次，我真的不确定您如何看待它。用伪代码，您的程序如下所示：

设置CGI对象
提取邮件参数
创建邮件
发送邮件
显示进度条，该进度条每秒更新一百秒

主要问题是这样一个事实：发送邮件的行是$msg->send。一旦执行了该行，邮件就消失了。在显示进度完成后，没有必要创建和更新进度条。

您需要做更多类似的事情：

设置CGI对象
提取邮件参数
创建邮件
设置并显示进度条
发送邮件（包括定期回电以更新进度条）

当然，这是棘手的最后一部分。多年以来我都没有看过MIME :: Lite（如今已经大部分时间弃用了），但是浏览文档时，我看不到有任何方法可以在邮件发送代码中进行异步回调。

一种方法是为收件人列表中的每个人创建一封电子邮件。这样，您可以一次发送一个，并在发送每个后更新进度栏。但这不是向多人发送电子邮件的特别有效的方法。

使用Perl发送带有进度条的邮件

1 个答案: