Revision 3b2627d2
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 385 | 385 |
$html_file->print($form->parse_html_template('report_generator/pdf_report', $variables));
|
| 386 | 386 |
$html_file->close(); |
| 387 | 387 |
|
| 388 |
my $gs = IO::File->new("\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " .
|
|
| 389 |
"\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite - |");
|
|
| 388 |
my $cmdline = |
|
| 389 |
"\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " .
|
|
| 390 |
"\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite -";
|
|
| 391 |
|
|
| 392 |
my $gs = IO::File->new("${cmdline} |");
|
|
| 390 | 393 |
if ($gs) {
|
| 391 | 394 |
while (my $line = <$gs>) {
|
| 392 | 395 |
print $line; |
Auch abrufbar als: Unified diff
Etwas mehr Übersicht.