projekt kivitendo

use IO::File;

sub send_file {

  my ($self, $file_name, %params) = @_;

  my $file            = IO::File->new($file_name, 'r') || croak("Cannot open file '${file_name}'");

  my $content_type    =  $params{type} || 'application/octet_stream';

  my $attachment_name =  $params{name} || $file_name;

  $attachment_name    =~ s:.*//::g;

  print $::form->create_http_response(content_type        => $content_type,

                                      content_disposition => 'attachment; filename="' . $attachment_name . '"',

                                      content_length      => -s $file);

  $::locale->with_raw_io(\*STDOUT, sub { print while <$file> });

  $file->close;

}

=item C<send_file $file_name, [%params]>

Sends the file C<$file_name> to the browser including appropriate HTTP

headers for a download. C<%params> can include the following:

=over 2

=item * C<type> -- the file's content type; defaults to

'application/octet_stream'

=item * C<name> -- the name presented to the browser; defaults to

C<$file_name>

=back

  map { $cgi_params{'-' . $_} = $params{$_} if exists $params{$_} } qw(content_disposition content_length);