parent
769bdfab33
commit
af1c209dfa
@ -0,0 +1,20 @@
|
||||
#!/usr/bin/env perl
|
||||
use lib '/srv/kassa-alpha/app/lib';
|
||||
use Protocol::Zebra::Label;
|
||||
use Kassa::Net::Kassabon;
|
||||
BEGIN {
|
||||
$ENV{ZMQ_PERL_BACKEND} = 'ZMQ::LibZMQ3';
|
||||
}
|
||||
use ZMQ;
|
||||
use ZMQ::Constants ':all';
|
||||
|
||||
my $zmq_context = ZMQ::Context->new(1);
|
||||
|
||||
my $printer = Kassa::Net::Kassabon->new($zmq_context, 'tcp://192.168.1.82:9999');
|
||||
|
||||
my $p = Protocol::Zebra::Label->new;
|
||||
my $data = $p->format({ name => "Test label met een langere tekst adf df efe efei hemelsblauw", price => 'EUR 1,10', barcode => '812345678901', count => 1 });
|
||||
|
||||
$printer->send($data);
|
||||
|
||||
sleep 1;
|
Loading…
Reference in new issue