Import as of 09/25/97

5 files changed, 64 insertions, 0 deletions

diff --git a/misc/p5-Business-CreditCard/Makefile b/misc/p5-Business-CreditCard/Makefile
new file mode 100644
index 00000000000..95a9c84d140
--- /dev/null
+++ b/misc/p5-Business-CreditCard/Makefile
@@ -0,0 +1,27 @@
+# New ports collection makefile for:	p5-Business-CreditCard
+# Version required:			0.1
+# Date created:				October 20th 1996
+# Whom:	      				James FitzGibbon <jfitz@FreeBSD.org>
+#
+#   $Id: Makefile,v 1.1.1.1 1997/10/11 21:54:44 hubertf Exp $
+#
+
+DISTNAME=	Business-CreditCard-0.1
+PKGNAME=	p5-Business-CreditCard-0.1
+CATEGORIES=	misc perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Business
+
+MAINTAINER=	jfitz@FreeBSD.ORG
+
+USE_PERL5=	YES
+
+NO_BUILD=	YES
+
+do-install:
+		@ ${CP} ${WRKSRC}/CreditCard.pm ${WRKSRC}/CreditCard-0.1.pm
+		@ ${MKDIR} ${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 <bsd.port.mk>
diff --git a/misc/p5-Business-CreditCard/files/md5 b/misc/p5-Business-CreditCard/files/md5
new file mode 100644
index 00000000000..2cd298df8cf
--- /dev/null
+++ b/misc/p5-Business-CreditCard/files/md5
@@ -0,0 +1 @@
+MD5 (Business-CreditCard-0.1.tar.gz) = 42132d39c21faa3a99282b462f8228f0
diff --git a/misc/p5-Business-CreditCard/pkg/COMMENT b/misc/p5-Business-CreditCard/pkg/COMMENT
new file mode 100644
index 00000000000..1c7a024a544
--- /dev/null
+++ b/misc/p5-Business-CreditCard/pkg/COMMENT
@@ -0,0 +1 @@
+perl5 module to validate/generate credit card checksums/names.
diff --git a/misc/p5-Business-CreditCard/pkg/DESCR b/misc/p5-Business-CreditCard/pkg/DESCR
new file mode 100644
index 00000000000..dfcea144d3d
--- /dev/null
+++ b/misc/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/misc/p5-Business-CreditCard/pkg/PLIST b/misc/p5-Business-CreditCard/pkg/PLIST
new file mode 100644
index 00000000000..8def302b21a
--- /dev/null
+++ b/misc/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