#!/usr/local/bin/perl4
#
# Inria Sophia Antipolis
#
#  Luc Ottavj
#
push(@INC,"/htdocs/cgi-bin/lib");
require 'cgi-lib.pl';
$DIR = "/htdocs/files/services/sophia/semir/formulaires/";
print &PrintHeader;
print "ess-1 returns <BR> \n";
print "REMOTE_HOST : $ENV{'REMOTE_HOST'} <br> \n";
print "SERVER_SOFTWARE : $ENV{'SERVER_SOFTWARE'} <br> \n";
print "SERVER_NAME : $ENV{'SERVER_NAME'} <br> \n";
print "GATEWAY_INTERFACE : $ENV{'GATEWAY_INTERFACE'} <br> \n";
print "SERVER_PROTOCOL : $ENV{'SERVER_PROTOCOL'} <br> \n";
print "SERVER_PORT : $ENV{'SERVER_PORT'} <br> \n";
print "REQUEST_METHOD : $ENV{'REQUEST_METHOD'} <br> \n";
print "HTTP_ACCEPT : $ENV{'HTTP_ACCEPT'} <br> \n";
print "PATH_INFO : $ENV{'PATH_INFO'} <br> \n";
print "PATH_TRANSLATED : $ENV{'PATH_TRANSLATED'} <br> \n";
print "SCRIPT_NAME : $ENV{'SCRIPT_NAME'} <br> \n";
print "QUERY_STRING : $ENV{'QUERY_STRING'} <br> \n";
print "REMOTE_HOST : $ENV{'REMOTE_HOST'} <br> \n";
print "REMOTE_ADDR : $ENV{'REMOTE_ADDR'} <br> \n";
print "REMOTE_USER : $ENV{'REMOTE_USER'} <br> \n";
print "REMOTE_IDENT : $ENV{'REMOTE_IDENT'} <br> \n";
print "AUTH_TYPE : $ENV{'AUTH_TYPE'} <br> \n";
print "CONTENT_TYPE : $ENV{'CONTENT_TYPE'} <br> \n";
print "CONTENT_LENGTH : $ENV{'CONTENT_LENGTH'} <br> \n";
print "<HR>";
&ReadParse;
print &PrintVariablesShort (%in);
print "</BODY>\n";
print "</HTML>\n";