From 74d97a6e6f66c14a0cd0e5062a66e9e6f4dfa222 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 14 Aug 2010 14:24:30 +0200 Subject: [PATCH] use inkscape --shell to export files --- inkscape-render.pl | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/inkscape-render.pl b/inkscape-render.pl index df7c73e..3fd33bd 100755 --- a/inkscape-render.pl +++ b/inkscape-render.pl @@ -4,6 +4,8 @@ use warnings; use strict; use autodie; +my $card_svg = 'card/ffzg-2010.svg'; + my ($nr,$ime,$prezime) = ( qw/ 200900000042 Dobrica @@ -28,7 +30,7 @@ foreach my $existing ( glob $out . '*' ) { unlink $existing; } -open(my $in, '<', 'template.svg'); +open(my $in, '<', $card_svg); open(my $print, '>', "$out.print.svg"); open(my $screen, '>', "$out.screen.svg"); @@ -56,6 +58,21 @@ close($in); close($print); close($screen); +open(my $inkscape, '|-', 'inkscape --shell --without-gui'); + +sub inkscape_export { + my $part = shift; + print $inkscape "$out.print.svg --export-area-page --export-pdf $out.$part.pdf --export-id $part\n"; + print $inkscape "$out.screen.svg --export-png $out.png --export-dpi 300"; +} + +inkscape_export 'print-front'; +inkscape_export 'print-back'; + +close($inkscape); + +__END__ + #system "inkscape --file $out.print.svg --export-pdf $out.pdf"; system "inkscape --file $out.print.svg --export-area-page --export-pdf $out.print-front.pdf --export-id print-front"; -- 2.20.1