#!/bin/sh
# GR general address finder. (c) Steve Braham
#
# This combines the functionality of the original GRpeople,
# GRjournal and GRaddress programs into one. It works as follows:
#
# POST mode: when called via POST, the CGI variable file is checked
# to see which type of search should be made, and the other
# variables are then parsed to build the search.
#
# GET mode: Can be called with or without a QUERY string. In either
# case, the search file is picked up from the extra path info,
# PATH_INFO. If called without a QUERY, the routine returns
# a simple form for an ISINDEX request. If called with a QUERY,
# a search is performed with basic defaults for the other
# parameters (case insensitive, simple mode, best match to within
# 3 errors). a GET without an extra path provides general information
# and links to the path specific modes.
#
# Awk scripts to do the database to HTML conversion are kept
# in the GR directory
#
emailfile="/usr/local/lib/addresses/grpersons"
mailfile="/usr/local/lib/addresses/grplaces.search"
getquery="/usr/local/http/support/extra/getQuery"
unescape="/usr/local/http/support/unescape"
wagrep="/usr/local/http/support/extra/wagrep"
people="/usr/local/http/GR/people.awk"
address="/usr/local/http/GR/address.awk"
journal="/usr/local/http/GR/journal.awk"
servers="/usr/local/http/GR/servers.awk"
pages="/usr/local/http/GR/pages.awk"

#..		Output header
#
cat << EOM
Content-type: text/html

EOM

# if it's a POST, expand out the form

if [ "$REQUEST_METHOD" = "POST" ]; then


# grab form data and parse it to environment variables
#
#..		Strip the variables out from the query string,
#		and assign them into the environment, prefixed by 'QS_'
#
#		 o getQuery ensures that
#			- POST is fetched properly
#                       - all dangerous characters are escaped
#
#		 o awk ensures that 
#			- all variables passed have legal names
#			- special characters are not interpreted by sh
#


	eval `$getquery | awk '
		BEGIN{RS="&";FS="="}
		$1~/^[a-zA-Z][a-zA-Z0-9_]*$/ {

			printf "QS_%s=%c%s%c\n",$1,39,$2,39}' `

# Parse the expanded data to actual search parameters

# Exact or Best Match?

	case $QS_match in
		best)  bm=1; sea="$wagrep -B -y -u";;
		exact) bm=0; sea="$wagrep -u";;
		*) bm=1; sea="$wagrep -B -y -u";;
	esac

# Set error range if best match

	if [ $bm -eq 1 ]; then
		if [ -z "$QS_l" ]; then
			sea="$sea -3"
		else
			sea="$sea -$QS_l$"
		fi
	fi

# Set word mode


	if [ "$QS_wm" = "word" ]; then
		sea="$sea -w"
	fi

# Case sensitivity

	case $QS_case in
		sensitive) ;;
		insensitive) sea="$sea -i" ;;
		*) sea="$sea -i" ;;
	esac

# Set search type. (regex or plain)

	case $QS_method in
		advanced) ;;
		simple) sea="$sea -k" ;;
		*) sea="$sea -k" ;;
	esac

#
# Check to see what kind of GET we have

else
	if [ -z "$QUERY_STRING" ]; then

# ok, we handle usage information requests first

# Generic bit:

cat <<EOM
<TITLE>Basic GR Gateway</TITLE>
<H1>
<img alt="" src=http:/hyperspace/address.gif>
General Relativity Addresses</H1>

This is a simple interface into the General Relativity 
<a href=http:/hyperspace/grguide.html>
mailing address list</a>. This service is provided by the
<a href=http://www.maths.qmw.ac.uk/hyperspace/hyperspace.html#group>QMW</a>
Relativity group, and the list is kept by
<a href=http://www.maths.qmw.ac.uk/wbin/GRpeople?MacCallum>
Malcolm MacCallum</a>. Searches performed via this gateway
will be case-insensitive, and best matches with up to three errors
will be returned. Only simple searches will work.<br>
EOM
	case $PATH_INFO in
		/people) cat <<EOM
<ISINDEX>
<p>To search for the e-mail address of a person, simply type your
text into the dialog box. You also have other
<a href=http:/wbin/GR>options</a>.
EOM
		;;
		/address) cat <<EOM
<ISINDEX>
<p>To search for the postal address of an institution, simply type your
text into the dialog box. You also have other
<a href=http:/wbin/GR>options</a>.
EOM
		;;
		/journal) cat <<EOM
<ISINDEX>
<p>To search for the e-mail address of a journal or group, simply type your
text into the dialog box. You also have other
<a href=http:/wbin/GR>options</a>.
EOM
		;;
		/servers) cat <<EOM
