From b37ef197c19ef066c2dd3b910d220da26c048f71 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 9 Jun 2004 04:44:42 +0000 Subject: [PATCH] 0.28 --- Changes | 26 ++++++++++++++++++++++++++ CreditCard.pm | 36 +++++++++++++++++++----------------- README | 16 +++++++--------- 3 files changed, 52 insertions(+), 26 deletions(-) create mode 100644 Changes diff --git a/Changes b/Changes new file mode 100644 index 0000000..6af9922 --- /dev/null +++ b/Changes @@ -0,0 +1,26 @@ +Revision history for Perl extension Business::CreditCard. + +0.28 unreleased + - added Switch and Solo cards, patch from Max Becker + - added proper Changes file + +0.27 20 Jan 2002 + - small typo for amex cards + +0.26 10 Jul 2001 +0.25 10 Jul 2001 + - *sigh* + +0.24 11 Jun 2001 - 0.24. added enRoute, JCB, BankCard, rewrote with regexes + +0.23 3 May 2001 + - silly bug in test.pl + +0.22 1 Feb 2001 + - new maintainer, MakeMaker installation + +0.21 17 Jan 97 + - short numbers and numbers with letters are no longer kosher. + +12 Jul 96 - created + diff --git a/CreditCard.pm b/CreditCard.pm index 326f1f7..0006378 100644 --- a/CreditCard.pm +++ b/CreditCard.pm @@ -1,23 +1,13 @@ package Business::CreditCard; -# Business::CreditCard.pm -# # Jon Orwant, # -# 12 Jul 96 - created -# 17 Jan 97 - 0.21 released. -# short numbers and numbers with letters are no longer kosher. -# 1 Feb 2001 - 0.22 released, new maintainer, MakeMaker installation -# 3 May 2001 - 0.23 released, silly bug in test.pl -# 11 Jun 2001 - 0.24. added enRoute, JCB, BankCard, rewrote with regexes -# 10 Jul 2001 - 0.25, 0.26 *sigh* -# 20 Han 2002 - 0.27 small typo for amex cards -# # Copyright 1995,1996,1997 Jon Orwant. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. -# -# Version 0.27. Module list status is "Rdpf." +# +# Current maintainer is Ivan Kohler . +# Please don't bother Jon with emails about this module. require 5; @@ -26,7 +16,7 @@ use vars qw( @ISA $VERSION ); @ISA = qw( Exporter ); -$VERSION = "0.27"; +$VERSION = "0.28"; =head1 NAME @@ -83,9 +73,9 @@ orwant@tpj.com Current maintainer is Ivan Kohler . Please don't bother Jon with emails about this module. -Lee Lawrence and Neale Banks -contributed support for additional card types. Lee also contributed a working -test.pl. +Lee Lawrence , Neale Banks and +Max Becker contributed support for additional card +types. Lee also contributed a working test.pl. =cut @@ -109,6 +99,12 @@ sub cardtype { return "enRoute" if $number =~ /^2(014|149)\d{11}$/o; return "JCB" if $number =~ /^(3\d{4}|2131|1800)\d{11}$/o; return "BankCard" if $number =~ /^56(10\d\d|022[1-5])\d{10}$/o; + return "Switch" + if $number =~ /^49(03(0[2-9]|3[5-9])|11(0[1-2]|7[4-9]|8[1-2])|36[0-9]{2})\d{10}(\d{2,3})?$/o + || $number =~ /^564182\d{10}(\d{2,3})?$/o + || $number =~ /^6(3(33[0-4][0-9])|759[0-9]{2})\d{10}(\d{2,3})?$/o; + return "Solo" + if $number =~ /^6(3(34[5-9][0-9])|767[0-9]{2})\d{10}(\d{2,3})?$/o; return "Unknown"; } @@ -128,6 +124,12 @@ sub cardtype { # According to a booklet I have from Westpac (an Aussie bank), a card number # starting with 5610 or 56022[1-5] is a BankCard # BankCards have exactly 16 digits. +# +# from "Becker, Max" +# It's mostly used in the UK and is either alled "Switch" or "Solo". +# Card Type Prefix Length +# Switch various 16,18,19 +# Solo 63, 6767 16,18,19 sub generate_last_digit { my ($number) = @_; diff --git a/README b/README index 5a1dde7..4cf9d13 100644 --- a/README +++ b/README @@ -2,18 +2,16 @@ Business::CreditCard These subroutines tell you whether a credit card number is self-consistent -- whether the last digit of the number is a valid checksum for the preceding -digits. +digits. If you additionally want to process the credit card electronically, +see Business::OnlinePayment -Jon Orwant - -The Perl Journal and MIT Media Lab - -orwant@tpj.com +Original author is Jon Orwant , The Perl Journal and MIT +Media Lab Current maintainer is Ivan Kohler . Please don't bother Jon with emails about this module. -Lee Lawrence and Neale Banks -contributed support for additional card types. Lee also contributed a working -test.pl. +Lee Lawrence , Neale Banks and +Max Becker contributed support for additional card +types. Lee also contributed a working test.pl. -- 2.11.0