Lines 50-61
sub print {
Link Here
|
50 |
return unless ($data); |
50 |
return unless ($data); |
51 |
|
51 |
|
52 |
if ($is_html) { |
52 |
if ($is_html) { |
53 |
require HTML::HTMLDoc; |
53 |
require PDF::FromHTML; |
54 |
my $htmldoc = new HTML::HTMLDoc(); |
54 |
require File::Temp; |
55 |
$htmldoc->set_output_format('ps'); |
55 |
require File::Slurp; |
56 |
$htmldoc->set_html_content($data); |
56 |
|
57 |
my $doc = $htmldoc->generate_pdf(); |
57 |
my ( $pdf_fh, $pdf_filename ) = File::Temp::tempfile( CLEANUP => 1); |
58 |
$data = $doc->to_string(); |
58 |
my ( $ps_fh, $ps_filename ) = File::Temp::tempfile( CLEANUP => 1); |
|
|
59 |
|
60 |
my $pdf = PDF::FromHTML->new( encoding => 'utf-8' ); |
61 |
my $pdf_data; |
62 |
$pdf->load_file( \$data ); |
63 |
$pdf->convert(); |
64 |
$pdf->write_file( $pdf_filename ); |
65 |
|
66 |
`pdf2ps $pdf_filename $ps_filename`; |
67 |
|
68 |
$data = File::Slurp::read_file( $ps_filename ); |
59 |
} |
69 |
} |
60 |
|
70 |
|
61 |
my ( $result, $error ); |
71 |
my ( $result, $error ); |