replaceone.cgi

 


#!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
        @pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
    read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);

    if ($ENV{'QUERY_STRING'})
    {
        @getpairs =split(/&/, $ENV{'QUERY_STRING'});
        push(@pairs,@getpairs);
    }
}
else
{
    print "Content-type: text/html\n\n";
    print "<P>Use Post or Get";
}


@classes = ("Latin 305", "Advanced Greek Grammar", "Applied Linguistics", "Virgil and the Iliad");
$newclass = $formdata{'newclass'};
$ID = $formdata{'ID'};

print "Content-type: text/html\n\n";
print "<h2>You replaced $classes[$ID] with $newclass. ";

$classes[$ID] = $newclass;

print "Your complete list is now:</h2><UL>";

foreach $item (@classes) {
	print "<LI>$item";
}

print "</UL>";