<ISINDEX>
<p>To search for the snail mail addresses, and URLs,
of sites with WWW accessible servers, simply type
text into the dialog box. We have a
<a href=http:/wbin/GRserverList>complete list</a> of servers
available.
You also have other
<a href=http:/wbin/GR>options</a>.
EOM
		;;
		/pages) cat <<EOM
<ISINDEX>
<p>To search for people with WWW Homepages, simply type text
into the dialog box.
You also have other <a href=http:/wbin/GR>options</a>.
EOM
		;;
		*) cat <<EOM
<hr>
<h3>Options</h3>
<ul>
<li><a href=http:/wbin/GR/people><b>People Search</b></a>:
<i>To find somebody's e-mail address.</i>

<li><a href=http:/wbin/GR/address><b>Address Search</b></a>:
<i>To find postal addresses of institutions.</i>

<li><a href=http:/wbin/GR/journal><b>Journal Search</b></a>:
<i>To find journals and groups address.</i>

<li><a href=http:/wbin/GR/servers><b>WWW Server Search</b></a>:
<i>To find WWW accessible GR sites.</i>

<li><a href=http:/wbin/GR/pages><b>WWW Pages Search</b></a>:
<i>To find somebody's WWW homepage.</i>

</ul>
You can also read <A href=http:/hyperspace/adv-search.html>details</a> about
our search engine.
EOM
		;;
	esac
	
	cat <<EOM
<hr>
Try our <a href=http:/hyperspace/GR.html>
<img alt="" src=http:/hyperspace/address.gif align=top>
<b>form-based</b></a> search,
or go back to
<a href=http:/hyperspace/>
<img alt="" src=http:/hyperspace/hyper.gif align=top> <b> HyperSpace</b></a>
<hr>
EOM
	ls -l $emailfile|awk '{
print "E-mail database last modified on "$5" "$6" "$7"."}'

	echo "In case of problems, contact:
<a href=http:/mailmaster.html>
<address>The Web Master (theoryweb@physics.ubc.ca)</address></a>
or, for software problems, the author:
<a href=http://www.theory.physics.ubc.ca/mailsteve.html>
<address>Steve Braham (S.P.Braham@qmw.ac.uk)</address></a>"

	exit
	fi

# OK, it's a GET, but we have a search to do. Set defaults

	QS_search=`$getquery`
	sea="$wagrep -3 -i -u -B -y -k"
	
	case $PATH_INFO in
		/people) QS_w="People";;
		/address) QS_w="Address";;
		/journal) QS_w="Journal";;
		/servers) QS_w="Servers";;
		/pages) QS_w="Pages";;
		*) QS_w="Error";;
	esac

fi

# OK, we're ready for a search!

# Unescape search string, carefully, so that it can be used by
# awk in HTML output

allpars=`$unescape -e "$QS_search"`

# Output title information

cat <<EOM
<TITLE>GR Address search output</TITLE>
<h1><img alt="" src=http:/hyperspace/address.gif>Search Results</h1>
EOM

#ok, do it	

case $QS_w in
	People) $sea "$QS_search" $emailfile |fgrep -v "ZZ"|awk -F\& -f $people allpars="$allpars" ;;
	Address) $sea "$QS_search" $mailfile | awk -F\& -f $address allpars="$allpars" ;;
	Journal) $sea "$QS_search" $emailfile |fgrep "ZZ"|awk -F\& -f $journal allpars="$allpars" ;;
	Servers) $sea "$QS_search" $mailfile | awk -F\& -f $servers allpars="$allpars" ;;
	Pages) $sea "$QS_search" $emailfile |fgrep -v "ZZ"| awk -F\& -f $pages allpars="$allpars" ;;
	*) echo "Sorry-invalid search type."  ;;
esac

cat <<EOM
<hr>
You can now try a
<a href=http:/hyperspace/GR.html>
<img alt="" src=http:/hyperspace/address.gif align=top>
<b>new search</b></a>, or go back to
<a href=http:/hyperspace/>
<img alt="" src=http:/hyperspace/hyper.gif align=top> <b> HyperSpace</b></a>
<hr>
EOM

ls -l $emailfile|awk '{
print "Database last modified on "$5" "$6" "$7"."}'

echo "In case of problems, contact:
<a href=http:/mailmaster.html>
<address>The Web Master (theoryweb@physics.ubc.ca)</address></a>
or, for software problems, the author:
<a href=http://www.theory.physics.ubc.ca/mailsteve.html>
<address>Steve Braham (S.P.Braham@qmw.ac.uk)</address></a>"