#!/bin/sh
# GRserverList-display information about all GR URLs.
#
# This routine works via a GET with no parameters.
# A simple list of the sites is returned, with
# links to site information.
#

weblist="/usr/local/lib/addresses/grurls"

cat <<EOM
Content-type: text/html

<title>All Server Information</title>
<h1><img src=http:/hyperspace/GRweb.gif alt="" align=middle>
The Worldwide Web of GR</h1>

This is a complete list of all the relativity
web accessible (web, gopher, ftp)
servers that are registered at QMW.  Please 
<a href=http://www.theory.physics.ubc.ca/mailsteve.html>let them know</a> of
any others, or of any problems.
<p>
You can either connect to the servers, or use our software
to find out more about each group. You can also
<a href=http:/wbin/GR/servers>search</a> this information.
EOM

awk -F"&" '
BEGIN{found="0"}
$0 !~ /&/ {next}
found == "0" {print "<hr><dl>"}
{split($1,tags, " ");
if (tags[2] == "") constring=tags[1];
	else constring=tags[1]"+"tags[2];
print "<dt><a href=http:/wbin/GR/address?"constring"><b>"$1"</b></a>";
print "<dd><b>Server URL: </b><i>"$2"</i><br>";
print "<b>Contact address: </b><i>"$3"</i><p>";
print "Can";
print "<a href="$2">connect now</a>,";
print "or check for <a href=/wbin/GR/pages?"constring">homepages.</a>";
print "<hr>";
found="1"}
END{if (found == "0") print "Sorry-cannot find database!"
	else print "</dl>"}' $weblist

ls -l $weblist|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>"