X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/24e8b08430fe09e219b61b07d40bfc12c8f5ed1e..c4a1ac51f421e91ae21d35fcebad11259e90c74d:/SL/ReportGenerator.pm diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm index 6a78c5370..306236fb2 100644 --- a/SL/ReportGenerator.pm +++ b/SL/ReportGenerator.pm @@ -385,8 +385,11 @@ END $html_file->print($form->parse_html_template('report_generator/pdf_report', $variables)); $html_file->close(); - my $gs = IO::File->new("\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " . - "\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite - |"); + my $cmdline = + "\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " . + "\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite -"; + + my $gs = IO::File->new("${cmdline} |"); if ($gs) { while (my $line = <$gs>) { print $line;