bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change from Term::QRCode to qrencode; minimize QR

Browse source 
It's more likely that people will manage to install qrencode, than the 0.01
perl module from 2008 with broken dependencies.

Also, by eliminating optional parts of the EPC QR data, the resulting code
fits on fewer lines.
This commit is contained in:
Juerd Waalboer 2019-05-12 20:50:49 +02:00
parent edca797fe5
commit 49e41ea0ea
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
plugins/deposit_epc_qr
View file

@ -1,6 +1,5 @@
#!perl
use Term::QRCode;
use List::Util qw(sum);
sub command { NEXT }
@ -22,16 +21,21 @@ sub hook_checkout {
if (defined $amount && $amount > 0) {
print "Here's your EPC QR code:\n";
print Term::QRCode->new->plot(join(
open my $pipe, "| qrencode -t ansiutf8 -m 2"
or die "Couldn't run qrencode";
print $pipe join(
"\n",
"BCD", "001", 1, "SCT",
"BANKCC01", # Change this to your bank's BIC number
"BCD", "002", 1, "SCT",
"",
"Your Hackerspace", # Account name
"NL12ABCD1234567890", # IBAN Number
"EUR" . $amount, # Amount
"CHAR", "",
"deposit $user (T: $transaction_id)", # Description
"",
)) . "\n";
"",
"deposit", # $user (T: $transaction_id)", # Description
"",
);
close $pipe;
}
}