From d3efd0ffa700f2f9b398a3df38df91f6a86d16ea Mon Sep 17 00:00:00 2001 From: jfitz Date: Thu, 24 Oct 1996 08:23:45 +0000 Subject: perl5 module to validate/generate credit card checksums/names. --- finance/p5-Business-CreditCard/Makefile | 31 +++++++++++++++++++++++++++++ finance/p5-Business-CreditCard/distinfo | 1 + finance/p5-Business-CreditCard/pkg-comment | 1 + finance/p5-Business-CreditCard/pkg-descr | 32 ++++++++++++++++++++++++++++++ finance/p5-Business-CreditCard/pkg-plist | 3 +++ 5 files changed, 68 insertions(+) create mode 100644 finance/p5-Business-CreditCard/Makefile create mode 100644 finance/p5-Business-CreditCard/distinfo create mode 100644 finance/p5-Business-CreditCard/pkg-comment create mode 100644 finance/p5-Business-CreditCard/pkg-descr create mode 100644 finance/p5-Business-CreditCard/pkg-plist (limited to 'finance/p5-Business-CreditCard') diff --git a/finance/p5-Business-CreditCard/Makefile b/finance/p5-Business-CreditCard/Makefile new file mode 100644 index 0000000..085a2ec --- /dev/null +++ b/finance/p5-Business-CreditCard/Makefile @@ -0,0 +1,31 @@ +# New ports collection makefile for: p5-Business-CreditCard +# Version required: 0.1 +# Date created: October 20th 1996 +# Whom: James FitzGibbon +# +# $Id$ +# + +DISTNAME= Business-CreditCard-0.1 +PKGNAME= p5-Business-CreditCard-0.1 +CATEGORIES+= misc +MASTER_SITES= ftp://ftp.digital.com/pub/plan/perl/CPAN/modules/by-module/Business/ \ + ftp://ftp.cdrom.com/pub/perl/CPAN/modules/by-module/Business/ \ + ftp://ftp.cis.ufl.edu/pub/perl/CPAN/modules/by-module/Business/ \ + ftp://ftp.leo.org/pub/comp/programming/languages/perl/CPAN/modules/by-module/Business/ \ + ftp://ftp.demon.co.uk/pub/mirrors/perl/CPAN/modules/by-module/Business/ \ + ftp://ftp.lab.kdd.co.jp/lang/perl/CPAN/modules/by-module/Business/ + +MAINTAINER= jfitz@FreeBSD.ORG + +BUILD_DEPENDS= perl5.003:${PORTSDIR}/lang/perl5 + +NO_BUILD= YES + +do-install: + @ ${CP} ${WRKSRC}/CreditCard.pm ${WRKSRC}/CreditCard-0.1.pm + @ ${MKDIR} -p ${PREFIX}/lib/perl5/site_perl/Business/ + @ ${INSTALL_DATA} ${WRKSRC}/CreditCard-0.1.pm ${PREFIX}/lib/perl5/site_perl/Business/ + @ ln -sf ${PREFIX}/lib/perl5/site_perl/Business/CreditCard-0.1.pm ${PREFIX}/lib/perl5/site_perl/Business/CreditCard.pm + +.include diff --git a/finance/p5-Business-CreditCard/distinfo b/finance/p5-Business-CreditCard/distinfo new file mode 100644 index 0000000..2cd298d --- /dev/null +++ b/finance/p5-Business-CreditCard/distinfo @@ -0,0 +1 @@ +MD5 (Business-CreditCard-0.1.tar.gz) = 42132d39c21faa3a99282b462f8228f0 diff --git a/finance/p5-Business-CreditCard/pkg-comment b/finance/p5-Business-CreditCard/pkg-comment new file mode 100644 index 0000000..1c7a024 --- /dev/null +++ b/finance/p5-Business-CreditCard/pkg-comment @@ -0,0 +1 @@ +perl5 module to validate/generate credit card checksums/names. diff --git a/finance/p5-Business-CreditCard/pkg-descr b/finance/p5-Business-CreditCard/pkg-descr new file mode 100644 index 0000000..dfcea14 --- /dev/null +++ b/finance/p5-Business-CreditCard/pkg-descr @@ -0,0 +1,32 @@ + 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. + + The validate() subroutine returns 1 if the card number + provided passes the checksum test, and 0 otherwise. + + The cardtype() subroutine returns a string containing the + type of card: "MasterCard", "VISA", and so on. My list is + not complete; I welcome additions. + + The generate_last_digit() subroutine computes and returns + the last digit of the card given the preceding digits. + With a 16-digit card, you provide the first 15 digits; the + subroutine returns the sixteenth. + + This module does not tell you whether the number is on an + actual card, only whether it might conceivably be on a + real card. To verify whether a card is real, or whether + it's been stolen, or what its balance is, you need a + Merchant ID, which gives you access to credit card + databases. The Perl Journal + (http://work.media.mit.edu/tpj) has a Merchant ID so that + I can accept MasterCard and VISA payments; it comes with + the little pushbutton/slide-your-card-through device + you've seen in restaurants and stores. That device + calculates the checksum for you, so I don't actually use + this module. + + These subroutines will also work if you provide the + arguments as numbers instead of strings, e.g. + validate(5276440065421319). diff --git a/finance/p5-Business-CreditCard/pkg-plist b/finance/p5-Business-CreditCard/pkg-plist new file mode 100644 index 0000000..8def302 --- /dev/null +++ b/finance/p5-Business-CreditCard/pkg-plist @@ -0,0 +1,3 @@ +lib/perl5/site_perl/Business/CreditCard-0.1.pm +lib/perl5/site_perl/Business/CreditCard.pm +@dirrm lib/perl5/site_perl/Business -- cgit v1.1