#!/usr/bin/perl @q = ( "When I see a blank sheet of plain, white paper, the adjective that comes to mind is:", "Empty", "Superfluous", "Sad", "Inspirational", "Heretical", "The fruit that best describes me is a(n):", "Apple", "Orange", "Grape", "Passion Fruit", "Tomato", "If I were a writing implement, I'd be a(n):", "Pen", "Crayon", "Inking Brush", "Pencil", "Mechanical Pencil", "My favorite beverage is:", "Coke", "Pepsi", "Moxie", "Beer", "Schnapps", "Memories of grade school make me:", "Bitter", "Weep", "Cringe", "Crazy", "Froth at the Mouth", "If I were a Traveling Wilbury, I'd be:", "Tom Petty", "Bob Dylan", "Jeff Lynne", "Dead", "Dead as Well", "There's nothing wrong with:", "Having a Little Fun Now and Then", "Me, Damnit", "the Republican Party", "Legumes", "Arbitration", "Dan Rather:", "Rox", "Sux", "Has S00per Hair", "Raised Me Like His Own Child", "Is Standing Behind Me, Forcing Me to Answer 'Rox'", "If I Were a Carpenter:", "You'd Be My Lady", "I'd Hammer On My Piglet", "I Would Start a Band With a Sibling", "I'd Change My Name to 'Woody'", "I'd Build a House In the Middle of Our Street", "The Band 'Creed' are:", "Overrated", "Good Looking But Overrated", "Awful and Overrated", "Awfully Overrated", "Standing Behind Me, Forcing Me to Answer 'S00per'", ); read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } if (!(exists($FORM{"qno"}))) { $qno = 0; } else { $qno = $FORM{"qno"}; $rubbish = (time() % 100); } print "Content-type: text/html\n\n"; if ($qno == 10) { print "Y A R K (freak quiz: results)\n"; print "\n"; open(INF, "<../nhead.htm"); while () { print; } close INF; print "

FREAK
QUIZ"; print "

RESULTS\n"; print "

TEXT

\n"; print "
\n\n"; print "According to our scientific calculations, you are:

\n"; print "
\n"; print "
Thanks for participating!
\n"; print "
To put this on your site, use the following text:

\n"; print "

\n"; print "
( try again )
\n"; } else { print "Y A R K (freak quiz: question " . ($qno + 1) . ")\n"; print "\n"; open(INF, "<../nhead.htm"); while () { print; } close INF; print "

FREAK
QUIZ"; print "

QUESTION
" . ($qno + 1) . "\n"; print "

TEXT

\n"; print "
\n\n"; print "
\n"; print "" . $q[$qno * 6] . "\n
    \n"; print " " . $q[$qno * 6 + 1] . "
    \n"; for $_ (2 .. 5) { print " " . $q[$qno * 6 + $_] . "
    \n"; } print "
\n
\n"; print "\n"; if ($qno > 0) { print "\n"; } print "
\n"; } open(INF, "<../nfoot.htm"); while () { print; } close INF;