#!/usr/bin/perl -w

use CGI;

my($request,$param_name,@param_names,%param);

## Read the parameters
##
## archive = a string, the name of the directory in which the messages are stored
## path =    a string, the absolute path to the documents directory of the Web server
## url =     a string, the URL (excluding the "http://" prefix) of the server that contains the messages
##
$request = new CGI;
@param_names = ( 'archive', 'path', 'url' );
foreach $param_name (@param_names) {
    $param{$param_name} = $request->param($param_name);
}

sub write_html
{
    my($html);

    $html = '<HTML>
<HEAD>
<META http-equiv="Refresh" content="1; URL=http://'.$param{'url'}.'/Agonistics/'.$param{'archive'}.'/Interface/agon1.html">
<TITLE>agonistics</TITLE>
<LINK type="text/css" rel="stylesheet" href="message_style.css">
</HEAD>
<BODY>
&nbsp;
</BODY>
</HTML>';
    print "Content-Type: text/html; charset=utf-8\n\n";
    print $html."\n";
}

&write_html();

    
