如何根据Content-Length或MIME-Type中止Catalyst上传？

Question

我尝试使用parse_on_demand，如下所示：http://search.cpan.org/~flora/Catalyst-Runtime-5.80007/lib/Catalyst.pm#ON-DEMAND_PARSER

但是，我似乎不能停止上传。我只是通过创建一个立即终止的操作来测试这一点，但是浏览器似乎在我选择的非常大的文件到达我的操作之前就上传了它：

sub upload :Local {
    my ($self, $c) = @_;
    die;

    # What I'd like to do is this:
    # if ($c->req->header('Content-Length') > $some_limit) {
    #    die "Upload too large";
    # }
    # ... check filename extension and mime-type...
}

这是上传验证的正确方法吗？

Answer 1

Catalyst在分派给您的操作之前会处理上传。您需要在请求处理过程的早期进行拦截，我怀疑这意味着需要一个插件。

我不是使用Catalyst上传的专家，但可能有一些东西已经在做这件事了，所以值得在cpan上搜索一下……但如果没有，我会看看Upload Progress插件是如何在当前上传中获取状态的。您应该能够以类似的方式终止上传。

JayK

Answer 2

还要看看HTML::FormHandler::Model::DBIC，它在内置的验证中为您处理这两种情况。