#!/usr/bin/perl -wT use strict; my $http_cookie = $ENV{'HTTP_COOKIE'}; my $script_name = $ENV{'SCRIPT_NAME'}; my @paths; my $file; my $buf; my @linkslist; my @link; my $i; my $random_link; my $random_art; my $blog; my $misties = ""; my @comments; my $random; my $topin = "#303030"; my $topout = "#005860"; my $leftin = "#A04040"; my $rightin = "#888818"; my $rightout = "#003840"; my $bottomout = "#008080"; my $background = "#AFAFAF"; my $leftinshade = "#401010"; my $rightinshade = "#48480A"; $file = "random_art.txt"; open (FH, $file) or die "cannot open $file"; read (FH, $buf, 1024); @linkslist = split (/\n/,$buf); @link = split(/&/,$linkslist[int(rand(@linkslist))]); if(defined($link[1])){ $random_art = ""; } else{ $random_art = ""; } close (FH); $file = "blog.txt"; open (FH, $file) or die "cannot open $file"; read (FH, $buf, 1024); @linkslist = split (/\n/,$buf); $blog = $linkslist[$#linkslist]; close (FH); $file = "random_link.txt"; open (FH, $file) or die "cannot open $file"; read (FH, $buf, 1024); @linkslist = split (/\n/,$buf); @link = split(/&/,$linkslist[int(rand(@linkslist))]); if(defined($link[1])){ $random_link = ""; } else{ $random_link = ""; } close (FH); 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'; $misties =~ s/FILENAME/$file/; if(open(FH, $file)) { read(FH, $buf, 1024); close(FH); @comments = split(/\n/,$buf); for($i = 0;$i < 3;$i++) { $random = int(rand(@comments)); $random = splice(@comments,$random,1); $misties =~ s/TEXT/$random/; } } else { for($i = 0;$i < 3;$i++) { $misties =~ s/TEXT//; } } } print "Content-type: text/html\n\n"; print < Michael Fahmie's Homepage

$blog
$random_art rchive
Webc

peng
o[yikes.co
$random_link
$misties END_OF_PAGE