#!/usr/bin/perl
use lib '/home/max/berezin/bin';
use CGI qw(:standard);
#***************************************************************
# Main
#***************************************************************
{
if ($ENV{'REQUEST_METHOD'} eq "GET")
{ $in = $ENV{'QUERY_STRING'}; }
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{ read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); }
# split returned data at & or ;
@in = split(/[&;]/,$in);
# begin building web page
print "Content-Type: text/html\r\n\r\n";
print " \n";
print "Grade Entry\n";
print "\n"; print "\n";
print "
GREETINGS and salutations";
print "
$in";
print " \n";
# end of web page generation
}
1;