#!/bin/sh
# GR snail mail finder. (c) Steve Braham
#
#..	To support an ISINDEX type search, set search string if given
#	an argument on the command line
#

mailfile="/usr/local/lib/addresses/grplaces"
safeit="/usr/local/http/support/safeitgr"
unescape="/usr/local/http/support/unescape"


    if [ $# -gt 0 ]; then 
	PREFIX="search="
    fi
#
#..	Check that a query has been made
#
#date>/tmp/a
    if [ $QUERY_STRING ]; then

#
#..		Strip the variables out from the query string,
#		and assign them into the environment, prefixed by 'QS_'
#
#		 o sed removes any ' that would upset quoted assignment
#
#		 o awk ensures that 
#			- all variables passed have legal names
#			- special characters are not interpreted by sh
#
# First a security strip search
	SAFE_QUERY=`$safeit QUERY_STRING`
#echo $QUERY_STRING >>/tmp/a
#echo $SAFE_QUERY >>/tmp/a
	eval `echo $PREFIX$SAFE_QUERY | sed -e 's/'"'"'/%27/g' |awk '
		BEGIN{RS="&";FS="="; seclist = ""}
		$1~/^[a-zA-Z][a-zA-Z0-9_]*$/ {
			printf "QS_%s=%c%s%c\n",$1,39,$2,39}' `
#
#..		Output header
#
cat << EOM
Content-type: text/html


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


# Unescape search string, extract first word. Further safety check.

allpars=`$unescape  "$QS_search"`
export allpars
allpars=`$safeit allpars`
firstpar=`echo "$allpars"|awk '{print $1}'`
export firstpar
firstpar=`$safeit firstpar`


# Now set search type. (regex or plain)
# A single unknown will be interpreted as an ISINDEX search with
# a plain search, case insensitive.

case $QS_method in
	advanced) searcher=egrep ;;
	simple) searcher=fgrep ;;
	*) searcher=fgrep ;;
esac

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


#ok, do it	

$sea "$allpars" $mailfile | awk -F\& 'BEGIN {found="0"}
found=="0" {print "<hr>Match found.";
            print"<i>Click on highlighted text to see people";
            print "at each address.</i><hr>";
	    print "<b>Extended Search Key:</b>";
	    print "<img alt=\"OTHER\" src=http:/hyperspace/triangle.gif>";
	    print "= Related addresses,";
	    print "<img alt=\"ALL\" src=http:/hyperspace/square.gif>";
            print "= People at related addresses.";
            print "<dl>";
	    found="1"}
{print "<hr>"}
$3 == "" {print "<dt><a href=http:/wbin/GRpeople?"$2">", $2, "</a>"}
$3 != "" {if ($2 == "Z")
          print "<dt><a href=http:/wbin/GRjournal?Z+"$3">", $1, "</a>";
          else {
            print "<dt><a href=http:/wbin/GRpeople?"$2"+"$3">", $1, "</a>";
            print "<a href=http:/wbin/GRaddress?"$2">";
            print "<img alt=\"OTHER\" src=http:/hyperspace/triangle.gif></a>";
            print "<a href=http:/wbin/GRpeople?"$2">";
            print "<img alt=\"ALL\" src=http:/hyperspace/square.gif></a>";};}
 {print "<dd>";
  for (i=4; i<=NF; ++i) {
  if ($i!="") print $i"<br>"};
  print ""}
END { if (found == "0") {
      print "<hr>Sorry, no information found for: <i>"allpars"</i>.<p>";
      print "Can attempt";
      print "<a href=http:/wbin/GRpeople?"firstpar">people</a>,";
      print "<a href=http:/wbin/GRjournal?"firstpar">journal</a> or";
      print "<a href=http:/wbin/GRaddress?"firstpar">address</a>";
      print "search for <i>"firstpar"</i>."} else print "</dl>";
      }' allpars="$allpars" firstpar="$firstpar"

# OK, it's done. Now just give a few options.

cat <<EOE
<hr><i>New</i> Searches:<p>
<a href=http:/hyperspace/GRpeople.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/people.gif>
<b>GR People</b></a>

<a href=http:/hyperspace/GRjournal.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/journal.gif>
<b>GR Journal</b></a>

<a href=http:/hyperspace/GRaddress.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/address.gif>
<b>GR Address</b></a>

EOE


	else

#
#..		The script was called without a query. 
#		Provide an ISINDEX type response for browsers
#		without form support.
#

cat << EOM
Content-type: text/html

<TITLE>GRaddress Gateway</TITLE>
<H1>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/address.gif>
General Relativity Mail Addresses</H1>

<ISINDEX>

This is a simple interface into the General Relativity 
<a href=http://www.theory.physics.ubc.ca/hyperspace/grguide.html>
mailing address list</a>. This service is provided by the
<a href=http://www.theory.physics.ubc.ca/hyperspace/hyperspace.html#group>UBC</a>
GR group, but the list itself is kept by
<a href=http://www.theory.physics.ubc.ca/wbin/GRpeople?MacCallum>
Malcolm MacCallum</a>. It performs searches
on the list of snail mail addresses for GR institutions.
Simply type a piece of text into the dialog box
and <i>GRaddress</i> will then display any
entry that has that particular string in any field. Case does not
matter, and all 
available entries will be displayed, <i>but only a single field
will be matched.</i><p>
<hr>
<i>Or go to:</i><br>
<a href=http:/hyperspace/GRpeople.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/people.gif>
<b>GR People</b></a>

<a href=http:/hyperspace/GRjournal.html>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/journal.gif>
<b>GR Journal</b></a>

<a href=http://www.theory.physics.ubc.ca/hyperspace/>
<img alt="" src=http://www.theory.physics.ubc.ca/hyperspace/hyper.gif>
<b>HyperSpace</b></a>

EOM

fi

echo "<hr>"

ls -l $mailfile|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>
Software written by
<a href=/mailsteve.html>
<address>Steve Braham (braham@physics.ubc.ca)</address></a>"