From: Kilian Saffran <ksaffran@dks.lu>
Date: Sun, 3 Mar 2019 14:32:48 +0000 (+0100)
Subject: createpdf template file basics finished
X-Git-Url: http://cloud.dks.lu/git/?a=commitdiff_plain;h=322280406109524e8686fd4c2e9e2ee671f92325;p=dks_server.git

createpdf template file basics finished
---

diff --git a/bin/createpdf.pl b/bin/createpdf.pl
index bd9ed4e..ff11be7 100644
--- a/bin/createpdf.pl
+++ b/bin/createpdf.pl
@@ -5,6 +5,7 @@ use PDF::API2;
 use PDF::Table;
 use Image::Size;
 use File::Basename;
+use Getopt::Long;
 use utf8;
 use Encode;
 use JSON::PP;
@@ -12,25 +13,33 @@ use Data::Dumper;
 my $pdf = PDF::API2->new();
 my $strpdfdata ="";
 my $pdfdata =();
-open(DATA,dirname($0).'/dkspdf.json');
+my $datafile = "";
+# my $datafile=dirname($0).'/dkspdf.json';
+my $pdfout = "";
+# my $datafile=dirname($0).'/pdftest.pdf';
+GetOptions ("data|d=s" => \$datafile, "pdfoutput|o=s" => \$pdfout);
+if (! -e $datafile){
+  print "file $datafile does not exist!\n";
+  exit(1);
+}
+if (-e $pdfout){
+  unlink($pdfout);
+}
+
+open(DATA,$datafile);
 while (my $l = <DATA>){
   $strpdfdata .= $l;
 }
 close(DATA);
 $pdfdata = JSON::PP::decode_json($strpdfdata);
-#
-# use constant mm => 25.4 / 72;
-# use constant in => 1 / 72;
-# use constant pt => 1;
+
 
 $pdf->preferences({-fitwindow => 1});
-my $fntbold = $pdf->corefont('Helvetica-Bold');
-my $fnt = $pdf->corefont('Helvetica');
-#
+
 
 my $page = $pdf->page();
 $page->mediabox('A4');
-unlink(dirname($0).'/pdftest.pdf');
+
 #height: 842
 #width; 595
 #
@@ -53,7 +62,7 @@ foreach my $s (sort keys(%{$pdfdata->{section}})){
   }
 }
 
-$pdf->saveas(dirname($0).'/pdftest.pdf');
+$pdf->saveas($pdfout);
 $pdf->end;
 
 #Functions