#!/usr/local/bin/perl &cgi_init; $quote = $queryelt{"QUOTE"}; $name = $queryelt{"NAME"}; $text = $queryelt{"TEXT"}; srand(); $x = int(rand(3))+1; print "Content-type: text/html\n\n"; if ($quote =~ /^q_/) { if ($name) { open(FILE,">>current/r_$quote.html"); print FILE "$name\n$text\n"; close(FILE); print "QUOTES

Thanks for your reaction.

You can read your reaction in the sentence-sizer.

"; } else { print " QUOTES

You can read your reaction in the sentence-sizer.

Name:


Your Reaction:





"; } } else { print " QUOTES

"; # read in all quotes from current quote-dir $n = 0; opendir(DIR,"current"); while ($e = readdir(DIR)) { if ($e =~ /^q_/) { $quotes[$n] = $e; $n++; } } closedir(DIR); $i = 0; $j = $n; while ($j > 0) { $x = int(rand($n)); while ($quotes[$x] eq "") { $x = int(rand($n)); } $quote[$i++] = $quotes[$x]; $quotes[$x] = ""; $j--; } print "

"; if ($quote[0]) { open(IN,"current/$quote[0]"); $_ = ; s/-\n//g; @words = split(/\W*\s+\W*/, $_); print "

$words[0] $words[1] $words[2] $words[3] $words[4]
$words[5] $words[6] $words[7] $words[8]
$words[9] $words[10] $words[11] $words[12] $words[13] $words[14] $words[15] $words[16] $words[17] $words[18] $words[19] $words[20] $words[21] $words[22] $words[23] $words[24] $words[25] $words[26]
"; $_ = ; chop; print "$_

"; close(IN); } print "
"; if ($quote[1]) { open(IN,"current/$quote[1]"); $_ = ; s/-\n//g; @words = split(/\W*\s+\W*/, $_); print "

$words[0] $words[1] $words[2] $words[3] $words[4] $words[5] $words[6] $words[7] $words[8] $words[9] $words[10] $words[11] $words[12] $words[13] $words[14] $words[15] $words[16] $words[17] $words[18] $words[19] $words[20] $words[21] $words[22] $words[23] $words[24] $words[25] $words[26]
"; $_ = ; chop; print "$_

"; close(IN); } $n = 0; opendir(DIR,"../bike/current"); while ($e = readdir(DIR)) { if ($e =~ /^b_/) { $pics[$n] = $e; $n++; } } closedir(DIR); $pic = $pics[rand($n)]; print "

\"Picture

 "; if ($quote[2]) { open(IN,"current/$quote[2]"); $_ = ; s/-\n//g; @words = split(/\W*\s+\W*/, $_); print "

$words[0] $words[1] $words[2]
$words[3] $words[4] $words[5]
$words[6] $words[7] $words[8] $words[9] $words[10]
$words[11] $words[12]
$words[13] $words[14] $words[15] $words[16] $words[17] $words[18] $words[19]
$words[20] $words[21] $words[22]
$words[23] $words[24] $words[25] $words[26] $words[27]
$words[28] $words[29]
$words[30] $words[31] $words[32] $words[33]
"; $_ = ; chop; print "$_

"; close(IN); } 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; } } }