#!/usr/bin/perl -wT -CE
use Encode;
use Encode qw(_utf8_on);
use Encode qw(encode decode);
##### PARSE THE FORM INPUT
if ($ENV{CONTENT_LENGTH}) {
read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
@pairs = split(/&/,$buffer);
} else {
$buffer = $ENV{QUERY_STRING};
@pairs = split(/\+/,$buffer);
}
foreach $pair (@pairs) {
($name, $value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$input{$name} = $value;
}
$terms=$input{terms};
##### START TESTING PHASE
print "Content-type: text/html\n\n";
print "TERMS: $terms";
##### TRY A SPLIT
($a, $b, $c, $d, $e, $f) = split/\p{IsSpace}/, $terms;
print "A:$a:
B:$b:
C:$c:
D:$d:
E:$e:
F:$f:\n";
##### NOW TRY A SUBSTITUTION
$word = qr/\b(?!(?:AND|OR|XOR|NOT)\b)\w+/i;
$terms =~ s/($word)\p{IsSpace}*($word)/$1 AND $2/g for 1..2;
print "
Terms:$terms\n";
##### PRINT THE WEBPAGE
print <
SEARCH
Search