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

Add simple GS1 "Digital Link" and "Element String" support

Browse source 
Also has a regex for some known promotional URLs that don't adhere to
the Digital Link standard.
This commit is contained in:
Juerd Waalboer 2023-09-18 01:35:57 +02:00
parent 0dcacfc659
commit 8f781dae6c
2 changed files with 36 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
plugins/regex_gtin Normal file
View file

@ -0,0 +1,34 @@
use List::Util qw(sum);
my @regexes = (
qr[^https?://.*?/01/(\d{14})\b], # GS1 Digital Link with GTIN-14
qr[^https?://.*?/01/0(\d{13})\b], # GS1 Digital Link with GTIN-13
qr[^https?://.*?/01/00(\d{12})\b], # GS1 Digital Link with GTIN-12
qr[^https?://.*?/01/0{6}(\d{8})\b], # GS1 Digital Link with GTIN-8
qr[^\(01\)(\d{14})\b], # GS1 Element String with GTIN-14
qr[^\(01\)0(\d{13})\b], # GS1 Element String with GTIN-13
qr[^\(01\)00(\d{12})\b], # GS1 Element String with GTIN-12
qr[^\(01\)0{6}(\d{8})\b], # GS1 Element String with GTIN-8
qr[^https://\w+url\.com/(?:q/|q/srn|srn)(\d{13})], # spam with GTIN-13
);
sub command ($self, $cart, $command, @) {
$self->{orig_command} //= $command;
$self->{regexes} //= [ @regexes ];
while (my $regex = shift @{ $self->{regexes} }) {
if ($self->{orig_command} =~ $regex) {
my $gtin = $1;
my @digits = reverse split //, $gtin;
my $checksum = (10 - sum(map $digits[$_] * ($_ % 2 ? 3 : 1), 1..$#digits) % 10) % 10;
$digits[0] == $checksum or next;
return REDO, $gtin;
}
}
return NEXT;
}

3
revbank.plugins
View file

@ -46,5 +46,6 @@ products # matches product IDs (barcodes)
market # also matches product IDs
users # matches usernames
#regex_angel # matches SHA2017/MCH2022 angel badges
url # matches URLs
regex_gtin # matches GTINs in URLs and element strings
url # matches other URLs
#deprecated_raw # matches amounts