From 05f9a467e24bdd81da8785dd4b72db83e9fb5189 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 8 Feb 2012 14:58:39 +0100
Subject: [PATCH] CGI to rasterize ZPL and send it using rlpr

---
 print.cgi | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100755 print.cgi

diff --git a/print.cgi b/print.cgi
new file mode 100755
index 0000000..a3cd5d8
--- /dev/null
+++ b/print.cgi
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+use autodie;
+
+my $q = CGI->new;
+
+my $size  = $q->param('size') || '105x40';
+my $width = $q->param('width')    || 832;
+
+my $print = $q->param('print') || die "no print?";
+
+my $ip = $q->remote_addr;
+my $dir = '/srv/Printer-Zebra';
+
+my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $print, 5);
+
+my $tmp = '/tmp/zebra';
+mkdir $tmp unless -e $tmp;
+
+open(my $from, '<',  "$dir/templates/$size.svg");
+open(my $to,   '|-', "rsvg-convert --width=$width --format=png --background-color=white | tee $tmp/$barcode.png | pngtopnm > $tmp/$barcode.pnm");
+while(<$from>) {
+	no warnings 'uninitialized';
+	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 "./pbm2ZPL.pl $tmp/$barcode.pnm | rlpr --printhost=$ip --printer=zpl --windows --verbose";
+
+if ( my $return = $q->param('return') ) {
+	print $q->redirect( $q->param('return') . '&station=' . $ip );
+} else {
+	print "Content-type: image/png\r\n\r\n";
+	local $/ = undef;
+	open(my $fh, '<', "$tmp/$barcode.png");
+	print <$fh>;
+}
+
-- 
2.20.1