#!/usr/local/bin/perl5
#
#
# This is the Gnats home page
#
#
$pathinfo = $ENV{"PATH_INFO"};
@pathlist = split(/\//, $pathinfo);
$prog = shift(@pathlist);
$username = shift(@pathlist);
$eladdress = shift(@pathlist);
if ($username eq "") {
    $username = "1";
}

if ($eladdress eq "") {
    $eladdress = "1";
}

#-----------------------------------


require "/nnnn/nnn/www/cgi-bin/cgi-lib.pl";
 
print &PrintHeader;

# Print the document
print <<"EOM";

<HTML>
<HEAD><TITLE>CN PRMS - Test System Home Page</TITLE>
<!-- Changed by: Alan John Lovell, 21-Apr-1995 -->
<!-- Changed by: system PRIVILEGED account, 16-Jun-1995 -->
<!-- Tided up by: Jesus Sanchez, 23-Oct-1996 -->
</HEAD>

<H1><a href="http://wwwcn.cern.ch/Welcome.html">CN</a> PRMS - A New Test System Home Page</H1>

<FONT SIZE=+1>
This is the home page for the <a href="http://wwwcn.cern.ch/Welcome.html">CN</a> Problem Reporting System. This system is based on the 
<A HREF="http://consult.cern.ch/writeups/gnats/gnats.html">  Gnats </A>
Problem Report Management System.
<P>In order to improve clarity several different reporting "Domains" have been
created. These domains are listed below. You may access the domain of your
choice by clicking on the relevant domain title.
</FONT>
<BR>
<BR>
<hr>
<strong>
<A HREF="http://nnnn.nnn.nn/gnats-TEST/$username/$eladdress/" >
TEST - TEST Support Services </a> <P>
<hr>
</strong>


</BODY>
</HTML>

EOM

1;
