use strict;
use autodie;
-my $card_svg = 'card/ffzg-2010.svg';
+die "unsage: $0 card/template.svg 201008159999 login Ime Prezime\n" unless @ARGV;
-warn "# card template: $card_svg\n";
+my ($card_svg,$nr,$login,$ime,$prezime) = @ARGV;
-my ($nr,$ime,$prezime) = ( qw/
-200900000042
-Dobrica
-Pavlinušić
-/ );
+my $png = $ENV{PNG} || 0;
+
+warn "# svg: $card_svg nr: $nr $ime $prezime\n";
my $mapping = {
'200908109999' => $nr,
+'login0123456789@ffzg.hr' => $login,
'Knjižničarko' => $ime,
'Čitalić' => $prezime,
};
if ( m{($re)} ) {
warn "mapping $1\n";
- s{($1)}{mapping($1)}e;
+ s{($1)}{mapping($1)}ge;
}
print $svg $_;
my $shell = "$out.svg --export-area-page --export-id $part";
+ $part =~ s/print-//; # FIXME change svg files
+
print $inkscape "$shell --export-pdf $out.$part.pdf\n";
- print $inkscape "$shell --export-png $out.$part.png --export-dpi 150\n";
+ print $inkscape "$shell --export-png $out.$part.png --export-dpi 150\n" if $png;
}
inkscape_export 'print-front';
inkscape_export 'print-back';
# export visible
-print $inkscape "$out.svg --export-png $out.png --export-dpi 300\n";
+print $inkscape "$out.svg --export-png $out.png --export-dpi 300\n" if $png;
close($inkscape);
system "gs -dNOPAUSE -dBATCH -q -r300x300 -dDEVICEWIDTHPOINTS=243 -dDEVICEHEIGHTPOINTS=155 -sDEVICE=pbmraw -sOutputFile=$pbm -f $pdf";
}
-system "pdftk $out.print-front.pdf $out.print-back.pdf cat output $out.print-duplex.pdf";
+system "pdftk $out.front.pdf $out.back.pdf cat output $out.duplex.pdf";
__END__