Re^3: perl wkhtmltopdf Error: Unable to write to destination

Here is the final working solution I came up with. If there is anything I missed please let me know. I don't know if I am using "gensym()" correctly. The main thing that was an issue was rights on the server side.

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;
use Symbol;

my $cmd = '/usr/local/bin/wkhtmltopdf - -';

my $err = gensym(); 
my $in  = gensym();
my $out = gensym();

my $pdf = '';

my $pid = open3($in, $out, $err, $cmd)  or die "could not run cmd : $c
+md : $!\n";

my $string = '<html><head></head><body>Hello World!!!<br /><br /><br /
+>
IMG: <img id="image" src="data:image/gif;base64,R0lGODlhFwAPAKEAAP///w
+AAAMzMzLi3tywAAAAAFwAPAAACQIyPqQjtD98RIVpJ66g3hgEYDdVhjThyXSA4aLq2rgp
+78hxlyY0/ICAIBhu/HrEEKIZUyk4R1Sz9RFEkaIHNFgAAOw==" />
</body></html>';

print $in $string;
close($in);

while( <$out> ) {
  $pdf .= $_
}

# for trouble shooting
while( <$err> ) {
  # print "err-> $_<br />\n";
}

# for trouble shooting
waitpid($pid, 0 ) or die "$!\n";
my $retval =  $?;
# print "retval-> $retval<br />\n";

print "Content-Disposition: attachment; filename='testPDF.pdf'\n";
print "Content-type: application/octet-stream\n\n";
print $pdf;
[download]

Comment on Re^3: perl wkhtmltopdf Error: Unable to write to destination Download Code


Think about Loose Coupling
	PerlMonks