#!/usr/statlocal/bin/perl -wT

use lib '/home/RAGE/genovese/public/Perl';

use CGI qw(:unique_headers);
use CGI::Carp qw(fatalsToBrowser set_message);

BEGIN
{
    sub handle_cgi_errors
    {
        my $msg = shift;
        print "<p><h1>CGI Error</h1>\n";
        print "$msg\n<p>\n";
    }

    set_message(\&handle_cgi_errors);
}


use strict;

my $query = new CGI;

$query->print( $query->header( { -type=>'text/html' } ), "\n" );

$query->print( $query->dump, "\n" );
$query->p;
$query->print( $query->p( $query->self_url ), "\n" );
$query->print( $query->p( $query->url ), "\n" );
$query->p;

if( $query->param( 'mode' ) eq "single" )
{
    $query->print( $query->startform(-method=>'POST',-action=>$query->self_url), "\n" );
    $query->print( $query->hidden( 'who', $query->param( 'who' ) ), "\n" );
    $query->print( $query->hidden( 'what', "foo" ), "\n" );
    $query->print( $query->textfield( -name=>'username', -default=>"", -size=>32, -maxlength=>32 ), $query->br, "\n" );
}
else
{
    $query->print( "<STRONG>NOT SINGLE</STRONG>\n" );
}

$query->p;
$query->print( $query->hr );

foreach my $key (keys %ENV)
{
    $query->print( $query->p("$key=$ENV{$key}"), "\n" );
}


$query->print( "\n\t</BODY>\n</HTML>\n" );