#!/usr/bin/perl -wT print "Content-type: text/html\n\n"; #!/usr/bin/perl -wT use strict; my $http_cookie = $ENV{'HTTP_COOKIE'}; my $script_name = $ENV{'SCRIPT_NAME'}; my $birth = "298329300"; my $bgcolor = "#0000C0"; my $file = "templates/mst3k.html"; my $buf; my @paths; my $i; my $random; my $misties; my @comments; my $age = int((time() - $birth)/315576)/100; if($http_cookie =~ "mst3k=1") { $buf = ""; 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/; } print < About Me
Mike

Age
Sex
Height
Weight
Alignment
Occupation
Major
Nerd
AIM
Sports
Hobbies
$age
Male
6'3"
175
Chaotic Neutral
programmer
Computer Engineering
47.2% Nerd Corrupt
Toper Rogue
Racquetball, Skiing, Backpacking, Surfing
Mischief, Video & Board Games, Movie Nights, Baking

 Reading
War and Peace
Quicksilver
On Blue's Waters
The Wizard
Animal Farm
The BFG
  F10 to Save with Changes ESC exits without saving
$misties END_OF_TOP