从 perl 中的请求中获取附件



我想使用表单提交电子邮件字段,以便服务器可以发送它。我使用 Perl 和 Mason 来处理这个问题。我希望用户能够添加多个附件,但是我遇到了无法解决的问题。这是我的代码尽可能简化,并增加了对附件的检查。(提交后我想停留在同一页面,这就是为什么在 Init 部分有一个隐藏的复选框和条件,以便在我第一次访问该页面时它什么都不做。

<!DOCTYPE html>
<html>
%foreach (@messages) {
    <div class="alert">
        <% $_ | h %>
    </div>
%}
    <body>
       <form action="/Tools/SendEmail.html" name="form" enctype="multipart/form-data" method=post>
            <input type="checkbox" id="submited_chck" name="submited" checked hidden>
            <input type="file" name="attached_files" id="file_upload_btn" multiple> 
            <input type="submit" value="Submit">
        </form> 
    </body> 
</html>
<%args>
@messages => ()
$submited => ''
</%args>
<%init>
use strict;
use warnings;
use CGI;
if($submited eq 'on') {
    my $req = new CGI;
    my @attachments = $req->param('attached_files');
    unless (@attachments) {
        push @messages, "Attachments do not exist";
    }
}
</%init>

问题是,如果我在提交之前执行任何请求并添加任意数量的附件,它不会从请求中获取附件,并且错误消息被推送到数组中并显示。只有当我重新启动 apache 服务并在它之后立即提交表单时,它才会推送错误消息。任何想法会导致这种情况?

看起来您以错误的方式使用hidden属性。请阅读以下内容: https://developer.mozilla.org/en-US/docs/Web/HTML/Global_attributes/hidden

所以我建议替换它:

<input type="checkbox" id="submited_chck" name="submited" checked hidden>

有了这个:

<input type="hidden" id="submited_chck" name="submited" value="on">

然后进一步调查。

我只需要改变:

my $req = new CGI;

自:

my $req = $m->cgi_object;

现在它运行完美。

相关内容

  • 没有找到相关文章

最新更新