#!/usr/local/bin/perl
#
#  Copyright (c) 1998 by Per Cederberg
#
#  The code in this file is made freely available for any purpose
#  whatsoever. The authors do not take any responsability for the
#  correctness or suitability for a particular purpose.
#
######################################################################
#
#  Generates a HTML document with some statistical information.
#
#  Authors:   Per Cederberg, per at percederberg dot net
#  Version:   1.1
#  Date:      17th of November 1998
#
#
#  Description:
#  ------------
#    Generates a HTML document with some statistical information.
#
#
#  Revision history:
#  -----------------
#
#  Version 1.1 (1998-11-17, Per Cederberg)
#   - Changed to use TEMPLATEDIR.
#
#  Version 1.0.1 (1998-06-24, Per Cederberg)
#   - Moved the stat.html template to the template directory.
#
#  Version 1.0 (1998-06-16, Per Cederberg)
#   - First version of this script.
#
######################################################################


######################################################################
#
# GLOBAL CONSTANTS AND VARIABLES
#

require "common.perl";



######################################################################
#
# MAIN ROUTINE
#

# Read script input
&ParseInput();

# Generate list of form inputs
while (($key, $value) = each(%form))
{
    $inputs .= "<B>$key</B> = $value<BR>\n";
}

# Set date and time
$form{'CurrentDate'} = $CURDATE;
$form{'CurrentTime'} = $CURTIME;
$form{'Method'} = $method;
$form{'Parameters'} = $inputs;

# Generate list of environment variables
while (($key, $value) = each(%ENV))
{
    $form{'EnvironmentVars'} .= "<B>$key</B> = $value<BR>\n";
}

# Print the output document
&PrintHTMLHeader();
print &ReadTemplate("$TEMPLATEDIR/stat.html");