Michael Fahmie's Homepage

#!/usr/bin/perl -wT use strict; my $http_cookie = $ENV{'HTTP_COOKIE'}; my $script_name = $ENV{'SCRIPT_NAME'}; my @paths; my $file = "random_art.txt"; my $buf; my @linkslist; my @link; my $i; my $random_link; my $random_art; my $misties = ""; my @comments; my $random; 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 = "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

$random_art

Stuff

Pictures

Projects

Resumé

Links

$random_link

pengo[yikes.com

$misties END_OF_PAGE