#!/usr/local/bin/perl
#
#
# Name: pcb.pl
# Author: rasterboy
# Email: raster@zymm.com
# Url: http://rasterweb.net/raster/code/
# Date Created: 02.18.2000
# Date Modified: 06.26.2000
# Version 1.0
#
# Description:
# This script creates a goofy phrase like so:
#  "This page was created by 69 lazy inanimate objects!"
# It should be run as a cron job or modified to work as a 
# server-side include to add a bit of wackiness to a web page.
# I know it's simple, but sometimes it's the simple things.
# I 'borrowed' the idea from something similar I saw on Slashdot ;)
#
# License: 
# This software is licensed under the GNU General Public License.
# A copy of the GNU GPL can be found at: http://www.gnu.org/copyleft/gpl.txt
# This software is open source. This software is free software.
#
#########################################################


#################################################
# set vars

$fileout = "/usr/www/users/youruserid/pcb.txt";


#################################################
# get random number

$rand = int (rand (999));
$rand++;
$rand++;


#################################################
# get an adjective

@adject = ("tired", "smart", "lazy", "tall", "feeble", "green", "woozy", "goofy", "fake", 
 "wacked-out", "sleep deprived", "cookie-eating", "goofball-taking", "vegetarian", "phony", 
 "slightly intoxicated", "infected", "mute", "hyperactive", "narcoleptic", "bruised", 
 "Swedish", "500 pound", "unix loving", "scary looking", "slow witted", "brain dead", 
 "evil", "smelly", "fire-breathing", "bald-headed", "clueless", "intelligent", "retired", 
 "fuzzy", "Armani-suit-wearing", "pizza loving", "soda drinkin'", "diesel-powered");

$index   = rand @adject;
$radject = $adject[$index];


#################################################
# get an object

@object = ("programmers", "marketing dweebs", "smurfs", "IBM AS/400's", "polka dancers", 
 "Chevy Camaros", "pay phones", "Palm Pilots", "janitors", "newborn babies", "fire-fighters", 
 "robots", "Dr. Who fans", "windmills", "chainsaws", "perl scripts", "wall clocks", "models", 
 "sea monkeys", "Legion of Doom members", "blast furnaces", "unicycles", "tribbles", "NeXTStations", 
 "garbage cans", "slide rules", "manual typewriters", "Steve Jobs look-a-likes", "dollar bills", 
 "monkeys", "screenwriters", "blocks of wood", "inanimate objects", "rolls of duct tape",
 "Star Wars action figures", "police officers", "broom handles", "boat anchors", "shoes");

$index   = rand @object;
$robject = $object[$index];



open (FILEOUT, ">$fileout") or die;
print (FILEOUT "This page was created by $rand $radject $robject!");
close (FILEOUT);



__END__