createpdf template file basics finished

diff --git a/bin/createpdf.pl b/bin/createpdf.pl
index bd9ed4e..ff11be7 100644 (file)
--- 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