Revision 80711e19
Von Sven Schöling vor etwa 4 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 598 | 598 |
|
| 599 | 599 |
my $xml = $sepa_xml->to_xml(); |
| 600 | 600 |
|
| 601 |
print $::request->cgi->header('-type' => 'application/octet-stream',
|
|
| 602 |
'-content-disposition' => 'attachment; filename="SEPA_' . $message_id . ($vc eq 'customer' ? '.cdd' : '.cct') . '"', |
|
| 603 |
'-content-length' => length $xml); |
|
| 601 |
print $::request->cgi->header( |
|
| 602 |
type => 'application/octet-stream', |
|
| 603 |
attachment => "SEPA_${message_id}" . ($vc eq 'customer' ? '.cdd' : '.cct'),
|
|
| 604 |
content_length => length $xml, |
|
| 605 |
); |
|
| 604 | 606 |
print $xml; |
| 605 | 607 |
|
| 606 | 608 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Response in $::request->cgi benutzt und calls angepasst auf neue API