#!/usr/bin/perl # Rob's Amazing Movie Maker # v0.000000001 # Last modified 4/11/98 rm sub dumpfile { my($fname)=@_; open HEADER, $fname; while(

) { print $_; } } print "Content-type: text/html \n\n\n"; print " Rob's Amazing Movie Maker "; dumpfile("./cthead.inc"); open FILE,"movies"; my (@people, $plots); while($_ ne "%%") { $_=; chomp; push @people, $_; } pop @people; while() { chomp; push @plots, $_; } close FILE; srand(); print "

Rob's Amazing Blockbuster Generator

"; print "

Let's face it, coming up with a new movie idea isn't exactly rocket science these days. But today I was sorta stressed and decided that it was very important that I spend a few minutes and write yet another stupid perl script. This one makes it easy to create a plot summary for any number of next summers hollywood blockbuster hits. What follows is 5 potential films that one of the major studios might just produce. Reload and get 5 more. If you have good ideas for additional people and plots, fell free to let me know."; print "

"; for($x=0;$x<5;$x++) { print "
".$people[rand(@people)]." and " .lcfirst($people[rand(@people)])." " .$plots[rand(@plots)].".\n"; } print "

"; print "

Entertained by this?

You can snag the perl script and the data file. It's simple stuff. There are bugs, I don't care."; # Don't Worry about this stuff... it handles my footer dumpfile("./ctfoot.inc");