#!/usr/local/bin/perl print "Content-type:text/html\n\n"; print "\n\n"; &chugCGI(*input); $size = $input{"size"}; $diag = $input{"diag"}; if($size eq "") { $size = 3; } print<<__EOQ__;

'Blackhole' Puzzle

__EOQ__ $ctr = 0; for($i = 0; $i < $size; $i++){ for($j = 0; $j < $size; $j++){ if($i == (($size - 1)/2) && $i == $j){ $img = "star.gif"; } else { $img = "blank.gif"; } print<<__EOQ__; __EOQ__ $ctr++; } print "
"; } print<<__EOQ__;
include diag.

size:
__EOQ__ sub chugCGI { local (*in) = @_ if @_; local ($i, $key, $val); if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } @in = split(/&/,$in); foreach $i (0 .. $#in) { $in[$i] =~ s/\+/ /g; ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } return length($in); }