Revision f5f3c1a7
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 204 | 204 |
sub get_attachment_basename {
|
| 205 | 205 |
my $self = shift; |
| 206 | 206 |
my $filename = $self->{options}->{attachment_basename} || 'report';
|
| 207 |
|
|
| 208 |
# FIXME: this is bonkers. add a real sluggify method somewhere or import one. |
|
| 207 | 209 |
$filename =~ s|.*\\||; |
| 208 | 210 |
$filename =~ s|.*/||; |
| 211 |
$filename =~ s| |_|g; |
|
| 209 | 212 |
|
| 210 | 213 |
return $filename; |
| 211 | 214 |
} |
| ... | ... | |
| 228 | 231 |
print $self->generate_html_content(); |
| 229 | 232 |
|
| 230 | 233 |
} elsif ($format eq 'csv') {
|
| 234 |
# FIXME: don't do mini http in here |
|
| 231 | 235 |
my $filename = $self->get_attachment_basename(); |
| 232 | 236 |
print qq|content-type: text/csv\n|; |
| 233 | 237 |
print qq|content-disposition: attachment; filename=${filename}.csv\n\n|;
|
Auch abrufbar als: Unified diff
Leerzeichen in ReportGenerator attachement filenames escapen.
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.