#!/usr/local/bin/perl &cgi_init; $essay = $queryelt{"ESSAY"}; srand(); $x = int(rand(3))+1; print "Content-type: text/html\n\n"; if ($essay =~ /e_$/) { print " QUOTES

You can read your reaction in the sentence-sizer.

Name:


Your Reaction:





"; } else { print" IsayUsaySsay

IsayUsaySsay

"; # read in all essays from current quote-dir $n = 0; opendir(DIR,"current"); while ($e = readdir(DIR)) { if ($e =~ /^e_/) { $essays[$n] = $e; $n++; } } closedir(DIR); $i = 0; $j = $n; while ($j > 0) { $x = int(rand($n)); while ($essays[$x] eq "") { $x = int(rand($n)); } $essay[$i++] = $essays[$x]; $essays[$x] = ""; $j--; } if ($essay[0]) { open(IN,"current/$essay[0]"); $_ = ; chop; print " "; close(IN); } print ""; close(IN); } print ""; close(IN); } if ($essay[3]) { open(IN,"current/$essay[3]"); $_ = ; chop; print " "; close(IN); } print "
$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_"; $_ = ; chop; print "
$_




"; if ($essay[1]) { open(IN,"current/$essay[1]"); $_ = ; chop; print "		$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_"; $_ = ; chop; print "
$_





"; if ($essay[2]) { open(IN,"current/$essay[2]"); $_ = ; chop; print "
$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_"; $_ = ; chop; print "
$_

$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_
"; $_ = ; chop; print "$_"; $_ = ; chop; print "
$_



"; sub cgi_init { if ($ENV{'REQUEST_METHOD'} eq 'POST') { if ($ENV{'CONTENT_TYPE'} ne 'application/x-www-form-urlencoded') { print 'Content type must be application/x-www-form-urlencoded'.$nl; exit 1; } read(STDIN, $qstring, $ENV{'CONTENT_LENGTH'}); } elsif ($ENV{'QUERY_STRING'}) { $qstring = $ENV{'QUERY_STRING'}; } else { $qstring = ''; } @querylist = split(m'&', $qstring); for $i (@querylist) { ($key,$value) = split(/=/, $i); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $queryelt{$key} = $value; } } }