From 2e086e8f474ad1bb8840ff64a2f2590e9dae3212 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Tue, 2 Dec 2008 10:40:27 +0100
Subject: Started on the release pages

---
 lib/VNDB/Func.pm | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'lib/VNDB/Func.pm')

diff --git a/lib/VNDB/Func.pm b/lib/VNDB/Func.pm
index ac555d1d..8971c6a8 100644
--- a/lib/VNDB/Func.pm
+++ b/lib/VNDB/Func.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Exporter 'import';
 use POSIX 'strftime';
-our @EXPORT = qw| shorten date datestr monthstr userstr bb2html |;
+our @EXPORT = qw| shorten date datestr monthstr userstr bb2html gtintype |;
 
 
 # I would've done this as a #define if this was C...
@@ -143,5 +143,33 @@ sub bb2html {
 }
 
 
+# GTIN code as argument,
+# Returns 'JAN', 'EAN', 'UPC' or undef,
+# Also 'normalizes' the first argument in place
+sub gtintype { 
+  $_[0] =~ s/[^\d]+//g;
+  $_[0] =~ s/^0+//;
+  my $c = shift;
+  return undef if $c !~ /^[0-9]{12,13}$/; # only gtin-12 and 13
+  $c = ('0'x(13-length $c)) . $c; # pad with zeros
+
+  # calculate check digit according to
+  #  http://www.gs1.org/productssolutions/barcodes/support/check_digit_calculator.html#how
+  my @n = reverse split //, $c;
+  my $n = shift @n;
+  $n += $n[$_] * ($_ % 2 != 0 ? 1 : 3) for (0..$#n);
+  return undef if $n % 10 != 0;
+
+  # Do some rough guesses based on:
+  #  http://www.gs1.org/productssolutions/barcodes/support/prefix_list.html
+  #  and http://en.wikipedia.org/wiki/List_of_GS1_country_codes
+  local $_ = $c;
+  return 'JAN' if /^4[59]/; # prefix code 450-459 & 490-499
+  return 'UPC' if /^(?:0[01]|0[6-9]|13|75[45])/; # prefix code 000-019 & 060-139 & 754-755
+  return  undef if /(?:0[2-5]|2|97[789]|9[6-9])/; # some codes we don't want: 020–059 & 200-299 & 977-999
+  return 'EAN'; # let's just call everything else EAN :)
+}
+
+
 1;
 
-- 
cgit v1.2.3