From f6338fe9fcf9ecfe6fc0b1a5464ce87334fa67f0 Mon Sep 17 00:00:00 2001 From: Juerd Waalboer Date: Wed, 20 Sep 2023 00:06:12 +0200 Subject: [PATCH] gtin: fix spamurl, support element string without parentheses The spam url has uppercase letters. --- plugins/regex_gtin | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/plugins/regex_gtin b/plugins/regex_gtin index 897b9ff..a8e7307 100644 --- a/plugins/regex_gtin +++ b/plugins/regex_gtin @@ -17,7 +17,12 @@ my @regexes = ( 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 + qr[^01(\d{14})(?=\d|$)], # GS1-128 (without FNC) with GTIN-14 + qr[^010(\d{13})(?=\d|$)], # GS1-128 (without FNC) with GTIN-13 + qr[^0100(\d{12})(?=\d|$)], # GS1-128 (without FNC) with GTIN-12 + qr[^010{6}(\d{8})(?=\d|$)], # GS1-128 (without FNC) with GTIN-8 + + qr[^https://\w+url\.com/(?:q/|q/srn|srn)(\d{13})]i, # spam with GTIN-13 ); sub command ($self, $cart, $command, @) {