links

#!/usr/bin/perl -wT my $http_cookie = $ENV{'HTTP_COOKIE'}; my $script_name = $ENV{'SCRIPT_NAME'}; my $file; my $misties; my $buf; my @comments; my @paths; if($http_cookie =~ "mst3k=1") { $file = "templates/mst3k.html"; open(FH, $file); read(FH, $misties, 8192); close(FH); @paths = split (/\//,$script_name); $file = 'comments/' . pop(@paths) . '.txt'; open(FH, $file); read(FH, $buf, 1024); @comments = split(/\n/,$buf); for($i = 0;$i < 3;$i++) { $random = int(rand(@comments)); $random = splice(@comments,$random,1); $misties =~ s/TEXT/$random/; } $misties =~ s/FILENAME/$file/; } use strict; print < links main.links


		F U N	Thesus and the Minotaur Anagram Generator Slime Volleyball Videogame Music StrongBad Email Movie Trailers BridgeBuilder ShoutCast Engrish jippii Maddox Liero Fark
U S E F U L	HTML reference Block X-10 ads Perl Tutorial Card Throwing CIA Factbook Dictonary Crash IE Acroname Digikey
				U S E L E S S	3.14159265358 Klein Bottles Threat Level Andy's Page U.C.S.C. Zork


S H I L L A B E R	Business Cards Party supplies Promotional Products Holiday Cards Holiday Greeting Cards Printable Greeting Cards Mailing Labels Name Badges Name Plates Letterhead Designs Presentation Folder Printing Brochure Printing Letterhead Printing Label Printing Postcard Printing Envelope Printing Custom Envelopes Address Labels Receipt Books Custom Rubber Stamps Wedding Invitations Quinceanera Invitations

$misties END_OF_PAGE