#!/usr/bin/perl print "content-type: text/html\n\n"; print "Crossword Solutions\n"; print '
Make your own free website on Tripod.com
'; print ''; if ($ENV{'REQUEST_METHOD'} ne "GET") { #we only process get requests print "

Error

\n"; print "Malformed or incorrect request detected\n"; print '
Crossword developed by James Karanja and Job Okoth.
'; exit 0; } $request=$ENV{'QUERY_STRING'}; @parameter_list = split(/&/,$request); #split name=value pairs foreach (@parameter_list) { #for each parameter ($name, $value) = split(/=/); #get the name and value $name=~s/\+/ /g; #convert characters $name=~s/%(..)/pack("c",hex($1))/ge; $value=~s/\+/ /g; $value=~s/%(..)/pack("c",hex($1))/ge; $value=~ s/^(\s+)(.*)/$2/i; #get rid of leading whitespace $value=~ s/(.*)([\s]+)$/$1/i; #get rid of trailing whitespace $args{$name}=$value; #put them in %args $args{$name}=~tr/a-z/A-Z/; } $quest="questions$args{'no'}.txt"; open QUEST, $quest or die "Cant open $across :$!"; while () { print "$_
"; } close QUEST; print "
"; $stuff="solutions$args{'no'}.txt"; open STUFF, $stuff or die "Cant open $stuff :$!"; while () { $_=~tr/a-z/A-Z/; push (@content, $_); } $_=""; close STUFF; for $x(0..$#content) { chomp $content[$x]; } print ""; print ""; print ""; print ""; print ""; if ($args{'1'} eq "") { #check for a search argument &no_input; } elsif ($args{'1'} eq $content[1-1]) { print &definetd, "$args{1}"; } else { print &definetd, "$args{'1'}<\/FONT>"; } if ($args{'2'} eq "") { #check for a search argument &no_input; } elsif ($args{'2'} eq $content[2-1]) { print &definetd, "$args{'2'}"; } else { print &definetd, "$args{'2'}<\/FONT>"; } if ($args{'3'} eq "") { #check for a search argument &no_input; } elsif ($args{'3'} eq $content[3-1]) { print &definetd, "$args{'3'}"; } else { print &definetd, "$args{'3'}<\/FONT>"; } if ($args{'4'} eq "") { #check for a search argument &no_input; } elsif ($args{'4'} eq $content[4-1]) { print &definetd, "$args{'4'}"; } else { print &definetd, "$args{'4'}<\/FONT>"; } if ($args{'5'} eq "") { #check for a search argument &no_input; } elsif ($args{'5'} eq $content[5-1]) { print &definetd, "$args{'5'}"; } else { print &definetd, "$args{'5'}<\/FONT>"; } if ($args{'6'} eq "") { #check for a search argument &no_input; } elsif ($args{'6'} eq $content[6-1]) { print &definetd, "$args{'6'}"; } else { print &definetd, "$args{'6'}<\/FONT>"; } if ($args{'7'} eq "") { #check for a search argument &no_input; } elsif ($args{'7'} eq $content[7-1]) { print &definetd, "$args{'7'}"; } else { print &definetd, "$args{'7'}<\/FONT>"; } if ($args{'8'} eq "") { #check for a search argument &no_input; } elsif ($args{'8'} eq $content[8-1]) { print &definetd, "$args{'8'}"; } else { print &definetd, "$args{'8'}<\/FONT>"; } if ($args{'9'} eq "") { #check for a search argument &no_input; } elsif ($args{'9'} eq $content[9-1]) { print &definetd, "$args{'9'}"; } else { print &definetd, "$args{'9'}<\/FONT>"; } print ""; print ""; if ($args{'10'} eq "") { #check for a search argument &no_input; } elsif ($args{'10'} eq $content[10-1]) { print &definetd, "$args{10}"; } else { print &definetd, "$args{'10'}<\/FONT>"; } if ($args{'11'} eq "") { #check for a search argument &no_input; } elsif ($args{'11'} eq $content[11-1]) { print &definetd, "$args{'11'}"; } else { print &definetd, "$args{'11'}<\/FONT>"; } if ($args{'12'} eq "") { #check for a search argument &no_input; } elsif ($args{'12'} eq $content[12-1]) { print &definetd, "$args{'12'}"; } else { print &definetd, "$args{'12'}<\/FONT>"; } if ($args{'13'} eq "") { #check for a search argument &no_input; } elsif ($args{'13'} eq $content[13-1]) { print &definetd, "$args{'13'}"; } else { print &definetd, "$args{'13'}<\/FONT>"; } if ($args{'14'} eq "") { #check for a search argument &no_input; } elsif ($args{'14'} eq $content[14-1]) { print &definetd, "$args{'14'}"; } else { print &definetd, "$args{'14'}<\/FONT>"; } if ($args{'15'} eq "") { #check for a search argument &no_input; } elsif ($args{'15'} eq $content[15-1]) { print &definetd, "$args{'15'}"; } else { print &definetd, "$args{'15'}<\/FONT>"; } if ($args{'16'} eq "") { #check for a search argument &no_input; } elsif ($args{'16'} eq $content[16-1]) { print &definetd, "$args{'16'}"; } else { print &definetd, "$args{'16'}<\/FONT>"; } if ($args{'17'} eq "") { #check for a search argument &no_input; } elsif ($args{'17'} eq $content[17-1]) { print &definetd, "$args{'17'}"; } else { print &definetd, "$args{'17'}<\/FONT>"; } if ($args{'18'} eq "") { #check for a search argument &no_input; } elsif ($args{'18'} eq $content[18-1]) { print &definetd, "$args{'18'}"; } else { print &definetd, "$args{'18'}<\/FONT>"; } print ""; print ""; if ($args{'19'} eq "") { #check for a search argument &no_input; } elsif ($args{'19'} eq $content[19-1]) { print &definetd, "$args{19}"; } else { print &definetd, "$args{'19'}<\/FONT>"; } if ($args{'20'} eq "") { #check for a search argument &no_input; } elsif ($args{'20'} eq $content[20-1]) { print &definetd, "$args{'20'}"; } else { print &definetd, "$args{'20'}<\/FONT>"; } if ($args{'21'} eq "") { #check for a search argument &no_input; } elsif ($args{'21'} eq $content[21-1]) { print &definetd, "$args{'21'}"; } else { print &definetd, "$args{'21'}<\/FONT>"; } if ($args{'22'} eq "") { #check for a search argument &no_input; } elsif ($args{'22'} eq $content[22-1]) { print &definetd, "$args{'22'}"; } else { print &definetd, "$args{'22'}<\/FONT>"; } if ($args{'23'} eq "") { #check for a search argument &no_input; } elsif ($args{'23'} eq $content[23-1]) { print &definetd, "$args{'23'}"; } else { print &definetd, "$args{'23'}<\/FONT>"; } if ($args{'24'} eq "") { #check for a search argument &no_input; } elsif ($args{'24'} eq $content[24-1]) { print &definetd, "$args{'24'}"; } else { print &definetd, "$args{'24'}<\/FONT>"; } if ($args{'25'} eq "") { #check for a search argument &no_input; } elsif ($args{'25'} eq $content[25-1]) { print &definetd, "$args{'25'}"; } else { print &definetd, "$args{'25'}<\/FONT>"; } if ($args{'26'} eq "") { #check for a search argument &no_input; } elsif ($args{'26'} eq $content[26-1]) { print &definetd, "$args{'26'}"; } else { print &definetd, "$args{'26'}<\/FONT>"; } if ($args{'27'} eq "") { #check for a search argument &no_input; } elsif ($args{'27'} eq $content[27-1]) { print &definetd, "$args{'27'}"; } else { print &definetd, "$args{'27'}<\/FONT>"; } print ""; print ""; if ($args{'28'} eq "") { #check for a search argument &no_input; } elsif ($args{'28'} eq $content[28-1]) { print &definetd, "$args{28}"; } else { print &definetd, "$args{'28'}<\/FONT>"; } if ($args{'29'} eq "") { #check for a search argument &no_input; } elsif ($args{'29'} eq $content[29-1]) { print &definetd, "$args{'29'}"; } else { print &definetd, "$args{'29'}<\/FONT>"; } if ($args{'30'} eq "") { #check for a search argument &no_input; } elsif ($args{'30'} eq $content[30-1]) { print &definetd, "$args{'30'}"; } else { print &definetd, "$args{'30'}<\/FONT>"; } if ($args{'31'} eq "") { #check for a search argument &no_input; } elsif ($args{'31'} eq $content[31-1]) { print &definetd, "$args{'31'}"; } else { print &definetd, "$args{'31'}<\/FONT>"; } if ($args{'32'} eq "") { #check for a search argument &no_input; } elsif ($args{'32'} eq $content[32-1]) { print &definetd, "$args{'32'}"; } else { print &definetd, "$args{'32'}<\/FONT>"; } if ($args{'33'} eq "") { #check for a search argument &no_input; } elsif ($args{'33'} eq $content[33-1]) { print &definetd, "$args{'33'}"; } else { print &definetd, "$args{'33'}<\/FONT>"; } if ($args{'34'} eq "") { #check for a search argument &no_input; } elsif ($args{'34'} eq $content[34-1]) { print &definetd, "$args{'34'}"; } else { print &definetd, "$args{'34'}<\/FONT>"; } if ($args{'35'} eq "") { #check for a search argument &no_input; } elsif ($args{'35'} eq $content[35-1]) { print &definetd, "$args{'35'}"; } else { print &definetd, "$args{'35'}<\/FONT>"; } if ($args{'36'} eq "") { #check for a search argument &no_input; } elsif ($args{'36'} eq $content[36-1]) { print &definetd, "$args{'36'}"; } else { print &definetd, "$args{'36'}<\/FONT>"; } print ""; print ""; if ($args{'37'} eq "") { #check for a search argument &no_input; } elsif ($args{'37'} eq $content[37-1]) { print &definetd, "$args{37}"; } else { print &definetd, "$args{'37'}<\/FONT>"; } if ($args{'38'} eq "") { #check for a search argument &no_input; } elsif ($args{'38'} eq $content[38-1]) { print &definetd, "$args{'38'}"; } else { print &definetd, "$args{'38'}<\/FONT>"; } if ($args{'39'} eq "") { #check for a search argument &no_input; } elsif ($args{'39'} eq $content[39-1]) { print &definetd, "$args{'39'}"; } else { print &definetd, "$args{'39'}<\/FONT>"; } if ($args{'40'} eq "") { #check for a search argument &no_input; } elsif ($args{'40'} eq $content[40-1]) { print &definetd, "$args{'40'}"; } else { print &definetd, "$args{'40'}<\/FONT>"; } if ($args{'41'} eq "") { #check for a search argument &no_input; } elsif ($args{'41'} eq $content[41-1]) { print &definetd, "$args{'41'}"; } else { print &definetd, "$args{'41'}<\/FONT>"; } if ($args{'42'} eq "") { #check for a search argument &no_input; } elsif ($args{'42'} eq $content[42-1]) { print &definetd, "$args{'42'}"; } else { print &definetd, "$args{'42'}<\/FONT>"; } if ($args{'43'} eq "") { #check for a search argument &no_input; } elsif ($args{'43'} eq $content[43-1]) { print &definetd, "$args{'43'}"; } else { print &definetd, "$args{'43'}<\/FONT>"; } if ($args{'44'} eq "") { #check for a search argument &no_input; } elsif ($args{'44'} eq $content[44-1]) { print &definetd, "$args{'44'}"; } else { print &definetd, "$args{'44'}<\/FONT>"; } if ($args{'45'} eq "") { #check for a search argument &no_input; } elsif ($args{'45'} eq $content[45-1]) { print &definetd, "$args{'45'}"; } else { print &definetd, "$args{'45'}<\/FONT>"; } print ""; print ""; if ($args{'46'} eq "") { #check for a search argument &no_input; } elsif ($args{'46'} eq $content[46-1]) { print &definetd, "$args{46}"; } else { print &definetd, "$args{'46'}<\/FONT>"; } if ($args{'47'} eq "") { #check for a search argument &no_input; } elsif ($args{'47'} eq $content[47-1]) { print &definetd, "$args{'47'}"; } else { print &definetd, "$args{'47'}<\/FONT>"; } if ($args{'48'} eq "") { #check for a search argument &no_input; } elsif ($args{'48'} eq $content[48-1]) { print &definetd, "$args{'48'}"; } else { print &definetd, "$args{'48'}<\/FONT>"; } if ($args{'49'} eq "") { #check for a search argument &no_input; } elsif ($args{'49'} eq $content[49-1]) { print &definetd, "$args{'49'}"; } else { print &definetd, "$args{'49'}<\/FONT>"; } if ($args{'50'} eq "") { #check for a search argument &no_input; } elsif ($args{'50'} eq $content[50-1]) { print &definetd, "$args{'50'}"; } else { print &definetd, "$args{'50'}<\/FONT>"; } if ($args{'51'} eq "") { #check for a search argument &no_input; } elsif ($args{'51'} eq $content[51-1]) { print &definetd, "$args{'51'}"; } else { print &definetd, "$args{'51'}<\/FONT>"; } if ($args{'52'} eq "") { #check for a search argument &no_input; } elsif ($args{'52'} eq $content[52-1]) { print &definetd, "$args{'52'}"; } else { print &definetd, "$args{'52'}<\/FONT>"; } if ($args{'53'} eq "") { #check for a search argument &no_input; } elsif ($args{'53'} eq $content[53-1]) { print &definetd, "$args{'53'}"; } else { print &definetd, "$args{'53'}<\/FONT>"; } if ($args{'54'} eq "") { #check for a search argument &no_input; } elsif ($args{'54'} eq $content[54-1]) { print &definetd, "$args{'54'}"; } else { print &definetd, "$args{'54'}<\/FONT>"; } print ""; print ""; if ($args{'55'} eq "") { #check for a search argument &no_input; } elsif ($args{'55'} eq $content[55-1]) { print &definetd, "$args{55}"; } else { print &definetd, "$args{'55'}<\/FONT>"; } if ($args{'56'} eq "") { #check for a search argument &no_input; } elsif ($args{'56'} eq $content[56-1]) { print &definetd, "$args{'56'}"; } else { print &definetd, "$args{'56'}<\/FONT>"; } if ($args{'57'} eq "") { #check for a search argument &no_input; } elsif ($args{'57'} eq $content[57-1]) { print &definetd, "$args{'57'}"; } else { print &definetd, "$args{'57'}<\/FONT>"; } if ($args{'58'} eq "") { #check for a search argument &no_input; } elsif ($args{'58'} eq $content[58-1]) { print &definetd, "$args{'58'}"; } else { print &definetd, "$args{'58'}<\/FONT>"; } if ($args{'59'} eq "") { #check for a search argument &no_input; } elsif ($args{'59'} eq $content[59-1]) { print &definetd, "$args{'59'}"; } else { print &definetd, "$args{'59'}<\/FONT>"; } if ($args{'60'} eq "") { #check for a search argument &no_input; } elsif ($args{'60'} eq $content[60-1]) { print &definetd, "$args{'60'}"; } else { print &definetd, "$args{'60'}<\/FONT>"; } if ($args{'61'} eq "") { #check for a search argument &no_input; } elsif ($args{'61'} eq $content[61-1]) { print &definetd, "$args{'61'}"; } else { print &definetd, "$args{'61'}<\/FONT>"; } if ($args{'62'} eq "") { #check for a search argument &no_input; } elsif ($args{'62'} eq $content[62-1]) { print &definetd, "$args{'62'}"; } else { print &definetd, "$args{'62'}<\/FONT>"; } if ($args{'63'} eq "") { #check for a search argument &no_input; } elsif ($args{'63'} eq $content[63-1]) { print &definetd, "$args{'63'}"; } else { print &definetd, "$args{'63'}<\/FONT>"; } print ""; print ""; if ($args{'64'} eq "") { #check for a search argument &no_input; } elsif ($args{'64'} eq $content[64-1]) { print &definetd, "$args{64}"; } else { print &definetd, "$args{'64'}<\/FONT>"; } if ($args{'65'} eq "") { #check for a search argument &no_input; } elsif ($args{'65'} eq $content[65-1]) { print &definetd, "$args{'65'}"; } else { print &definetd, "$args{'65'}<\/FONT>"; } if ($args{'66'} eq "") { #check for a search argument &no_input; } elsif ($args{'66'} eq $content[66-1]) { print &definetd, "$args{'66'}"; } else { print &definetd, "$args{'66'}<\/FONT>"; } if ($args{'67'} eq "") { #check for a search argument &no_input; } elsif ($args{'67'} eq $content[67-1]) { print &definetd, "$args{'67'}"; } else { print &definetd, "$args{'67'}<\/FONT>"; } if ($args{'68'} eq "") { #check for a search argument &no_input; } elsif ($args{'68'} eq $content[68-1]) { print &definetd, "$args{'68'}"; } else { print &definetd, "$args{'68'}<\/FONT>"; } if ($args{'69'} eq "") { #check for a search argument &no_input; } elsif ($args{'69'} eq $content[69-1]) { print &definetd, "$args{'69'}"; } else { print &definetd, "$args{'69'}<\/FONT>"; } if ($args{'70'} eq "") { #check for a search argument &no_input; } elsif ($args{'70'} eq $content[70-1]) { print &definetd, "$args{'70'}"; } else { print &definetd, "$args{'70'}<\/FONT>"; } if ($args{'71'} eq "") { #check for a search argument &no_input; } elsif ($args{'71'} eq $content[71-1]) { print &definetd, "$args{'71'}"; } else { print &definetd, "$args{'71'}<\/FONT>"; } if ($args{'72'} eq "") { #check for a search argument &no_input; } elsif ($args{'72'} eq $content[72-1]) { print &definetd, "$args{'72'}"; } else { print &definetd, "$args{'72'}<\/FONT>"; } print ""; print ""; if ($args{'73'} eq "") { #check for a search argument &no_input; } elsif ($args{'73'} eq $content[73-1]) { print &definetd, "$args{73}"; } else { print &definetd, "$args{'73'}<\/FONT>"; } if ($args{'74'} eq "") { #check for a search argument &no_input; } elsif ($args{'74'} eq $content[74-1]) { print &definetd, "$args{'74'}"; } else { print &definetd, "$args{'74'}<\/FONT>"; } if ($args{'75'} eq "") { #check for a search argument &no_input; } elsif ($args{'75'} eq $content[75-1]) { print &definetd, "$args{'75'}"; } else { print &definetd, "$args{'75'}<\/FONT>"; } if ($args{'76'} eq "") { #check for a search argument &no_input; } elsif ($args{'76'} eq $content[76-1]) { print &definetd, "$args{'76'}"; } else { print &definetd, "$args{'76'}<\/FONT>"; } if ($args{'77'} eq "") { #check for a search argument &no_input; } elsif ($args{'77'} eq $content[77-1]) { print &definetd, "$args{'77'}"; } else { print &definetd, "$args{'77'}<\/FONT>"; } if ($args{'78'} eq "") { #check for a search argument &no_input; } elsif ($args{'78'} eq $content[78-1]) { print &definetd, "$args{'78'}"; } else { print &definetd, "$args{'78'}<\/FONT>"; } if ($args{'79'} eq "") { #check for a search argument &no_input; } elsif ($args{'79'} eq $content[79-1]) { print &definetd, "$args{'79'}"; } else { print &definetd, "$args{'79'}<\/FONT>"; } if ($args{'80'} eq "") { #check for a search argument &no_input; } elsif ($args{'80'} eq $content[80-1]) { print &definetd, "$args{'80'}"; } else { print &definetd, "$args{'80'}<\/FONT>"; } if ($args{'81'} eq "") { #check for a search argument &no_input; } elsif ($args{'81'} eq $content[81-1]) { print &definetd, "$args{'81'}"; } else { print &definetd, "$args{'81'}<\/FONT>"; } print ""; print "
Below are your crossword responses. The wrong ones are shown in red.
"; print ""; print ""; print ""; print ""; print ""; print &definetd, $content[0], ""; print &definetd,$content[1], ""; print &definetd,$content[2], ""; print &definetd,$content[3], ""; print &definetd,$content[4], ""; print &definetd,$content[5], ""; print &definetd,$content[6], ""; print &definetd,$content[7], ""; print &definetd,$content[8], ""; print ""; print ""; print &definetd,$content[9], ""; print &definetd,$content[10], ""; print &definetd,$content[11], ""; print &definetd,$content[12], ""; print &definetd,$content[13], ""; print &definetd,$content[14], ""; print &definetd,$content[15], ""; print &definetd,$content[16], ""; print &definetd,$content[17], ""; print ""; print ""; print &definetd,$content[18], ""; print &definetd,$content[19], ""; print &definetd,$content[20], ""; print &definetd,$content[21], ""; print &definetd,$content[22], ""; print &definetd,$content[23], ""; print &definetd,$content[24], ""; print &definetd,$content[25], ""; print &definetd,$content[26], ""; print ""; print ""; print &definetd,$content[27], ""; print &definetd,$content[28], ""; print &definetd,$content[29], ""; print &definetd,$content[30], ""; print &definetd,$content[31], ""; print &definetd,$content[32], ""; print &definetd,$content[33], ""; print &definetd,$content[34], ""; print &definetd,$content[35], ""; print ""; print &definetd,$content[36], ""; print &definetd,$content[37], ""; print &definetd,$content[38], ""; print &definetd,$content[39], ""; print &definetd,$content[40], ""; print &definetd,$content[41], ""; print &definetd,$content[42], ""; print &definetd,$content[43], ""; print &definetd,$content[44], ""; print ""; print ""; print &definetd,$content[45], ""; print &definetd,$content[46], ""; print &definetd,$content[47], ""; print &definetd,$content[48], ""; print &definetd,$content[49], ""; print &definetd,$content[50], ""; print &definetd,$content[51], ""; print &definetd,$content[52], ""; print &definetd,$content[53], ""; print ""; print ""; print &definetd,$content[54], ""; print &definetd,$content[55], ""; print &definetd,$content[56], ""; print &definetd,$content[57], ""; print &definetd,$content[58], ""; print &definetd,$content[59], ""; print &definetd,$content[60], ""; print &definetd,$content[61], ""; print &definetd,$content[62], ""; print ""; print ""; print &definetd,$content[63], ""; print &definetd,$content[64], ""; print &definetd,$content[65], ""; print &definetd,$content[66], ""; print &definetd,$content[67], ""; print &definetd,$content[68], ""; print &definetd,$content[69], ""; print &definetd,$content[70], ""; print &definetd,$content[71], ""; print ""; print ""; print &definetd,$content[72], ""; print &definetd,$content[73], ""; print &definetd,$content[74], ""; print &definetd,$content[75], ""; print &definetd,$content[76], ""; print &definetd,$content[77], ""; print &definetd,$content[78], ""; print &definetd,$content[79], ""; print &definetd, $content[80], ""; print ""; print "
Below are the crossword solutions. Compare them with your responses.
"; print "
"; print "
"; print "Click here to try this crossword again or
"; print "click here to try another crossword.
"; print "
Crossword developed by Job Okoth.
"; sub no_input { print &definetd, "-<\/FONT>"; } sub print_blackcell { print "."; } sub definetd { "", }