From f5f3c1a7e1328c46a970223c50a8cba81180d870 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Mon, 2 Apr 2012 16:14:57 +0200 Subject: [PATCH] Leerzeichen in ReportGenerator attachement filenames escapen. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Schneller Fix zu Bug 1863. Auf Dauer ist das aber keine Lösung, die Dateinamen müssen anständig escaped werden und der Reportgenerator sollte auch nicht seinen eigenen mini http Dialekt bauen. Entsprechende Warnungen eingebaut. --- SL/ReportGenerator.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm index f81435e71..3f5cdebba 100644 --- a/SL/ReportGenerator.pm +++ b/SL/ReportGenerator.pm @@ -204,8 +204,11 @@ sub set_custom_headers { sub get_attachment_basename { my $self = shift; my $filename = $self->{options}->{attachment_basename} || 'report'; + + # FIXME: this is bonkers. add a real sluggify method somewhere or import one. $filename =~ s|.*\\||; $filename =~ s|.*/||; + $filename =~ s| |_|g; return $filename; } @@ -228,6 +231,7 @@ sub generate_with_headers { print $self->generate_html_content(); } elsif ($format eq 'csv') { + # FIXME: don't do mini http in here my $filename = $self->get_attachment_basename(); print qq|content-type: text/csv\n|; print qq|content-disposition: attachment; filename=${filename}.csv\n\n|; -- 2.20.1