summaryrefslogtreecommitdiffstats
path: root/debian/htdig/htdig-3.2.0b6/contrib/ewswrap
diff options
context:
space:
mode:
Diffstat (limited to 'debian/htdig/htdig-3.2.0b6/contrib/ewswrap')
-rw-r--r--debian/htdig/htdig-3.2.0b6/contrib/ewswrap/README3
-rwxr-xr-xdebian/htdig/htdig-3.2.0b6/contrib/ewswrap/ewswrap.cgi118
-rwxr-xr-xdebian/htdig/htdig-3.2.0b6/contrib/ewswrap/htwrap.cgi125
3 files changed, 246 insertions, 0 deletions
diff --git a/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/README b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/README
new file mode 100644
index 00000000..0889e245
--- /dev/null
+++ b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/README
@@ -0,0 +1,3 @@
+ewswrap.cgi = Excite for Web Servers (EWS) to htsearch wrapper
+htwrap.cgi = htsearch wrapper to do some basic
+ sanity checking on the query
diff --git a/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/ewswrap.cgi b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/ewswrap.cgi
new file mode 100755
index 00000000..f3f9419e
--- /dev/null
+++ b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/ewswrap.cgi
@@ -0,0 +1,118 @@
+#!/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;
diff --git a/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/htwrap.cgi b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/htwrap.cgi
new file mode 100755
index 00000000..1e7ea66b
--- /dev/null
+++ b/debian/htdig/htdig-3.2.0b6/contrib/ewswrap/htwrap.cgi
@@ -0,0 +1,125 @@
+#!/usr/bin/perl -w
+
+# htwrap.cgi
+#
+# by John Grohol (grohol@cmhc.com)
+# Freeware
+# v1.00 - 5 Oct 1998
+#
+# Simple wrapper script for htsearch to
+# do 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 GET 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
+
+&ParseTags($ENV{'PATH_INFO'});
+&ParseTags($ENV{'QUERY_STRING'});
+
+$squery = $tags{'words'};
+$restrict = $tags{'restrict'};
+$method = $tags{'method'};
+$format = $tags{'format'};
+$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"; }
+
+# How many words are there 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; # Dump quotes
+ $squery =~ s/ and//g; # Dump and's
+ $squery =~ s/ or//g; # Dump or's
+ $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");
+
+exit;
+
+sub ParseTags {
+ local($_) = @_;
+ local(@terms, $tag, $val);
+ s|^/||;
+ @terms = split('&');
+ foreach $term (@terms) {
+ ($tag,$val) = split('=',$term,2);
+ $val =~ tr/+/ /;
+ $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ $val =~ s/<!--(.|\n)*-->//g;
+ $val =~ s/<([^>]|\n)*>//g;
+ # may override previous value
+ $tags{$tag} = $val;
+ }
+}
+
+1;
generated by cgit v1.2.1 (git 2.18.0) at 2024-11-15 04:58:14 +0000