#!/usr/bin/perl
##############################################################################
# Shakespearian Curse Generator -- Based on lists compiled by Jerry Maguire, #
# English teacher at Center Grove High School in Greenwood, Indiana. #
# Programmed in Perl and CGI by Trevor Stone, tstone@poboxes.com #
##############################################################################
srand;
#The following arrays contain the data for the curses
@adjective1 = ("artless","bawdy","beslubbering","bootless","brazen",
"churlish","cockered","clouted","craven","currish","dankish","dissembling",
"distempered","droning","errant","fawning","fitful","fobbing","froward",
"frothy","gleeking","gnarling","goatish","gorbellied","greasy","grizzled",
"haughty","hideous","impertinent","infectious","jaded","jarring","knavish",
"lewd","loggerheaded","lumpish","mammering","mangled","mewling","paunchy",
"peevish","pernicious","prating","pribbling","puking","puny","purpled",
"quailing","queasy","rank","reeky","roguish","roynish","ruttish","saucy",
"sottish","spleeny","spongy","surly","tottering","unmuzzled","vacant","vain",
"venomed","villainous","waggish","wanton","warped","wayward","weedy",
"wenching","whoreson","yeasty");
@adjective2 = ("base-court","bat-fowling","beef-witted","beetle-headed",
"boil-brained","bunched-backed","clapper-clawed","clay-brained",
"common-kissing","crook-pated","dismal-dreaming","dizzy-eyed",
"dog-hearted","dread-bolted","earth-vexing","elf-skinned",
"empty-hearted","evil-eyed","eye-offending","fat-kidneyed","fen-sucked",
"flap-mouthed","fly-bitten","folly-fallen","fool-born","full-gorged",
"guts-griping","half-faced","hasty-witted","heavy-handed","hedge-born",
"hell-hated","horn-mad","idle-headed","ill-breeding","ill-composed",
"ill-nurtured","iron-witted","knotty-pated","lean-witted","lily-livered",
"mad-bread","milk-livered","motley-minded","muddy-mettled","onion-eyed",
"pale-hearted","paper-faced","pinch-spotted","plume-plucked",
"pottle-deep","pox-marked","raw-boned","reeling-ripe","rough-hewn",
"rude-growing","rug-headed","rump-fed","shag-eared","shard-borne",
"sheep-biting","shrill-gorged","spur-galled","sour-faced",
"swag-bellied","tardy-gaited","tickle-brained","toad-spotted",
"unchin-snouted","weak-hinged","weather-bitten","white-livered");
@noun = ("apple-john","baggage","barnacle","bladder","boar-pig","bugbear",
"bum-bailey","canker-blossom","clack-dish","clotpole","coxcomb","codpiece",
"crutch","cutpurse","death-token","dewberry","dogfish","egg-shell",
"flap-dragon","flax-wench","flirt-gill","foot-licker","fustilarian","giglet",
"gudgeon","gull-catcher","haggard","harpy","hedge-pig","hempseed",
"hedge-pig","horn-beast","hugger-mugger","jack-a-nape","jolthead",
"lewdster","lout","maggot-pie","malignancy","malkin","malt-worm","mammet",
"manikin","measle","minimus","minnow","miscreant","moldwarp",
"mumble-news","nut-hook","pantaloon","pigeon-egg","pignut","puttock",
"pumpion","rabbit-sucker","rampallion","ratsbane","remnant","rudesby",
"ruffian","scantling","scullion","scut","skainsmate","snipe","strumpet",
"varlot","vassal","waterfly","whey-face","whipster","wagtail","younker");
print "Content-type: text/html\n\n";
#get the info
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$number = $ENV{'QUERY_STRING'}
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $number, $ENV{'CONTENT_LENGTH'})
}
$number =~ s/.*number=(\d*).*/$1/;
$number += 0; # make a real number
$curse=0;
#start the output
print "Curses!\n";
print "$number Random Curses
\n";
until ($curse >= $number) {
print("
Thou ",$adjective1[rand(@adjective1)]," ",$adjective2[rand(@adjective2)]," ",$noun[rand(@noun)],"!\n");
$curse++;
}
print "
Create more curses!\n";
print "
Back to my homepage\n";
print "
Created by Trevor Stone\n";
print "tstone\@flwyd.dhs.org\n";