Perl CGI::应用程序::插件:流 + Jquery Taconite 插件 - 无法下载文件

发布于 2024-07-26 01:52:55 字数 879 浏览 8 评论 0原文

我在运行模式下使用 CGI::Application 的 Stream (qw/stream_file/) 插件从文件系统读取文件并将其流式传输回用户。

用户单击一个链接，我在使用 Jquery 的 ajax 调用中使用其“id”属性来获取文件 (/?mode=get_file&fileid=)。

我还使用 Jquery taconite 插件来更新应用程序其他部分的页面内容；但我没有在 get_file 运行模式中返回任何 xml，如下所示：


sub get_file{
  my $self = shift;
  my $fileid=$self->query->param("fileid");
  $self->header_add( -attachment => $fileid );
  $self->header_add( -type => "application/x-download");
  if ( $self->stream_file( $fileid ) ) {
        return;
  } else {
        return $self->error_mode();
  }
}

结果是：

文件确实按预期进行流式传输（Firebug 告诉我是这样）
标头似乎没问题（如 Firebug 中所示）

我的问题是：

文件内容永远不会以可下载的文件形式呈现给我。

我怀疑 taqconite 插件以某种方式删除了标头。即便如此，我也不确定解决这个问题的最佳方法。

任何想法都会非常有帮助。

谢谢 /英尺

原文

I am using the Stream (qw/stream_file/) Plugin for CGI::Application within a runmode to read a file from the filesystem and stream it back to the user.

The user clicks on a link whose "id" attribute I use in an ajax call using Jquery to fetch the file (/?mode=get_file&fileid=<someid>).

I am also using the Jquery taconite plugin to update page contents in other parts of my application; but I do not return any xml in the get_file runmode, which looks like this:


sub get_file{
  my $self = shift;
  my $fileid=$self->query->param("fileid");
  $self->header_add( -attachment => $fileid );
  $self->header_add( -type => "application/x-download");
  if ( $self->stream_file( $fileid ) ) {
        return;
  } else {
        return $self->error_mode();
  }
}

The result is: