You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
119 lines
3.4 KiB
Plaintext
119 lines
3.4 KiB
Plaintext
3 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# ewswrap.cgi
|
||
|
|
#
|
||
|
|
# by John Grohol (grohol@cmhc.com)
|
||
|
|
# Freeware
|
||
|
|
# v1.00 - 5 Oct 1998
|
||
|
|
#
|
||
|
|
# Simple wrapper script for htsearch to parse old
|
||
|
|
# Excite for Web Servers (EWS) forms as-is
|
||
|
|
# This only makes sense if your want to upgrade
|
||
|
|
# your search engine but can't upgrade every form
|
||
|
|
# which points to it (e.g., external sites are
|
||
|
|
# pointing to your EWS CGI.
|
||
|
|
#
|
||
|
|
# As an added bonus, given the differences from how
|
||
|
|
# EWS handles queries to how htsearch handles them,
|
||
|
|
# it does some basic sanity checking on the query
|
||
|
|
# and tries to re-form it into a valid htsearch query.
|
||
|
|
#
|
||
|
|
# This script must be called using the POST method!
|
||
|
|
#
|
||
|
|
#_______________________________________________________
|
||
|
|
# Set some defaults here
|
||
|
|
# These can be overridden in the calling form
|
||
|
|
|
||
|
|
$config = "htdig"; # htDig config file
|
||
|
|
$exclude = ""; # exclude this url
|
||
|
|
$restrict = ""; # restrict to this url
|
||
|
|
$format = "builtin-long"; # results format
|
||
|
|
$method = "and"; # default method
|
||
|
|
$dir = "/usr/httpd/cgi-bin"; # Set cgi-bin dir
|
||
|
|
|
||
|
|
#_______________________________________________________
|
||
|
|
# Rest of program
|
||
|
|
|
||
|
|
$| = 1;
|
||
|
|
|
||
|
|
# Get the form variables from POST form
|
||
|
|
|
||
|
|
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
|
||
|
|
@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;
|
||
|
|
$value =~ s/<!--(.|\n)*-->//g;
|
||
|
|
$value =~ s/<([^>]|\n)*>//g;
|
||
|
|
$tags{$name} = $value;
|
||
|
|
}
|
||
|
|
|
||
|
|
$squery = $tags{'search'}; # Set search query
|
||
|
|
$page = $tags{'page'};
|
||
|
|
if (not($page)) { $page=1; }
|
||
|
|
|
||
|
|
$squery =~ s/\+//g;
|
||
|
|
$squery =~ s/\-//g;
|
||
|
|
$squery =~ s/the//g;
|
||
|
|
$squery =~ s/not//g;
|
||
|
|
$squery =~ s/what//g;
|
||
|
|
|
||
|
|
# If someone puts "and" or "or" in the query,
|
||
|
|
# then it should be a boolean query
|
||
|
|
|
||
|
|
if (($squery =~ " and ") || ($squery =~ " or ")) {
|
||
|
|
$method = "boolean"; }
|
||
|
|
|
||
|
|
# Count the number of words in the query
|
||
|
|
|
||
|
|
@words = split(/ /,$squery);
|
||
|
|
foreach $word (@words) { $xwd++; }
|
||
|
|
|
||
|
|
# If there are quotes in the query, we have to
|
||
|
|
# turn them into parantheses and make it boolean
|
||
|
|
|
||
|
|
if (($squery =~ "\"")) {
|
||
|
|
$oo = (index($squery,"\""))+1;
|
||
|
|
$od = (index($squery,"\"",$oo))-1;
|
||
|
|
$op = $od - $oo +1;
|
||
|
|
$yty = substr($squery,$oo,$op);
|
||
|
|
@wrds = split(/ /,$yty);
|
||
|
|
foreach $wrd (@wrds) { $xww++; }
|
||
|
|
|
||
|
|
if ($xww eq 2) { # Right now, can only handle 2-word phrases
|
||
|
|
$oi = (index($yty," "));
|
||
|
|
if ($oi > -1) {
|
||
|
|
$ytt = substr($yty,0,$oi);
|
||
|
|
$john = $od - $oi +1;
|
||
|
|
$yte = substr($yty,$oi+1,$john);
|
||
|
|
$james = substr($squery,$od+2);
|
||
|
|
$james =~ s/ and//g;
|
||
|
|
$james =~ s/ / and /g;
|
||
|
|
$squery = "($ytt and $yte) $james"; # We turn it into a
|
||
|
|
$method = "boolean"; # boolean query
|
||
|
|
}
|
||
|
|
|
||
|
|
# More than 2 words in quotes (phrase), just
|
||
|
|
# turn it into one big string of words and set method to "and"
|
||
|
|
|
||
|
|
} else {
|
||
|
|
$squery =~ s/\"//g;
|
||
|
|
$squery =~ s/ and//g;
|
||
|
|
$method = "and";
|
||
|
|
$yty = "";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Set the environmental variables
|
||
|
|
|
||
|
|
$ENV{'REQUEST_METHOD'} = 'GET';
|
||
|
|
$ENV{'QUERY_STRING'} = "config=$config&restrict=$restrict&exclude=$exclude&words=$squery&method=$method&format=$format&page=$page";
|
||
|
|
|
||
|
|
# Run htsearch
|
||
|
|
|
||
|
|
system("$dir/htsearch");
|
||
|
|
|
||
|
|
1;
|