] *** PDFlib context pointer (nil) is invalid ***, referer: http://localhost/cgi-bin/atelier/my_fin_ab_2012/kwo_fin.cgi
[Fri Aug 29 13:48:26 2014] [error] [client 127.0.0.1] pdflib_pl::PDF_open_file could not open file '/var/www/localhost/htdocs/projectfin/pdf_out/2014-08-28_r_21_.pdf'., referer: http://localhost/cgi-bin/atelier/my_fin_ab_2012/kwo_fin.cgi
[Fri Aug 29 13:48:26 2014] [error] [client 127.0.0.1] [Fri Aug 29 13:48:26 2014] kwo_fin.cgi: system perl /var/www/localhost/cgi-bin/atelier/my_fin_ab_2012/api-test7.pl 21 r failed: 65280 at /var/www/localhost/cgi-bin/atelier/my_fin_ab_2012/kwo_fin.cgi line 667., referer: http://localhost/cgi-bin/atelier/my_fin_ab_2012/kwo_fin.cgi
####
sub kunde_rechnung_print7
{
$mode='kunde_rechnung_auswahl';
$rsubnr = $query->param('RSubNr') || 0;
$rnr = $query->param('RNr') || 0;
$knr = $query->param('knr') || 0;
admin_show();
admin_show();
my @args = ("perl","/var/www/localhost/cgi-bin/atelier/my_fin_ab_2012/api-test7.pl", $rnr, "r");
#line667
system(@args) == 0
or die "system @args failed: $?"
}
####
use PDF::Template;
my $pdf = PDF::Template->new(
filename => '/var/www/localhost/cgi-bin/atelier/my_fin_ab_2012/lib/print_rech_tmpl.xml',
);
my %my_params = ....
...
$pdf->param(%my_params);
#print "Content/type: application/pdf\n\n", $pdf->get_buffer;
my $filename='/var/www/localhost/htdocs/projectfin/pdf_out/'.$Datum.'_'.$rema.'_'.$RNr.'_'.$firma.'_'.$name.'.pdf';
$pdf->write_file($filename);
Cleanup();