X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=blobdiff_plain;f=svg-render.pl;h=6eeb4f9b69c64c3faa7710986d4af25ded60c4a4;hp=6624066f1a2f907a6b925b5dc590ed65043a2287;hb=acddfac15409bb4c2761fc21500ee081b6140a9a;hpb=e699b31cd967ccc99fb88d987250eb44a85cbb4f

diff --git a/svg-render.pl b/svg-render.pl
index 6624066..6eeb4f9 100755
--- a/svg-render.pl
+++ b/svg-render.pl
@@ -1,16 +1,38 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
+use autodie;
 
 # 5166 px = 1000 dpi
 
+my $size = $ENV{SIZE} || '105x40';
+
 my $w = 832;
 
 my $density = $w / 5166 * 1000;
 warn "# density = $density\n";
 
-my $from = shift @ARGV || die "usage: $0 template.svg\n";
+my $args = join(' ', @ARGV);
+die "usage: $0 1301272944 callnumber\n" unless $args;
+
+my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $args, 5);
+
+my $pbm = "/tmp/$barcode.pbm";
+
+open(my $from, '<',  "templates/$size.svg");
+open(my $to,   '|-', "convert -units PixelsPerInch -density $density - $pbm");
+while(<$from>) {
+	s/1301272944/$barcode/gs && warn "# barcode $barcode\n";
+	s/##call1##/$call1/gs    && warn "# 1: $call1\n";
+	s/##call2##/$call2/gs    && warn "# 2: $call2\n";
+	s/##call3##/$call3/gs    && warn "# 3: $call3\n";
+	s/##call4##/$call4/gs    && warn "# 4: $call4\n";
+
+	print $to $_;
+}
+close($from);
+close($to);
 
-system "convert -density $density $from $from.pbm";
+warn "$pbm ", -s $pbm, " bytes\n";