Add misc/biblical-curse 0.02, a command line version of fake biblical

curse generator from http://www.shipoffools.com/curses/index.html.

Pav promised me that I will make top ten of the most useless ports with
this one.

5 files changed, 171 insertions, 0 deletions

diff --git a/misc/Makefile b/misc/Makefile
index 17b46e36387a..ab3caba58c85 100644
--- a/misc/Makefile
+++ b/misc/Makefile
@@ -22,6 +22,7 @@
     SUBDIR += bdelta
     SUBDIR += bestfit
     SUBDIR += bibletime
+    SUBDIR += biblical-curse
     SUBDIR += bidwatcher
     SUBDIR += birthday
     SUBDIR += bogosort
diff --git a/misc/biblical-curse/Makefile b/misc/biblical-curse/Makefile
new file mode 100644
index 000000000000..522279ca51aa
--- /dev/null
+++ b/misc/biblical-curse/Makefile
@@ -0,0 +1,38 @@
+# New ports collection makefile for:	biblical-curse
+# Date created:		08 Nov 2005
+# Whom:			Anton Berezin <tobez@FreeBSD.org>
+#
+# $FreeBSD$
+#
+# This port is self contained in the src directory.
+#
+
+PORTNAME=	biblical-curse
+PORTVERSION=	0.02
+CATEGORIES=	misc
+MASTER_SITES=	# none
+DISTFILES=	# none
+
+MAINTAINER=	tobez@FreeBSD.org
+COMMENT=	Fake biblical curse generator
+
+NO_BUILD=	yes
+WRKSRC=		${WRKDIR}/src
+USE_PERL5_RUN=	yes
+USE_REINPLACE=	yes
+
+SRC=		${.CURDIR}/src
+
+do-fetch:
+	@${DO_NADA}
+
+pre-patch:
+	@${CP} -R ${SRC} ${WRKDIR}
+
+post-patch:
+	@${REINPLACE_CMD} -e 's|/usr/bin/perl|${PERL}|' ${WRKSRC}/biblical-curse
+
+do-install:
+	${INSTALL_SCRIPT} ${WRKSRC}/biblical-curse ${PREFIX}/bin/biblical-curse
+
+.include <bsd.port.mk>
diff --git a/misc/biblical-curse/pkg-descr b/misc/biblical-curse/pkg-descr
new file mode 100644
index 000000000000..7b38cd45a1ce
--- /dev/null
+++ b/misc/biblical-curse/pkg-descr
@@ -0,0 +1,7 @@
+A command line version of biblical curse generator from
+http://www.shipoffools.com/curses/index.html.
+
+The curses are theirs, the code is theirs, I just translated it from
+JavaScript to Perl.
+
+If you are offended by this script, get a life!
diff --git a/misc/biblical-curse/pkg-plist b/misc/biblical-curse/pkg-plist
new file mode 100644
index 000000000000..7f25666bfd19
--- /dev/null
+++ b/misc/biblical-curse/pkg-plist
@@ -0,0 +1 @@
+bin/biblical-curse
diff --git a/misc/biblical-curse/src/biblical-curse b/misc/biblical-curse/src/biblical-curse
new file mode 100644
index 000000000000..69c90af3639c
--- /dev/null
+++ b/misc/biblical-curse/src/biblical-curse
@@ -0,0 +1,124 @@
+#! /usr/bin/perl -w
+# ----------------------------------------------------------------------------
+# "THE BEER-WARE LICENSE" (Revision 42)
+# <tobez@tobez.org> wrote this file.  As long as you retain this notice you
+# can do whatever you want with this stuff. If we meet some day, and you think
+# this stuff is worth it, you can buy me a beer in return.   Anton Berezin
+# ----------------------------------------------------------------------------
+#
+# $Id$
+#
+# A command line version of biblical curse generator
+# (http://www.shipoffools.com/curses/index.html)
+#
+# The curses are theirs, the code is theirs,
+# I just translated it from JavaScript to Perl.
+#
+# If you are offended by this script, get a life!
+#
+use strict;
+use vars qw($VERSION);
+
+$VERSION = 0.02;
+
+my @mayYou = (
+	"I pray thou shalt",
+	"I hope you will",
+	"Behold, thou shalt",
+	"May you",
+	"Thou shalt",
+	"O that thou wouldest",
+);
+ 
+my @haveBadThingsHappen = (
+	"have more mother-in-laws than King Solomon",
+	"be pursued into the mountains by sex-mad baboons",
+	"be whipped with a thousand scorpions",
+	"be thrown into a den of hyperactive lions",
+	"be swallowed by a whale with excessively bad breath",
+	"be smitten with all-over boils",
+	"be mocked by eunuchs",
+	"be captured by Midianite maniacs",
+	"become as popular as a boil on the king's backside",
+	"be plagued with gnats, flies and locusts",
+	"be taunted by the king's concubines",
+	"fall under a speeding chariot",
+	"be as welcome as a fart in the queen's bedchamber",
+	"accidentally insult Goliath",
+	"go about weeping and wailing in sackcloth and ashes",
+	"go on a diet of crunchy, unsweetened locusts",
+	"be trampled by a herd of stampeding pigs",
+	"be cast onto a steaming dung-heap",
+	"be turned into a pillar of salt",
+	"see your pomegranates wither",
+	"beget difficult teenagers",
+	"be kicked by an incontinent camel",
+	"crash the king's best-loved chariot",
+);
+ 
+my @ohYou = (
+	"thou",
+	"O thou",
+	"O ye",
+);
+ 
+my @ofLittleFaith = (
+	"of little faith",
+	"whose name is but dung",
+	"who art a byword for idiocy",
+	"breaker of the commandments",
+	"discourager of the brethren",
+	"wolf in sheep's clothing",
+	"sad Pharisee",
+	"armpit of Satan",
+	"irritating inhabitant of Gath",
+	"child of Jezebel",
+	"son of thunder",
+	"relative of Herod",
+	"incompetent tax-collector",
+	"lazy Babylonian",
+	"babbling Assyrian",
+	"Amalekite dog",
+	"lying Girgashite",
+	"love-crazed Gittite",
+	"creature of the pit",
+	"bull of Bashan",
+	"Mesopotomian harlot",
+	"wayward winebibber",
+	"son of a Philistine",
+	"sulphurous nonentity",
+	"love-child of Methuselah",
+	"plaything of Beelzebub",
+	"dabbler in abominations",
+	"exceedingly foolish virgin",
+	"denizen of the underworld",
+	"offspring of a squashed cockroach",
+);
+ 
+my @hearThis = (
+	"Listen",
+	"Hear this",
+	"Take heed",
+	"Woe unto thee",
+	"Harken",
+);
+ 
+sub insult
+{
+	if (0.5 < rand) {
+		return
+			"$mayYou[rand @mayYou] ".
+			"$haveBadThingsHappen[rand @haveBadThingsHappen], ".
+			"$ohYou[rand @ohYou] ".
+			"$ofLittleFaith[rand @ofLittleFaith]!\n";
+	} else {
+		return
+			"$hearThis[rand @hearThis], ".
+			"$ohYou[rand @ohYou] ".
+			"$ofLittleFaith[rand @ofLittleFaith], ".
+			"for you will ".
+			"$haveBadThingsHappen[rand @haveBadThingsHappen]!\n";
+	}
+}
+
+print insult;