#!/usr/bin/perl use lib '.'; require "./cgi-lib.pl"; header(); init(); body(); footer(); sub header { print "Content-type: text/html\n\n"; print "\nSmacker Word Search\n"; print "\n"; } sub init { ReadParse(*in); $width = $in{width}; $height = $in{height}; $num = $in{num}; if($width < 3) { $width = 20; } if($height < 3) { $height = 20; } if($num < 1) { $num = 20; } if($in{puzz}) { if($in{type} eq "include") { $words = $in{words}; $words =~ s/[^\w^\s]/ /g; } elsif($in{type} eq "random") { $in{words} =~ s/[^\w^\s]/ /g; $words = "-r $in{words}"; } else { $words = ""; } $words =~ s/\s+/ /g; #@resp = split /\n/,`/home/dave/ws.pl -q -a -n $num -h $height -w $width $words`; @resp = split /\n/,`/home/dave/ws.pl -q -a -e -n $num -h $height -w $width $words`; @array = (); LINE: for($i=0;$i<@resp;$i++) { next LINE if($resp[$i] =~ /^-+$/); if($resp[$i] =~ /^\| ([\w ]+) \|$/) { @row = split /\s/,$1; for($j=0;$j<@row;$j++) { $array[$j][$crow] = $row[$j]; } $crow++; next LINE; } if($resp[$i] =~ /\w\w/) { foreach (split /\s+/,$resp[$i]) { if(/^(\w+)$/) { $wswords[@wswords] = $1; } } } } } } sub body { if($in{puzz}) { print "\n"; } print "
\n"; print "Generate new word search
\n"; print "
\n"; print "
\n"; print "Width: \n"; print "Height: \n"; print "Max # of Words: \n"; print "
\n"; print "\ \  
\n"; if($in{puzz}) { print "\n\n"; print ""; for($y=0;$y<$height;$y++) { print "\n"; for($x=0;$x<$width;$x++) { print ""; } print "\n"; } print "
" . (uc $array[$x][$y]) . "
\n"; print "\n"; $i=0; foreach (@wswords) { if($i == 0) { print "\n"; } print "\n"; $i++; if($i > 4) { print "\n"; $i=0; } } print "
 $_ 
\n"; print "\n"; } print "
\n"; } sub footer { print "\n"; print "\n"; }