#!/usr/bin/perl # # Brendan Connell # Last updated: 3/13/97. MAJOR CHANGES!!! =) # # Input line: In format phrase=something+somethingelse&cpw=1 # Method=GET if ($in = $ENV{'QUERY_STRING'}) { # Yay, something was entered. $entered=1; @parms = split('&', $in); foreach $key (@parms) { @parts = split('=', $key); $_=pop(@parts); s/\W//g; $data{pop(@parts)}=$_; } $data{'phrase'} =~ tr/0-9//d; $data{'phrase'} =~ /(.{0,15})/; # 15-character limit $phrase=$1; $data{'cpw'} =~ /(^.)/; # only one character $cpw=$1; if ($cpw>9 || $cpw<1) { $cpw='1'; } } else { $entered=0; } $|=1; # do nifto buffer flushing # Construct pull-down box... for ($x=1; $x<10; $x++) { $select .= '