56 lines
1.3 KiB
Perl
56 lines
1.3 KiB
Perl
#!perl
|
|
|
|
|
|
# Ja, het is lelijk. Even snel in elkaar geklust en daarna niet meer naar
|
|
# gekeken. Pech :) -- Juerd
|
|
|
|
|
|
|
|
|
|
sub command :Tab(barcode) {
|
|
my ($self, $cart, $command) = @_;
|
|
|
|
return NEXT if $command ne "barcode";
|
|
|
|
return "Barcode data", \&data;
|
|
}
|
|
|
|
sub data {
|
|
my ($self, $cart, $input) = @_;
|
|
|
|
$cart->add(
|
|
undef,
|
|
-0.07,
|
|
"Barcode <$input>",
|
|
{ is_barcode => 1, barcode_data => $input }
|
|
);
|
|
|
|
return ACCEPT;
|
|
}
|
|
|
|
sub hook_checkout {
|
|
my ($class, $cart, $username, $transaction_id) = @_;
|
|
|
|
my @barcodes;
|
|
for my $item ($cart->select_items('is_barcode')) {
|
|
push @barcodes, $item->{barcode_data};
|
|
}
|
|
if (@barcodes) {
|
|
print "\nCheck the following:\n 1. label tape is 12 mm\n 2. printer is on\n 3. wifi is enabled and connected\n\nPress enter to continue.";
|
|
readline STDIN;
|
|
|
|
my $printjob = "";
|
|
|
|
open my $bcgen, "-|", "/home/bar/revlabel/barcode.pl", @barcodes
|
|
or warn "Could not open script 1";
|
|
|
|
local $/;
|
|
my $filenames = readline $bcgen;
|
|
close $bcgen;
|
|
|
|
open my $fh, "| /home/bar/revlabel/ptouch-770-write 12 $filenames | nc -N 10.42.42.222 9100"
|
|
or warn "Couldn't open script 2\n";
|
|
print $fh $printjob;
|
|
close $fh;
|
|
}
|
|
}
|